File ZA21.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)* SG*(26*52)+X"$*1&4*,SY.(R1")*M*5B03D[E2 ;F7A"(*,	Y* B=7ISN.("(**CX.+R **	Y*/&3.MZJ60B 3R;I+TB"7A+B7UWR3F;E7DKE2 GD3T;E7SSA/Z."3\;I7PSU* SX.M^J60" *$J=3DGT*1J:*&SX*&:"+BKA.M"J60B 3R;I+TB"+ZCU7EOR3T3E3L;E7DKE2 GD3T;E7SSA/Z
"3\;I7PSU* SY.M&J60& *$J=3DGT*1J:*&SY*&:"+BKA.MFJ*0B03F3I/EF*:SX3\	F7L[E.*2Y6$.JF120F *$J=N6".JJ120& 7NWP/TF*:SN",7X.JN120& 3F: *$J=3ESN7ER"3H;E. F1"160.JR120Z +OCR/IF=2 ?T" 64.JV120& 7NWP/TF*:SF*(	I",7D.JZ120: 7ESXI*M.1B72 ;I7PSU.*1/FF(*,&1*,F.1J,2)Z,*(2
*32)/FJ(*,&1*,F.2J,6)",",7X.J"120& 7NWP/TF*:F.2N,2)Z,*(23*12)/FN(*,&2*,F.3N,2)Z,*(24*12)7X",.MFJ*9B07ICN+UOT21Z:*(24*22)/FR(*,&3*,3XX*M.2B06 KP7ISN7\KP7ISN7\KP7ISN/\GS6=20/PB=/\7Q"0*M.2B12 ?F3R& *=B1+TCO22[\*(3I.16)3F&(*,&16/237NE3T& .MJJ*2B07FKO* CI.=F 2
?T6 243P&(.)B=+\Q/I6)20	\3FZ *(3I.3:)*1:5*1B63TWH/NF .0B4.MJJ*3B03F&(*,&12=Z(*(3I*1.)3F&(*,&2.)R/.MJJ*4B0+ICF7AOB*(F/IF,2)Z-*(3I*3&)*<B43TWH/NJ "760.JV220& 3F& * B=64R 3H;E. ^2"0*M.2B6. 7P/PF++\P/I6)"1*M.2B72 WN+XCTI*M.2B82 & 3FZ .$R(.)6 6 N"7PR"3H;E. &26
[\*$J=3M3D6.2"7GSO/ON "060.J&260Z *$J=+P;R+TKH.MNJ*0B03P	R+NCT+NB$7\B 3R;IT*M.3B16 KP7ISN2,2"2-GF+CKH2,2"2-GF+CKH.,N"2.GF+CKH.,R"2.GF+CKH.MNJ*2B03P	R+NCT*,SF*(&1*,SF*(&2*,SF*(&3*,SF*(&4.MNJ*3B03P	R+NCT2"OS3H	N+TCT*1>2*1B32"Z;*(21*12)/FJ(*,&1*,F.3F,*)J,*-J
.MNJ*4B03P	R+NKT7PSK/EF .3J.2"Z,*(21*22)/FJ(*,&2*,F.3J,2)Z,*(24"26).JV360B 3R;I+TJ 7PSK7EB 3R
F*"J,3SC+RJ *;F.1N,*)J,3SC+RJ *;F.2N,*)J,3SC+RJ *;F.3N,")6,.JZ360KP7ISN* SV*;B"2"Z;*(24"36).J^320Z +OCR/I6 * B1+TCO"3*M.3B83F&(*,&4*=*43F&(*,&3*+F/IJ,6)O\61N=21Z+*(3I642)3H&(2)Z=*(3I"46).J&320: 7ESX" 7I.JB420& 3FZ .$R(*)J=+SKP2 T+ECN.4B1+\F.4R,2)Z=*(24*3*
*4. * F.4J,2)
\3O?T. N4"0*M.4B1. 7X7ISN*(F.4N,6)2)3Y&=+NT*(F.4N,*)B+..B0*16 2 ;I3TZ(*(24*3&).)F**0&0.MRJ22Z0*(24.46)3FGN*(3X+YB)2+Z *(24"26).JN460N .16 . GS* B+/FR(*,&4.MRJ*4B03P	R+NCT2"	B+S;H3E
R2"Z,*(21*42)/FJ(*,&4*,F.3R,2)Z,*(24"46).JV460B 3R;I+T2 *,2,6"WS+MB:6"N;"1*M.4B62 WR3MZ 7ESS3SWT7LWL+NCG7DKE6 KE3GKE7NOI3GWR3NWZN*M.4B72 ?F3R& * B=61R /ON .MRJ*8B0* O/I6)2 ;F3AZ(*(3I*32)*1&5* B+3F&(*,&2.MRJ*9B0+ICF3P&(.)6 * B13TWH/NV 6020* U+IB).=R **F/IN
*). * F/IJ,6)W\21&(2)Z=*(3I632)7GSO/OV "160.JB560V *(	I* B=3FGN*(F/IN,.)B,*). * F/IJ,6)W\21&(.)B=.MVJ*1B07NE3T& .MVJ*2B0/HR(.)6 * F.4R,")*M.5B32 ?F3R& * B=*1B +TCO*3C\3H&(.)6 * U7I2)2 WN+XCTI*M.5B42 ?G3SKU. J1"560.JV5*0B +ICF+BB<.1F12 T+ECN.6B8.MVJ*6B0+IC
/P: * B03TWH/NZ "460.J^5*0B 3P	R+NCT2"WB3SGT3NWDN6".J"520^ .$F(*)J=7BOE+TKA+\SG*(&22=:"3D;E""*M.5B92 ?F3R& * B=63R /OZ +\SG*(	I*=B"2";\7ESX" 7I.JB620& 3FF .$6 2 *"6"R 3H;E. N6"0*M.6B16 KP7ISN.*2* SN.MZJ*2B07FKO* CI.=F 2 ?T6 266 KP7ISN.*2+G"$7I2)2 WN+XCTI*
.6B32 ?G+TCO.1B2.MZJ*4B0+ICF+AB$*=J +JB"3TWH/NZ "660.JV620^ 7OWS/BF .4B5.MZJ*6B07GOO+UCB.1B6"0*M.6B72 ?G+TCO.1B2.MZJ*8B03R7E2 GM3X7I7IKE3U
N2 3A7LKE2 GF3ECE7R.J&620Z +OCR/I6 * B1+TCO23\*(	I*=O7I2)2 WN+XCTI*M.7B02 ?G3SKU. J1"560.JF720& 3FJ .1F=2 T+ECN.8B2.M^J*2B0+ICF/BF>*0B03TWH/N^ "560.JN760B 3R;I+TJ 3NOI+HCT7BOE3T;A3D;E2 WW3G;E. B160B-3KWT2-WB+DJ..M^J24&03FJ .>B12 T+ECN.7B6.M^J*5B03P	R+NCT2
	N7CSH2 WB3SGT3NWD7N^ 3EWG/NJ 65B-3KWT2-WB+DJ..M^J*6B0+ICF/A6$*"KJ2 T+ECN.8B1.M^J*7B0+G"$.16)2"	N7CSH2"
\.$J(*)J=2 WB+SKT+\SG*(&32=F"3NWDN6".J"720Z +OCR/I6 * B4+TCO26
\2$&(*)J=6 2"7NE3T& .M^J*9B03P	R+NOT22::"$*M.8B02 ?F3R& * B=61R /OZ 7\B 3R;I/TJ*:SG*(	I3\: 7ESX" 7I.JF820^ 3O?T. J1"0*M.8B22 [I* CP.=N 2 T+ECN.8B3.M"J*2B57GOO+UCB.1N7"0*M.8B32 ?G3SKU. Z1"060.JR860J +ECM.M"J*5B03R7E2 GF3EC+ECR7MSI2 WG3FWA3HSR3U
N7SKP3FWG3NR 3ROU3K;E.M"J*6B03R7E.M"J*7B0+ICF/Q6 * B03TWH/NF .0B1.M"J*8B03P	R+NCT2"SM+LB.3P[R+GB.3W
E+ECN3G[E3AE7RWD+NCG+ICN""6;.J&820Z +OCR/I6 * B1+TCO" 63.JB920& 7FF *(	I* B-3P&(.)2 61R 3H;E. J9"0*M.9B16 KP7ISN* B"2"Z;2$&(")6;.JJ920: 7ESX6 3I3P	RN7T.JB1*1B0+ICF+AB$*=J +JB"3TWH/NF .0B3.MFJ.0B22 ?G3SKU. R1"560.JB1*3B07GSO/OF "260.JB1*4B03P	R+NCT7N2$3P	R
7T.JB1*4B53P	R+NCT6"KP3U[E3U
N7SKE3GKE7NOI2 ;I. ."+F"$/I.)2"Z 3E3H3ER7ASF".6".JB1*5B0+ICF+AB$*=J +JB"3TWH/NF .1B0.MFJ.0B66 KP7ISN.*2* SN.MFJ.0B72 ?F3R& * B=61R /OZ .MFJ.0B86 KP7ISN.*22 >"""*M.1&020: 7ESX" 7I.JF1*0B07GSO/OF "260.JF1*1B03R7E2 KA3SC7LOU3SR +ECS7DSA3E[N3IWL+SN "2*M.1J120
 3FF .$6 2 *"6"R 3H;E. F1"860.JF1*3B03P	R+NOT22::"$*M.1R120Z +OCR/I6 * B1+TCO"6*M.1V160B 3R;I/TJ*:J O6".JF1*6B07NE3T& .MFJ.1B72 3C3OWS"62.JF1*8B03P	R7N3T3P	R7N3T3P	RN7T.JF1*9B03P	R+NCT2"?S+LCL7DOA6 KP7OKG3A7M2 ?N+CCH3E;I3M3A2 GL3UWF+N" 3J> 7DKE* 	N6"2;7IC
+UCTA6$.JJ1*0B0+ICF+AB$*=J +NB"3TWH/NF .2B43\& 3FF .$6 2 *"6"R 3H;E. J1"260.JJ1*1B03P	R+NCT2"GJ6,^ +ACS3D;E3N: +UCN*?B . ."3\?G+TCO.1&1"0*M.1J260J 7ESS3OWR"61.JJ1*3B07GSO/OF "260.JJ1*4B03S?TP*M.1V260J +ECM+U6 * CP+RB 2 J"7ESS3ASN/E?N""*M.1Z260J +ECM3E;I3G
A3E":*(	X6," *=21*4",6=	H7PSO7HSE3IOS+HCE3P[R+G7S7PSK3E7I* ;X2 GFC7H.JJ1*7B03R7E7AOU3GKA+EB:3BF +LCS3DWR7ISS3E3L3IWG2 WD3Z7I7A+L3A3H2,GD3V;O.MFJ.2B82 WR+MB * B * B 2 " 3USN7ESR+ECR.=F * 6-*-B>.1B02-/P+T7E3BSE6 KE3FWU7LSL.MFJ.2B92 WR+MB * B * B 2 WZ3HWN7RS
3E3L3E: 3E;N3TR +ICE3ZA3LR +ECR3LZ-3AOE7HKE2 WU7BKE. R22 /PT7E.JN1*0B03R7E* B * B * B 2 	E7NKE3SWT3LWL* B * B"* J * B * B"* B *"B +GB-* B"* B * B *"B * B"" 6".JN1*1B03R7E6 KP3U[E3U
N6 OI3TJ 7ESS3ASN+E3N2 WW+NCN+ACM3ESN3EJ * B>.1B16 OIT6..JN1*2B03R7E2 	H7LOF7VKA3IKA+LCE/H6 6 	H7PSO+HB.2 /P7TN-3U7M3E& 3MF 3BKI3EWR3IC.MFJ.3B32 WR7MZ 3OKR3EWR7IWTN7G.JN1*4B0/BB=/\7H"0*M.1V320Z +OCR/X6 * B1+TCO24\*=/H7H"(2);\7ESX" 7X.JN1*6B0+ICF/H2 . B160
 3H;E. N16720* CB2=J * B+.1B0.MFJ.3B72 WR3MF 7UKS3EOI3H;E+DCE3L.-7UORE*M.1"320Z +OCR/X6 * B1+TCO22	\3F" *(	X.<V22 T+ECN.1&3*0C\3BJ=.+B1.MFJ.3B92 WN+XCTX*M.1B460J +ECM7AOU3R	E3CWH3NWD* 7G7KKUS7E.JR1*1B07FKO* CX.=N 2 ?T6 24+ICF7H"(.)J<65R 3H;E.1J420K\*=/B"1
M.1J420: 7ESX" 7X.JR1*3B0/B61*0C\+ICF/BF<*1B13TWH/NR16420. GB* B="1*M.1R460J 7EWTR7N.JR1*5B03R7E2 ;U7TKE3P?R+GCR6"KP3U[E3U
N3SGF3EC+ECR3A[U2 GB+NKD.MFJ.4B62 WR3MV 3I
N3AWB2:: *$B,+F"$+I2)3Q&(*)B,/I6 * 21"3*M.1^460J +ECM7AOU3GKA3EF +UCF3B;A/DJ2:^ 2$&(2)F +LCS3P[R3GZ-3AOE7HKE2,: "$*M.1"4*0B 7FKO* CI.=F 2 ?T6 26+G"$/I6)*"B * B 2";\7ESX" 7I.JR1*9B07FKO* CI.=F 2 ?T" 63.JV1*0B02 [I* P+I.)3Q&(.)B=2 T+ECN.1R5"0*M.1F520& 7FB *
	I*=B03TWH/NF .5B3.MFJ.5B2* SG*(	I*=SF*(	I3\^ 3O?T. V1"460.JV1*3B0+G"$/IN+2)Z=2$&(")*M.1R520: 7ESX" 7I.JV1*5B03P	R+NOT*2B:N6$.JV1*6B02 ?F3R& * B=61R /OZ .MFJ.5B76 KP7ISN.*2* SG*(	I.MFJ.5B82 WN+XCTI*M.1&560J 7EWTR7N.JZ1*0B03R7E.MFJ.6B12 WR+MB 7USN7ECR3R
O+RB.2"[P3LOI3H[T3AOE7HKE6 KD3U/C+EKN.MFJ.6B22 WR3MV 3I
N3AWB2:: *$B,+F"$+I2)3P&(")*M.1N660J +ECM7AOU3GKA+EB:3P3F3IC3TGF3EC+ECR3A[U6 STY*M.1R660J E7M.JZ1*5B0+ICF/P6 * B03TWH/NF .7B2.MFJ.6B66 KP7ISN2"SM7LB.3R
F6.^ 3EWG3NF 3BWW3IC3U
N2 ;I. .".MFJ.6B72 ?F3R& * B=61R /ON .MFJ.6B82 [I* P/I6)60R 3H;E. ^1"060.JZ1*9B03P	R+NCT*"J *;SF*(	I";*M.1B720: 7ESX" 7I.J^1*1B03P	RN7T.J^1*2B07RSE3U;R.MFJ.7B32 WRM*M.1R760J +ECM3E7R7IST3L;U3GR +ECR3G[E3AE7RWD7NOG3FWA3CWH+RB,3DWI6 WA3F* 3EWD3NZ 3A3L.MFJ.7
52 WR+MB * B 2 WG7PWR7ESF2 WW3RWD3N6 7UOE3S;E.MFJ.7B62 WRM*M.1^720Z +OCR/IF=2 ?T" 63.J^1*8B03J&=6+213K&="+62.J^1*9B0+ICF/IJ=2 T+ECN.1B8*0C\7GSO/OF .8B1.MFJ.8B0. 7K"1*M.1F820& 3F& * B=63R 3H;E. "162202 ?G+TCO.1J8"5*M.1J8.07J21/\"=62.J"1*2B5+ICF3P.(.)6 * B1
TWH/NF2"160.J"1*3B0/B62"0*M.1R860V 61V=21&(6)W\62V=21*(")*M.1V820Z +OCR/L6 . GU2 ?T. V1.MFJ.8V5* H/I6)3FGN*(F/IN,2)2,*). * F/IJ,")*M.1Z820Z +OCR+MB=. KU2 ?T. V1.MFJ.8B7* H+JB)2=Z +NA3F*(*,&3*,	M2+Z *(3J"26).JFL.8B8* H/K6)3O.(")*M.1&820^ 7OWS/BF .2B5.MFJ.9
0. KB* B=+BB22+J "1*M.1F920" *(	K*=UK6).J&1*2B07GOO+UCB.1V2"0*M.1N920J .26 . KB* B-B61.J&1*3B5+ICF/B:260R 3H;E.2"0"0*M.1R920: 7ESX" 7M.J&1*5B07NE3T2 .MFJ.9B62 ?G+TCO.2F1"0*M.2"060F *(	K"=61.JF2*0B0/Q6 * CQ.+F .MJJ.1B12 WN+XCTI*M.2J160J 7EWTR7N.JF2*3B03ESN
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