File SIGNS.BA (BASIC source file)

Directory of image this file is from
This file as a plain text file

.1B02 WR+MB * B 6 B 3R
O3R7A6 KW7IST+ECN+BCY3D;A3I3E* ;R2 WV3R?NN*M.1B12 WR+MB * B 6 N 3E	N+OCR+ACT7BSU7LKE2 WS3N?I3R" 3IG2 OS3H?OL*M.1B22 WR+MB * B * B * B * B * B 7BSU7LKE6,B 3E;N3S3Y3V;A+ICA.1B6"061.JN160J +ECM* B * B 7DSA+EB:* 62.1^-"3*M.1B42 WR+MB * B 2 N 7OCM3UWT7RN 3UWP3
	V3S?I+NB-+M;R2 	W3L	L+ACM3E3LI7S.JV160J +ECM* B * B 3C7O7PSU+ECR7TCO7IOC2 ;I7SKT7USC3I;O2-6 +RB.3AKL7ESR6 SS3EGWR7T.JZ160J E7M.J^160J +ECM* B * B 3T	H7SB 3R
O3R7A6 OI2 WD3S
I3NSE2 ?T6 KC7ESA7EB 7OSS7EOR.MFJ*8B03R7E.MFJ*8B53R7E* B * B 6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MFJ*9B03D7I* SG.(R5*,&1*,SH*(26*62)+B"$*5&4*,G*62)/AV("46).J&125Z 3IWL+VN *1J:7LSP":6".JB260B 3R;I+TJ 7ICN+UCT3H	E7GSH2 ;I2 ;I3CWH7
2"7ICN+UCTL*M.2V06 KP7ISN2 &"7NWP7T^ 7ISD3H& 3N& 3NC+EKS3\;I7PSU6 3R/SB=/\7A/RJ*/\7CA*M.2B16 KP7ISN2"?H3WZ +A3R2 ;I2 ;I3CWH3SZ 3R7O2 T3E2 7ESF2 GH+NCD3SSI+EB,+DCO7YWO2 GW+NCT+TCO3PGL+CCE""*M.2B26 KP7ISN2"T3E2 7EST7EOR6"2;7ICN+UCT7SO\.=J1"*7S.JN260B 3R;I3T
"7NWP3T6 7EOS3AWG2 WH+RKE.MJJ*4B07ICN+UCTB6$.JV220Z +OCR/IF=+TCO3L;E*(SB")*M.2J5* A/I6)3AOS2(WS+G"$+B2$3I&,")6).JV223: 7ESX" 7I.JZ220" .$F(*)J=6 2"+H"$.26)*"B 2"\.$N(*)J=* B 2"\.$R(*)J=* B " 6".JZ221" .$V(*)J=* B * J +\SH*(&6*=B"* B * J +\SH*=SH*(	L.MJJ*6
27GOO+UCB.9B4.MJJ*7B03FZ=6+21+ICF3AZ(.)B=2 ?G+TCO.9B9+\G.06)L*M.2F72 ?F3R& *=B1+TCO3L;E*(SB")*M.2J7* SG*(	I2=C+R"$3A&(")6).J"220: 7ESX" 7I.J&220Z +OCR/XF=+TCO/AJ/.MJJ*9B13P	R+NOT"16:.J&222: 7ESX" 7X.J&225^ 2$N=+HSR*(A+F&).MJJ*9B77FKO. 7X62R 3O2 +\SG*=SG2&
+R"$3AZ(6)2)7NE7T" .MNJ*0B0+ICF3AZ(.)R=26^ 3O?T. R325	\+FA/F6)23^63O?T.9B93\[I3AZ(.)N=22?G/T[O63203IGF*(	F.<^27GSO/OB3"5*M.3F02 [I* A/F2)*4B87GSO/OJ 6720+ICF3AZ(.)V>27^ 3O?T. ^2"0*M.3V02 [I3AZ(.)J<27^ 3O?T.3B13\[I* A/F6)*4B87GSO/OB520	\3FF *(	F.=&42 ?G+TC
.4B4.MNJ*0B63IGF*(	F.=B57GSO/OZ 6220+ICF3AZ(.)V=21^ 3O?T.6V23\[I* A/F6)*5B27GSO/OZ "365.JB327& 3FF *(	F.=N52 ?G+TCO.5B53\[I* A/F6)*5B47GSO/OZ 6125+ICF3AZ(.)V=25^ 3O?T. B6"5*M.3"02 [I* A/F6)*5B67GSO/OV 6925+ICF3AZ(.)V=27^ 3O?T. "5"5*M.3B12 [I* A/F:)*2B67GS
/OJ 6720+ICF3AZ(.)F>25^ 3O?T. N3"0*M.3B22 [I* A/F6)21^ 3O?T. V320	\3FF *(	F*=B27GSO/ON 6620+ICF3AZ(.)N=2 ?G+TCO.3B7.MNJ*2B1+ICF3AZ(.)R=2 ?G+TCO.3B83\[I* A/F6)25^ 3O?T. &320	\3FF *(	F*=B67GSO/OR "060.JJ322& 3FF *(	F*=B77GSO/OR 6120+ICF3AZ(.)"=2 ?G+TCO.4B33
[I* A/F6)29^ 3O?T. R4"0*M.3N22 [I* A/F6)*1B07GSO/OR 6520+ICF3AZ(.)F=21^ 3O?T. Z420	\3FF *(	F.=J12 ?G+TCO.4B7.MNJ*2B4+ICF3AZ(.)F=23^ 3O?T. "420	\3FF *(	F.=R12 ?G+TCO.4B93\[I* A/F6)*1B57GSO/OV "060.JN320& 3FF *(	F.>Z22 ?G+TCO.2B73\[I* A/F6)*1B67GSO/OV 6120+
CF3AZ(.)F=27^ 3O?T. J5"0*M.3F32 [I* A/F6)*1B87GSO/OV 6420+ICF3AZ(.)F=29^ 3O?T. V520	\3FF *(	F.=B22 ?G+TCO.5B6.MNJ*3B2+ICF3AZ(.)J=21^ 3O?T. ^520	\3FF *(	F.=J22 ?G+TCO.5B83\[I* A/F6)*2B37GSO/OV "960.JN323& 3FF *(	F.=R22 ?G+TCO.6B03\[I* A/F6)*2B57GSO/OZ 6120
ICF3AZ(.)J=26^ 3O?T. J6"0*M.3B42 ?G+TCO.2B7.MNJ*4B57FKO. 7X61R 3OF .MNJ*4B63P	R+NCT.*13TKA*(	S*;SG*;SG.MNJ*4B77NE7T" .MNJ*4B87GSO/OJ "760.JV320^ 7OWS/BZ "460.JV321^ 7OWS/BZ "960.JV322^ 7OWS/BZ "460.JV323^ 3O?T. ^2"0*M.3B62 ?G3SKU. R6"0*M.3F62 ?G3SKU. V6"0
M.3N6. 7A+C:*"5*M.3V62 ?G3SKU. R6"0*M.3Z6. 7AC*M.3^62 ?G3SKU. F8"0*M.3"62 ?G+TCO.2B7.MNJ*7B07GOO+UCB.6B4.MNJ*7B27GOO+UCB.7B0.MNJ*7B47GOO+UCB.7B0.MNJ*7B67GSO/OJ "760.J"320^ 7OWS/BZ "460.J"322^ 7OWS/B^ "060.J"324F *=+C6.257GOO+UCB.6B4.MNJ*8B63AN=3\?G3SKU. R
"0*M.3"82 ?G+TCO.2B7.MNJ*9B07GOO+UCB.6B4.MNJ*9B27GOO+UCB.6B5.MNJ*9B47GOO+UCB.6B5.MNJ*9B67GSO/OJ "760.JB420^ 7OWS/BZ "460.JB422^ 7OWS/BZ "960.JB424^ 7OWS/BZ "960.JB426^ 3O?T. ^2"0*M.4B12 ?G3SKU. R6"0*M.4J1. 7A+C:*67257GOO+UCB.7B0.MRJ*1B43AN=.*J.25
\7OWS/BZ "560.JF426F 6=3C7GOO+UCB.7B6.MRJ*2B03AN=.*J.25
\7OWS/B^ "160.JJ422F 6=3C7GSO/OJ "760.JN420^ 7OWS/BZ "460.JN422^ 7OWS/B^ "160.JN424^ 7OWS/BZ "460.JN426^ 3O?T. ^2"0*M.4B42 ?G3SKU. R6"0*M.4J42 ?G+TCO.2B7.MRJ*5B07GOO+UCB.7B5.MRJ*5B27GOO+UCB.7B4.MRJ*5B47GOO+UCB.6B4.MRJ*5B67GSO/OJ "760.JZ420^ 7OWS/BZ "460.J
422^ 7OWS/B" "660.JZ424^ 3O?T. ^2"0*M.4B72 ?G3SKU. R6"0*M.4J72 ?G3SKU. R7"0*M.4R72 ?G3SKU. R7"0*M.4Z72 ?G+TCO.2B7.MRJ*8B07GOO+UCB.6B4.MRJ*8B27GOO+UCB.8B9.MRJ*8B47GOO+UCB.8B8.MRJ*8B67GOO+UCB.6B4.MRJ*8B87GSO/OJ "760.J&420^ 7OWS/BZ "460.J&422^ 7OWS/B" "960.J
424^ 7OWS/BZ "460.J&426^ 3O?T. ^2"0*M.5B02 ?G3SKU. R6"0*M.5J02 ?G3SKU. B7"0*M.5R02 ?G3SKU. R6"0*M.5Z02 ?G+TCO.2B7.MVJ*1B07GOO+UCB.6B4.MVJ*1B27GOO+UCB.6B9.MVJ*1B47GOO+UCB.7B9.MVJ*1B67GSO/OJ "760.JJ520^ 7OWS/BZ "460.JJ522F *=+C..V73\?G3SKU. B7"0*M.5R2. 7A+C
*62257GOO+UCB.6B5.MVJ*2B63AN=3\?G3SKU. R6"0*M.5B3. 7A+C:*62257GOO+UCB.7B1.MVJ*3B23AN=3\?G+TCO.2B7.MVJ*4B07GOO+UCB.6B4.MVJ*4B27GOO+UCB.6B9.MVJ*4B43AN=.*V.3\?G3SKU. R6"0*M.5Z42 ?G3SKU. F8"0*M.5"4. 7A3C
\3O?T. ^2"0*M.5B52 ?G3SKU. ^7"0*M.5J52 ?G3SKU. V6"0*M.5R52 ?G3SKU. Z7"0*M.5Z52 ?G+TCO.2B7.MVJ*6B07GOO+UCB.7B8.MVJ*6B27GOO+UCB.6B4.MVJ*6B47GOO+UCB.7B8.MVJ*6B67GSO/OJ "760.J^520^ 7OWS/BZ "460.J^522^ 7OWS/B^ "460.J^524^ 7OWS/BZ "460.J^526^ 3O?T. ^2"0*M.5B82 
G3SKU. &8"0*M.5J82 ?G3SKU. "8"0*M.5R82 ?G+TCO.2B7.MVJ*8B57GOO+UCB.7B9.MVJ*8B67GOO+UCB.6B9.MVJ*8B77GOO+UCB.6B4.MVJ*8B87GSO/OJ "760.J&520^ 7OWS/BZ "460.J&521^ 7OWS/B" "860.J&522^ 7OWS/B" "960.J&523^ 7OWS/BZ "460.J&524^ 3O?T. ^2"0*M.5V92 ?G3SKU. R6"0*M.5Z92 
G3SKU. V6"0*M.5^92 ?G3SKU. R6"0*M.5"92 ?G+TCO.2B7.MZJ*0B07GOO+UCB.9B0.MZJ*0B17GSO/OJ "760.JB625^ 7OWS/B^ "860.JB626^ 7OWS/B^ "860.JB627^ 7OWS/BZ "460.JB628^ 3O?T. ^2"0*M.6B12 ?G3SKU. ^9"0*M.6F12 ?G3SKU. B8"0*M.6J12 ?G3SKU. Z9"0*M.6N12 ?G+TCO.2B7.MZJ*1B57G
O+UCB.6B4.MZJ*1B67GOO+UCB.6B5.MZJ*1B77GOO+UCB.7B6.MZJ*1B87GSO/OJ "760.JJ620^ 7OWS/B& "260.JJ621^ 3O?T. ^2"0*M.6V22 ?G3SKU. B7"0*M.6Z22 ?G3SKU. V6"0*M.6^2. 7A+C:*25
\7OWS/BZ "460.JJ628F 6=3C7GOO+UCB.8B1.MZJ*2B97GSO/OJ "760.JN620^ 7OWS/B& "460.JN621^ 3O?T. ^2"0*M.6V32 ?G3SKU. &7"0*M.6Z32 ?G3SKU. F7"0*M.6^32 ?G3SKU. R6"0*M.6"32 ?G+TCO.2B7.MZJ*4B07FKO. 7Y61R 3OF .MZJ*4B13P	R+NCT.*13TKA*(	S";*M.6J42 ?F7R" *=B1+TCO"160.JR
63B 3R;I+TN 21^:"$6;.JR624: 7ESX" 7X.JR665B 3R;I+TN "16:.JR626: 7ESX" 7Y.JR667J 7EWTR7N.JV620& 3FF *<B13TWH/NZ 66207GSO/OZ "760.JZ620F "=61.J^620Z +OCR/XF=2 ?T6 3A3P	R+NCT.*13TKA*(	S*;SG*;SG*;SH*;SH*;SG*;SG*;SH*;SH*;SG*;SG3\WN+XCTX*M.6J72 WR7TKUN*M.6B86 K
7ISN.*13TKA*(	S";*M.6B92 ?F7R" *=B1+TCO7AC\3R;I+TN 61R:+AB242**+	S*;SG*;SG*;SH*;SH*;SG*;SG3\WN+XCTX*M.6J92 WR7TKUN*M.7B02 ?F7R" *=B1+TCO7AC\3R;I/TF2:GT7BN(2)^;2$^;6$2;3P	R+NOT61R:+AB282**+	S*;SG*;SG3\WN+XCTX*M.7F02 WR7TKUN*M.7B12 [I. 3A61R 3H;E. J720
\3O?T. N7"0*M.7B2. 7A"1*M.7B32 ?F7R" *=B1+TCO7AC\3R;I/TF2:GT/BR(**/L/S.)/G.$7G2$7NE7T" .M^J*3B17RSE3U;R.M^J*4B07FKO. 7X61R 3OF 7\KP7ISN.*13TKA*(	S*;SG*;SG3\WN+XCTX*M.7J42 WR7TKUN*M.7B52 ?F7R" *=B1+TCO7AC\3R;I/TF2:GT7BN(2)^;2$^;2$^;2$^;2$;\7ESX" 7X.JV762J 
EWTR7N.JZ720Z +OCR/YF=2 ?T6 3A3P	R+NOT61R:+AB/S.)/G.$/G.$/G.$/G.$/G.$/G.$/H.$/H.$/G.$7G2$7NE7T& .M^J*6B17RSE3U;R.M^J*7B07FKO. 7X61R 3OF 7\KP7ISN.*13TKA*(	S*;SG*;SG*;SH*;SH*;SG*;SG*;SG*;SG*;SG*;SG3\WN+XCTX*M.7J72 WR7TKUN*M.7B82 ?F7R" *=B1+TCO7AC\3R;I+TN 61
:+AB282**+	S*;SG*;SG3\WN+XCTX*M.7J82 WR7TKUN*M.7B92 ?F7R" *=B1+TCO7AC\3R;I/TF2:GT/BR(**/L/S.)/G.$/G.$/G.$/G.$/G.$7G2$7NE7T" .M^J*9B27RSE3U;R.M"J*0B07FKO. 7X61R 3OF 7\KP7ISN.*13TKA*(	S*;SG*;SG*;SG*;SG*;SG*;SG3\WN+XCTX*M.8V02 WR7TKUN*M.8B12 ?F7R" *=B1+TCO/C
/.M"J*1B13P	R+NCT.*13TKA*(	S";*M.8J12 ?F7R& *=B1+TCO"2*M.8N12 ?F7R* *=B1+TCO*(*5+L6)X*M.8R16 KP7ISN.*13S
E2$^(.$F,*,&1";*M.8V12 WN+XCTZ*M.8B22 [I. ;X63R 3H;E. V960[\"=7X.J"L*3B03P	R+NOT21":.$J(**	V2;;\7ESX" 7Y.JN862B 3R;I+TN 612:7NE7T" .M"J*3B47RSE3U;R.M"J*4B07FKO. 7X61R 3ON 6/223P	R+NCT.*13TKA*(	S*;SH*(	X";*M.8J42 ?F7R& *=B1+TCO.(B1**	L.-J(**	X.M"J*4B33P	R+
CT.*13S
E2$^(.$F,*,&1";*M.8R42 WN+XCTY*M.8V46 KP7ISN. F":*M.8B52 WN+XCTX*M.8J52 WR7TKUN*M.8B62 ?F7R" *=*47LR /O^ **CL3SWT+P" *1*4+L>)*(+C"66).JZ861B 3R;I+TN 61R:+AB272**-/X/S.)/G.$/G.$/G.$.M"J*6B2+ICF*(*77L"-*+/S232**)"<7XN+2)^ 3O?T. Z8"8*M.8N62 ?F3R& .=^(**7L+XB
+TCO7XC\3R;I/TF2:WS+G"$+G2$.1F,6)2;7NE3T& .M"J*6B47GSO/O" "761.JZ868B 3R;I/TF2:GT7B"(*+	S*;SG*;SG*;SG";*M.8F76 KP7ISN.*13\WN+XCTX*M.8J72 WR7TKUN*M.8B82 ?F7R" *=B0+TCO262*6 SS+ECP262*6/3C3P	R+NOT61R:+AB7XN+2)^;2$^;2$^;2$^;2$;\7ESX" 7X.J"862J 7EWTR7N.J&820Z
+OCR/XZ=**CL+TCO60N 7TCE. Z-**?L7CC\3R;I/TF2:GT7B"(*+	S*;SG*;SG*;SG*;SG3\WN+XCTX*M.8J92 WR7TKUN*M.9B02 ?F7R" *=B0+TCO272*6 SS+ECP.(R1**	L2/N(**&6.M&J*0B1+ICF/XN>*.*53L^ 3O?T. B9"7*M.9J06 KP7ISN.*13TKA*(/X/S.)/G.$/G.$/G.$.M&J*0B3+ICF*(/X/SN+**	L.<^(**7L7XN
2)^ 3O?T. B9"6*M.9R02 ?F3R& *=CX+TCO*(*77L"-6)2 6 KP7ISN.*13S
E2$^(.$F,*,&12;;\7ESX" 7I.JB925^ 3O?T. F9"2*M.9Z06 KP7ISN.*13TKA*(*77L"-*+	S*;SG*;SG*;SG2;
\7OR /O& "162.JB967B 3R;I/TF2:GT/B^(**7L7XN+2)^;2$^;2$^;"$6;.JB928& +F" 272**-/X/SN+**	L6<"(*+	S2 ?G+TCO.9F1.M&J*0B97FKO. 7I*(*77L"-6)R 7O" 7\KP7ISN.*13S
E2$^(.$F,*,&12;;\7ESX" 7I.JF920^ 3O?T. F9"2*M.9F16 KP7ISN.*13TKA*(/X/S.)/G.$/G.$/G.$.M&J*1B23P	R+NCT.*1.M&J*1B37NE7T" .M&J*1B47RSE3U;R.M&J22Z0+OCR/XB=2 ?T* *77LN 7TCE. ^(**	L2/N(**&3.M&J*2B13P	R+NOT61R:+AB/S.)/G.$/G.$.M&J*2B2+ICF/XJ>**CL7GSO/O& 62263P	R+N
T21^:"$6;.JJ923Z +OCR/IF=2 ?T6 3X3P	R+NOT61N:+ESG*(SG*,21.1.)3\WN+XCTI*M.9R22 ?G+TCO.9B3.M&J*2B63P	R+NOT61R:+AB7XN+2)^;2$^;2$^;"$6;.JJ927& 7F" *+*3/L"<**CL7GSO/O& "360.JJ928Z +OCR7I"=*+*37LR /OF 202*7\KP7ISN.*13S
E2$^(.$F,*,&12;;\7ESX" 7I.JJ929^ 3O?T. N9"2*M.9B36 KP7ISN.*12 GT/B"(**/L/S.)/G.$/G.$/G.$.M&J*3B23P	R+NOT"16:.JN923: 7ESX" 7X.JN964J 7EWTR7N.JR920Z +OCR/XF=2 ?T* +A"3*M.9F46 KP7ISN.*1.M&J*4B27NE7T" .M&J*4B37RSE3U;R.M&J*5B07FKO. 7W61R 7O" 6-233P	R+NOT*1J:* 
 2;;\7ESX" 7W.JV922J 6=237GSO/O" "360.JZ920Z +OCR/XR=**CL+TCO272*6 SS+ECP/LR*6/3C3P	R+NOT61R:+AB7XN+2)^;2$^;2$^;2$;\7ESX" 7X.JZ962J 7EWTR7N.J^920Z +OCR/X^=**CL+TCO242*6 SS+ECP*-*43LN/7\KP7ISN. F2:GT7B"(*+	S*;SG*;SG*;SG3\WN+XCTX*M.9J72 WR7TKUN*M.9B92 ?F7R"
.=F 2 ?T* +C"3*M.9F96 KP7ISN.*1.M&J*9B27NE7T" .MFJ.0B02 ;ED*MBZ

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search