File FOTBAL.BA (BASIC source file)

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

61J +ECM* B 6 KP7OKG+ACM3W	R3TWT3NJ 7YJ 3A7Y3OSN* ;W2 	M7S	EK7A*JB23R7E* B 6 N 3E	N+OCR+ACT2 J 3U3T+ECR3S;E7IKO2 	H+GCH3SC3O3O.MNJ2 WR+MB * B * B * B * B * B 7BSU7LKE6,B 3E;N3S3Y3V;A+ICA.1B6*0B1.MRJ2 WR+MB * B 7DSA+EB:.1N/.0^/"3*M65J +ECM* B 2 ?C7MWP7TKE6
WS7PKE7VOI3I;O2-6 +RB.3W3I3LGI3MV 3L	LS*M66J +ECM* B 2 ?C7MWP7TKE2 ?T3POI3S& 7NSS3ROU3T?I+NB-+M;R2 3A7BKE7TN 7T
E7ESR.M^J2 WR+MB * B * B 2 & 6 KW3OWT2 T+ICS3P?R3GGR3MJ 3EGC3UWS2 [O2 T3EN 3H3A3L;E+GCE.M"J2 WR+MB * B 7I[N7O[L+ECD+ICN3OWV3R?C3M;I7GR +HCE3C7O3PWL7XSI7IOE2 [O6 WS+CCH3A^ 3AWM" *M69J E7M.JB12 WR+MB 2 N 7O[N7ESR+ECD+TCO7BOA+I7C7PWL3SZ +OCR7RSS3SV/6 	B2 GD+
CE3A3H2,R 3I	G3T3A.MFJ61J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MFJ*2B03D7I* A*2&0*,B*2&0*,C*4&0*,H*22)/TJ(6)^,*(&2*,X*22)/YJ(6)*,*(&2.MFJ*3B03D7I* SM*(&2*,D*2B).MFJ*4B03P	R+NCT2"GR7MOI2 ;E7TKE3P	R7SOE6 KP3EWS7NOT* ;N7
V.2.Z 7OSO3B3A3L:(3OZ 7OSR3R;A6 OU+E	D""*M.1V46 KP7ISN7\KP7ISN.MFJ*5B03P	R+NCT2"?D2 ?Y7U^ 3IS2 ;I7SKT7USC3I;O+SJ?2;	\7NWP3TF "$*M.1V52 GR3N?D7M+IE*M.1B62 [I* SA2=:"+OB"3TWH/NJ 6920+ICF/A2$6>&"+EKS2 T+ECN.1B5.MFJ*7B03P	R+NCT2"T+ICS+ICS3A^ 3AWM2 ?F/RJ 2 WT7
OM2 ;I2 W3IC2 GE+CCH3PGL7YKE6 WM+SKT" *M.1B86 KP7ISN6 B"7RCE3AWR* CA7TCA7E^ 3IT* CA7DSA7AN 7TSA3EWM+NT.1^720Z +OCR3TGE/MF ""6 .J&160B 3R;I+TJ .1"720Z +OCR3TGE/MJ 2);I2 W3IC2 GE+CCH3TGE7MN 3CGR3M3B+ECS7NOO..F .-B2""6 .J&165B 3R;I+TJ 3TWH+SCE3N7U7BKE3SF +RC
3TWH3NF 3S	S3GWN7DR /OJ 20^ 3IWV7NB 7L	A+SJ." *M.2B06 KP7ISN2 F"2 	L+SCT+OCF7NOO2.F +NCD3TWH+ICR3PGL+YCS3AWR6 KP3O	V3DSE2 	W+TKH" *M.2B16 KP7ISN2 J"3OT2 WT7AOM2 GH3V;I7GR +HCE3S7A7EB 7L	A+SB.3TWH2 ?M+RCE3S7I3IGL7RR +HKE" *M.2B26 KP7ISN6 B"7L	A7SR +HCE7LOE
S& 3ASR3AWG2 GG3IWN+DB.3S?C7ROE6 KA3E^ 3IWVN6".JJ263B 3R;I+TJ 3WWH7N[E+ECR3S?C7ROE6 KA3E6 3AWD6.N 7CKO+ECS7M	A2 3A+SCO+BCE7OSB3A;I+EKD.MJJ*2B53P	R+NCT6"	B2 ;I7PSU3I
N. &9.,&92 ?F7RB 7L	A2 ?N+S:.2 ?T6 WP+NCT+OCR7AST7ECM3TF ""*M.2^26 KP7ISN2 Z"3I3E3D?G+A3L2 ;I7PSU. ^7.,^72 ?F7RB 7L	A2 ?N+S:.6 WQ7ESS3I;O7S^ 3I3L2 WB""*M.2B36 KP7ISN2 F"3SWK7DR 3H;E2.> /NR +TCH7D
O7N& +OCU3W3I3LF 3L?S2 WB6 OA3KSE2 W3ET+EKR" *M.2B46 KP7ISN6 &"+OCU3W;A7TR 7OB 7USN6 KO6 SA3T7E+PCT3AZ 3I3E3D^ 3O3A2.& 7FR +HCE7AON7WKE""*M.2B56 KP7ISN6 R"3OJ 3OT6 WQ7ESS3I;O3S& 3S: +OB,+ICT3W3I3LJ 3EF 7SWS3MSE2 ?Y7U^ 7ASN2 ?T""*M.2B66 KP7ISN6 R"+RCY3ASN2
GG+ICN7YKA3D
A+EB.7AON7WKE2 3A7LF 7UOE3T?I+NCS7YOE6 KO2 ?N".6".J^260B 3R;I+TJ 3G7A3E& 7SB 7L	A+ECD7USN+ICL3PGL7YKE7SR 3E7R3IGN+TCE2(?C7NKT+O7L+C:)""*M.2B86 KP7ISN6 B"3LGE+SCE3PWR7PKA3EF 2 GT+PCE3ASN6 WR+NB.""*M.2F86 KP7ISN2 :"3OWT2:> +SB87VKE3S?I+N6-7YWO2 WN+ECD7NSO6 
P3EGP+RCE3TWH2 GD+TCA3SGT3M;E+T7S"-6".J"262B 3R;I+TJ 7YWO2 GM7YV +SCE3TWH6 E7ISS3I
N6 KP7OKG+ACM3SGT3T7E7ESN+SJ..MJJ*9B03P	R7N3T3P	R+NCT2";I7PSU2 OS3OWR2 	L7MSI2 ;O2 GG+MKE2;	\7NWP3TV " *M.3B02 ?F3R& *=B1+TCO64203RGE3D: 3\[I. ;I*2B03TWH/NN "560.JN320F *(	N6=3I7GSO/ON "660.JV320J *(	N*=7I"260.JZ320N *(	I6=3N7NE3T& .MNJ*8B0/LB=/\7T"1*M.4B
6 KP7ISN6 R"3E7A6"R;6;B"7L	A2 C7ASR""*M.4B26 KP7ISN2 :"+OB.* B 3PGL7Y2"3P	RN7T.JN460B 3R;I3TN *(.1/L.)3TKA*(&66;B"3IOT7HWO+TB".MRJ*4B03P	R+NCT/CJ(*+	L2;GT/BZ(*)J;3T	R3PWL2 WR7VKE+SKE" *M.4B56 KP7ISN* C232+6)R;+AB.6.)6"KD+AKW" *M.4B66 KP7ISN* C242+6)R;+AB.
.)2"KQ2 ;S3E/A""6 .J^460B 3R;I3TN *(.5/L.)3TKA*(&62;V"+NCD3A?R3USN""6 .J"460B 3R;I3TN *(.6/L.)3TKA*(&62;R"3OKU+LCE7R[E7EOR+EB".MRJ*9B03P	R+NCT/C^(*+	L2;GT/BZ(*)J;3L[E7TN 3WWE+PB".MVJ*0B03P	R+NCT/C"(*+	L2;GT/BZ(*)J;3R
I+HCT3SWW+EKP.MVJ*1B03P	R+NCT/C&(*+	L2;GT/BZ(*)J;3O[F2 GT3C3K+EB".MVJ*2B03P	R+NCT/CF(202+6)R;+AB.6.)2"	W3SKH3OWN6 CO3T?I+NB".MVJ*3B03P	R+NCT/CF(212+6)R;+AB.6.)2"3F3AWR2 GP+SKS.MVJ*4B03P	R+NCT/CF(222+6)R;+AB.6.)2"OS3RWE7NB 7AOS""6 .JV560B 3R;I3TN .(N1*+	L2
GT/BZ(*)J;3R3O3L> +UCT7OSP3I;O""6 .JZ560B 3R;I3TN .(R1*+	L2;GT/BZ(*)J;3R
I+HCT7CKUL6".J^560B 3R;I3TN .(V1*+	L2;GT/BZ(*)J;3L[E3TN 3U3R""6 .J"560B 3R;I3TN .(Z1*+	L2;GT/BZ(*)J;7WOI3H?B+NCE7OSP3I;O""6 .J&560B 3R;I3TN .(^1*+	L2;GT/BZ(*)J;3SSI3E	L+NCE7POA+SB".MZJ*0B03P	R+NCT/CF(282+6)R;+AB.6.)2"GH+L7F3BOA3K> 3P	T+OKN.MZJ*1B03P	R+NCT
CF(292+6)R;+AB.6.)2"GR3Z3Z3ER 7A+Z+LKE" *M.6B26 KP7ISN* C*2.0/L.)3TKA*(&62;J"3OKM*!F!*!F!*!J!.MZJ*3B03L2=.+B2/\7T"26 .JR660B 3R;I7TC\3R;I+TJ 3TGE3R> +FCF7HKE+E6 *-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-6".JZ620Z +OCR/XF=2 ?T. F17\KP7I
N3\WN+XCTX6 .J^620Z +OCR/ZF=2 ?T. B360207NE7T* " *M.6B82 [I. 7L*2B03TWH/NR *1B0.MZJ*9B0/DF(.)B=+\D.26)237\.$F(*)J=*-6-6>2"+M"$.26)*"6<*-J-.M^J*0B0/HF(.)B=+\H.26)60S\*(&16=22/TJ(.)F=.M^J*1B0/WF(*)6=61
\*(&26=21/XF(.)F=6020/XJ(.)B=" *M.7B2* Y.16)61	\*(&2.=F-+\Z.16)60+\*(&2.=B1"06 .JJ725^ 7OWS/BF .9B1" *M.7B36 KP7ISN6 R"3E7A* B13D[E3ESN/SB 2 SY2.^ 3O3A6-R-3E7A* B23D[E3ESN/SF *0B0+Y;D2 ?G+AKL" *M.7B4. 7T7ISN*(*23RSN*(	O*+&1.M^J*6B03P	R7N3T3P	R+NCT2"T3EN 3
;I6 OI2 3F7ICP+EKD.M^J*6B57P"=*(	T*-Y+T*)*4B0.M^J*7B07GOO+UCB.1Z8"0*M.7V76 KP7ISN7\KP7ISN6 R"3E7A6"R;6;J"3EWC3IWV3S. 3I/C2-[OF6".J"720. 2=;I/TJ(66J*+ND+O.)*4&0.M^J*9B07PB=*-Y+T*)K6 .J&724& 7F^ *(	T.*3P7ZR(.)F+60R 3H;E. F860C\3R;I7TC\3R;I+TJ 3B3A7L^ 7ESN6 
O3T> 3FV 7N+D3OWN""6;.J&765B 3R;I+TJ 2-F-3U?T7MSA+ICC7TWO3CKH3A/C*-J-3\?G+TCO.8B7" *M.8B16 KP7ISN7\KP7ISN2 J"3A3L2 WW+NKT.;/K2"GY7ROD2,: +OCW+OCN6"B;3\?G3SKU. &1"060.JN860B 3R;I+TJ 3TGE/M."+TJ;+DCO7YWO2 GW+NCT+TCO3R;U3BOA/K."3\;I7PSU* SA.M"J*4B0+ICF/A6$2"
Y+SB"3TWH/NF .4B33\[I* SA*<J>+NKO2 T+ECN.8B3.M"J*5B0+ICF7WR(6)B**<Z+TB)3TWH/N" "860.J^860B *=Z+T6)7WR(.)J*"06 .J"820R 6=217SB=.M"J68B53R;I/T6".=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=.=6=*=J=.M"J*9B03P	R7N3T3P	R+NCT2"WT+AKM.
/T2"?D+WKN.;/D2";O. ."P6;.J&823& 3FR .<F>2 T+ECN.9B0" *M.8V92 [I* Y+T*)*(/P7YR(.)F*.0:)*=X+TB)3TWH/N" *9B8.M"J*9B7/CR=3\?G+TCO.9B0" *M.8"9. 7C"8*M.9B02 [I. 7C68R 3H;E. B9"4*M.9F06 KP7ISN2 GT/BJ(.7.)*160*(Y+T*)7P&-*(	T**	S6;&"3ASR7SR /OF +SCT7D
O+NB".M&J*0B27GSO/O& *1B0.M&J*0B43P	R+NCT3TKA.(^26)";*(	T*-Y+T*)+PJ;7YKA+DCS+TCO+GKO.M&J*1B07GOO+UCB.1B920	\3FR *=B43TWH/NF .1B8.M&J*2B03R;A3D7O3IWZ.M&J*3B03U&=+NT63J*+ND+O6)612)7GSO/O& *4B0.M&J*3B63P	R+NCT2"3I3L
E+ACL3PGL3Y: 3UKM+E3R2 C3E/C2 ;A+DB".M&J*4B03P	R+NCT2";I7PSU2 [O3F;E7S[I7EB 7L	A2,R 3EWF3N	S+VCE3PGL/Y.".M&J*5B0+ICF/TJ=2 T+ECN.9B7.M&J*6B07ICN+UCT+P217P227GSO/O& *7B5.M&J*7B07ICN+UCT+P22P61.J^925& 7FB .1^=67R 3H;E. F1*8B0.M&J*8B0+ICF/P:1*2B07GSO/OF .8B03
[I. GP*<B17GSO/OF .8B0.M&J*9B0+ICF/P:2*2B07GSO/OF .8B03\[I. KP*<B17GSO/OF .8B0.M&J*9B5/P617ISN.(GP6)C\22&=+NT+P&2.MFJ.0B0. 7Y7ISN2(KA3SF(.(GP2)J-.(KP*)>)*1*96("(*(	T*-Y+T*)/PJ+*5*)3RSN*(	O.-V1")6).JB1*0B53P	R7N3T+ICF/TJ=2 T+ECN.1F0"56 .JB1*1B0+ICF7AB(.12)
1B13TWH/NF .0"43\?G+TCO.1J0"0*M.1F025& 3FJ .(KP.)F<61R 3H;E. B1"468.JB1*2B0+ICF/U:<60R 3H;E. B163253P	R+NCT2"GP+SCS3ION7OCM7LSE7ER 3E7A6"R;.MFJ.0B3. 7Y20
\3O?T. B1"560.JB1*3B57GJ=+ND602)+ICF+G:<.0V22 T+ECN.1R020	\7F& *>B23TWH/NF .0V4.MFJ.0B46 KP7ISN6 F"7UKA7TKE3BOA7KN 3CGR3M3B+EKD3\?G+TCO.1V0"0*M.1R065B 3R;I+TJ 7POA3SN 7OCM7LSE+EKD3\?G+TCO.1V0"06 .JB1*4B83P	R+NCT2"T3EJ 3A3L2 GW7SJ +UKN" *M.1V060B *=7P7WR(6
&*" *M.1Z060B 3R;I7TC\3R;I+TJ 7NSE2 GY7ROD2 GG3IWN3D> 3NR 3O;W2"R;2;F"+RCE6"&;.MFJ.0B7. 7G3RSN*(	O3\[I. ;G..J065R 3H;E. F1*1B0.MFJ.0B86 KP7ISN7\KP7ISN* *"2*2 7OOS2 [O2 ?P3SWS3S	S+OCN3F?R7MR 3E7A6"R;6;R"7OR 3E7A6"R;*(	T.MFJ.1B02 ?G3SKU. "165203P	R7N3T7TR=*
	T3\?G+TCO.8B3" *M.1F120& 7F& *(	T.*;P*=X+TB)3TWH/NF .3B2" 6 .JF1*2B0+ICF7WR(6)B*6>*=*(	T2 T+ECN.1N2*0B .MFJ.1B32 [I* Y+T*)7P&-*(	T.*;S.=B12 T+ECN.8B8.MFJ.1B4. 7D/DF+3\[I. 3D*>B53TWH/N" *8B5.MFJ.1B66 KP7ISN7\KP7ISN2 N"7O[N7EOR3I;O2 ;U3SOU7COE7SWF7LR 3E7A6
R;/\7T7TR(")*M.1^120^ 7OWS/BF .8B53\?G+TCO.8B8.MFJ.1B86 KP7ISN2 R"7OOE2 WT+AKM.;/T2"GW+NCT+TCO3P;U/T."3\;I7PSU* SA.MFJ.1V82 [I* SA2=:"+OB"3TWH/NF .2B03\[I* SA*<J>7YOE6"R 3H;E. F1"860.JF1*9B03P	R7N3T3P	R+NCT6 R"3E7A6"R;6;^"3I3L6 WP+NKT/\7G3RSN*(&03\[I. 3G.
J065R 3H;E. B1"860.JF1*9B57GOO+UCB.1V820/\2=;I/TJ(65J*+ND+O.)*3&5/\7T7TR(2)
\3O?T. &7"06 .JJ1*0B03P	R+NCT2"?D+ECS3TGE/M."+TJ;3W;A7TR 3OF 3TWT7MSP* CA3FWI+L7D3GGO/L."3\;I7PSU* SA.MFJ.2B12 [I* SA6=&"+EKS3TWH/NF .6B43\[I* SA*<J>+NKO2 T+ECN.1B220
\3O?T.9B2.MFJ.2B36 KP7ISN6 C\3R;I+TJ 3S[A7E	T2 
A3A;I+SCT3TGE/M."+TJ;*-6-*-6-*-6-*-6-*-6-*-6-2-O2-O""*M.1R220" *(T+T&)*=H7TR(*).)22
\7OWS/BF .8B1" *M.1"260B 3R;I+TJ 3TGE/M."+TJ;+DCO7YWO2 GW+NCT+TCO3P;U3T& 7NSS3ESA2 [O* CA3KOI3K[O/F."3\;I7PSU* SA.MFJ.2B9. 7P7ZR(6)^-*(	T.*B23\[I* SA6=&"+EKS2 T+ECN.1&1"06 .JN1*2B03P	R7N3T3P	R+NCT2"?T3UC7D
O3NJ 7YR 3E7A6"R;*;*"************************6*&*+ECA3TGEM6".JN1*4B0/Q^=/\7G3RSN*(	O3\[I. ;G*.B13TWH/NF .3B8" *M.1Z360F 6=263P	R+NCT6"E3TGR2 ?P7ISN2 ?N2 ?G+OKD3\?G+TCO.1&3"0*M.1"360B 3R;I+TJ 7ESX+RCA3P	O+NCT3G?O+DB".MFJ.3B9* H/T6)7HR(6)F+3\?G3SKU. "1*1B0.
FJ.4B2. 7T7TR(2)
\3O?T. Z7"5*M.1N420. 2=;I/T&(2*;R3D>(.)F+")*M.1R460J 2=;I+T"(*(X+T6)7YR(6)B*.+V26)J*+ND+O6)*1&5*/	K.MFJ.4B6. 7P7P^-*(	T**CR.MFJ.4B86 KP7ISN7\KP7ISN6 J"3UKN3A/C2 WT+AKM.;/T+RJ;7YKA+DKS.MFJ.4V82 GR3N?D7M+I3E
\2=;R3D>(2)	\3F^ .<B.*2B53TWH/NF .0B8" *M.1&420& 7F& *(	T.*;P*=X+TB)3TWH/NF .3B2" 6 .JV1*0B0+ICF7WR(6)B*6>*=*(	T2 T+ECN.1N220
\3O?T. "8"0*M.1R660B 3R;I7TC\3R;I+TJ 3TGE/M."+TJ;3W3I3LF 3TWT7MSP* CA3FWI3L
D3O3A""*M.1R665J 3ASN3O	M7Z3E7GJ=+ND7O2)+ICF+G:<.0V22 T+ECN.1"0"06 .JZ1*5B03F&=+NT*3*53RSN*(	O.+B2")*M.1Z660B 3R;I7TC\3R;I+TJ 3KOI3K& /S."+FJ;7YKA+DCS3L;OG6".JZ1*8B07PB=*-W+T*)7FK\3ASN3O	M7Z3E7GJ=+NDO6).JZ1*9B03I
F.<N.25T/EGN.7V3.MFJ.7B02 [I* Y+T*)7P"<*(	T2 T+ECN.1R7"06 .J^1*1B03P	R+NCT2"	F3ESL3GGO3L^ 3OSO2 ?F7RR 3E7A6"R;*;*"********************2*WYA6".J^1*2B0/QN=3\?G+TCO.1&3"0*M.1N765B 3R;I3TJ"3A3L2 WW+NCT3WSIE6".J^1*4B03P	R+NCT2"	F3ESL3GGO7LV 7NWS3CWC3S[S+UCL3TG
/M."+TJ;*-6-*-6-*-6-*-6-*-6-2-?T3OJ +AKD.MFJ.7J42 ?G3SKU. "1"560.J^1*4B3+ICF7YR(6)B**<X+T.)*1B03TWH/NF .7V4/\7T7TR(2)
\3O?T. &7"4*M.1R765B 3R;I7TC\3R;I+TJ 3B3A3L: +OCW+OCN""7P.J^1*5B07TR=*(	T3\?G3SKU. &160207GSO/O" *3B0.MFJ.7B72 GD+TCA*127.8R,.,R1.,&1*,23*120.1^,.,F1.,V1*,29.5J,.0F,.3F,.8F,.6J,.,J1",66.J^1*8B07DSA/AJ .0J,.,^1*,25.8F,.8F,.2F,.1F,*,24*129*124*120.7&,.,V1*,
6*123*126"3*M.1B820& 7FB .1:<*9B93TWH/N& *3B6.MFJ.8B16 KP7ISN7\KP7ISN6 R"3E7A* B13S?C+RCE+IKS*;H"16).J"1*2B03P	R+NCT2"WT+ACM62N 7CKO3E& /S."/HJ(6)C\3R;IT*M.1J825& 3F" *(	T*<CE3TWH/NF .8B37\KP7ISN6 R"3E7A6"R;6;^"7ION* ************J*3\?G+TCO.2B0"0*M.1N820& 
FB .1&=69R 3H;E. R9"0*M.1R860J 7EWTR7N.J"1*5B03P	RN7T.J"1*6B03P	R+NCT*".+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+*+.+""*M.1^860J 7EWTR7N.J&1*0B03P	R+NCT3TKA*(D+T.)66B+*/&2*;SM*(	T.MFJ.9B13P	R+NKT3TGE/MF . B(* B *1B0. J *0B 
 B3* B *4B0. V *0B . B6* B *7B0. " *0B . B9* B .1B02)WT+ACM"26".J&1*2B03P	RN7T.J&1*3B07RSE3U;R.MJJ.0B02 ;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