File ZA2.BA (BASIC source file)

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

*1B03R7E* :22 ?K3NWF3R;E3ZR +ECSZ7A.JB22 WR3MJ 3EWR3C;H3U
N2 WD3RF 7NWZ7SSE3Z;E3D;E6 WM3ESN3LOI3H;E6 KP3U[E3U
NE7N.JB32 WR3MZ +NA7X&,2)V 3RWR3C;H+ECT7PWR7EWF7NOG3E
R3E;B+ICS7AOU2 OS3H	R3F3T6.V +NCD3M3D6.B 3R
F".*M*4B03D7I* SN.(B22)Z,*(24*42)+G"$.6R,6)",.$F(*42)+Y"$*1&4.MVJ20R +ECF3FGN*(3X+YB)2=& +NT*(*8+X. * *4+Y>)"36).JB66 KP7ISN2"F 7BWZ3R[U3ESN+ECR7DSA7EON7A+T6"2;7ICN+UCTX6$.JB7* SX2=R"/TGA*:Z"+XZ$2"J.A6".JB86 KP7ISN6"* 3UV 7RSS3E3L3ESN+ECR7DSA7EON7A+T6"2;7
CN+UCTY6$.JB9* SY2=R"/TGA*:Z"+YZ$2"J.A6".JB120Z 3IWL.*17X2$3F3I+EOV62&:"$*M.1B1* SA2=:"""*M.1B22 ;I7PSU.*1+N2$X*M.1B32 [I* SN2=V"3NWD2"T+ECN.1F1"0*M.1B42 ?F3R& *=B1+TCO"4*M.1B52 ;I7PSU.*1+F"$+I2)D*M.1B62 WN3X	T.MFJ*7B07ICN+UOT21Z:*(21*12)/FF(*,&2*,F.1N,2)
,*(22*12)/FJ(*,&2*,3XX*M.1B82 ;I7PSU.*1/FJ(*,&3*,F.3F,2)Z,*(23*22)/FN(*,&3*,F.4F,6)",",7X.J&120& 7NWP/TF*:F.4J,2)Z,*(24*32)7X",.MJJ*0B03P	R7N3T3P	R7N3T3P	R7N3T/S6160C\6=20/QB=.MJJ*1B07FKO. 7I61R /OJ +\F/IF,2)Z=*(3I*1>)23;\7ESX" 7I.JJ220Z +OCR/I6 * B1+TCO6
C\*(	I6=203Q&(.)B=3\[I* F/IN,.)F>.5F.66R 3H;E. B1"460.JN220Z *(3I.16)*(F/IF,2)Z+*(3I*2&)"/64.JR220& 3FF +BS3F&(*,&1*-F/IN,.)2)64R 3H;E. ^2"0*M.2B52 [I* CI.=R 2 T+ECN.2B7.MJJ*6B07PB=6+213P&(.)F=.MJJ*7B07NE3T& .MJJ*8B02 [I* SF*(&4* B=6"CS2"T+ECN.2B9+\SV2=6"
D;L2"
\3O?T. B3"0*M.2B9* SV6=B"7RR.H6".JB360B 3R;I3T: 6$2 6 KP7ISN.MNJ*1B03P	R+N3T*"7L3FOA+H2"*"7L3FOA+H2"*":33FOA+H2"*":43FOAH6".JJ360B 3R;I+T2 +F"$*12)+F"$*22)+F"$*32)+F"$"46).JN360B 3R;I+TJ 3SC7NSI/TF .2F/*3J *;F.1F,2)Z,*(22*12)/FN(*,&1*,6""-6".JR360B 3R;I7T
"3KWT. N1*.J2*,F.1J,2)Z,*(22*22)/FN(*,&2*,F.4J,")*M.3B56 KP7ISN6 B"3KWT6 KP+FKG6,N"7CKH. ."/FF(*,&36,N"7CKH. ."/FJ(*,&36,N"7CKH. ."/FN(*,&3",*M.3B63P	R+NCT/V.$*"J *;F.4N,")*M.3B72 ?F3R& * B=61R /ON .MNJ28Z0*(3I.46)24Z**(3I*3.)3F&(*,&2/\GS.=GS*+F/IR,2)\*(	
*=F/IR,")*M.3B92 WN+XCTI*M.4B02 [I* SF*(&46=N"+PB"3TWH/NR 6120/FR(*,&4*=F.4N,.)R** B+/FR(*,&23\?G+TCO.4B3.MRJ*1B03X&=+NT/FR(*,&36)	\2=;I+T"(/FR(*,&3*+: .0F0* B-7ISN*(F.4N,*)&).*B1"06).JJ4*0F.4R,2)Z=+NA7X&,*). * F.4J,")*M.4B3. GS* B=+SB12+Z *(24"46).JR460B
3R;I+TJ 7BOI3HV.+RKG*,F.1R,2)Z,*(22*42)/FN(*,&4*,F.4R,")*M.4B56 KP7ISN* 2,*,J,3S7U*:J .;GS.MRJ*6B03R7E2 WF7SOT3T3E3L;U3GR +ECR3E
R3E;B3I
S3R;E3Z;E.MRJ*7B07FKO* CI.=F 2 ?T" 63.J"4*0B 3O&(*)B=3FGN*(F/IN,.)F,*5B)2+Z *(3I"26).J&420& 7FB *(	I* B=61R 3H;E. B5*0C\3U&(.)6 * *43F&(*,&3* B+3F&(*,&2/\GU*(	I*=F/IN,2)
\3O?T. F5"0*M.5B0* U+IB)2=Z +NA3F&(*,&3*,&0* B+3F&(*,&2/\GU*(	I"=60.JF520: 7ESX" 7I.JJ520" *(&4* B=/FR(*,&4.MVJ*3B07FKO* CI.=F 6 R /ON 3\" *(	I* B=3U&(*)C\7NE3T& .MVJ*4B07GOO+UCB.1V2"0*M.5B52 & 3FJ .<F *1B13TWH/NZ "860.JZ520& 7FB * B>60R 3H;E. R6"0*M.5B76
B 3R;I+TJ 7BOE3T;A3D;E""*M.5B8* SG*(&12=J"7ESS2"
\.$J(*)J=3ASN7E2"+G"$.36)*"KN.MVJ*9B07FKO* CI.=R 2 ?T6 26+G"$/I6)*"J 3\WN+XCTI*M.6B02 [I* SA* B=*"KJ2 T+ECN.6B3.MZJ*1B03P	R+NOT*2B:N6$.JJ620Z +OCR/I6 * B1+TCO*6C\3P	R+NOT22^:2$&(*)C\7NE3T& .MZJ*3B07GSO/OF "260.JR620& 3FF .$6 2 *"6"R 3H;E. Z6"0*M.6B52 ?G3S
U. R1"560.JZ620^ 7OWS/BF .6B0.MZJ*7B07GSO/OF "260.J"660J +ECM7MA3I	M7EWR+NCG3A3L+ECR3FWA3CWHR*M.6B92 ?F3R& * B=61R /ON +\H/I6)3O&(*)C\7NE3T& .M^J*0B07GOO+UCB.1V2"0*M.7B12 [I. GB*=B13TWH/N" "260.JJ720& 3FJ .>B160R 3H;E. V7"0*M.7B36 KP7ISN2 :"3IC3TJ 7ESS3AS
+ECN3W
E+ECN.1B02-/P+T7E3BSE".6".JR720[I. ;B*1B03TWH/N" "160.JV760B 3R;I+TJ 3NOI+HCT7BOE3T;A3D;E2 WW3G;E. V22-/P+T7E3BSE".6".JZ720& 3FF *$J=+JB"3TWH/N" "160.J^720^ .$F(*)J=3NOI7H2"+G"$.26)*"CT+BKE+\SG*(&36=N"3T;A2"
\.$R(*)J=3D;E""*M.7B8* SG*(&5*=B"2"
\.$Z(*)J=" 6".J&760B 3R;I/TJ*:SN.M"J*0B07FKO* CI.=F 2 ?T6 266 KP7ISN.*2+G"$7I2)2 WN+XCTI*M.8B12 ?G+TCO.1B2.M"J*2B0+ICF/P6 * B33TWH/N" "360.JJ825^ 7OWS/BF .7B3.M"J*3B07GOO+UCB.1B6"0*M.8B42 WRM6 .JV860J +ECM3FWA3CWH3R6 +ICT3G[E3AE7RWD7NOG3P[R3G;E6 KD3U/CE7N
JZ860J E7M.J^820& 7FF * B=60R 3H;E. B1"160.J"860B 3R;I+TJ 3M3D6.B 3R
F6.^ 3EWG3N^ 3EGF7EKH3D;U3G& +NJ ";*M.8B92 ?F3R& * B=61R +OB "3*M.9B02 [I* Q+IB)6-B *(	I. F<2 T+ECN.9B2.M&J*1B03P	R+NCT*"J *;SF*(	I";*M.9B22 WN+XCT7IC\3R;IT*M.1F020& 3FF .$6 2 *"6"R 3H;E. B1"360.JB1*2B07GOO+UCB.1V4"0*M.1N020^ 3O?T. J1"0*M.1R060B 3R;I3T: 6
C\3R;IT*M.1R065B 3R;I+TJ 7PWR7EWF7NOG3E
R3E;B+ICS+ICN2"Z;2$&(*)J;2 WF3HWL3RGH+F;T""*M.1V020& 3FF .$6 2 *"6"R 3H;E. F1"060.JB1*6B03P	R+NOT*2B:N6$.JB1*7B07FKO* CI.=F 2 ?T" 66.JB1*8B03P	R+NOT*2B:*"KO.MFJ.0B92 WN+XCTI*M.1B120^ 3O?T. J1"0*M.1F160J +ECM7AOB3C3H7UOS2 WD3SR 3AWT3N	F7LOE. J.MFJ.1B22 [I*
SA* B=*"KJ2 T+ECN.1"1"0*M.1N160B 3R;I/TJ*:SN.MFJ.1B42 ?F3R& * B=61R /OZ .MFJ.1B56 KP7ISN.*22 >"""*M.1Z120: 7ESX" 7I.JF1*7B03C?L+SOE"2*M.1"160B 3R;I7TC\3R;I7TC\3R;IT*M.1&160B 3R;I+TJ 3S3O3LR +ACS3P?R3GGR+MCM3NOO3HV 3I7N+ACL7LWA3F;E2 *(2 SO+ECR+NJ)2;	\7NWP3
F "$*M.1B220& 3FF .$6 2 :"6"R 3H;E. J164202 [I* SA* B=*"KJ2 T+ECN.1J2"0*M.1F260B 3R;I+TJ +J3A2 GW3SR 3E;N6 WN/N> * B 6"2;7GSO/OF .1B9.MFJ.2B22 WR3S?T+ROE"1*M.1N220^ 3O?T. J1"0*M.1R260N 7TCO.MFJ.2B52 WR7MV * B-7PJ * B 2"WB3SGT3NWD+NJ?.MFJ.2B62 WR3MV 3I
N3AWB*:H+X2). 7X.1R,.,6(7HCY3OT3E	T3SC7EB 3R
F7SB-3KWT+ICM+XB.3FOAH*M.1^260J 3EGM3U
S3AWB2:J 2 3A3SR 3R	E3SWT3L	L+GCE7D+E3IGM3LGZ+H3L7D[AO7N.JJ1*8B03R7E* B * B * B 6 WH3NWD3RWT/R6 * B1*-6-.>F *0607PSK3EJ-+ECD3E[R3U3EL7T.JJ1*9B03R7E* B * B * B 3ZE7NKE3SWT3LWL2 WN7NSN2 	D7E* 3A3H2 WD3R2 2-GF3EC+ECR3UKE+ECR*2B47PSKE*M.1B360J +ECM* B * B * B
3E;I7EOR3T3E+LCE* B *"B * B"* B *"B * J 2 ^ *-B *"B * B * J * B *"B ""*M.1F360J +ECM7PWR7EWF+NCG7ISS2 WB3SGT3NWD+NB,3W;E3NF 3MV 3NWD* CB.>F *1B07ISS".*M.1J360J +ECM3H3I7F[S3A	R3A3B3E" * B=7HCY3OT*.B 7PSK6-WS3MWM2 7I2 KA3IWB3R	EC7H.JN1*3B03R7E2 ?V3RWB3R	E3
;UG*M.1R320J 6=20/HB=.MFJ.3B52 ?F7R" * B=61R /OR /\7H3H"+*(	X3\WN+XCTX*M.1Z320& 3F" * B<.1B02 T+ECN.1^3*0C\/B6 * CB.+F "060.JN1*7B03R7E6 WA3SWR3IC3ESN3E2 6-WK3RWS.MFJ.3B82 ?F7R" * B=61R /OJ 3\[I* H/X2)*2B53TWH/NF .3B93\J *=/B"160.JN1*9B07NE7T" .MFJ.4B02 W
3MF 7UKS3EOI3H;E+DCE3G.-7UORE*M.1F420Z +OCR/X6 * B3+TCO24	\3F" *(	X.<V22 T/EGN.4B2/\7B/BF+.MFJ.4B22 WN+XCTX*M.1N420J .1B=3\& 3FJ .<F161R 3H;E.1R4*0C\+BB1.=F .MFJ.4B42 WR7TKUN*M.1V460J +ECM7USN7ECR3R
O+RJ 7PWR7EWF7NOG3FWA3CWH3RF +UCF3B;AD6".JR1*6B03R7E2 	E3NGG/B+E* SN2,Z 2$&(6)F,*(	I2,& * B=.1N,.MFJ.4B72 WR3MF 3U
S3AWB6 WA3FJ 3ASN.*2* SG*(	I2 3A7SB 3R
F2-GF3EC+E3R* SN.MFJ.4B82 ?F3R& * B=61R /OZ 3\^ 2$&(.)6 * B"*"C\7NE3T& .MFJ.4B92 ?F3R& * B=61R /ON .MFJ.5B02 & 7FB *(	I*+Q/I6)60R 3H;E. V1"460.JV1*1B0+ICF3P&(.)B=2 T+ECN.1N5"0*M.1J520^ 2$&(2)Z=2$&(*)C\7GSO/OF .5B4.MFJ.5B3* SG*(/I.36)+F"$I6).JV1*4B07NE3T& 
MFJ.5B56 KP7ISN.*2* SN.MFJ.5B62 Z +OCR/I6 * B1+TCO"6*M.1^560B 3R;I/TJ2:^ 2$&(")*M.1"520: 7ESX" 7I.JV1*9B07RSE3U;R.MFJ.6B02 WRM*M.1F660J +ECM2 ;U7TKE3P?R+G;R6 B"3F	L7CSH3FWA3CWH3RR 3ROU3K;E""*M.1J660J +ECM3E;I3GKA+EB:+N2$* SF*(	I*,PI6).JZ1*3B03R7E6 WA3SGG/
+E2 [P3LOI3H[T3AOE7HKE6 WA7FR T7Y.JZ1*4B03R7E.MFJ.6B52 [I* CP.=B 2 T+ECN.1J7"0*M.1Z660B 3R;I3T6"+D;L3P[R+GB.3W
E+ECN7A
B3EOI3H;U3G& +NJ ";*M.1^620Z +OCR/I6 * B1+TCO"3*M.1"620& 7FB *(	I*=B03TWH/NF .7B0.MFJ.6B96 KP7ISN* B"2"Z;2$&(")6;.J^1*0B07NE3T& .MFJ.7B16 KP7ISN.MFJ.7B22 WR7TKUN*M.1N760J E7M.J^1*4B03R7E6 KE7MSI7TWL+NCG7DKE2 WG3FWA3HSR3U
N3SGF3EC+E3R2 	D3EF +UCF3JSE+ECN3F3AL*M.1V760J +ECM* B 2 ^ 7EKP3U[E7T^ 3ESR+ECN3MWU3SWSN*M.1Z760J E7M.J^1*7B07FKO. 7I61R /ON .MFJ.7B8. 7J/IF+/\7K/IJ+.MFJ.7B92 [I. 7I62R 3H;E. "160202 ?G+TCO.1F8"0*M.1B820. "=61.J"1*1B0+ICF/I6 * B33TWH/NF .8B23\^ 3O?T. "1"2
5.J"122*06=21/KJ=.MFJ.8V22 [I* P+KB).=F 2 T/EKN.1B1.MFJ.8B3. KB"=60.J"1*4B0/U61+U"17I2)/U62+U"1J6).J"1*5B07FKO* CL6=V 61R /OF "5*M.1V825" *(	I2=;F3AZ(*(3I*32)+LB)2+Z *(3I"26).J"1*6B07FKO. 7M6 V 62R /OF "5*M.L"1*7B03H*(.)6 2 ;F3AZ(*(3J*32)+M.)* F/JJ,")*M.1
820" *(	K*=OK6).J"1*9B07GOO+UCB.1V2"0*M.1B920J .26 . KB* B+B61.J&1*1B03H.(6)V=*(	K.MFJ.9B22 ?G3SKU. J1"560.J&1*3B0+BB22=J *26 . GB.MFJ.9V32 [I. KB*>B03TWH/NB2"860.J&1*4B07NE3T6 .MFJ.9B52 WN+XCTL*M.1Z920^ 3O?T. F2"160.JB2*8B03Q.(.)F=.MJJ.1B0* CQ6=F * B+"1*
.2F120: 7ESX" 7I.JF2*2B07RSE3U;R.MJJ.1B32 ;ED*MBLBZ

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