File ZA1GK1.BA (BASIC source file)

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

*1B03R7E6 WA3SWW7RWT+NCG7DKE6 WZ7RF 3U3A3I	F7KSA3I;O2 WG3HWO3R
I3E;E6 KG3USN7KKU+SCE3FWUR*M*2B03R7E2 	D3EV 7RSS3E. 3O[N3EWR+NCZ7DOE2 GZ2,V 7ISN3R
A3U
N2 WD3R2 6-WK+R7S3E
R3E;B7IOSE*M*3B03R7E2 ?V/NF .3J(*)B,3SWP3IC7EWR+NCG7DKE2 GD3T;E6 WA3SR +ECN24F +B7I3FWA3CWH+RCN3A[U.MRJ60J +ECM* CD2=F 3NGZ+HCL7DKE6 WK3RWS2 ;U7TKE* B53P;U3KWTN*M65J0+ECM. 7E20Z,3A3L7S* 3UGL+S7S3BSE3I
N6.KE3FWU7LSL6,N 6=WP7NSK3S7U+MCE+ICM3FOAH*M*6B03R7E6 R 6=R 3OGT+LCE3P;U7KOT3U7M3E& 3M^ 2-WB3R	EC7H.JB72 WR3M: .$6 2 OS3HWU7LKE3N7A+EB * B * B * ST* B=7TKE3M;I.M"J60J +ECM+F"$/I6)*1B.7BOI* :42 KA3IZ-3AC* B 3F&(*,&42=/P+TCE7AOU. N1*(&2.M&J60J +ECM3F&(*,&5*
B=3P;U7KOT3U7M/EF .2F(2)J +ICS*1"3*1B)+ICM*1B..-N 2.F +B7I3FOAH*M.1B06 KP7ISN2 J"+ICS+ZCU3W3E3CWH7MR 3E7R+ICN3MWU3SWS3NR 3I+E3E	N3G;E6 WK3RWS2 ;A3G7E+E7L""*M.1B16 KP7ISN2"WD7T^ 3ESR+E3N2 	D3EF 7UOS3ER3AKL2 WD7RF 3U3A3I	F7KSA3I;O2 ;I3SF +B7I""*M.1B26 KP7IS
2"WZ3U;G+ICS3A[U3G;E3O7M+ECN7WKE3D;E2 ?S3LWL/N."3\;I7PSU* ST.MFJ*3B03P	R7N3T3P	R+NKT+ZCU3D;E* 7L3FWA3CWH+RCN7MOU7SB +K7T3ZA7LZ +OCN*1"3*22)6 WZ2 WDN6".JR160B 3R;I3T^"2-GF3EC3E;R6 WM7EOS+ECN64B +K7T3ZA3L;E2 ;I2 WZ3I3T3IC+ECR3R	E3H;E3F3O+GKE.MFJ*5B03P	R+NKT
NSO3F3A+LCS*	^02,V 3I
N3EWG3B;E2 WW3RWD+NB.3NOA3HV 3I
N3AWB2 3A7LKE2 GF3EC+EKR.MFJ*6B03P	R+NKT3USN2 /P7T*-3A3H+ECN3JSE+ECS3SC3U3E7EOR6 N	+U
M2 	E3NWG3B;E".6".J^160B 3R;IT*M.1V72 	D3M: .$J(*02)/FR(*,&5*,SX.(R16)&,.$F("46).J"160B 3R;I3T:"3AWM2 WD3SF 7BWZ3R[U3ESN+ECN7DSA7EON7A+T+EKS2;	\7NWP+TSX.MFJ*8B5/X6$6"SD/A*16""&*$J&2.GB""*M.1B93P	R+NKT3N7A3ER +ECS3A[U3ZKU3AWU3NWD3NR 3AWT3NGS3TWZ/S."3\;I7PS
Y6$.J&165& *$J=3DGT*1J:*&SY*&:"+BKA.MJJ*0B03F3I/EF6:" 2$[\3IWL/VJ6:& "$*M.2B16 * .1B=/\KZ6=20/Z6360+\.4B=/\WZ6=20/Z6660+\.7B=/\Z6=20/Z6960+\.0B=.MJJ*2B07ICN+UOT21::6$",.MJJ*3B07FKO* CI.=F 2 ?T6 227ICN+UOT21Z:2$&(6)",3\WN+XCTI*M.2B42 ;I7PSU.*1/FF(*,&5*,F.2
,6)",",7X.JV220Z +OCR/I6 * B1+TCO*5C\3P	R7N3T2 WN+XCTI*M.2B66 KP7ISN* SN3\& 3F: *$J=3ESN+EB"3TWH/N" "360.J^220R 6=20/EB=/\7S60S\6=20/ZB=.MJJ*8B03R7E" *M.2B92 WR+MB * :16 V +NCD* :22 F * CB+I6 * CF3AN " 7H.JB320Z +OCR/I6 * B1+TCO*2C\3P	R+NCT+IJ;2.2 2-GF+CC
2"Z;2$&(")*M.3B16 KP7ISN6"WS3MWM2 	B/SF .3F(*)J:*;F/IV,")*M.3B23P	R+N3T6"WP7NSK/EF .3J(.)."3\;I7PSU* F/IR,2);\7ESX" 7I.JN360J +ECM. N *.B 2 ;U+DB * :42 F * CB+I6 * CF3AN " 7H.JR320Z +OCR/I6 * B3+TCO"4*M.3B5* F/IV,.)6 " 60.JZ360B 3R;I3T& *;:"2 KA3IZ-3AC6"2
7ICN+UCT+F"$7I2)+ICF+F"$/I6)*"KN2 T+ECN.2B2.MNJ*7B03P	R+NCT6,B"3U/N+TKE2;	\7NWP+TF/IF,2)Z,*(3I*22)3F&(*,&3*,F/IR,")*M.3B82 ?F3R* * B=61R /ON .MNJ*9B0+ICF3F&(*,	J*=B03TWH/NR 6120* CZ6=* "+61.JB420& 3FZ *(3I/J:)64R 3H;E. F420S\. 6 * /D"1*M.4B1* F/IV,*)B=3F&
*,&5* B+3F&(*,	J.MRJ*2B07NE3T* .MRJ*3B0/T6 * CT2+Z *(3I"56).JR460B 3R;I7TR +AB*1&06;N"3U7M/EF .2F(2)J +ICS*1"3*1J)2;GT/BN(.6.)+F"$/I.)*"B:2"Z;*(3I"56).JV420: 7ESX" 7I.JZ460J E7M.J^460B 3R;I7TC\3R;I7T^"7ESI3EWR* 7G3FWA3CWH+RJ:7\KP7ISN.MRJ*8B07FKO* CJ.=F 2 
T6 243G*(.)B=3\WN+XCTJ*M.4B9. 7S"0*M.5B06 KP7ISN2"GF+CKH2;	\7NWP3TZ "$*M.5B12 [I* SF6=N"+UKM2 T+ECN.6B1.MVJ*2B03P	R+N3T6"WP7NSK/E."3\;I7PSU* G*12)/GJ(2)^,*(&3*,G"46).JN520Z +OCR/J6 * B1+TCO"4*M.5B42 [I* G/J6)60R 3H;E. ^560+\*=/Z"1*M.5B52 [I* G/J:)64R 3H;E
 Z5*0C\3DR="+61.JZ560N * B=+S. * GJ6).J^520: 7ESX" 7J.J"560B 3R;I7TR +AB*2&56;N"3U7M/E."3TKA.(Z32)Z;*$J;*:J ";7S.J&560R * B=7TN+.MZJ*0B07GSO/OR "860.JF620& 7F* * B=*2B03TWH/NZ 66203P	R+NKT3ZA3LR +ECR3G.-7UOR+EB:6"*;.MZJ*2B03P	R+NKT7BSI+TCE7NWE2 	E3NWG3B;E
.Z 3A3L7S^ 3E	N7GKE2 3A/SJ 20F 3NWR3CWH3NGB+RCE""*M.6B36 KP7ISN*"7G7KKU+SCE7VKO3H;A3D;E2,F +UCF3A[B3R
A+E^ *3B.3A	B2-GF+C
H2 WDN6".JR660B 3R;I3TJ"3UC3SGT3B;E2 :	2	V 3I
N3EWB+NJ..MZJ*5B07GSO/OJ "560.JZ620& 3FR * B<66R 3H;E. &6"0*M.6B76 KP7ISN. /D2". 7UOR7EV 3NWT/RV 2 /P+T;E""*M.6B82 ?G3SKU. B1"660.J&620& 7FR .>&92 T+ECN.7B17\B 3R;I7TR +AB*1&02;:"+UCR6"R;*;B"3P;U3KWT".6".JB720^ 7OWS/BF .0B6.M^J*1B0+ICF/E: * B03TWH/NJ "260
JJ760B 3R;I3T&"3M^ 2-WB3R	E+CCH6"R;+AB*3&5.;/T6"B 3KWT6.2"3P	RN7T.JN760KP7ISN2"	E7NKT7AWG+NCG3W	E7TKE+ECR7KKU+SCE3USN2 WD7SJ 3E	L3G?I3NKS3EWK7NSN7NOI7SOE""*M.7B43P	R+NKT7ION2 KA7I*-3E
U7NOI2 GA+UCF3SC3R[I3T	L3CWH3NF 7NKT+A;G""*M.7B53P	R+NKT7TKE3M;I*:J *;ST*;B"+ICM3S/E7RSE3A	R+A;T""*M.7B62 ?G3SKU. F1"360.J^760B 3R;I/TJ*:SN.M^J*8B07FKO* CI.=F 2 ?T6 243P	R+NOT22Z:2$&(2);\7ESX" 7I.J&720Z +OCR/I6 * B1+TCO"4*M.8B06 KP7ISN.*23F&(*,&5*,F/IR,")
,.JF820: 7ESX" 7I.JJ860B 3R;I/TJ2:
\3O?T. J2"0*M.8B33P	R+NOT22::"$*M.8B42 ?F3R& * B=61R /OR 7\KP7ISN.*2*"KO3\WN+XCTI*M.8B52 ?F3R& * B=61R /O" 7\KP7ISN.*2*"J02,;\7ESX" 7I.JZ860B 3R;I/TJ":*M.8B72 3C3OWS"62.J"860B 3R;IT*M.8B96 KP7ISN*,J * CU3EJ * CE7RN * CI3C" * KT.M&J*0B03P	R+NKT3UKE+ECR3DWI
 KG7UCP7IKE3U
N2 WD7R* 3UWG7LOA3S;E+ECN3SC3U3E+ECR+IKM.M&J*1B03P	R+NKT+ICM3GJ-3EWR3IC6 WF+ECR3DWI2 WM7LWD+NCG3NOA7HB 3AGR. "12 KA2-?P6.2"3P	RN7T.JJ960B 3R;I7TB"+K7T3ZA+L2"2";A3ZA3LR +ECR3SC3U3E+EKR.M&J*3B03P	R+NKT.3B0.-^2*62"Z61.JR960B 3R;I/TJ"*765.2F56"*,"2*M.9B56 KP7
SN."V2.0J-*3J1.,OZ.M&J*6B03P	R+NKT.2B3.-F2*12"Z64.J^960B 3R;I/TJ"*160.1F96"*,"5*M.9B86 KP7ISN."&1.0F-*7J1.,[Z.M&J*9B03P	R+NKT.1B7.-V1*12"Z67.JB1*0B03P	R+NKT.1B5.-N1*12"Z68.JB1*1B03P	R+NKT.1B3.-F1*62"Z69.JB1*2B03P	R+NKT.1V1.-B1*02"Z60.JB1*3B03S?TP*M.1R060J
E7M.JB1*5B03R7E* B 3U: * CT7EJ * CP3R> * CG3RF * CMM*M.1Z060B 3R;I3T."3A;N2 GD3SR 3E	F7ZSI2 WV3R	M3EWD7N^ 3ESR+ECN2(GJ2 SO+ECR3N	E+NJ)";*M.1^020& 7NWP3TR *$C\+ICF+DB$*=J +JKA2 T+ECN.2B5.MFJ.0B86 KP7ISN2"	N7CSH6 WZ3Z3U7AOS+E;N2"W\*=/E"1*M.1&060J 7EWTR7N.JF
*0B03R7E.MFJ.1B12 WR7MV 3NWT7RKP7OKG3A7M6 * * CA+EB 3H2 * CU3N^ 2 Z 7UKE2 	D3E^ 7RCU3PWI3R;UG*M.1J160J +ECM7DKE6 WZ3G3E7AOS3EWN7NN 7CWH3EWLR*M.1N120& 7FR .<^266R 3H;E. F16420/Z61+Z.121
\3O?T. J1"360.JF1*4B0+ICF/TJ<*5B13TWH/NF .1B5/\KZ.=KZ6+217GSO/OF .2B3.MFJ.1B52 [I. 3T.2F32 T+ECN.1Z160+\63*=.3F+3\?G+TCO.1N2"0*M.1Z120& 7FR .<F261R 3H;E. F16720/Z64+Z.421
\3O?T. J1"360.JF1*7B0+ICF/TF<*9B13TWH/NF .1B8/\WZ.=WZ6+217GSO/OF .2B3.MFJ.1B82 [I. 3T.1F72 T+ECN.1&160+\66*=.6F+3\?G+TCO.1N2"0*M.1&120& 7FR .<V161R 3H;E. J16020/Z67+Z.721
\3O?T. J1"360.JJ1*0B0+ICF/TF<*3B13TWH/NF .2B1/\Z.=Z6+217GSO/OF .2B3.MFJ.2B12 [I6 R .<F166R 3H;E. J16220/Z69+Z.921
\3O?T. J1"360.JJ1*2B0/Z60+Z.0"1*M.1N260J 7EWT+RCN.MFJ.2B42 ;ED*M.1V260KP7ISN""*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