File BBALLA.BA (BASIC source file)

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

.1B02 WR+MB * B * B * B * B 2 J 3AWS3B3A+L6 . &1"767.JJ160J +ECM* B * B * B * B * B .=6=.=6=.=6=.=6=.=6=.MFJ*4B03R7E.MFJ*6B03R7E.MFJ*8B03R7E* B * B * B * B * B * ;K* ;M2 ?B3WWYR*M.2B02 WR+MB * B * B * B * B . F .0B02 WC7DKA6 [AE6..JJ260J +ECM* B * B * B *
B * B 7L
E+E3S2 WD7L
A3AWR.MJJ*4B03R7E* B * B * B * B * B . &1.9"5.MJJ*6B03R7E.MJJ*8B03R7E* B . 2 2<R<3E	F+NCE3D7I7EON3I;O/S:>">*M.3B02 WRM*M.3B22 	D3M: .$&(6)B,*9"$.9R,2)",*9"$.9F,*52)+VR9*(29*1&5*,V*1&6*,H*1&6.MNJ*4B03D7I. GI.(Z12)J,.3^(6)F,*(&7.MNJ*6B03D7I. GS.$V(*,&1.MNJ*
B03R7E.MRJ*0B03R7E* B . 2 2<^<+ECT7FKO3M3A3I	T+ECS7OSU2 [O2 T7E^ /A;Y">6>.JJ460J E7M.JR460B 3R;I+TJ 3W3E3C7O7ER 7ON 7PSI3B3A7LN 7TSA3I7U6"C\3R;IT*M.4B62 GR3N?D7M+IE*M.4B86 KP7ISN6 R"3OGD3Y> +UCR3H7O3E?T+WCN6	CS7IOT2	6 7ESE2 T7EZ 3I	S3T;I/G* ""6;.JB520& 7N
P3T: 6$C\3R;IT*M.5B26 KP7ISN6 ^"3H3I7ER +HCE3S	P+TCS3T/A7ER +HCE3FWI+L3D2 WL+TCS3L?O3KF 7TR +HCE3L;I7ECU+SJ..MVJ*4B03P	R7N3T3P	R+NCT2"GB+T2"2"?P+S2"6"CS7IOT*"2,7N2$3P	RN7T.JZ520Z +OCR/IF=2 ?T" 69.J"560J 3ESA. 	P2$&(2)",*9"$I6).JB660B 3R;I3T& .,	P2$&(2)",*
"$+I2)",*M.6B22 ;I7PSU. 	V2$&(")*M.6B42 WN+XCTI*M.6B62 WRM*M.6B82 WR+MB * B .<2<7SSE6 CU2 ?C7NSS7ASN3SZ +OCR2 GG/M;E">6>.JB760J E7M.JJ760F *(&1.=^3+\Q.26)6520/QN(.)Z=+\Q.46)64G\*(&56=22/QZ(.)F=.M^J*4B0/Q^(6)F=*(&1*+Q*2.)/QN(6)F+*(&4*+Q*5.)/QZ(")*M.7B6. 7S
0[\+OCR/IF=2 ?T6 267SN=*+Q7I2)3Q&(2)&=+NT/SF**0>0/Q^(6)2)7NE3T& .M^J*8B0/I6160S\6=21/ON=3\?F3R& *=B1+TCO61263H&(.)B=+\V/I6)20;\7ESX6 3I/B6121K\.2F=.M"J*0B03R7E.M"J*2B03R7E* B . 2 6<R<+OCP+OCF3I;N3I
N.>:>.M"J*4B03R7E.M"J*6B07GSO/ON .4B4.M"J*8B03R7E.M&J*0B03R7E* B . 2 6<Z<3I	S3T;I3GJ 7AST+ECR/U;P">6>.JJ960J +ECM* B . 2<6<KP7ISN2 	D3A7A3OSN6,N 7CKO+EB,7CWO+NCT3ASN2 GB3TWT/R:>">*M.9B42 WRM*M.9B62 ?G3SKU. ^3"460.J"960B 3R;I7TC\3R;I3T: *$J;2 GB3TWT3R& +S6
. ."+VR9.(GB*)J;".6".JB1*0B03R7E.MFJ.0B22 WR+MB * B .<2<7VOI3I?T3RJ 7AST+ECR3S	W7NOG.>:>.MFJ.0B42 WRM*M.1Z020^ 7OWS/BJ .2B87\KP7ISN6 &"7OKU6 
S3I
N* [7SR)3E3A6 KO2 N<7R6>*:J ";*M.1"060B 3R;I7TC\3R;I+TJ .>.".MFJ.1B02 [I* SS6=N"2"^ 3O?T. &16820/Q^(.)F=*0*03RSN*(&1.MFJ.1B22 [I* Q.7:)/QF(2)^ 3O?T. F166203BJ=6+213P	R+NCT2"GB+LKL6;3B+ICF/BR<2 ?G+TCO.9B6.MFJ.1B42 ?G3SKU. Z268207GSO/O& "660.JF1*6B0+ICF/Q^(
)F>*(&22 ?G+TCO.1R260O\*=/S61C\3R;I+TJ 7SKT3IWK6"N;.MFJ.1B82 [I. 7S23^ 3O?T. J160207GSO/O& "660.JJ1*0B03O>=6+21/B61+B.121	\3FJ .1F=20^ 3O?T. J162207GSO/ON .4B0.MFJ.2B2. GB6=217GSO/ON .4B0.MFJ.2B42 [I* Q.7:)/QN(2)^ 3O?T. N16020/H65"1*M.1Z260B .=B43\?G3SKU.
N36220+ICF/PF=2 ?G+TCO.4R0"0*M.1"220^ 7OWS/BN .0B23\?G+TCO.9B6.MFJ.3B02 [I* Q.7:)/QR(2)^ 3O?T. N16220/H6522
\3O?T. J1"660.JN1*2B0+ICF/Q^(6)F>*(&52 ?G+TCO.1R320\.5N=3\?G+TCO.1Z2"0*M.1R320" .5R=3\?G+TCO.1Z2"0*M.1Z360J E7M.JN1*8B03R7E* B . 2 2<J<7OST+OCM+OCF3I;N3I
N.>:>.MFJ.4B02 WR+MB * B .<2<3P	R+NCT3DGI3M;O+DB,3S?C+R3E2 ?C7USN2 ;A3DJ 7AST/E;R">6>.JR1*2B03R7E.MFJ.4B42 ?G3SKU. ^3"460.JR1*6B03P	R7N3T3P	R+NCT6"CS7IOT2 GB3TWT3R& +S6 . ."+HR9.(KB*)J;".6".JR1*8B03R7E.MFJ.5B02 WR+MB * B .<2<7VOI3I	T+NCG7PSI3CWH7RB 3IOT7H
E.>:>.MFJ.5B22 WRM*M.1R520^ 7OWS/BJ .2B87\KP7ISN6 &"7OKU2 	P3TC. 3[/C;R+]B:""6;.JV1*6B03P	R7N3T3P	R+NCT*"J>";*M.1"560J E7M.JZ1*0B03R7E* B . 2 2<"<3OWM2 WT+ACM3SWT+ACL3G;E3EGR7TKO.>:>.MFJ.6B22 WRM*M.1R620& 3FJ .3F(2)J+.3J(2)J+.3N(.)B=2 ?G+TCO.1B7"0*M.1Z660
 6=287GOO+UCB.3J320	\7FB *=B07GSO/OF .7B0.MFJ.6B82 ?G+TCO.1"9"0*M.1B760F *(&7.=B160J*+ND"16).J^1*2B0+ICF/Q^(6)F>*(&12 ?G+TCO.1"720K\*=/B61C\3R;I+TJ 3B3A/L."B*M.1R720& 3FJ *<B47GSO/OF .4B4.MFJ.7B62 ?G3SKU. Z268207GSO/OF .4B4.MFJ.7B82 [I* Q.7:)/QJ(2)^ 3O?T.
"1"660.J"1*0B07SN=6+213P	R+NCT6"SS3R/I/E."3S	\7FN *=B37GSO/OF .8B23\?G+TCO.1R4"0*M.1J820> *=/O21K\22J=.2F+3\[I. KB.=B12 ?G+TCO.1R820
\3O?T. R3"460.J"1*4B0/B6221
\3O?T. R3"060.J"1*6B0+ICF/Q^(6)F>*(&32 ?G+TCO.1B920\.5F=.MFJ.8B82 ?G3SKU. B362207GSO/OF .4B4.MFJ.9B02 [I* Q.7:)/QR(2)^ 3O?T. &16220/H6522
\3O?T. "1"860.J&1*2B0+ICF/Q^(6)F>*(&52 ?G+TCO.1R920\.5N=3\?G+TCO.1"8"0*M.1R920" .5R=3\?G+TCO.1"8"0*M.1Z960J E7M.J&1*8B03R7E* B . 2 6<N<3TGE3L" 3ASN7LKE.>:>.MJJ.0B02 WRM*M.2J020Z +OCR/IN=2 ?T* B13SWT+P6 21	\3FJ 23&(.):<20^ 3O?T. B268207NE3T& .MJJ.0B46 KP7I
N2 N"+A
N7TN 3TGE+L6 2 ?N3BSO3Y> 3NJ 3AWS* J!.MJJ.0B62 [I. 7T21^ 3O?T. R164207GSO/O& "660.JB2*8B0+ICF/TF=2 ?G+TCO.2B160C\3R;I7TZ *9"$+B"3+I&)2;
\3O?T. F2"260.JF2*0B03P	R+NCT+HR9.(OB*(	I")6;.JF2*2B03P	R+NCT2"F 3TWT7MSP7SR 7ON 3TGE+L6 2 WH6 OI. .".MJJ.1B4. 7P*860*2*03I
\7OWS/BN .3B23\[I. 7P21^ 3O?T. F2"860.JF2*6B03P	R+NCT6"WO+TF 2"?\*=/O21K\23&(.)B=3\?G+TCO.3R4"0*M.2"160B 3R;I+TJ 3S[A+EF 2"K\23&(*+&1.=OB*(	I/\OB*(	I"=60.JJ2*0B0+ICF/I:<23^ 3O?T. B266207GOO+UCB.2Z320
\3O?T. B2"660.JJ2*2B03R7E.MJJ.2B42 WR+MB * B .<2<3P	R+NCT7CWO+NCT3SKU7RWO3T;I/E:>">*M.2Z260J E7M.JJ2*8B03P	R+NCT*"B * CB* B +SB 2 > 6"C\3R;I+TJ * J .;/B*"B 6"N;*;B". ."O*M.2B360B 3R;IT*M.2J360J 7EWTR7N.JN2*4B03R7E.MJJ.3B62 WR+MB * B .<2<3R;U2 GH3N3D/E;R">
>.JN2*8B03R7E.MJJ.4B02 [I. OB*(&4.+OB*(&5.+OB*(&6.+OB*(&7.<B>2 ?G+TCO.2J460K\7EWTR7N.JR2*2B07FKO. 7I67R /OR 6 SS+ECP6-21+ICF+B"3/I6)20^ 3O?T. R2"860.JR2*4B0+ICF/TF=2 ?G+TCO.2J5"0*M.2Z460B 3R;I7TZ *9"$+B"3+I&)*;B"3S?C7ROE6"[\.(GI6)Z=.(GI.)F++\V*1&6*=V*1&6"
61.JR2*8B0+B"3/I6)20;\7ESX" 7I.JV2*0B07RSE3U;R.MJJ.5B26 KP7ISN. 	H2$J(23&(.).)6"N 7CKO+EKS+\H+I&1*=H+I&16+21/HF(.66)/HF(*6.)"1*M.2R520^ 3O?T. R2"860.JV2*6B03R7E.MJJ.5B82 WR+MB * B .<2<3CWL+ACR7BOA+E3S6 WO+T3S6 SS3R/I+ECS3ASN2 GB7LOL6 WS3B?R3U	T/N;E">6>.JZ
*0B03R7E.MJJ.6B22 ?F3R& *=B1+TCO27K\23&(.)B=3\WN+XCTI*M.2R620J 6=20/SB=/\7O60K\7EWTR7N.JZ2*6B03R7E.MJJ.6B82 WR+MB * B .<2<3W3A3K" 3ASN7LKE.>:>.MJJ.7B02 WRM*M.2J720& 7FR *=B17GSO/OJ .7B47\KP7ISN. 	V2$J(.1.)6"^ 3A/L7S2"7GSO/OJ .7B6.MJJ.7B46 KP7ISN. 	H2$J(.2
)6"^ 3A/LS6".J^2*6B0/BB=/\7S20	\3FJ .3F(.):<20^ 3O?T. "2"660.J^2*8B0+B"3.16)B61.J"2*0B0+ICF/TB=2 ?G+TCO.2J820K\22J=.2F+3\[I. KB.<F>20^ 3O?T. "26420/B6221
\3O?T. "2"460.J"2*2B0/B61+B.121	\3FJ .1:<*1B07GSO/OJ .8B4/\GB"=61.J"2*4B07RSE3U;R.MJJ.8B62 [I. OB*(&2.<B>2 ?G+TCO.2B9"0*M.2"820J .3J(2)J=.3F(2)
\3O?T. ^2"860.J&2*0B0+ICF+B"3.32)*>B07GSO/OJ .9B4.MJJ.9B2. OB*(&3.=OB*(&23\?G+TCO.2"8"0*M.2R920J .3R(2)J=.3N(2)
\7OWS/BJ .4B03\?G+TCO.2J9"0*M.2Z960J E7M.J&2*8B03R7E* B . 2 2<"<+ICT3H;A3DWL/R:>">*M.3B060J E7M.JB3*2B0/BB=/\7S20[\+OCR/IF=2 ?T. WH.MNJ.0B42 ?F3R* *=B7+TCO62N 7TCE. F-.MNJ.0B6. OB*(	J.=OB*(7J"16).JB3*8B07NE3T* /\OB*(&1"=60.JF3*0B07NE3T& .MNJ.1B22 [I. 7T21
 3O?T. F3"860.JF3*4B03P	R+NCT+VR9.(GB6)2;+B"3+H&5.=GB.MNJ.1B6. GB.=GB6+21+ICF/B21.>B12 ?G+TCO.3J220K\.1F=3\?G+TCO.3J2"0*M.3"160B 3R;I3T" *9"$+B&22;K\23"(.56)B62.JJ3*0B0/B62+B.221	\3FJ .2:<*1B07GSO/ON .2B2/\KB"=61.JJ3*2B03P	R+NCT2"^ 7EOT2"";*5J;2 GB+SCE7HS
2"
\7OWS/BJ .4B0.MNJ.2B42 WR7TKUN*M.3Z260J E7M.JJ3*8B03R7E* B . 2 6<B<3RKO3A	B7LSI3Y" 3ASN7LKE.>:>.MNJ.3B02 WRM*M.3J320& 7FB ./B1.06<3RSN*(&12 ?G+TCO.3R360C\6=217GSO/ON .3B6.MNJ.3B4. 7P"0*M.3Z360J 7EWTR7N.JN3*8B03R7E.MNJ.4B02 WR+MB * B .<2<7OSU2 	D3SGP3TC/E;
">6>.JR3*2B03R7E.MNJ.4B4. 7S20K\6=20+ICF/O:=23^ 3O?T. R36620+ICF/TF=2 ?G+TCO.1R420
\3O?T. Z9"0*M.3Z420> 6=20+ICF/TF=2 ?G+TCO.3J5"0*M.3"420& 3F& .1&<2 ?G+TCO.3B520	\7FZ .(Z1.):=/HF(*6B)7GSO/ON .5B03\?G+TCO.3B6"0*M.3B560B 3R;I7TC\3R;I+TJ 7BSO3T7O2 [O2 ;I3N;I3G: +OJ..;GI/\7T21
\7OWS/BJ .6B23\?G+TCO.1R4"0*M.3J520& 3F& .1&<2 ?G+TCO.3Z520	\3F& .1F=23^ 3O?T. Z3"660.JV3*4B0+ICF/VF(.66)/HF(*6B)7GSO/ON .5B63\?G+TCO.3B6"0*M.3Z560B 3R;I7TC\3R;I+TJ 7TCO2 [O2 ;I3N;I3G: +OJ.2;	\21&=.1F+.MNJ.5B8. 7T60C\3R;I3T& 21
\7OWS/BJ .6B23\?G+TCO.9B6.MNJ.6B06 KP7ISN7\KP7ISN2 V"+NCD+OCF3G7AE6".JZ3*2B07FKO. 7I61R /O^ /\OB*(	I6=207NE3T& .MNJ.6B46 KP7ISN2 Z"3IGN7LN 7CKO+EJ:3\?G3SKU. ^364203S?TP*M.3Z660B 3R;I7TC\3R;I+TJ 3G7A3EN 3A3L+ECD3DWU2 ?T2 GD3R;K7EOS2"
\3O?T. Z3"260.JZ3*8B03R7E.MNJ.7B02 WR+MB * B .<2<7DOI3PGL+ACY3SKU7RWO3T;I/E:>">*M.3J760J E7M.J^3*4B03P	R7N3T3P	RN7T.J^3*6B0+ICF+B"3.26)20^ 3O?T. ^368203P	R+NCT*"B * B 6 [+]2"*"B * B:3I;N3I
N6"2,7GSO/ON .8B0.MNJ.7B86 KP7ISN* B"* B 6 . +OK]*,B". * 2 ;I3N;I+G2".MNJ.8B02 ?F3R& *=B1+TCO7I213P	R+NCT7I2;7NE3T& 7\KP7ISN* B"6 J ""*M.3J820& 3FJ .3N(.)B=2 ?G+TCO.3R860C\3R;I+TJ 7[7X* B * B * B 6"2;7GSO/ON .8B6.MNJ.8B46 KP7ISN6 ."+OC]* B * B * J ";*M.3Z
20& 3FJ .3F(.)B=2 ?G+TCO.3"860C\3R;I+TJ 7[7X. * . ."3\?G+TCO.3B9"0*M.3"860B 3R;I+TJ 7[7O. * . .".MNJ.9B06 KP7ISN* SN2,[\+OCR/IF=2 ?T. GI7\KP7ISN* V/I.)3\WN+XCT7IC\3R;I+TJ * J *;V*1&6.MNJ.9B26 KP7ISN* B"* B 6 . +OK]*,B". * 6 CS7IOT6"2,7FKO. 7I61R 3O& 61C\3
;I3T" *(	I2;;\7ESX" 7I.J&3*4B03P	R+NCT*"B 2"";.(Z1")*M.3Z960J 7EWTR7N.J&3*8B03R7E.MRJ.0B02 WR+MB * B .<2<7F	L2 GB+LCL2&V 3R?R3R" 3ASN7EKL.>:>.MRJ.0B22 WRM*M.4R060B 3R;I+TJ 7F	L2 GB+LCL7CWA7GSH6 	B. .".MRJ.0B6. 7P21&++NT69J*+ND*1&)3\[I. 7T21^ 3O?T. F4"060.
B4*8B03P	R+NCT+HR9*(	P*;B".(."+PR9*(	P*;&"2"
\3O?T. F4"260.JF4*0B03P	R+NCT+VR9*(	P*;B".(."+PR9*(	P*;&"""*M.4J160B .=V13\?G3SKU. N36220+ICF/PF=2 ?G+TCO.4R120?\*=/O21
\3O?T. R3"460.JF4*4B03P	R+NCT2"V*3R?R+RB*+HCE3D?R3PWP7DR +HCE3B3A+LF!* B-3S[A3EF 3TZ 7IOR+TJ!.MRJ.1B6. WH6=217GOO+UCB.3J020
\3O?T. R3"460.JF4*8B03R7E.MRJ.2B02 WR+MB * B .<2<3D[E3IWN2 ?P7SSI3I;O3SF +NCD3H7O7ER 3E7A2 3P3AWY/R;S">6>.JJ4*2B03R7E.MRJ.2B42 GD+TCA2"J1*"J,3L[E+TCY7OR	3O3O+E2"2"J2*"J,3DGE3DV +YCE7HKEB6".JJ4*6B07DSA+AJ +SKS6,N"3C?O3P* 3AWM+S2"2"J3*"J,3D
I7GKE2 GDN6".JJ4*8B07DSA+AJ +LKF6,N"3CGR3TC+ECR3S7A*"J,+CKF2,J"3L;I3DJ 7ESR""*M.4B320R 3AGT6 J"+F2"2"3S3U
G+ECR3M
C3HWE*"J,+CJ 6,B"+OCP+UCP7PSEE6".JN4*2B07DSA+AJ +PJ 6,^"3ISL2 	W3L	LE6".JN4*4B03R7E.MRJ.3B62 WR+MB * B .<2<3ESN2 [O6 KP7OKG/A;M">6>.JN4*8B03R7E.MRJ.4B02 ;ED*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