File 17U4.BA (BASIC source file)

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

22Z 3IWL/VF6:R"+VJ:.MRJ2 WR7MKA3KKA+LCY3TGR3N3S3AWT7DR 3O> +SB87BOA+ICC+BCY7K	A* ;R2 	F3SWH+R: 2.R.E7C*JB53P	R+NOT*1B:2"	W3L/L3O7M+ECN+ICM3D
I3IGT3LV 7DOU7YSS+ECM3C7O7PSU+ECR3BGL3C+K3A/C*!J!.MZJ6 KP7ISN.*16 2 3P	R+NOT*1J:3D	E7NN 3PWI7LKE2 WH3UWT2 GN7CSH6 OI7TB 3EWT7RB 2.V 3IG+TJ..M^J2 WR+MB 6 KP7ISN6 ^"3AOT3H" +ICM3C?L3S3E+Y:.*.B.+HCE7HOA* CA7RCE3UGT3T?I3NZ +OKR.M"J2 WR+MB 6 KP7ISN2 R"3E3A3I
N2 [O7FR +HCE7BSO3T7O2 [O2 T3ER 3E/C6.2"3P	R+NOT"16:*JB93R;A3D7O3IWZ.MFJ20R +ICM/AF(*3B)3\	D3M2 .$J("06).JB22 WR+MB 6 KP7ISN2 Z"3R
A+ECN3DWI2 	E3N* 3A> 7DKE2 WN+ICN3E[R3OSR3E;R",6".JV26 KP7ISN.*12";A3T?W3RWT2 6 +ICT*	
J6 WF+ECR+J3A2 :	2	Z 7UKE2 WN+I;N6"C\3R;I/TF":*M*3B03P	R+NOT*1J:3M;I7DOE3T	E3NGS+TCZ.1B02 7D* B *.:.*.:.*.:.3VWI3L^ 3LWU+CKK.MNJ62B 3R;I/TF":*M*4B03P	R+NOT*1J:7MSI2 	W3E	V3EWL3NR 7M^ 3I3L+SCT+DCU3SGT3RWT/N."3\3C3OWS*B13\	F+LOE*2J:/T+V""*M*4B17ICN+UOT22Z:2
O\7LOO/EJ2 [\3IWL/VF6:R"+VJ:.MRJ62B 3R;I/TF":*M*4B3/F61F*M*5B03P	R+NOT612:3P	R+NOT*1J:7WOA6 OI3TR 3E;I2 	E3NGS+TCZ7JSE+ZKT6;2 3C?L+SOE612 3F3I/EJ6:R"+VJ:.MVJ21& 7NWP/TJ*:CW3\3C3OWS*B23\	F7L[E.*16"[T*:B"7\KP7ISN.*17PSN.(B1"26).JJ56 KP7ISN.*1.MVJ23& 7F^ *>C
7GSO/OV "6*M*5B4+ICF/WF<20^ 3O?T. "5.MVJ25^ 3O?T. B1"0*M*5B63P	R+NOT*1J:3D	E+NCE7WSE+TCE3UKE7EOR3T	E+GCT3D	E+NCE7KCA3IGT+LJ..MVJ27^ 3O?T. B5.MVJ68B 3R;I/TF2:."3L	E7NSS+ECR3E;I7SSA3ZR /MF *0J..MVJ29^ 3O?T. B5.MFJ*0B07GOO+UCB.7B8.MFJ*0B2/P61I*M.1R06 KP7ISN.
12"WD3IWN6 KE3SWT2 . 7ASR3E& +SCT3E;I2"2;*$B 3\WR+MB 7CKH2$2(")*M.1Z02 ?G3SKU. "7"0*M.1B1. KP"=7I.JF162B 3R;I/TF2:R"3E;I7E* 3W	E+TCE7KKA+TCE7ISS2 	E/N."+LB$6 K\+ECM7CKH2$2(")*M.1V12 ?G+TCO.2B0.MFJ*1B73P	R+NOT612:6 B 3R;I/TF2:R"3U" 7ASS. ."/P.32"^ 3EWS3H;E
.B"7\KP7ISN.*1.MFJ*1B97GOO+UCB.7B6.MFJ*2B0/P63+P.3I*M.1J26 KP7ISN.*16"WD2 WB3K7O7MSS2 	E/N."+LB$3\WR+MB 7CKH2$2(")*M.1N22 [I. OP.>F22 ?G+TCO.8B2.MFJ*2B47GSO/OF "167.JB220^ 7OWS/B^ "860.JB261B 63B=61B+"2*M.2J0. GD"=7I.JB224^ 7OWS/B^ "860.JB226R 22&=.MJJ*0B
3P	R+NOT*1B:7\B 3R;I/TF*:J 3S	P3EWL7R* 3IE3TV +IKN*;SL6 2 3R7E2 C+R"$L6).JF220^ 3O?T. F1"7*M.2J1. OD.=GD.+KD.MJJ*1B43P	R+NOT*1J:3S	P3EWL3R" +ACT2"R;"3*M.2Z12 [I. OD.>Z12 ?G+TCO.2J2.MJJ*1B77GOO+UCB.7B8.MJJ*1B83P	R+NOT*1J:3S	P3EWL3R^ 7ISB2 	E/N."+LB$3\WR+MB
7CKH2$2(")*M.2&1. OD.=OD"+7I.JJ220^ 3O?T. F2"4*M.2J22 [I. OD.<J22 ?G+TCO.8B0.MJJ*2B43P	R+NOT*1J:3S	P3EWL3RJ 3A/N7RSO+TJ..MJJ*2B67GSO/O" "062.JZ760B 3R;I/TF2::"3OC2 	E+NCE7KKA+TCE.?."2 O\7LOO/EF2 [\3IWL.*26"[T":6".JZ722& 7NWP/TJ2:. 6$2 3C?L+SOE622 3F3I+EOV
1J:/T+V""*M.7R66 KP7ISN.*1.M^J*6B6+ICF/K6$*"KN2 ?G+TCO.2J1.M^J*6B87GOO+UCB.7B8.M^J*7B07RSE3U;R.M^J*8B03I&=+NT*1*33RSN*(&0*+&1.M^J*8B23A&(2)F=*(	I"+61.J"724& 3FF *(	I*>B47GSO/O^ "860.J"726^ 7OWS/B& "060.J"768J 7EWTR7N.JB820& 3FR .36>+PB37GSO/O" "260.JB822Z
*=/FW*M.8Z06 KP7ISN.*16"WD2 WG3W;I7NSS2.R 3U" 7ASS6 WN3NR +MJ ";7F.JB828^ 3O?T. "9"0*M.8B2. 7F7F^-.M"J*2B23P	R+NOT*1J:+DCU7VKE3LWI7RSS2.R 3U" 7ASS2 ?N+CCH+DCM2"Z;.M"J*2B47GSO/O& "860.JB920& 3F& .<F>2 ?G+TCO.9B1.M&J*0B4/IF="1*M.9Z0. 7L"1*M.9"02 ?G+TCO.9J4.
&J*1B0+ICF/I:<*1B37GSO/O& "260.JF922& .=B1.M&J*1B4/LF="1*M.9Z12 ?G+TCO.9J4.M&J*2B0+ICF/I:<*1B27GSO/O& "360.JJ922& .=B1.M&J*2B4/LF="7*M.9Z22 ?G+TCO.9J4.M&J*3B0+ICF/I:<*1B17GSO/O& "367.JN922& .=B1.M&J*3B4/LF="0*M.9Z32 ?G+TCO.9J4.M&J*3B7+ICF/I:<*1B07GSO/O& "
60.JN9282 .=B2.M&J*3B97GSO/O& "464.JR9202 *=/I"468.JR922& 3F2 * B<*2B73TWH/N& "464.JR9232 .$6 2 V"* J 2&C+R"$+LB)3\?G+TCO.9B6.M&J*4B4+ICF/L6 . B12 T+ECN.9V42 
\3O?T. R9"6*M.9V4* SL* B=2";E2 * 3U
N+EKN2 
\3O?T. Z9"0*M.9Z42 [I* CL.=F 67R 3H;E. R9672 7GSO/O& "468.JR9272 .$6 2 V"* B 3D7A+EB"3\?G+TCO.9B6.M&J*4B8+ICF/L6 . F12 T+ECN.9&42 
\3O?T. V9"0*M.9&4* SL* B=2";E* B 3KWO3N
I6"2 7GSO/O& "660.JV9202 .$6 * B"6 OAS6".JZ960J 7EWTR7N.J"960B 3R;I/TF2:6"3OOE3HWT+SCT+DCU3W	E7TKE6 CS3PWI3L;E* J?6;2 3C?L+SOE612 3F3I/EJ6:R"+VJ:.M&J*8B27ICN+UOT22.:*$B 3\3C3OWS*B23\	F7L[E.*16"[T":6".J"964B 3R;I/TF6:2 3P	R+NOT"16:.J"926& 3F. *$J=+JB"7GSO/
V "0*M.9^86 KP7ISN.*17\KP7ISN.*17\KP7ISN.*12 	\3FZ .>GF2 T+ECN.9V9.M&J*8B83P	R+NOT61B:+NT.1J0*)C\3P	R+NOT*1J:3NOI+HCT7VKE3ZWW3IWF+LGN6 WD2 GH+SKT.;GF.-/F*"7D7MKAK6".J"969B 3R;I/TF2:F"3NR +ACS7EWD7SOY3T7E2 GC3S;I7OZ 3E3R3OWRN6".J&920^ 3O?T. &9"8*M.9V96 KP7
SN.*12"	N7CSH2 OS3HWL7CSH2!R 3U" 7ASS2"Z;.-GF2;R"2-GM+RKK.M&J*9B63P	R+NOT*1J:+ICM7EWD7SOY3T7E2 GC3S;I3O^ 3E?W3NWNN6".J&968B 3R;I/TF6:C\3R;I/TF2:""3O[F3EV 3S" +ACT7DKI2 WG3F3A3L;E*.B 3D;A+KCE3FWU3RR +ACS3S	P+E;L""*M.9&92 3C3OWS*B13\Z 3IWL.*26"[T*:B"3\;I7PS
.*27X2 3C?L+SOE622 3ESN&M*J

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