File BASBAL.BA (BASIC source file)

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

*5B03R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M*9B07GSO/OF .1B1"0*M.1B02 	D3MJ .(Z12)J,.$F("26).JF160* *(&0.=V./\7Z".65.JJ120& "=61.JN120J .1B=/\KB6=20/B6320	\.1B=/\KI6=20/I63"0*M.1B4. GC6=20/C6260C\3R;IT*M.1B52 [I/C22*
B47GSO/OZ160C\3R;I7TR"+HCE7BSA7TKE2 GW7LOK6.2"/A&=3\?G3SKU. J9"0*M.1V52 ?G+TCO.1B4.MFJ*6B03IOF.1:<23T/EGN68203P	R+NKT3TWH2 GB3TWT7RN 7TWR+CCK7OSU6.2"/C63+C.321
\3O?T.1B4.MFJ*7B0+ICF/S6121T/EGN68207X"="+61.J"120& /FOC6<R33H;E.2B73\[I/S6121T/EGN6920/S6121
\3O?T.2B0.MFJ*9B03P	R+NKT7ASF+EKR.;/I2";I3N;I+GKS2;	\*=/I61O\.1B=.MJJ*0B03P	R+NCT/I.26"WR+N3S2"&;*1J;7HSI+SJ,.;OI2;V"3R?R+RCS3ASN2"J;21J+22J+*3J;3L[E3T> 3NJ 3AWS".6".JF220& 3F& .=B13TWH/NR162207IOF.1B=3TWH/NN260C\3R;I3T&"*	KM2;
\3O?T. R2"0*M.2B22 [I. GS*=B03TWH/NJ 63203P	R+NKT3I6	6"2;7GSO/OJ "460.JN260B 3R;I7T&"+O
U+RKE";*M.2B46 KP7ISN6"V 3P: +O;W6"C\3R;I7TN"7CKO+EB:+MKE.;KS6;&"+OKU.;OS.MJJ*5B03P	R7N3T/C63"0*M.2B62 ?G+TCO.1B3.MJJ*7B03P	R+NCT2"?Y+UCR3PGL/Y.".MJJ*8B07ICN+UCTB6$.J&220R *=*13RSN*(&07\KP7ISN.MJJ*9B53R7E****************2*6*3AKY/EV 2*;R/DB(.)F+* *********
********************"**M.3B02 [I. GS6=R03H;E.4B2.MNJ*1B0+ICF/B2$2>N"7U[R7ER"3H;E.3B2/\7D3DN+*(	X3\?G/TGO.2B8.MNJ*2B0+ICF/B2$2>Z"7ASS3B3A7LR"3H;E.3B3/\7D3DZ+*(	X3\?G+TCO.1"2"0*M.3B32 [I* SB2=J"3E;A3B3A7LR"3H;E.1"2"0*M.3B42 [I* SB2=J"7ROU3HGB+CKK3TWH/NJ1"86
.JV320& 3FJ *$J=3S	L7DKE2"T/EGN.2B8.MNJ*6B0+ICF/B6$2";K3U/C+LKE3TWH/NF .2B8.MNJ*7B0+ICF/B2$2>^"3RGE3SKE3A3L2"T+ECN.3B83\[I+D:<68R 3H;E. J168207GSO/OF .2B7.MNJ*8B0+ICF/B2$6>N"7PSI3B3A7LR"3H;E. &320	\3FR .<".2 T+ECN.1"220
\3O?T. J1"760.J&320& 3FJ .$:<2"C3E/C2"T+ECN.4B07\KP7ISN6"WR3NWN+RCS3AWR6 SS3I/C3I
N6.2"7GSO+OB .2B7.MRJ*0B0+ICF/B2$2>J"3A3L6"R 3H;E. F420
\3O?T. N1"060.JF460B 3R;I3TJ *$J;6?2"7GSO/OJ "760.JJ420& +FSB*<J>3B;U7TR"3H;E.4B37\KP7ISN2"?Y+UCR7BSA7TKE6"2;7GOO+UCB.5B7.MRJ*2B57GSO/OF "460.JN420& 3FJ *$J=3S	W+NKG3TWH/NJ1"860.JR420& 3FJ .$:<2"C3E/C2"T/ESN65203P	R+NKT3CWH+CCK7NSO2 WY3T& +NJ.3\?G+TCO.2B7
MRJ*5B0+ICF/B6$2"	H3TF-7W	A2"T+ECN.1"2"0*M.4B7+ICF/B6$2"GS3C	R3FOI7ER"3H;E. J1"860.J"420& 3FJ *$J=3G?R3USN+EKR3TWH/NF .2B8.MRJ*9B0+ICF/B6$2"3F7YR"3H;E. J1"860.JB520& 3FJ *$J=3K3I7LR"3H;E. J1"860.JF520^ 3O?T. F4"0*M.5B2. 7A69J*+ND602)+ICF/S6160R 3H;E. N560
\3R;I3T6"3YJ 7AST+EKR2;
\3O?T. R5"0*M.5V22 WR+M******************7M	A+BCE/A&=2*;R/DB(.)F+****************************"**M.5B36 KP7ISN6 &"7OKU2 GB3TWT/R.".MVJ*4B0+ICF/AF>2 T+ECN.5B57\KP7ISN2"2 3IWN3D> +UCT+TCO3TWH2 T3ISR2 GB3S7E+A;N2"
\3O?T.8B4.MVJ*5B0+ICF/AJ>2 T+ECN.5B67\KP7ISN6"B 7OCP+ECD7OSU2 ;I2 S3A3L+OCW3L[E+TJ.3\?G+TCO.8B4.MVJ*6B0+ICF/AN>2 T+ECN.5B8.MVJ*7B03P	R+NKT6 KG3O;U3DSE2 ?T2 T7EB 3IOT7HKE6"2;7GSO/OV "960.J"520& 3FF *>B43TWH/NZ 68203P	R+NKT6 KG3O;U3DSE2 ?T2 S7OSR3S?T/P.".MV
*9B03P	R+NKT2 W7OR 3HWR3W> +UCT3TWH2 GM/N."3\[I. OC. J=2 T+ECN.6B7.MZJ*0B0+ICF/B6160R 3H;E.6B73\[I/B6220T/E[N63203IKF.3B=3TWH/NJ660C\3R;I+TB"7FKO3CSE2 ?H+M;E""*M.6B12 ?G+TCO.8B5.MZJ*2B03P	R+NKT2 ?F3RWC7DR 7OR 7HKI+DJ.3\?G+TCO.8B5.MZJ*3B0/A617ISN*(*33RSN*(
06)C\3R;I+TB"7FKO3CSE2 ?T2 WS3C;O/D."3\[I/A216>R13H;E.6B5.MZJ*4B03P	R+NKT6.2"7GSO/OV8"0*M.6B56 KP7ISN7\KP7ISN2";A7DR 3H;E2 ?T2 	F7RSS2 ?F3RF 2 ?D3U3B7EB 7L	A"!6".JZ620N 23N=.3F+/\GB6=207GSO/OR8"0*M.6B76 KP7ISN2"F 3TZ 7IOR+TJ.3\?G+TCO.8B4.MZJ*8B03IGF6>R53H
E.7B07\KP7ISN2"" +ICT3AZ +LCY7ISN3OR 7ECE2 WC3NWT7R^ 7HKE3E& 7T^ +AKS";*M.6B96 KP7ISN2"N 3A
U+H;T2"
\3O?T.7B1.M^J*0B0+ICF/AZ>2 T+ECN.8B87\KP7ISN2"" +ICT+TCO3L[E3TZ 3I3E3DZ +OCR+ACN7OSU".6".JF720& 3FN .3J=2 T+ECN.8B43\[I. GB.+KB.+OB*=B03TWH/N" "460.JJ760B 3R;I7TR"+HCE3M;A2 ;O6"2;+ICF/B6361R 3H;E. N720	\3FJ .2F=2 T+ECN.7B53\?G+TCO.7B9.M^J*3B03P	R+NKT2 T3I
R2 GM+DCE+ICT3H7O+EJ,2;
\7OWS/B& "360.JN725J .3B=.M^J*4B0+ICF/B6260R 3H;E. "7"0*M.7B56 KP7ISN6"N 3E?C+NKD2;	\3FF .1B=2 T+ECN.7B67\KP7ISN6"N 7T	A+ECD7PSU6.2"7GSO/O^ "860.JZ720& /FGA6>R13H;E.7B77\KP7ISN2"6 3AWD6 SI2 ?T2 T3ISR6.2"/B6321K\.2B=3\?G/T
O"860.J^760B 3R;I+TB"7WOA6 WO7TR 3R	Y+NCG+TCO3T/A7ER 7HKI+DJ./\OC.=OC6+21/B62"2*M.7B82 [I. GB.<F>2 T+ECN.8B4.M^J*9B0+ICF/B22*>B13TWH/N" 60203P	R+NKT2 	F7RSS6 SS3U/C6.2"7GSO/O" "460.JB860B 3R;I+TB"+OCN7FKI+SKT2;	\3FJ .2:<62R 3H;E. J8"0*M.8B16 KP7ISN2"6 3AW
6 SI2 ?T2 WS3C;O+DJ./\KB6=21/B6120
\3O?T. R8"0*M.8B2. 7W62J*+ND602)+ICF/WF>2 T+ECN.8B17\KP7ISN6"^ +ACS7OSU2 ?G3I
N6.2"/C63+C.3"1*M.8B3. KB"=60.JR860* *(	Y*=Z+Y6)*(Z+Y>).1B02)
\3O?T. Z8"0*M.8B5* Z/Y6)7Z&(*)"+7Z&(.)F/*0&0.M"J*6B0/C63+C.361C\3R;I7TR"7HSA2 GW3S> +UCT3N7U7BKE2"N;"3*M.8B72 ?G+TCO.1Z2"0*M.8B82 [I/A^>3TWH/N&860C\3R;I+TB"7HSI6 [O+ECR3TWH2 	P3TC+E
R3S" 3ESA2 GF3RF 6"2;7GSO/OF9"0*M.8B92 [I/A">3TWH/NB960C\3R;I+TB"7HSI2 T7RWO+GCH3TWH2 ?H+LCE7ISN7OJ 3IG3TZ +OCR/A."3\?G/T	O"160.JB960B 3R;I+TB"7HSI2 ;I+TCO3L[E3TZ 3I3E3DZ +OCR/A.".M&J*1B07I+F*>*43DT/EGN.2B13\[I/ZN>6*SD3H;E.1N120	\/F;Z22R*3TWH/NB164203P	R+
KT2 	S3N3G+EJ..M&J*2B0+ICF/B6320T+ECN.9B73\?G3SKU. N9"0*M.9V2. OB6=207GSO/O& "660.JN920& 7FN .1F=2 T+ECN.9B4/\OS.=OS6+217GSO/O& "560.JR960N 62N=.2F+.M&J*5B0/I62+I.261K\7EWTR7N.JZ960B 3R;I7TR"+HCE3M;A2 ;O2 T3ISR2 OS3OWR+DJ..M&J*7B03IKF.2B=3TWH/NB160203P	R+
KT3TWH2 GM3N> 7NN 3E?C+NKD2;	\/F;A28T/E	N69203P	R+NKT2 OS3OWR+DJ..M&J*8B07GOO+UCB.9B3.M&J*8B5/B6220
\3O?T. B1"060.J&960B 3R;I+TB"3W;E7TR 7OR 7HKI+DJ./\KB6=20/B63"1*M.1B020& /FGB6=R03H;E.1N060C\3R;I7TR"+HCE3M;A2 ;O2 	F7RSS6"2;3IGF6>R83H;E.1J0"0*M.1F020& 3FN .2R=2 T+ECN.1J020K\.1B=3\?G/T	O"960.JB1*2B03P	R+NKT2 ?T2 WS3C;O+DJ./\KB"=61.JB1*3B0/B6121
\3O?T. J1"460.JB1*4B0/WN=2*;R/DB(2)	\7F^ *>B13TWH/NF .0B57\KP7ISN*"CN3O[F2 T7E^ 3A3L""6;.JB1*4B53R7E********************2*6*3AKY+EJ 2 [O7FR +HCE3W3A+L*"********************"**M.1V020& 3FF .2F=2 T+ECN.1Z060C\3R;I+TB"3SGT+NCD+UKP";*M.1Z060B 3R;I+TB"7DWO3BWL
.2"+ICF/B6320T/EGN.0B87\KP7ISN2"T3E6 +ACN+OCN3T	H+RCD3S?C3RSE".6".JB1*7B07GOO+UCB.9B3.MFJ.0V7. OB"=60.JB1*8B03IKF.2B=3TWH/NB169203P	R+NKT3TWH2 GM3N> 7NN 3E?C+NCD3S?C3RSE6.2"7GOO+UCB.9B3.MFJ.0V8. KB"=60.JB1*9B03IKF.1B=3TWH/NF162203P	R+NKT3TWH2 GM3N> 3NZ 7I
R/T."3\[I/A">3TWH/NF161203P	R+NKT2 OS3OWR+DJ..MFJ.1B02 ?G3SKU. N9"0*M.1B125J .1B=3\?G+TCO.1J1"0*M.1F160B 3R;I+TB"3W;E7TR 7OR 7HKI+DJ./\GB6=20/B63"1*M.1J120J .2F=3\?G+TCO.1R2"0*M.1N160B 3R;I+TB"3T	R3PWL6!2"/A63+B.1+B.27B233IGF.3B=3TWH/NJ160203P	R+NKT3TWH2 
M3N> /N.".MFJ.1B42 [I. GB*=B03TWH/NF .1B57\KP7ISN2"Z 7IOR/T."3\?G3SKU. N9"0*M.1V120& 3FJ .2B=2 T+ECN.1^120	\3FJ .1B=2 T+ECN.1Z160C\3R;I+T2"2 ;A/D.".MFJ.1B66 KP7ISN6"N 3E?C+NKD2;
\7OWS/B& "360.JF1*7B0+ICF/B6360R 3H;E. F16920+ICF+B.1/B6260R 3H;E. F168203P	R+NKT2,F +NKD";*M.1"160B 3R;I+TB"3T	H+RKD2;
\7OWS/B& "360.JF1*9B03P	R+NKT2 OS3OWR+DJ./\GB6=20/B62"0*M.1B220J .3F=3\?G+TCO.1R2"0*M.1F220& 3FJ 21J+22J+.3N<3TWH/NF .2B27\KP7ISN2"^ 3R;A7DN 3L7A""6;.JJ1*2B03P	R+NKT2 ?H+MCE3R;U*!J!.MFJ.2J22 ?F3RF .1F=2 ?T.(GB.+KB.+OB*+&1.MFJ.2R22 ?G3SKU. N9"0*M.1J226: 7E
X. GA.MFJ.2B3. GB6=20/B6220K\.3B=.MFJ.2B42 [I. KC*=B43TWH/NF .2B6+\Z/Y6)7Z&(*)"+7Z&(.)F/*0&0.MFJ.2B5. GI.=GI"+61.JJ1*6B07RSE3U;R.MFJ.2B76 KP7ISN2"	P3TC+ECR7TKH3O;W6 WO3TZ +OCR7TKH3O	W+NCG3I3L3EGG7LB 3IOT+HJ.3\?G+TCO.2B7.MFJ.2B8. 7A65J*+ND602)+ICF/AN<2 T+E
N.1J3"0*M.1&220& 3FF *>B43TWH/NF .3B07\KP7ISN2";I3SSI+E6 . ."3\?G+TCO.1F3"0*M.1B360B 3R;I3T>"7UOT3IWD* B-""6;.JN1*1B0/C62+C.261C\3R;I3TJ"3A3L2"N;22
\3O?T. V1"0*M.1J320& +FZ/Y2)3DT/EGN.3B43\?G3SKU. J5"0*M.1J325& 3FF *<B63TWH/NF .3B3+\C/Y6)7C&(.)F+3\?G+TCO.1B4.MFJ.3B3* C/Y6)7C&(.)F-3\?G+TCO.1B4.MFJ.3B4* C/Y6)7C&(.)F-/\7B63J*+ND"06).JN1*4B53R7E****************2*6*3AKY3EJ *=*33RSN*(&0*+*7****************
*******"**M.1V320& 3FJ 6>R13H;E. N166203P	R+NKT7AN 3W;I+GZ * CA7MOI+S6 . ."3\?G+TCO.1&3"0*M.1Z320& 3FJ *>B23TWH/NF .3B87\KP7ISN2";I3SSI3EN 3O;R+ECR2-N 3A3L. .".MFJ.3B72 ?G+TCO.1&3"0*M.1"360B 3R;I3TZ"3O3U*!6 . ."3\[I. GC*=B23TWH/NF .4B0.MFJ.3B9. GC.=GC6+21
P	R+NKT6 SS3R/I/E."7C217GSO/OF "560.JR1*0B03P	R+NKT7CWO+NCT3SGT+YCS+AKT.;KC2;J"3A3L3SF +NKD.;GC";*M.1F460B 3R;I7TN"3T	R7KOE6.2"7GSO/OF "560.JR1*2B03P	R+NKT3F;I+ACL3S?C/R+E2 WM6"N;*2J;7YWO6"N;"3*M.1N420& 7FN 62N>23T+ECN.1V420	\7FN 63N=62R 3H;E.1R460C\3R;I7
&"+OCU3W;O6.2"7GSO/OF .4B6.MFJ.4B46 KP7ISN*"CA3DGR+WJ!3\?G+TCO.1Z4"0*M.1V460B 3R;I3T&"2 ?W+NJ!.MFJ.4B66 SSO7P.JR1*7B03S?TP*M.1F1*0B03D7I* T*5&0*,C*1&9*,F*1&9*,Z*1&9*,SA.(Z2")*M.1F1*1B07FKO. 7X21?T61293RGE3DN *(	X*,Z+X2)7F"(2);\7ESX" 7X.JF1.1V1. 7X"1*M.1F1
2B03R;I7T^"3EOL3OWM2 ?T6 WH3I7S+ACN3SGT7DWI3MZ +OCR3TSO+A
Y3S^ 3RGE3T^ 3AWM2 WB3TWW+EKN.MFJ.1N160B 3R;I7TR"+HCE7PCD*-B83P;A3TWH+RCS3ASN6 &(7OKU2 GN+MCE3PWL3AWS6)R +HCE""6;.JF1.1B42 ;I7PSU* SA.MFJ.1V160B 3R;I7TC\3R;I+TJ 3A" 3IG+LCY7PKA7TOI+ACN3C?R+WCD+OKF";*M.1F1*6B0/BJ=2*;R/DB(2)G\2=;I/T^(.0B060J*+ND*0&)7\KP7ISN
 /A.MFJ.1"160B 3R;I3TZ"7AON6 OI2 ;A3X?I3U3S3YF 3W	A3T;I7GR +HKE7\KP7ISN6"SS7ASR2 [O2 T3E^ 3AWM".6".JF1.1B96 KP7ISN2"WH+RCE+ICS+MCY3TGE+MJ:2,F"+NCD7HKE3E& 7S& 7OKU+SJ:.MFJ.1B260B 3R;I3T:"3AWM*"J,3AWV3R
A+E2"2"GN+MKE2,F"7VKE3AWG""*M.1J1*1B03P	R+NKT*-6-*-2"*"6-*-6-*-J-*,6"*-6-*"J,*-6-*-6-"-6".JF1.2B22 ?G3SKU. F1.4B0.MFJ.1N260B 3R;I7TC\3R;IT*M.1J1*4B03P	R+NKT3TWH2 GP3NT7EOR6 KA7ER 3A	K+NCG3TWH2 	F3ESL2 ?N3WF 3SF 7NKD7EOW2 [O2 TE6".JF1.2B56 KP7ISN* SA";*M.1
1*6B03P	R+NKT2 SA3V;A7COE2 ?T2 T7EB 7LSA+EB.2 3P7EOA7E^ 7ASI6 OA2 T3EN 7OCM3UWT7RN 3I
NS6".JF1.2B76 KP7ISN6"WO3R: 3A	T3OGN3LF 3NT+ECM+TCO7IOT3E[L* B-22> /RN 2 	T7MOE*!B 7JOU7TN 3I
N""*M.1J1*8B03P	R+NKT3A?L+NCG7USN+ICL3A/S+ECD7FKO2 ?Y+UCR3PGL+YJ.7\KP7ISN.MFJ.1&220^ 3O?T. F1.5B8.MFJ.1B320R 3AGT. B.*5:,.4J1.0F0.,B.*5:,*022..Z2.3B0*3:,"063.JF1.3B12 GD+T7A..J0.,J..3B6*021..J0.,B.*3:,.3Z1.0F0*,:-"061.JF1.3B22 GD+TCA..F0.,J..4B1*021..N0.,
.*2:,.3F2.0F0.,B."2*M.1N1*3B07DSA+A:-*022..Z3.7B0*1:,*022.-B.*2:,.3Z8.0F0*,:-"061.JF1.3B42 GD+T;A*021..&2.5B0*1:,*023.-B.*1:,.2Z9.0F0.,B."2*M.1N1*5B07DSA+A:-*022..F3.9B0*1:,*022.-B.*2:,.2V8.0F0.,B."2*M.1N1*6B07DSA+A:-*023..&2.5B0*1:,*021..J0.,J..9B5*021..
0.MFJ.1^320R 3AGT..J0.,J..1B8*021..J0.,B.*2:,.1&3.0F0*,:-"062.JF1.3B82 GD+T;A*023..N2.8B0*1:,*021..N0.,J..3B1*021.-B."2*M.1N1*9B07DSA/AB *,20"0*M.1R1*0B03P	R+NKT3H	U3SGM+N2"/ZF(*)J,3K?L+OKS*,Z"26).JF1.4B16 KP7ISN2"?H3EWR+N2"/ZN(*)J,3ASN7R
E+S2"/ZR(")*M.1R1*2B03P	R+NKT3BOA7COU6"*,*(&52,6"3AWY+R2"/Z"(")*M.1R1*3B03P	R+NKT3S	M+TKH*,Z*72)2"GH3NWS+N2"/ZZ(")*M.1R1*4B03P	R+NKT3SC3N	E7DKE6"*,*(&92,6"3IC+EKL*,Z*1&0.MFJ.1V460B 3R;I7TJ"3OWS3NGB+UKM*,Z*1&16,B"2.R 6.B 3EWT6"*,.(J1")*M.1R1*6B03P	R+NKT7PW
3LWS+N2"/ZF(*32)2"	W3L	L7AOM6"*,.(R1")*M.1R1*7B03P	R+NKT3K3I7GWO+R2"/ZF(*52)2"WN3L?S+N2"/ZF("66).JF1.4B86 KP7ISN2"?J7HON+OKN*,Z*1&72,F"3NOK3O;R6"*,.("1")*M.1R1*9B03P	R+NKT3W	H3TWN+Y2"2"6 3AGN7GKE*"J,3IWV+Y2"2"6 3AGN7GKE6"C\3R;IT*M.1V1*0B03P	R+NKT7PSI3CWH7
N	6 CO3T?I+NCS3AWR6:2"3P	R+NKT7FOA3TGB+LKL.MFJ.1F560B 3R;I3TJ"3E;A3B3A7L2"3P	R+NKT7BWR3SKH3A/C6"C\3R;I3TJ"3A3L6"C\3R;I3TN"7U[RE6".JF1.5B26 KP7ISN2"3S3IWD7R2"3P	R+NKT7KWN3C3K7E2"3P	R+NKT3GWR3AKS3A3L2 &(3LWL3G3A")6".JF1.5B36 KP7ISN6"CS3IKT3A3L2 &(3LWL3G3A6)
"3P	R+NKT3CWH+CKK7\KP7ISN.MFJ.1R560B 3R;I3TJ"7AST7EOR6 CO3T?I+NCS3AWR6:2"3P	R+NKT3B;U7T2"3P	R+NKT3S	W+NKG.MFJ.1V560B 3R;I3T""+I7T3AGW7Y2"3P	R+NKT3SOA3R[I3IWC6"C\3R;I3T^"7RWO3NWD7R2"3P	R+NCT2"3FY6".JF1.5B66 KP7ISN2"	K+LKL7\KP7ISN.MFJ.1^560J 7EWTR7N.JF1.5B8
 ?G+TCO.1B0.MFJ.1&520V N7DBJBZ

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