File GOLF.BA (BASIC source file)

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

61B 3R;I7TK\+ECM****2 ?M3D[I3IGC3T?I+NCS+TCO3TWH6 KO3I	G3N3A6 	B2 GD3VSI2 A+LB,3D
I3IGTL*M62B 3R;I+TJ * **6*^ 3EOL3OWM2 ?T2 T3E6 3A;Y3ASR2 ?C7USN+RCY7CWL+BB,+ACN3E
I3HWT+ECN3H3O+EB".MNJ6 KP7ISN* B"****2 C7ACM3I;O3S	H3P2 3A?Y+U3T2 ?L7CSA+ECD7JOU3TF 2 S7OSR2 	D3SGT3NWC""*M64B 3R;I+TJ * **2*Z 3R7O2 T3E" 7EKA3T> 3FJ 7EWA3T[I+UCL7D
O3N?T+WCN7M	A7NKA+DJ." *M65B 3R;I+TB"****2 T3EN 3O7M7ESN3A?T7R^ 3I3L6 E3PGL+ICN3TWH2 ?C7UOR3EF 7S& +OKU" *M66B 3R;I+TB"****2 3P+A;Y2 V 3N?J7Y& 7OKU2 GG/M/E2 WS7E& +OCU+ACT3TWH. &1+TCH3H3O+E:.".6"*JB73P	RN7T*JB83R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3
J 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M29R +ICM/LF("06).JB12 2 +ECT/G61*1B8.MJJ*0B 7LSE. KG"=60.JB32 2 +ECT/G63"0*M*4B02 WL3TF *=B0.MVJ*0B 7LSE. 7N".68.JB62 2 +ECT/S62"0*M*7B02 WL3TZ *=B1.M"J60B 3R;I+TJ 3WGH3T& 7S& +OCU3H;A3DOI+AKP";*M*9B07ICN+UCTH*M.1B02 [I. ;
*3B03TWH/NR *7B0.MFJ*1B0+ICF/HB<2 T+ECN.4B7.MFJ*2B03P	R+NKT3D[I3FOI7USL7IOE6 SA2 ?G+LCF3ION3LSU+EJ:" *M.1B36 KP7ISN."603H?O+KB,61N=3LOI+EB,62B=7OKO2 	D3SGT3NWC.,R 6=KT+ACP3S?H+T3S. 657PSU3T;I+GB".MFJ*4B03P	R+NCT2"W3IC2 ;O+E" 3O3N+YB)+ICS7YWO7R^ 7OOR/T.".M
J*5B07ICN+UCTT*M.1B62 [I. ;T65R 3H;E. J1"0*M.1B72 2 +ECT/S61"0*M.2B12 GR3N?D7M+IE*M.2B32 2 +ECT/LB(.)B=.MJJ*4B02 WL3T* *=B0.MJJ*4B52 WL7TF *=B0.MJJ*5B02 WL7TN .26 . KS*+B1.MJJ*6B02 WL3T. *=B0.MJJ*7B0+ICF/FF=2 T+ECN.3B1.MJJ*9B03P	R+NKT7YWO7RN 7CKO3E> 3N" 3
WL2"Z;.-.12"GW/S."S61.J&221^ 7OR /OF .7B5" *M.2J92 [I. GS*>/P62R 3H;E. &2"76 .J&223& 7FN 61B=2 T+ECN.2&9" *M.2R92 [I. GS*=7P61R 3H;E. B3"16 .J&225& 7FN 61B=*-B23TWH/NN *0B3.MJJ*9B6+GCO+TCO. F3"06 .J&267B 3R;I3T."7ECE2 ?Y+UCR3HGE3DR 3O;W".6".J&228^ 7OR /ON
"160.J&269B 3R;I3TF"2 GP+RB.3NOI3E^ 3O;I+GJ..MNJ*0B0+GCO+TCO.3B1.MNJ*0B13P	R+NCT*"CA7BKI3DWI""6 .JB322^ 7OR /ON "160.JB323& 7FB *=B33TWH/NN "066.JB364B 3R;I3TF"6 KG7ESA2 	B3GV 3A3G+EJ:.MNJ*0B5+GCO+TCO.3B1.MNJ*0B63P	R+NCT*"CA3H3O3E& 3N> +NKE.MNJ*1B0+ICF/FF
69R 3H;E. ^1"160.JF3*5B 7LSE. GS"=60.JF366B 3R;IT*M.3B22 [I. GS*=B03TWH/NF .5B9.MNJ*3B0+ICF/LB(.)F<2 T+ECN.1V1"0*M.3B42 2 +ECT/XB=" *M.3B52 [I* L.0:)65R 3H;E. F1"960.JZ360B 3R;I7TN"7HSO2 WW+NKT.;GD6;&"3ASR+SB.6 SI*	KS.;KD6;&"3ASR3SZ 3R7O2 T3EN +U;P""*M.3J
6 KP7ISN2"GB+LCL+IKS2;;I3T>(*)J;7YKA+DCS3O[F2 	L+N;E2.&.+NJ ";*M.3B82 ?G3SKU. B4"0*M.3B92 ?G+TCO.6B2" *M.4B02 [I* L/X6)61R 3H;E. "4"06 .JF420& 3F2 *(	X*=B23TWH/NV *0B0.MRJ*2B0+ICF7L"(.)N=2 T+ECN.5B2" *M.4B32 [I* L/X6)64R 3H;E. R5"06 .JR420& 3F2 *(	X*=B53T
H/NV *6B0.MRJ*5B0+ICF7L"(.)Z=2 T+ECN.5B8" *M.4B66 KP7ISN6"WO3T> 3FJ 3O;U+DKS" *M.4V62 ?G+TCO.1&6"0*M.4B76 KP7ISN2"
P7AJ 3UWL3S" 3ASN3IGC/P6 * B0+TCO*3J0.MRJ*7B27GSO/OF *5B0.MRJ*8B03P	R+NKT3F	A3RGW+YB".MRJ*9B07GSO/OF .6B9.MVJ*0B03P	R+NKT7RWO+GKH" *M.5B12 ?G+TCO.1&6"0*M.5B26 KP7ISN6"KT7EOE""6 .JN520^ 3O?T. Z1"960.JR560B 3R;I3TF"3DGJ3C;E3TZ 7AKI7W	A""*M.5B52 ?G+TCO.1&6"0
M.5B66 KP7ISN6"KT+AKP.MVJ*7B07GSO/OF .6B9.MVJ*8B03P	R+NKT7WSA+EKR" *M.5B92 ?G+TCO.1&6"0*M.6B22 [I. 7A61R 3H;E. J6"9*M.6F26 KP7ISN2"WS3LOE3T?I3N> 3FN 3LKUS6".JJ662B 3R;I7T&"3ASR3AWG2 WD7SKI+ECD* B * B * B * B * B * B 3S
U7GOE3TSE2 3C7UOB""6 .JJ663B 3R;I/TJ"*0B0+TCO.2B82 GY7ROD* B * B * B * B * B * B * B * B1+TCO* J4" *M.6R26 KP7ISN."B160R /OJ *0B07YKA+DCS* B * B * B * B * B * B . F 69R /OF *3B".MZJ*2B53P	R+NKT. B 2 ?T. B160& 3ASR+SB * B * B * B * B * B * B . &22 ?T. N2""
 .JJ6*6B 7LSE. 7A"16 .JJ669B 3R;I+TJ 3WGH3TN 3LKU2 ?D2 ?Y3UN 3H?O+SKE";6 .JN620& 7NWP3TN .MZJ*3B23P	RN7T.JN625& 3FN *<B13TWH/NZ "960.JN627& 3FN .>&22 T+ECN.6B9" *M.6B42 [I. ;C64R 3H;E. F7"0*M.6B52 [I* L.02)65R 3H;E. R7"06 .JZ620& 3FN .=R12 T+ECN.7B4" *M.6
62 [I. 7C*2B33TWH/N^ *4B0.MZJ*7B07GSO/OZ *9B0.MZJ*8B02 WL7TN .16 . GS*-B1.MZJ*9B03P	R+NKT3TGH3TN 3LKU6 OI2 ?N3T& 7NR +HCE3B
A".6".J&663B 3R;IT*M.7B02 ?G+TCO.6B2" *M.7B12 [I. 3C*1B23TWH/NZ *9B0.M^J*2B02 WL3TN *=7C"66 .JN720^ 3O?T. V6"06 .JR7*0B 7LSE. GS* B=+S.1"16 .JR7*1B 7LSE. 7W"16 .JR722& 3FN .>N12 T+ECN.9B6" *M.7Z42 [I2 ;I3TZ(*/&3*=?F63R 3H;E. V9"26 .JV722& 3FN *<B43TWH/N^ 
566.JV724^ 3O?T. Z7"06 .JV726& 3F2 *(&0*=B23TWH/N" *6B2.M^J*6B0+ICF/S:167R 3H;E. Z8"76 .J^7*0B 7LSE. GD2=;I+T"(.(B3*-	H**:2.5F+*867.(N(20"-*):**2.5*1&5**?C*2.)*2*53RSN*(	R")*M.7B82 2 +ECT/D617ISN.(GD**	W.M"J*0B0+ICF/TJ=2 T+ECN.1^1"06 .JJ860R *7"=3S;I.(GD.
B..0V3*)>)2(?C3SR(*1:*.0N0*5&).M"J*3B0+O"=3RSN*(&0./".*)"*22"*.+Z12)F*+BS+T&7.M"J*4B02 WL3TR 22&=+NT7SKQ6(;O22F++BS3DR-61:)*2&).M"J*5B0+ICF3DR-.1B<3TWH/N" "760.JZ820^ 3O?T. &8"06 .JZ862B 3R;I7T&"+OCU3DKU3BSE6 SI".6".JZ8*4B 7LSE. GD.=V3" *M.8Z62 ?G+TCO.8B3
 *M.8^62 [I. 3D.2B02 T+ECN.1B3"06 .JZ828^ 3O?T. ^7"06 .J^820& 3FR .2J<60R 3H;E. &8"0*M.8B86 KP7ISN2"?T3O6 3UC2 3C+U;B6 & +O
U+RCE7POA7TR +HCE3H3O+EJ." *M.8B92 2 +ECT3BR=" *M.9B02 2 +ECT3DR="2*M.9B12 [I. KD.>^22 T+ECN.1J0"06 .JJ920& 3FR .2J>60R 3H;E. F1*0B0.M&J*3B0+ICF/D:2*.B53TWH/NF .1B2" *M.9B42 2 +ECT/LB(.)&=.M&J*5B07GSO/OF .4B7.M&J*5B2+ICF+S.2+Q"+*1*0*(7F*1>)*1&82<Z(*-&1.*^
*2"+*(/H*1>)..V8*)>)*1B83TWH/N& *5B6.M&J*5B47GSO/O^ *5B2.M&J*5B62 WL7TF * B=/QF+" *M.9^52 [I. GS./222>;I7TN(.1J/6)R 3H;E. B1*1B1.M&J*5B87GSO/O" *6B2.M&J*6B03P	R+NKT7YWO2 GM3Y: +OCW3GGU+GCE7YWO3RR 7ISS3AON3EJ 7YB 3EOR7ESN. B.61R +O: *9J9" *M.9F66 KP7ISN2"W
3RWC+NCT3F3U7LN 3W;I+GJ ";*M.9B72 ;I7PSU" 7W.J^962B 3R;IT*M.9B82 [I. ;W61R 3H;E. "6"0*M.9V8* CI3F2 *(&0* B=65R 3H;E. J1*8B0.M&J*9B0+ICF/CF=64R 3H;E. Z7"06 .JB1*0B02 WL3TN * B=/CF-"0*M.1F020^ 3O?T. Z7"06 .JB1*1B1+ICF/D&<65R 3H;E. Z8"26 .JB1*1B23P	R+NKT3B3A
L" +ICT3TWR+E6 2 ?B3UON+ECD7ISN7OJ 3O
U/H."/D^-*5J;7YKA+DCS3F?R3M" 3OWL".6".JB1*1B42 WL3TR *=7D"765.JB1*1B87GSO/OZ *2B0.MFJ.0B22 [I. 3O*3B03TWH/NF .1B5.MFJ.0J22 [I. ;J60R 3H;E. F1*5B0.MFJ.0B32 [I. ;T60R 3H;E. B1*7B0.MFJ.0V32 2 +ECT/S69.(KS*+&1./V1.MFJ.0Z32 [I2 ;I7TN(.96)+SB93TWH/NF .0V7.MFJ.0
46 KP7ISN2"?Y3U" 3O/O+E7D. ."" *M.1V0*0B 7LSE* L.06)/LJ(")6 .JB1*5B5+ICF/OR>65R 3H;E. B1"962.JB1*6B07GSO/ON *2B0.MFJ.0B72 2 +ECT/S69.(KS*+&1./V1.MFJ.0F72 [I2 ;I7TN(.96)+SB93TWH/NF .0B4.MFJ.0V76 KP7ISN2"?Y7UN 3LOI+E7D. ."" *M.1"0*0B 7LSE* L.06)/LF(")6 .JB1
9B07GSO/OF .0V5.MFJ.0J96 KP7ISN2"GB7D	L".6".JB1*9B47GSO/ON *2B0.MFJ.1B02 2 +ECT/LB(.)V=.MFJ.1B12 ?G+TCO.3B2" *M.1J1*0B 7LSE* L.06)"8*M.1N1*0B 7LSE. KD2=;I3TR(.2N*")*M.1R120^ 3O?T. N1"860.JF1*5B02 WL3T2 *(&0"=61.JF1*6B07GSO/ON *2B0.MFJ.1B72 2 +ECT/D617ISN.
".25R*"16).JF1*8B07GSO/O" *3B0.MFJ.1B92 [I* L.0:)66R 3H;E. J1"660.JJ1*0B03P	R+NKT7YWO7RN 7HSO2 WW+NCT7ISN7O^ 3AWT+RJ..MFJ.2B12 2 +ECT+SB16=N .1F+" *M.1J260B 3R;I7TB"3EGN7L	T6 SS3R/O3EF 3SWS3SWS+DB.7HSI6 KF+OCM3PWR3V?I+UCS3LOO3A	T+O;N""*M.1N2*0B 7LSE. 7J/J
+" *M.1R2*0B 7LSE* L.06)"1*M.1R2*2B 7LSE. 7DB6 .JJ1*5B07GSO/OZ *2B0.MFJ.2B66 KP7ISN2"?Y+UCR3S?H7T^ 7ESN6 WO3T> 3FJ 3O;U+D;S""6 .JJ1*7B07GSO/OJ1*1B0.MFJ.2B82 [I. 7T63R 3H;E. N1*2B0.MFJ.3B02 2 +ECT/D62*1"+23&*+NT.(B8./R(20"-*)*)3RSN*(	R")6).JN1*1B07GSO/OF .
B8.MFJ.3B22 [I2 ;R7DJ(2):>2 T+ECN.1Z3"0*M.1N3*0B 7LSE. 7N+N:*"2*M.1R360B 3R;I7TN"7HSO6 WD3BWB+DB,3S	T+LCL+ICN3TGR+PJ." *M.1V320^ 3O?T. J6"06 .JN1*6B02 WL3T: .="..MFJ.3B72 ?G+TCO.1B3"0*M.1"360B 3R;I3T>"7NR +HCE3GWR+EKN.;KD2;Z"7ESE6 KF+OCM3TWH2 	P+NJ..MFJ.3
86 KP7ISN2"C7OOO7E& 7OKU6 WP+TCT7DOI3T;A+CCE+BCY7PSO3EON3Y: 3UKM+ECR61R /OF *3J..MFJ.3J86 KP7ISN6 B"7UST2 ?P3T;E+CCY3N7U7BKE*"B;.MFJ.4B02 ;I7PSU" 7I.JR1*1B02 WL7TN .16 . GS*+B1.MFJ.4B22 [I. GS*+61+P">+H:*.0J7.)J+2 T+ECN.1^4"06 .JR1*2B5+ICF/KJ>2 T+ECN.1^4"
6 .JR1*2B82 WL3T. *=/K"16 .JR1*3B0+ICF/TR=2 T+ECN.1N5"06 .JR1*4B02 WL3TR 22R=22&-.*R(*+*23RSN*(	R.)F+".65.JR1*5B0+ICF/D22*-B23TWH/NF .5B6" *M.1Z420& 3FR .2J>2 T+ECN.1B5"0*M.1^460B 3R;I7T&"+OCU3H3O+ECD+IKT.MFJ.4J76 KP7ISN.MFJ.4B82 2 +ECT3FZ=*+B1.MFJ.4B92 ?
+TCO.2B3" *M.1B560B 3R;I7TB"7UST2 S7OSR*.B".MFJ.5V02 2 +ECT/D627ISN.(KD")*M.1F520^ 3O?T. N1"860.JV1*3B02 WL3TR 22R=22&-.*R(*+*13RSN*(	R.)F+.MFJ.5B52 ?G+TCO.1V4"0*M.1Z560B 3R;I7TB"7AOS+ECD+BCY7CCU".6".JV1*7B02 WL3TR *26=D62.JV1*8B07GSO/OF .5V0.MFJ.5B92 WR+
CD7DB,*,L*12)/LJ(")6 .JV1*9B53P	RN7T.JZ1*0B03P	R+NKT7YWO6 KA3EF 7TR +ECE+OCF3H3O/E."+FJ;2 	D3SGT3NWC2"R;6;&"3ASR+SB,7PKA6"B;";*M.1B6*5B 7LSE. OG.=OG*+CP.MFJ.6B26 KP7ISN2";O2 ?Y+UCR3R
I+HCT+ICS""6;.JZ1*3B02 WL7T" *=B1.MFJ.6B42 ?G3SKU. B4"0*M.1V660B 3R;I3T>"7N& 7OKU2 WL+FCT+ICS*"B;.MFJ.6B62 2 +ECT/XJ=" *M.1^620^ 7OWS/BR "060.JZ1*8B07GSO/OZ *2B0.MFJ.6B92 WR7TKUN6 .J^1*0B07DSA/AN *621.4R,*,22.3&8*,24.3N,.,B2.6N,*,24.2V,*020.5^,*,B2.MFJ.7J
2 GD+TCA.4"0*,24.2R,.,V3.9R,*,26.4R,*224.4R,*,22.3"8*,24.4R," *M.1B724R 3AGT. &1.6N,*,27.2R,*020.4^,*,22.5B6*,25.7J,.,N1.2N,*,22"26 .J^1*0B67DSA/AN *527.4R,*,24.2R9*,24.2R,.,^4.5V,*,22.3N,*725.4R,*,B2.MFJ.7"02 GD+TCA.1B8*,23.6J,.,V5.0V,*,26"66 .J^1*1B03P	
N7T.J^1*5B02 WL3T^ 22^=62N+"1*M.1Z760B 3R;I7TR"3OGT7LB +ACR7FKO2"Z;.-.12"?H7LOE6 OI2"^;*3J;2 ?Y+UCR7TSO+ACL+IKS.;KG.MFJ.7F62 [I. GG*=7F61R 3H;E. ^1"760.J^1*6B57GSO/OJ *9B2.MFJ.7B72 ;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