File BOWL.BA (BASIC source file)

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

*2B03F3I+EOV*1J:/T+V6"2 3P	R+NOT61B:+NT.1J06)2 3P	R+NOT*1B:7\KP7ISN.*1.M&J*0B 3R7E3A/R2 ;A3D> 3R
I3IGN3L& 3DGE2 ;A7DB 3R
O3R7A+ECD+BCY7PWA7LB 3EGR3I?N.MFJ*8B02 WR7MKA3KZ 3R7O2 ?W7OKD+OCW3W3I3S;O2 	H+GCH3SC3O3O.MJJ*0B03R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M.2B72 	D3MN .(V12)F,.(B1.0Z,")*M.3B46 KP7ISN.*1*"B * B * B * B * B * B * B 3B> *
CW3L& * CN+GJ .MNJ*5B03P	R+NOT*1B:7\KP7ISN.*16 C\3R;I/TF":*M.3B66 B 3R;I/TF*:B"* B * B * B * B * B 3W3E3C7O7ER 7OR +HCE3A3L+EKY6 C\3R;I/TF":*M.4B56 B 3R;I/TF*:B"* B * B * B * B * B 6 KB3I
N2 ?Y+UCR3F	R3ESN+SB"7\KP7ISN.*1.MVJ*4B06 KP7ISN.*1*"B * B * B * B 3OGK3Y2 +E
T3SZ 7IOR3T^ +ECT7AGC3U	A3NWTD6".JN660B 3R;I/TF6:C\3R;I/TF6:2 3P	R+NOT"16:.JJ760B 3R;I/TF6:^"7ASN2 ;I7SKT7USC3I;O+S" 3Y> 3R: .).".M^J*3B03C?L+SCE*B13\	F+LOE*2J:/T+V""*M.8B12 & 7NWP/TJ6:* *$B 3\3C3OWS. J6 2 3F3I+EOV*1J:/T+V6"2 3P	R+NOT61B:+NT.1J0")*M.9B02 
 7F* *$J=+YB"3TWH/N& "960.JZ9*0B +ICF/Z6$*"KN2 T+ECN.1N5"0*M.9B96 B 3R;I/TF6:R"+HCE3G7A3E> 3FJ 3O3W3I
N2 GT7KOE2 	M+NCD3ASN2 /S3I3L6.WD3R;I7GR +HCE3G7AE6".JB1*8B03P	R+NOT*1J:3TWH2 ?C7MWP7TKE2 	W+LCL3KWE7PN 7CKO7E&.+OCU7M	A2 ?C3MWP+TCE7WSIH6".JF1*7B03P	R+NOT*1J:3OT+ECR3PGL7YKE7SW[7PR 3OZ 7OKU7]&.+OCU3W3I3LJ 7EB 7L	A3I
N2 WT3NZ 3R7A+EKS.MFJ.2B66 KP7ISN.*12";O2 T7EB +ICN3DGI3GGR+M^ +OB	3MGE+NCS3TWH2 	P3N& 3SR 3O;W*.:.*	^+2 WM7AON2 TE6".JN1*5B03P	R+NOT*1J:3P;I6 OI6 SS3ASN3I
N2.[A7TKE2 T3E^ 3AWM2 T3EN 7OCM3UWT7R^ 3I3L2 S+OCW7YWOR6".JR1*4B03P	R+NOT*1J:3S?C7ROE* J..MFJ.5B36 KP7ISN.*16 C\3R;I/TF6:2 3P	R+NOT"16:.JV1*3B16 KP7ISN.*12"	F7RSS2 [O2 3A+L:.2.?H3W6 7A	N6 KA7EB 7L	A3I
N""*M.1R520^ "=61.JV1*5B03C?L+SOE612 3F3I/EJ6:R"+VJ:.MFJ.6B22 & 7NWP/TJ*:CR2 O\7LOO+EN 622 3F3I+EOV*1J:/T+V""*M.1F7*0B 3P	R+NOT"16:.J"1*0B06 KP7ISN.*12"WV+RCY3G?O+D:.".6".J"1*1B07FKO. 7I61R /OF "060.J"1*2B07FKO. 7J61R /OZ .MFJ.8B3* A3I*,.)B=.MFJ.8B42 WN+X
TJ*M.1V820: 7ESX" 7I.J&1*8B0. 7F"1*M.2^0*0B 7FKO. 7P61R 7OJ .MJJ.1B62 6 "=60.JJ2*5B0. 7B"1*M.2R3206 6=20/QB=.MJJ.4B02 ?F3R& *=B1+TCO"165.JR2*1B03C&(.)B=.MJJ.4B22 WN+XCTI*M.2J5*0B 3R7E3A/R2 GB+LCL3G;E3EGR7TKO6 OU3I
N2 ?M+D^ *1^56 	S3SWTM*M.2F660B 3R;I/TF6:B"7L	A+EKR.;/P*"6-6 	T+PCE3R3OL6".JZ2*2B03C?L+SOE612 3F3I/EJ6:R"+VJ:.MJJ.7B02 & 7NWP/TJ*:SN6 2 3C?L+SOE622 3F3I+EOV*1J:/T+V6"2 3P	R+NOT61B:+NT.1J0")*M.2&720. 6=20/DB=.MJJ.8B82 Z +OCR/IF=2 ?T. B2.MJJ.9B76 " 2=;I7TJ(
ND+I*).1B0")*M.3Z0*0B 7FKO. 7J61R /OF "0*M.3V1*0B +ICF/XF<25**2 T+ECN.3N3"0*M.3R2*0B 7NE3T* .MNJ.3B3* C*1*57J"-.)F=.MNJ.4B22 : 7ESX" 7I.JV3*1B02 WR7MKA7KB +ICN3DGI3GGRM*M.3B660B 3R;I/TF*:J * B * B * B * B * B 2 3P3AWY+RJ:.;/P*"B 2 Z 3R7A.:."+FJ;* B 2 GB/L
L2"J;.MNJ.6B9. 7V"0*M.3&661B 3R;I/TF6:2 3P	R+NOT*1B:7\KP7ISN.*1.MNJ.6J92 Z +OCR/IB=2 ?T* B3/\7V/VF+.MNJ.7B86 B 3R;I/TF":*M.3^8*0B 7FKO. 7J61R /OR "-7I.J&3*6B0. 7K/KF+.MRJ.0B52 [I* C/K6)61R 3H;E. N4"260.JF4*4B03P	R+NOT61R:+AB*2.0*(*2+I.)/V.)*"B *+B . .".MR
.2B32 ^ 3O?T. R4"160.JN4*2B03P	R+NOT61R:+AB*2.0*(*2+I.)/V.)*"B +OB . .".MRJ.4B12 : 7ESX* CJ7\KP7ISN.*1.MRJ.5B02 : 7ESX" 7I.JV4*9B03P	R+NOT*1B:6 C\3R;I/TF*:B 6 2 3P	R+NOT"16:.JZ4*8B02 WR7MKA7KJ 3O3L2 ;A7A	L7SOI.MRJ.7B72 Z +OCR/IF=2 ?T. B1.MRJ.8B6. 7D3DN+*(
I.MRJ.9B52 : 7ESX" 7I.JB5*4B02 [I* 7D/M2 .>B 2 T+ECN.5J2"0*M.5N1*0B 3P	R+NOT*1J:* B * B * B * B 2 ^ 7UST+EGR"!6".JJ5*2B0+ICF/B:<21^ 3O?T. R56920+ICF/D:<*1B07GSO/OV .4B9.MVJ.3B16 B 3R;I/TF*:B"* B * B * B * B 6 SS3R/I+EF!*!F!""*M.5B4*0B /QN=.MVJ.4B92 [I. 3B
>B27GSO/OV .7B63\[I. 3D.>B12 ?G+TCO.5Z7"0*M.5"5*0B 3P	R+NOT*1J:* B * B * B * B * B 3SGP+RGE*!F!""*M.5^6*0B /QJ=.MVJ.7B62 [I. 3B*>B27GSO/OZ .0B33\[I. ;D.=B12 ?G+TCO.6N0"0*M.5V8*0B 3P	R+NOT*1J:* B * B * B * B * B 7EKR+OGR*!J!.MVJ.9B46 F "=61.JB6*3B0+ICF/B:<
1^ 3O?T. J66120+ICF/D6>*1B07GSO/OZ .2B1.MZJ.1B16 KP7ISN.*16 C\3R;I/TF":*M.6J1*0B 3P	R+NOT*1J:3R3O7L& 7OKU2 :23DJ 3A3L""*M.6F2*0B 3R7E3A/R6 SS3OGR+GCE+OCF3TWH2 OS3OWRS*M.6B3*0B 3P	R+NOT"16:.JN6*9B03AZ(**3P/B6)D*M.6"4*0B +ICF/BJ=2 T+ECN.7J0"0*M.6^5*0B /BJ=.
ZJ.6B62 6 "=7D.J^6*5B02 [I. 7Q63R 3H;E. J6"160.J"6*4B03AZ(**3P.36)3D6-.MZJ.9B32 [I. 7Q60R 3H;E. V2"260.JB7*2B03AZ(**3P.36)Q*M.7F1*0B 7NE7TB .M^J.2B02 Z *=/F"1*M.7&220& 3FZ .<F12 T+ECN.2^0"0*M.7&2*5B 3P	R+NOT61B:+NT.1J0")*M.7&2*6B 3P	R+NOT*1J:* B * B * B *
B * B 3FGR7MOE""*M.7"3*0B 7FKO. 7I61R /OF "0*M.7^460B 3R;I/TF.:/I*"J ";*M.7Z5*0B 7NE3T& .M^J.6B56 B 3R;I/TF6:2 3P	R+NOT"16:.J^7*4B02 ?F7RB *=B1+TCOR*M.7N8*0B 7FKO. 7I61R /ON .M^J.9B22 Z +OCR/JF=2 ?T. B1.M"J.0B16 KP7ISN.*13A*(**3P/I.).M"J.0B56 KP7ISN.*13TK
*(/G.4.).M"J.0B6. 7G/GR+.M"J.1B02 : 7ESX" 7J.JF8*0B56 KP7ISN.*1.M"J.1B5. 7G"1*M.8&1*0B 7NE3T& .M"J.2B86 B 3R;I/TF":*M.8^3*0B 7NE7TB .M"J.4B66 KP7ISN.*12"?D2 ?Y7U^ 7ASN2 ;A3OT+ECR3G7A+E" 3Y> 3R: ")6".JR8*7B03C?L+SOE612 3F3I/EJ6:R"+VJ:.M"J.5B52 & 7NWP/TJ*:S
6 2 3C?L+SOE622 3F3I+EOV*1J:/T+V""*M.8R620& 3FF *$J=+YB"3TWH/NF .5B3.M"J.7B32 ;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