File ZA1LKE.BA (BASIC source file)

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

65B 3R;I+TJ 7DSA7EON7A+T3N7A+E" 7MA3IGM/LZ 2 WZ3IC+ECN*!F!.)."3\;I7PSU* SY.MFJ20R +ICM+N"$*2&0*,SX.(V16)\*$J=3DGT*1J:*&SY*&:"+BKA.MFJ25Z 3IWL/VF*:SX.MJJ60J +ECM3E;I3GKA3ER +ECR3L	E7SWT7NOG7KKU7SKE3GKE7NOI+SCE*1:2*16 . N1*.212 WB3ROE7HWNN7G.JB32 WR3MR +ECR
AOU3GWL3IC3SWR3G3E3U
N6,B 3RWU3F;U3GR +ECR3Z3U7AOS3U
N3SWB3D;I3G;U3G;E.MRJ60J +ECM7AOU3GKA3EJ +ECI7T	T2 ;U3DF 7BCS3EOI7HKE3NR +ECR3E
R3E;B7IOS3EF +UCF3B;A/DF .MVJ60J +ECM2(GZ21GDL6).JB62 WRM6 .JB86 KP7ISN2"	S+NCD3I[N3O7R3A	T3OWN3NV 7RWW7EON7CSH2 *(3A> 7DKE2 WN+I	N6"2;7ICN+UCTA6$.JB92 [I* SA* B=2"WN+IKN2 T+ECN.2B3.MFJ*0B03P	R+NCT2"F +UCF3A[B3R
A+E^ 3N7A+EB	3E;I3GKA3ER +ECS3SC3U3E3E;R3AWM+NKS.MFJ*1B03P	R+NCT6"WA3FF 7BKF3AWG. F	2.Z 3AC*?B	3E;I3GKA3ER +ECS3FWA3CWH3RGN3M;E3SV +I7N""*M.1B26 KP7ISN6 N"3C3H7IOE3S	L+CCH7KKU7SWN3MWM+RB,3ZJ.*.B +EB52 > 7DKE6 B +HB5* J,.MFJ*3B03P	R+NKT3D;A7NJ 7EWT+R7N7TOA
T;E2 GN+CCH3A[B3R
A+E^ 7PSK+E^?2 	E3NGG+BCE7DKE""*M.1B46 KP7ISN6"WP7NSK3ZA3L;E6 KD3E[I3AC+ECR7WKE3T;U3G& 3NR +ECR3R	E3H;E3F3O/G+E""*M.1B56 KP7ISN."J1*.21. J1*.22. N1*.:1" 6".JZ160B 3R;I3TR"+ICE3E;I3Z3E3N;E2 GZ3HWL7NN 3ISN6 WD3RC2 ?K3MGM7S* 7UR 3R;E3N;E6.V +NJ-.MFJ*7B03P	R+
KT7MSI3T3E7BKA2 GN+CCH7DKE2 WL7TSZ+ECN3ZA3LR +ICE3ROI3H	T3GWK+ICT7DKE""*M.1B86 KP7ISN2"	E3NGG3B;E6 KP3U[E+ECN2 ;U3DV 7RSS2 GD3NOA7HJ 7EWT+R7N7TOA+TCE7DWR3E/C+E;N""*M.1V86 KP7ISN2"GN+CCH3A[B3R
A+E^ *2B.3FOA+H^?2 ;E7TCS3ROE3H;E+DJ..MFJ*9B03P	R+NKT3W;E3NF 3LWL2 GD3T;E2 3A7LKE2 OS3HWU7LKE2 	E3NWG3GKE+ECN3S;I+DB,3A[U2 KA"-6".JB260B 3R;I3TZ"3R
A+E^ 3N7A+E^?2 	E3NWG3B;E*:B 2 ;E+DCE* : ""*M.2B1. GZ6=20/Z6260+\.3B=/\SZ6=20/Z6560+\.6B=/\
Z6=20/Z6860+\.9B=/\CZ"=60.JN220Z +OCR/I6 * B1+TCO652 6 KP7ISN3\WN+XCTI*M.2B46 KP7ISN2"GN+MKE2;	\7NWP3T: 6$O\6=20/DB=+\SZ2=*"""*M.2F4+ICF/N6$2";E+DKE2 T+ECN.5B0.MJJ*5B07FKO* CI.=F 2 ?T6 223P	R+NCT+IJ;2.Z 3AC6"2;7ICN+UCT+F"$7I2)3S&(.)B=.MJJ*6B03P	R+N3T6 B"3
WT""6;.J^220Z +OCR/J6 * B1+TCO*3C\7ICN+UCT3F&(*,	J+\S/I6)3S&(2)Z+*(3I7J2)2 WN+XCTJ*M.2B86 KP7ISN* 2,*,SF*(	I.;*"6"N;*(	I*;B"7PSK7E2"* CS6=N * B+3S&(*)C\7NE3T& .MJJ*9B03P	R+NCT*,J 3S7U+MCE3L.-7UOR+EJ:6,N,*;J 2 /P+TKE.MNJ*0B0+ICF/FF(*,&3*>F.2N,6)R 3H;E. F32
3\+ECT/AJ=**F.2N,.)N/3\?G+TCO.3B2.MNJ*1B07LSE* CA.=J **F.1N,.)N/.MNJ*2B03R7E.MNJ*2B13R7E2 WB3ROE7HWN+NCG3USN6 WA3SGGB7E.JJ362J E7M.JN360N * B=+S. " 7A.JR360B 3R;I+TJ,7AOU3GWL3IC7SWP7NSK+EJ:",7A.JV360B 3R;I+TJ 7PSK6-WS3MWM2 2 7EOI3T;U3G/S7UOR7BKE3EOI+HJ:",
S.JZ360J E7M.J^360J +ECM6 KP3U[E3U
N2 WD7R* 3UGL7SWS7NOG3BSE3I
N3U
N.MNJ28Z0+OCR/I6 * B1+TCO"2*M.3B92 ?F3R* * B=61R /ON .MRJ*0B0+ICF3F&(*,	J. F>64R 3H;E.4B13\R * B=/DF+.MRJ*1B07NE3T* .MRJ*2B07NE3T& .MRJ*3B0+ICF/D2 * B33TWH/NR "560.JR460B 3R;I3T:"3IC7T* 7UWZ7LOA3S;E6,^ 3E3I2 WM+HCR7AOL* B23L.-7UOR3E6 +ICT3W;E3IWGR6".JR461
 3R;I3TF"+LCS65B 3KWT3NV 3I[N3AC+ECR7WKE3T;U+GJ.+\SZ2=:"""*M.4B52 [I. ;S*9B93TWH/NR "860.JZ460B 3R;I3T:"3IC7T* 7UWZ7LOA3S;E6,^ 3E3I2 WW3N
I+ECR7AOL. B160B 3KWT2 7I""*M.4B76 KP7ISN2"WL7ISS3U
N7SWK3RKS3EWR3IC6.2"/Z6$*"KN.MRJ*8B0+ICF/Z6$*"KN2 T+ECN.2B3.MRJ*8B57GOO+UCB.1B0"0*M.4B96 KP7ISN.*1N6$.J&461B 3R;I/TF*:SF*(&1.MRJ*9B23P	R+NOT21Z:.$J(")*M.4V96 KP7ISN.*1/SF(6)N,*(&2.MRJ*9B67GSO/OJ "360.JB560B 3R;I/TF*:SN.MVJ*0B13P	R+NOT*1J:O6".JB562B 3R;I/T
2:>"""*M.5V06 KP7ISN.*1.0B,.MVJ*0B63C?L+SOE"1*M.5B16 KP7ISN6"WA3FR /TGA2 WB3F;I3D;E2 	S+CCH3FWU3R* 3EWD7NN 7CWH3EWL+RB,7DKE2 7I""*M.5B26 KP7ISN*"7L7BKE3EOI3HR +ICE3Z3U7AOS3U
N3SWB3D;I3G;U3G;E6 KE3R	E7CSH2 GH+TJ,.MVJ63B03R;I3TZ"3O
L3ESN3ER 3AWT+NJ:.MVJ*3B13P	R+NKT3N7A+EB,*1B.3LZ-3AC6,B +K7T3S7U+MCE7DKA+I3N* :2* 7L3FOA+HB,7PSK6-WS3MWM2 GD3R;I""*M.5J36 KP7ISN2"WJ3W	E+LCS3DWR3IGF+C;H""*M.5N36 KP7ISN2"R +ICE7EJ * CR3EN * CH3NV * CT3E: 2 R 3AWT+NB,3D".6.B 3U/N7TN-3U7M+EKN.MVJ*3B43P	R+NK
7AOU3GWL3IC7SWP7NSK7EV +NCD3P;U7KOT3U7M3E& 3M2 2-WB3R	E+CCH3S;I3D: 3OC""*M.5V36 KP7ISN2";I2 	D7EN 7CWH3EWL7RSS3A7M3BGL7EST+ECR3E;I7ZSU3R
A+E;N""*M.5Z36 KP7ISN.MVJ*4B03P	R+N3T6 V"* CE3BV * CR3S& * CC7HR ""*M.5F46 KP7ISN2"WU7BKE2 	D3E^ 7RCU3PWI3R;U3GR +ECR3Z
U3EGL3SWS3N;E2 OS3HWU7LKE""*M.5J46 KP7ISN2"7I* 7L7BKE3EOI3HZ 7UKE2 	D3E6 3E3D3U
N2 GN+CCH7PKA/AF 28F 7BB-+OJ..MVJ*4B33P	RN7T.JV560B 3R;I7TB"+K7T3ZA+L2"2"GZ+HCL7DKE2 OS3HWU7LKE""*M.5F56 KP7ISN."B3.0J-*7J6.,GZ.MVJ*5B23P	R+NKT.2V7.-V2*12"Z62.JV563B 3R;I/TJ"*560.2F36"*,"3*M.5R56 KP7ISN."N2.0J-*1J1.,SZ.MVJ*5B53P	R+NKT.2B1.-&1*12"Z65.JV566
 3R;I/TF".960.1F76"*,"6*M.5^56 KP7ISN."^1.0F-*5J1.,
Z.MVJ*5B83P	R+NKT.1B5.-N1*12"Z68.JV569B 3R;I/TF"*360.1Z16"*,"9*M.5B66 KP7ISN."F1.5F-*0J0.,CZ.MVJ*7B03S?TP*M.9^92 WRM6 .J&968J +ECM7USN7ECR3R
O3R7A+MB 3ZF * CE3H2 * CU3N^ 6 WF+ECR3DWI6 KG7UCP7IKE3U
N2 WDR*M.9&92 WR7M* 3UWG7LOA3S;E+ECN3SC3U3E+E;R.MFJ.0B02 [I. 3S.2Z72 T+ECN.1F060+\61*=.1F+3\?G+TCO.1B1"0*M.1F020& 7FN .<V261R 3H;E. B16220/Z62+Z.221
\3O?T. F1"060.JB1*2B0+ICF/SJ<*3B13TWH/NF .0B3/\OZ.=OZ6+217GSO/OF .1B0.MFJ.0B32 [I. 3S.2F12 T+ECN.1R060+\64*=.4F+3\?G+TCO.1B1"0*M.1R020& 7FN .<&161R 3H;E. B16520/Z65+Z.521
\3O?T. F1"060.JB1*5B0+ICF/SF<*7B13TWH/NF .0B6/\[Z.=[Z6+217GSO/OF .1B0.MFJ.0B62 [I/SF<*5B13TWH/NF .0B7/\
Z.=
Z6+217GSO/OF .1B0.MFJ.0B72 [I. 3S.1F32 T+ECN.1"060+\68*=.8F+3\?G+TCO.1B1"0*M.1"020& 7FN .<F166R 3H;E. B16920/Z69+Z.921
\3O?T. F1"060.JB1*9B0/Z60+Z.0"1*M.1B160J 7EWTR7N.JB2*0B03ESN&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