File FOOTBA.BA (BASIC source file)

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

*1B03R7E* B . 2 *<B 3G7A3E> 3FZ 7OSO3B3A+LB ">6>.JB22 WRM*M*3B03D7I* SW.(B26)",.$J(*02)+Y"$*1&5*,S"36).JB46 KP7ISN7\KP7ISN6 ^"3EOL3OWM2 ?T2 ^	3R;U3TF +NCD3G?R+A
N2 ?F3OKT3A3L6 SS3A	D+U;M6"C\3R;IT*M*5B03P	R7N3T3P	RN7T.JB66 KP7ISN6 R"7HOI2 GG+MCE3W3I3LJ 3EJ 7E
T3E;E2 ?Y3UF +NCD3TWH2 ?C7MWP7TKE6.2"3P	RN7T.JB76 KP7ISN6 ^"7HSA6 OI2 ?Y+UCR3TGE7MN	2 GN+MCE6"2;7ICN+UCTW6$.JB86 KP7ISN7\KP7ISN2 :"+OCW6"^;*$J;2 WN7EOD* CA3QGU3RWT3RGB+CCK2(T+A
T7S& +O	U".6".JB96 KP7ISN6 ^"7HSA6 OI2 ?Y+UCR3N7A+EJ 2;	\7NWP7T& 6$C\3R;IT*M.1B06 KP7ISN6 ^"7HSA2 ?D2 ?Y7U^ 7ASN2 ?T2 GC+LCL+MCY3TGE+MJ 2;	\7NWP7T" 6$C\3R;IT*M.1B16 KP7ISN6 N"3O& 7T^ 3I3L2 WB. ."/W.$2"F 3G	A7NSS. ."/X.$*"J.7\KP7ISN.MFJ*2B03P	R+NCT2"?T2 GC
LCL7AB 7L	A6,R 3YWP2 ;I2 ;O3E> 7FR +HCE3F3O7L
O3I
N2 ;AD6".JN160B 3R;I+TJ 3PWR+SCS2	WR7TKU+N:	6"C\3R;IT*M.1B46 KP7ISN6 N"+R6 2 	S3M3P7EJ +UKN2;GT/BN(.0.)*"CP* B-3P;UT6".JV160B 3R;I+TJ +TCR6-R 3ROI+KCY3R;U6"R;+AB*3&06;F"+K6 6 WQ3I/C2 	K+CKK.MFJ*6B03P	R+NCT6"CS* B-3S?H+RCT7POA/S."3TKA.(B3*)J;+FCG2-Z 3I3E3D
 3O3A6 KTY6".J^160B 3R;I+TJ +LCP2-2 3O
N2 GP+SKS7\KP7ISN.MFJ*8B0/AV=21K\6=20/CB=+\S.16)60O\*(&3"=60.J&160B 3R;I7TC\3R;I+TJ 3PWR+SCS2	WR7TKU+NB	7FKO2 ?C+ICN7TOO+SB:""6;.JB260J 3ASN3O	MZ7E.JF220& 7NWP3TR 3\[I2 ;R/DB(*):<65R 3H;E. N2"0*M.2B26 KP7ISN* SX*;B"3W;O2 T7ER 7OOS6.2"7GSO/OF .6B4.MJJ*3B03
	R+NCT/W.$6"^ +OCN3TWH2 ?T+S;S""*M.2B46 KP7ISN7\KP7ISN* SW*;B"2-J 3A3L2 ;O2 T7EKI6 
O/NJ *0J..MJJ*5B0/GF=/\7F6220/HJ=20	\6=217GSO/OF .7B8.MJJ*6B03P	R+NCT2"?Y+UCR3C3A+LB,6"&;*$J;. ."3\;I7PSU* SJ.MJJ*7B0/JB=3\[I* SJ6=N"+RB"3TWH/NN 6620+ICF/J6$6"KT6"R 3H;E. V3"0*M.2B82 [I* SJ6=N"+PB"3TWH/NN 6420+ICF/J6$6"CL6"R 3H;E. N320	\3F* *$J=+PB"3TWH/N
 "260.J&220& 3F* *$J=+QKK2 T+ECN.3B13\[I* SJ2=Z"+GB"3TWH/NN 60207GSO/ON "760.JB320* *=/J"1*M.3B1. 7J/JF+.MNJ*2B03J*="+61.JN320* *=/J"1*M.3B4. 7J/JF+.MNJ*5B03J*="+61.JZ320* *=/J"1*M.3B72 [I. 3J*>B03TWH/NN 68203P	R+NCT/J.$."> 6?2"7GSO/OJ "660.J"320. 2=;R/DB
")*M.3B9. 7K+K"*..^9*++G..N0")*M.4B0. 7C/CF+.MRJ*1B0+ICF/C:<*2B63TWH/NR 62203P	R7N3T3P	R+NCT."2<6 SS7ASR2 [O2 :27DF 7UKA7TKE. :>6"C\3R;IT*M.4B22 [I. 3C.>Z72 T+ECN.4B37\KP7ISN7\KP7ISN. 2"6<N 7TKA3T> /FR +TCH3QGU3RWT/R: 6>2"3P	RN7T.JN420& 3FN .=B161R 3H;E. 
5"0*M.4B42 [I. 3C.>F52 T+ECN.6B17\KP7ISN7\KP7ISN. 2"*<* * B*3H3A7FR 3IWM* B*.*: 6>2"3P	RN7T.JV420^ 7OWS/BJ .3B67\KP7ISN.MRJ*6B0+ICF/SN(6)N>*(&12 T+ECN.4B8.MRJ*7B03P	R7N3T3P	R+NCT/W.$3\?G+TCO.4B9.MRJ*8B03P	R7N3T3P	R+NCT/X.$.MRJ*9B03P	R+NCT6"^ 3I3L2 WR3C	E+
CE3TWH2 GB+LCL+ICN3TWH6 J37DF 7UKA7TKE".6".JB560B 3R;I7TC\3R;I+TJ 3E+N+OCY3TWH2 GH7LSF3IWM2 OA7T[I3IWT+SJ..MVJ*1B03P	R+NCT6"KP7EOS6 J	7EWT+R
N2 ?T6 SS7ASR2 :23D" 3A[L6"2;7ICN+UCT7A213P	RN7T.JJ520& 7FN *(&3*>S*1B)3TWH/NF .6B43\?G+TCO.2B4.MVJ*3B03P	R7N3T3P	R+NCT*"**2*V +NCD+OCF3G7A+E* **J*.MVJ*4B03P	R+NCT2"	F3N3A2 OS3OWR*:B * B 6"^;6$N;*(&3*;B"* B . ."/X.$/SF(")*M.5B52 [I* S.3:)/SF(6)R 3H;E. "5"
*M.5B66 KP7ISN7\KP7ISN2 ^"3OSO6 KT+YJ *;SY*;:"2 WB3TWT3R2 3U/C2 WN+XCT3T7I+EJ..MVJ*7B03S?TP*M.5B86 KP7ISN7\KP7ISN* SY*;2"2 ?Y7UB 7L	A+ECD3L/I3EF 6 KP+OB,3BGE3T;I+GJ *;SX.MVJ*9B03P	R+NCT6"^(+HCO3HSA2 ?C7MWP7TKE2 WH+LGP*)J..MZJ*0B03S?TP*M.6B1. 7M3RSN*(&0.MZ
*2B0/NB=.MZJ*3B0+ICF/JR>2 T+ECN.6B9.MZJ*4B0+ICF/JF=2 T+ECN.8B1.MZJ*5B0+ICF/JJ=2 T+ECN.8B6.MZJ*6B03P	R+NCT2"GP+SCS3PGL+Y6 *-6-"-6".J^620& 3F* *=B33TWH/N& "360.J"620^ 3O?T. B1"960.J&660J +ECM3P;UT*M.7B0. 7O7ISN*(+K*3.0*3&0.M^J*1B0+ICF/J^=2 T+ECN.2"4"0*M.7B2
 [I. 7I64R 3H;E. R7"0*M.7B3. 7O7ISN*(+O.1N.")*M.7B46 KP7ISN6 B"7USN2 ?G+OCD7FKO. ."+OJ;2 GY7ROD".6".JV720& 3F& *<B43TWH/N^ "960.JZ760B 2=;I3T6(+^*2*2&0.+F(*-	G2*;I3T.(+^*2*3&0.M^J*7B03P	R+NCT6"WR3NJ 3A/C2 [O. ."+PJ;2 GY7ROD".6".J"720> *=7OP*M.7B9. 7N"-61.
B820^ 3O?T. J1"660.JF860J +ECM3S7I3PWL6 WRN*M.8B26 KP7ISN6 J"3U;N3I
N2 3P+ACY*-6-*-J-.M"J*3B03O&=+NT*2*4*(7K*.&5+^.3"36).JR820& 3F6 .<B.65R 3H;E. B9"0*M.8B52 ?G+TCO.1V1"0*M.8B62 WR7MR 3ROI+KCY3R;U.M"J*7B03P	R+NCT6"WR3N	N+NCG3PGL+Y6 *-6-"-6".J"820> 2=;I/TJ(20.**-&5.M"J*9B0+ICF+M:>61R 3H;E. F1"560.JB920: .=F-.M&J*1B03P	R+NC
*"N 2Z 3UKM+LCE7ASF+ECR""*M.9B22 ?G+TCO.1V1"0*M.9B32 WR7MN 7HKO7TB 7AOS.M&J*4B03O&=+NT.1B62*6(.-V..)O^*+:7"56).JV920& 3F. .<B.65R 3H;E. B1"060.JZ920& 3F. .<F.65R 3H;E. B1"660.J^920& 3F. .<V.65R 3H;E. B1"360.J"960B 3R;I+TJ 3C7O3PWL+T;E""*M.9B92 ?G+TCO.1V1"
*M.1B060B 3R;I+TJ 7ISN3EOR7ESP+EGD"!6".JB1*1B0+N6="1*M.1J020^ 3O?T. J1"660.JB1*3B03P	R+NCT2";I3C7O3PWL+T;E""*M.1R020> "=60.JB1*5B07GSO/OF .1B5.MFJ.0B66 KP7ISN6 B"7AOS+ECR3TOA3KWL+DJ..MFJ.0B7. 7O2-;I/TF(206*")*M.1"020^ 3O?T. F1"560.JB1*9B03R7E2 ?L+NCG7POAS
M.1B120> 2=;I/TF(*6*0*(7M*.&5+^.3*3&0.MFJ.1B12 [I. 3M*.B13TWH/NF .0B0.MFJ.1B22 [I. 3M..V22 T+ECN.1Z0"0*M.1N120& 3F6 .<^.2 T+ECN.1N0"0*M.1R120^ 3O?T. "9"0*M.1V160J +ECM7ROE7USL2 [O2 3PA7Y.JF1*6B03QZ=*++GO*M.1^120& 7FF .>B160R 3H;E. N1"460.JF1*8B0+ICF/Q6<60
 3H;E. &1"160.JF1*9B0+ICF/OB<2 T+ECN.1N2"0*M.1B220& 3F> *=B03TWH/NF .2B5.MFJ.2B16 KP7ISN2 ^"3A;I2 [O. ."O*M.1J220^ 3O?T. J1"660.JJ1*3B03P	R+NCT2"?L+SCS+OCF*"6;O*M.1R220^ 3O?T. J1"660.JJ1*5B03P	R+NCT2"?N2 GG+IKN.MFJ.2B6. 7F3F^+"*7O.JJ1*7B0+ICF/F6<60R 3H;E.
&1"160.JJ1*8B0+ICF/FV>60R 3H;E. N1"160.JJ1*9B03P	R+NCT2"GB+LCL+OCN6"^;2$Z;.MFJ.3B02 ?G+TCO.1J5"0*M.1F320& 3FZ .>F=*0B03TWH/NF .3B4.MFJ.3B26 KP7ISN2 J"3A3L2 ;O. ."/X.$.1B0"-7F.JN1*3B07GSO/OF .5B2.MFJ.3B42 [I. 3G60R 3H;E. R1"260.JN1*5B0+ICF/NB<2 T+ECN.1B4"0
M.1Z360B 3R;I+TJ 7TWO3CSH3O;W*!F!""*M.1^320^ .=F-.MFJ.3B82 ?G3SKU. R2"060.JN1*9B07GSO/OF .6B4.MFJ.4B06 KP7ISN6 R"3OOU3HGB+CCK7FKO. ."X6$.JR1*1B07GSO/OF .6B4.MFJ.4B22 [I. 3N60R 3H;E. R1"960.JR1*3B03P	R+NCT2"GS7FSEY6".JR1*4B07GOO+UCB.2V3"0*M.1V460B 3R;I+TJ 
TWO3CSH3O;W2 ?F+RJ *;SW.MFJ.4B6. 7F"460.JR1*7B0/GF=.MFJ.4B82 ?G+TCO.1^6"0*M.1&460B 3R;I+TJ 7TWO3CSH3O;W*,J *;SW.MFJ.5B02 ?G3SKU. R2"060.JV1*1B07GSO/OF .6B4.MFJ.5B2. 7I/IF+.MFJ.5B32 [I. ;N*=B03TWH/NF .6B0.MFJ.5B42 [I. ;G60R 3H;E. V1"860.JV1*5B03P	R7N3T3P	R
NCT/W.$2"J 3A3L".6".JV1*6B0/GF=.MFJ.5B72 ?G+TCO.1^6"0*M.1"560B 3R;I7TC\3R;I7T" *$J;2 GB+L;L""*M.1&520^ 3O?T. Z1"660.JZ1*0B0+ICF+G"*3F"-.)6>*1B03TWH/NF .6B7.MFJ.6B12 [I. 3I65R 3H;E. ^1"960.JZ1*2B0+ICF/GB<2 T+ECN.1V5"0*M.1N620^ 3O?T. V1"860.JZ1*4B0/F"="0*M.
V660B 3R;I7T" *$J;2 GB+LCL+OCN3TWH+ICR3O;W. B2".6".JZ1*6B0+G6="1*M.1^620& "=61.JZ1*8B03P	R+NCT2"	F7RSS2 ;A/DF "06".JZ1*9B0+ICF/GB<2 T+ECN.1N7"0*M.1B720& 3FZ .<B92 T+ECN.1Z7"0*M.1F720" .=B9.MFJ.7B22 ?G+TCO.1&8"0*M.1N720& 3FZ .>B12 T+ECN.1Z7"0*M.1R720" .=B1
MFJ.7B52 ?G+TCO.1&8"0*M.1Z720" "=7F.J^1*7B07GSO/OF .8B9.MFJ.7B82 [I. 7I61R 3H;E. "1"260.J^1*9B0+ICF/IJ=2 T+ECN.1R8"0*M.1B820& 3F& *=B33TWH/NF .8B6.MFJ.8B12 [I. 7I64R 3H;E. "1"860.J"1*2B03P	R+NCT2"	F7RSS2 ;A/D."*1.0+G"*3HZ-")*M.1N820^ 3O?T. "1"960.J"1*4B03
	R+NCT2"WS3C;O3DF +NKD.;B1*++G*(7HF6).J"1*5B07GSO/OF .8B9.MFJ.8B66 KP7ISN6 R"7HKI3DF +NKD.;B1*++G*(7HF6).J"1*7B07GSO/OF .8B9.MFJ.8B86 KP7ISN2 Z"7OKU+TCH3ASN."F;20^+2*"(*-	F.MFJ.8B96 KP7ISN3\[I. ;G60R 3H;E. Z2"0*M.1B920Z +OCR/A6161R /OR 60207NE3TF 21
\3O?T. B2"960.J&1*1B0+ICF/NB<2 T+ECN.2N0"0*M.1J920& 3F^ *>B03TWH/NF .9B7.MFJ.9B36 KP7ISN6 R"3OOU3H?D+WGN*!J!.MFJ.9B4. 7G"1*M.1V920^ 7OWS/BJ .4B0.MFJ.9B62 ?G+TCO.2B4.MFJ.9B76 KP7ISN6 N"3AWF+TGY"!6".J&1*8B07GOO+UCB.2V3"0*M.1&960B 3R;I7T" *$J;3B3A3L> 7NR 3H	
3R> +WCN*4:0""*M.2B020Z .=B6.MJJ.0B1. 7G"-61.JB2*2B07GSO/OF .6B7.MJJ.0B32 [I. ;G60R 3H;E. B2"660.JB2*4B03P	R+NCT2"?T3UC3BOA3KZ +OCR6"^;"$*M.2V020^ 3O?T. R2"0*M.2Z060B 3R;I+TJ 7TWO3CSH3O;W*,J *;SX.MJJ.0B72 ?G3SKU. R2"060.JB2*8B07GSO/OJ "460.JB2*9B0+G6="1*M
2B120& 3F& *>B13TWH/NJ .1B6.MJJ.1B12 [I2 ;R/DB(.)F>*/B33TWH/NJ .1B4.MJJ.1B2. 7J"3*M.2N120^ 3O?T. N2"360.JF2*4B0/JF=.MJJ.1B52 ?G+TCO.2N3"0*M.2Z120& 3F& *<B43TWH/NJ .2B3.MJJ.1B72 [I. 3F.=B32 T+ECN.2B2"0*M.2"120* "=65.JF2*9B07GSO/OJ .3B3.MJJ.2B02 [I. B1*+7F/
N<2 T+ECN.2F1"0*M.2F220* "=67.JJ2*2B07GSO/OJ .3B3.MJJ.2B32 [I. B1*+7F/HV<2 T+ECN.2F1"0*M.2R220& 3FZ *>CH3TWH/NJ .3B0.MJJ.2B52 [I2 ;R/DB(.)F>*/B23TWH/NJ .2B8.MJJ.2B6. 7J"2*M.2^220^ 3O?T. N2"360.JJ2*8B0/JR=.MJJ.2B92 ?G+TCO.2N3"0*M.2B320& 7FJ +ND.0:).1R/2 T+
CN.2J3"0*M.2F320^ 3O?T. J2"660.JN2*2B07GSO/OJ .2B8.MJJ.3B32 ?G+TCO.3B8.MJJ.3B42 WR3M. 7ECE2 OS3OWR.MJJ.3B5* S22^-6)N=*(62+G.)"2*M.2Z360B 3R;I7TC\3R;I+TJ ****************************************6"C\3R;IT*M.2^360B 3R;I+TJ 3S?C+RCE*:J *;SW*,S*32)+X2$/SF(")*M
2"360B 3R;I7TC\3R;I+TJ ****************************************6"C\3R;IT*M.2&360J 7EWTR7N.JR2*0B0+ICF3RSN*(&0.>".2 T+ECN.2R4"0*M.2F460B 3R;I+TJ 3KOI3K& 3S^ 3OSO".6".JR2*2B0/SJ(*-	G*=S22^-.)^+.MJJ.4B32 ?G+TCO.2Z3"0*M.2R460B 3R;I+TJ 3KOI3K& 3S> +FCF+TCO3SSI
EB.+NCO3G?O+DJ..MJJ.4B5* S22^-6)N=*(62+G.)"6*M.2Z420^ 3O?T. N2"660.JR2*7B03P	RN7T.JR2*8B03R7E2 	F3ESL2 ?GA7L.JR2*9B03P	R+NCT2"3P3AWC2 	K+CKK.MJJ.5B0. 7N"-61.JV2*1B0+ICF+K:>*1B53TWH/NJ .5B7.MJJ.5B26 KP7ISN2 ."3I/C6 OI2 3B3O/C+EGD""*M.2N520& 3F^ .=F-2 T+ECN
2B4.MJJ.5B42 [I. 7G60R 3H;E. R2"0*M.2V520& 3F^ *=B13TWH/NF .6B4.MJJ.5B62 [I. 7G62R 3H;E. V2"760.JV2*7B0+ICF/GB<2 T+ECN.2"6"0*M.2"520& 3FZ .+;O.=F160R 3H;E. Z2"460.JV2*9B0+ICF3F>+.<B82 T+ECN.2J6"0*M.2B660B 3R;I+TJ 3KOI3K& 3S> +FCF+TCO3TWH2 	R7GSH2 	S+D;E""
M.2F620^ 3O?T. R1"060.JZ2*2B03P	R+NCT2"	K+CCK+ICS3O[F2 ?T2 T3E2 7ESF2 	S+D;E""*M.2N620^ 3O?T. J1"660.JZ2*4B03P	R+NCT2"	F3ESL2 ?G+AGL*!J!.MJJ.6B5* S.36)/SN(.)N+.MJJ.6B62 ?G3SKU. N2"660.JZ2*7B07GSO/OF .6B4.MJJ.6B82 [I* 7F/O6<.-B12 T+ECN.2J7"0*M.2&620& 3FZ .
;O*2B03TWH/NJ .6B2.MJJ.7B06 KP7ISN2 ."3I/C6 OI2 ?W3B3B+Y6 *-B-+NCO3G?O+DF!""*M.2F720^ 3O?T. R2"0*M.2J760B 3R;I+TJ 3FWI+LCD3GGO+LF!"!6".J^2*3B0/SF(6)N=*(&1"+63.J^2*4B07GOO+UCB.2Z3"0*M.2V720^ 3O?T. R2"0*M.2Z720V 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