No Fragments Archive 10: Diskmags/nf_archive_10.iso/MAGS/ST_USER/1990/USEROC90.MSA/CRICKET.BAS

Atari STOS Basic | 1990-08-19 | 177KB | 2,319 lines

1 REM
10 REM
100 REM
1000 REM
1001 REM NEW SCREEN
1002 REM
1003 VARNAME
1005 PEN
1006 VARNAME
1008 LOCATE
101 REM MAIN LOOP
1010 REM
1011 REM GET A KEY
1012 REM
1013 CLEAR KEY
1014 VARNAME
1015 IF
1016 VARNAME
102 REM
1020 REM
1021 REM ANY KEY
1022 REM
1023 PEN
1024 GOSUB
103 GOSUB
1030 RETURN
1040 REM
1041 REM ICON PRINT
1042 REM
1043 FOR
1044 LOCATE
1045 LOCATE
1046 NEXT
1047 LOCATE
1048 IF
1049 RETURN
1050 REM
1051 REM GET WORD
1052 REM
1053 VARNAME
1054 PEN
1055 GOSUB
1056 IF
1057 IF
1058 CLEFT
1059 IF
1060 IF
1061 GOTO
1062 IF
1063 IF
1064 VARNAME
1065 IF
1066 IF
1067 IF
1068 IF
1069 IF
1070 IF
1071 GOSUB
1072 GOTO
1073 IF
1074 IF
1075 IF
1076 VARNAME
1077 PEN
1080 REM
1081 REM GET YES OR NO
1082 REM
1083 INK
1084 GOSUB
1085 VARNAME
1086 GOSUB
11 REM INITIALIZE
110 IF
1100 REM
1101 REM PALETTE
1102 REM
1103 FOR
1104 GOSUB
1105 CURS
1107 RESTORE
1108 DATA
111 VARNAME
112 VARNAME
1150 REM
1151 REM ALARM NOISE
1152 REM
1153 CLICK
1154 VOLUME
1167 IF
1170 REM
1171 REM UP SOUND
1172 REM
1173 CLICK
1174 VOLUME
1180 REM
1181 REM DOWN SOUND
1182 REM
1183 CLICK
1184 VOLUME
1190 REM
1191 REM OPEN WINDOW
1192 REM
1193 INK
1194 VARNAME
1196 IF
1197 RETURN
12 REM
120 IF
12000 REM
12001 REM HELP
12002 REM
12003 VARNAME
12004 VARNAME
12010 CLW
12011 CENTRE
12012 RESTORE
12013 NEXT
12020 DATA
12021 DATA
12022 DATA
12023 DATA
12024 DATA
12025 DATA
12026 DATA
12027 DATA
12028 DATA
12029 DATA
12030 DATA
12040 VARNAME
12041 IF
12042 IF
12044 VARNAME
12045 IF
12046 IF
12047 VARNAME
12050 WAIT
12051 IF
12052 IF
12053 VARNAME
12060 IF
12061 VARNAME
12062 VARNAME
12063 PRINT
12064 READ
12070 VARNAME
12071 IF
12072 LOCATE
12090 IF
12091 PEN
12092 IF
12093 IF
12094 IF
12095 LOCATE
12096 CENTRE
12097 LOCATE
12098 LOCATE
13 KEY
14 MODE
15 VARNAME
150 REM inns end?
151 IF
160 REM session?
161 IF
16113 DATA
17 IF
170 REM rain?
171 IF
172 IF
173 IF
174 IF
175 IF
18 VARNAME
180 IF
181 VARNAME
182 INC
183 GOTO
185 INC
186 VARNAME
187 LOCATE
188 PRINT
189 VARNAME
19 GOSUB
190 REM new bowler?
191 IF
192 VARNAME
194 VARNAME
196 VARNAME
197 IF
2 REM ST-UMPED
20 DEF
200 REM
2000 REM
2001 REM SAVE GAME
2002 REM
2003 SHOW
2004 IF
2005 PEN
2006 GOSUB
2007 OPEN IN
2008 GOSUB
2009 ON ERROR
201 REM action
2010 OPEN OUT
2011 GOSUB
2012 PRINT
2013 PRINT
2014 VARNAME
2015 PRINT
2016 VARNAME
2017 VARNAME
2018 VARNAME
2019 PRINT
202 REM
2020 IF
2021 IF
2030 GOSUB
2031 GOSUB
2032 GOSUB
2040 GOSUB
2041 IF
2042 GOSUB
2050 REM
2051 REM DIRECTORY
2052 REM
2053 PEN
2054 VARNAME
2055 GOSUB
2056 GOSUB
2060 REM
2061 REM DISK FREE
2062 REM
2063 ON ERROR
2064 VARNAME
2065 VARNAME
2066 VARNAME
2067 CENTRE
2068 WINDEL
2069 GOSUB
21 DEF
210 GOSUB
2100 REM
2101 REM LOAD
2102 REM
2103 VARNAME
2104 VARNAME
2105 SHOW
2106 IF
2107 PEN
211 VARNAME
2110 GOSUB
21100 DATA
21101 DATA
21102 DATA
21103 DATA
21104 DATA
21105 DATA
21106 DATA
21107 DATA
21108 DATA
21109 DATA
2111 GOSUB
21110 DATA
21111 DATA
21112 DATA
21113 DATA
21115 DATA
21116 DATA
21117 DATA
21118 DATA
21119 DATA
21199 DATA
212 VARNAME
2120 LINE INPUT
21200 DATA
21201 DATA
21202 DATA
21203 DATA
21204 DATA
21205 DATA
21206 DATA
21207 DATA
21208 DATA
21209 DATA
2121 VARNAME
21210 DATA
2122 LINE INPUT
2123 IF
2124 VARNAME
2125 LINE INPUT
2126 IF
2127 IF
2128 IF
2129 VARNAME
21299 DATA
213 VARNAME
2130 VARNAME
21300 DATA
21301 DATA
21302 DATA
21303 DATA
21304 DATA
21305 DATA
21306 DATA
21307 DATA
21308 DATA
21309 DATA
2131 LINE INPUT
21311 DATA
21312 DATA
21313 DATA
21314 DATA
21315 DATA
21316 DATA
21318 DATA
2132 IF
2133 IF
2134 GOSUB
2135 GOSUB
2136 GOSUB
2137 IF
2138 IF
2139 VARNAME
21399 DATA
214 IF
2140 GOSUB
2141 GOSUB
215 IF
2150 IF
2151 VARNAME
2152 PEN
2153 LOCATE
216 VARNAME
2160 REM
2161 REM DELETE
2162 REM
2163 PEN
2164 VARNAME
2165 IF
2166 GOSUB
2167 IF
2168 ON ERROR
2169 GOSUB
2170 GOSUB
2180 GOSUB
2181 GOSUB
2190 REM
2191 REM CLOSE FILE
2192 REM
2193 ON ERROR
2194 CLOSE
2195 GOSUB
2196 RESUME
22 DEF
220 VARNAME
2200 REM
2201 REM SAVE ASK
2202 REM
2203 IF
2204 VARNAME
2205 RETURN
221 IF
2210 REM
22100 DATA
22101 DATA
22103 DATA
22105 DATA
22107 DATA
22109 DATA
2211 REM CKT FILE
22111 DATA
22113 DATA
22115 DATA
22117 DATA
2212 REM
22121 DATA
22122 DATA
22123 DATA
22124 DATA
22125 DATA
22126 DATA
22127 DATA
22128 DATA
22129 DATA
2213 VARNAME
2214 VARNAME
22199 DATA
222 IF
22200 DATA
22201 DATA
22202 DATA
22203 DATA
22204 DATA
22205 DATA
22206 DATA
22207 DATA
22208 DATA
22209 DATA
22210 DATA
22211 DATA
22212 DATA
22213 DATA
22219 DATA
22220 DATA
22221 DATA
22222 DATA
22223 DATA
22299 DATA
223 GOTO
22300 DATA
22301 DATA
22302 DATA
22303 DATA
22304 DATA
22305 DATA
22306 DATA
22307 DATA
22308 DATA
22309 DATA
22310 DATA
22311 DATA
22312 DATA
22313 DATA
22314 DATA
22315 DATA
22316 DATA
22317 DATA
22318 DATA
22319 DATA
22399 DATA
224 IF
22400 DATA
22401 DATA
22402 DATA
22405 DATA
22408 DATA
22411 DATA
22412 DATA
22413 DATA
22415 DATA
22416 DATA
22417 DATA
22418 DATA
22419 DATA
22420 DATA
22422 DATA
22423 DATA
22424 DATA
22425 DATA
22426 DATA
22427 DATA
22499 DATA
225 GOSUB
22500 DATA
22501 DATA
22502 DATA
22503 DATA
22599 DATA
22600 DATA
22601 DATA
22602 DATA
22603 DATA
22604 DATA
22605 DATA
22606 DATA
22607 DATA
22608 DATA
22609 DATA
22610 DATA
22615 DATA
22616 DATA
22617 DATA
22618 DATA
22619 DATA
22620 DATA
22621 DATA
22622 DATA
22699 DATA
22700 DATA
22701 DATA
22702 DATA
22704 DATA
22705 DATA
22706 DATA
22707 DATA
22708 DATA
22709 DATA
22710 DATA
22711 DATA
22712 DATA
22799 DATA
230 REM check for no runs
2300 REM
2301 REM SAVE TEAM
2302 REM
2303 SHOW
2304 VARNAME
2305 HIDE
2306 GOSUB
2307 OPEN IN
2308 GOSUB
2309 ON ERROR
231 VARNAME
2310 OPEN OUT
23100 DATA
23101 DATA
23102 DATA
23103 DATA
23104 DATA
23105 DATA
23106 DATA
23107 DATA
23108 DATA
23109 DATA
2311 GOSUB
23110 DATA
23111 DATA
23112 DATA
2312 PRINT
2313 PRINT
2314 VARNAME
2315 PRINT
2316 VARNAME
2317 VARNAME
2318 VARNAME
2319 PRINT
23199 DATA
232 IF
2320 IF
23200 DATA
23201 DATA
23202 DATA
23203 DATA
23204 DATA
23205 DATA
23206 DATA
23207 DATA
23208 DATA
23209 DATA
2321 IF
23210 DATA
23211 DATA
23212 DATA
23213 DATA
23214 DATA
23299 DATA
23300 DATA
23301 DATA
23302 DATA
23304 DATA
23305 DATA
23306 DATA
23307 DATA
23308 DATA
23309 DATA
23310 DATA
23311 DATA
23312 DATA
23313 DATA
23314 DATA
23315 DATA
23316 DATA
23318 DATA
23319 DATA
23399 DATA
23400 DATA
23401 DATA
23402 DATA
23403 DATA
23404 DATA
23405 DATA
23406 DATA
23407 DATA
23408 DATA
23409 DATA
23410 DATA
23411 DATA
23412 DATA
23415 DATA
23416 DATA
23417 DATA
23418 DATA
23419 DATA
23499 DATA
24021 DATA
24100 DATA
24101 DATA
24102 DATA
24103 DATA
24106 DATA
24108 DATA
24109 DATA
24110 DATA
24115 DATA
24116 DATA
24120 DATA
24121 DATA
24122 DATA
24123 DATA
24124 DATA
24125 DATA
24126 DATA
24128 DATA
24129 DATA
24130 DATA
24199 DATA
24200 DATA
24201 DATA
24202 DATA
24203 DATA
24204 DATA
24205 DATA
24206 DATA
24207 DATA
24208 DATA
24209 DATA
24210 DATA
24211 DATA
24212 DATA
24213 DATA
24214 DATA
24215 DATA
24216 DATA
24217 DATA
24218 DATA
24299 DATA
24300 DATA
24301 DATA
24302 DATA
24303 DATA
24304 DATA
24305 DATA
24306 DATA
24307 DATA
24308 DATA
24309 DATA
24310 DATA
24311 DATA
24312 DATA
24313 DATA
24314 DATA
24315 DATA
24399 DATA
24400 DATA
24401 DATA
24402 DATA
24403 DATA
24404 DATA
24405 DATA
24406 DATA
24407 DATA
24408 DATA
24410 DATA
24411 DATA
24415 DATA
24417 DATA
24418 DATA
24419 DATA
24420 DATA
24499 DATA
250 REM check for wkts
251 VARNAME
25100 DATA
25101 DATA
25102 DATA
25103 DATA
25104 DATA
25105 DATA
25106 DATA
25107 DATA
25108 DATA
25110 DATA
25111 DATA
25112 DATA
25199 DATA
252 IF
25200 DATA
25201 DATA
25202 DATA
25203 DATA
25204 DATA
25205 DATA
25206 DATA
25208 DATA
25209 DATA
25210 DATA
25211 DATA
25212 DATA
25213 DATA
25214 DATA
25215 DATA
25216 DATA
25217 DATA
25218 DATA
25219 DATA
25299 DATA
253 IF
25300 DATA
25301 DATA
25306 DATA
25307 DATA
25308 DATA
25310 DATA
25311 DATA
25312 DATA
25315 DATA
25316 DATA
25317 DATA
25318 DATA
25319 DATA
25320 DATA
25321 DATA
25322 DATA
25325 DATA
25326 DATA
25327 DATA
25328 DATA
25399 DATA
254 VARNAME
25400 DATA
25401 DATA
25402 DATA
25405 DATA
25406 DATA
25407 DATA
25408 DATA
25409 DATA
25410 DATA
25499 DATA
255 IF
25500 DATA
25501 DATA
25502 DATA
25503 DATA
25504 DATA
25505 DATA
25506 DATA
25507 DATA
25510 DATA
25511 DATA
25512 DATA
25513 DATA
25514 DATA
25515 DATA
25599 DATA
256 REM
259 IF
26100 DATA
26101 DATA
26102 DATA
26103 DATA
26105 DATA
26106 DATA
26107 DATA
26108 DATA
26109 DATA
26110 DATA
26111 DATA
26112 DATA
26113 DATA
26115 DATA
26116 DATA
26117 DATA
26199 DATA
26200 DATA
26201 DATA
26202 DATA
26203 DATA
26204 DATA
26205 DATA
26210 DATA
26211 DATA
26212 DATA
26213 DATA
26214 DATA
26215 DATA
26216 DATA
26217 DATA
26218 DATA
26219 DATA
26220 DATA
26221 DATA
26222 DATA
26223 DATA
26299 DATA
26300 DATA
26301 DATA
26302 DATA
26303 DATA
26304 DATA
26305 DATA
26306 DATA
26307 DATA
26308 DATA
26309 DATA
26310 DATA
26311 DATA
26312 DATA
26399 DATA
26400 DATA
26401 DATA
26402 DATA
26405 DATA
26406 DATA
26407 DATA
26408 DATA
26499 DATA
26500 DATA
26501 DATA
26502 DATA
26503 DATA
26504 DATA
26505 DATA
26510 DATA
26511 DATA
26512 DATA
26513 DATA
26514 DATA
26515 DATA
26516 DATA
26517 DATA
26518 DATA
26519 DATA
26520 DATA
26599 DATA
26600 DATA
26601 DATA
26602 DATA
26603 DATA
26604 DATA
26605 DATA
26606 DATA
26607 DATA
26608 DATA
26699 DATA
27100 DATA
27101 DATA
27102 DATA
27104 DATA
27105 DATA
27106 DATA
27107 DATA
27108 DATA
27110 DATA
27111 DATA
27112 DATA
27113 DATA
27114 DATA
27115 DATA
27116 DATA
27117 DATA
27118 DATA
27119 DATA
27120 DATA
27121 DATA
27199 DATA
27200 DATA
27201 DATA
27202 DATA
27203 DATA
27204 DATA
27206 DATA
27207 DATA
27208 DATA
27209 DATA
27299 DATA
27300 DATA
27301 DATA
27302 DATA
27303 DATA
27304 DATA
27305 DATA
27306 DATA
27307 DATA
27308 DATA
27309 DATA
27310 DATA
27399 DATA
27400 DATA
27401 DATA
27402 DATA
27403 DATA
27405 DATA
27406 DATA
27407 DATA
27408 DATA
27409 DATA
27410 DATA
27411 DATA
27412 DATA
27413 DATA
27499 DATA
27500 DATA
27501 DATA
27503 DATA
27504 DATA
27506 DATA
27507 DATA
27508 DATA
27509 DATA
27510 DATA
27511 DATA
27512 DATA
27513 DATA
27515 DATA
27516 DATA
27517 DATA
27518 DATA
27519 DATA
27520 DATA
27599 DATA
27600 DATA
27601 DATA
27602 DATA
27699 DATA
27700 DATA
27701 DATA
27702 DATA
27703 DATA
27704 DATA
27705 DATA
27706 DATA
27707 DATA
27708 DATA
27710 DATA
27711 DATA
27712 DATA
27713 DATA
27799 DATA
28100 DATA
28101 DATA
28102 DATA
28103 DATA
28104 DATA
28105 DATA
28106 DATA
28107 DATA
28108 DATA
28109 DATA
28110 DATA
28111 DATA
28112 DATA
28113 DATA
28199 DATA
28200 DATA
28201 DATA
28202 DATA
28203 DATA
28204 DATA
28205 DATA
28206 DATA
28207 DATA
28208 DATA
28209 DATA
28210 DATA
28212 DATA
28213 DATA
28214 DATA
28215 DATA
28299 DATA
28300 DATA
28301 DATA
28302 DATA
28303 DATA
28304 DATA
28399 DATA
28400 DATA
28401 DATA
28402 DATA
28403 DATA
28404 DATA
28405 DATA
28406 DATA
28410 DATA
28411 DATA
28412 DATA
28413 DATA
28414 DATA
28415 DATA
28416 DATA
28417 DATA
28418 DATA
28419 DATA
28499 DATA
28500 DATA
28501 DATA
28502 DATA
28503 DATA
28504 DATA
28505 DATA
28506 DATA
28507 DATA
28508 DATA
28510 DATA
28511 DATA
28512 DATA
28513 DATA
28514 DATA
28515 DATA
28516 DATA
28517 DATA
28518 DATA
28599 DATA
29100 DATA
29101 DATA
29102 DATA
29103 DATA
29104 DATA
29105 DATA
29199 DATA
29200 DATA
29201 DATA
29203 DATA
29204 DATA
29205 DATA
29206 DATA
29207 DATA
29208 DATA
29209 DATA
29299 DATA
29300 DATA
29301 DATA
29302 DATA
29303 DATA
29304 DATA
29305 DATA
29306 DATA
29307 DATA
29308 DATA
29309 DATA
29310 DATA
29399 DATA
29400 DATA
29401 DATA
29402 DATA
29403 DATA
29404 DATA
29405 DATA
29406 DATA
29407 DATA
29408 DATA
29499 DATA
29500 DATA
29501 DATA
29502 DATA
29503 DATA
29504 DATA
29506 DATA
29507 DATA
29508 DATA
29509 DATA
29510 DATA
29511 DATA
29512 DATA
29515 DATA
29516 DATA
29517 DATA
29518 DATA
29519 DATA
29521 DATA
29522 DATA
29523 DATA
29599 DATA
29600 DATA
29601 DATA
29602 DATA
29603 DATA
29604 DATA
29605 DATA
29606 DATA
29607 DATA
29608 DATA
29609 DATA
29610 DATA
29611 DATA
29699 DATA
3 REM
30 REM
300 REM no of runs
3000 REM
3001 REM PRINT SCREEN
3002 REM
3003 GOSUB
3004 VARNAME
3005 IF
3006 IF
3007 VARNAME
3008 LPRINT
3009 INC
301 VARNAME
3010 GOSUB
30100 DATA
30101 DATA
30102 DATA
30103 DATA
30104 DATA
30105 DATA
30106 DATA
30107 DATA
30108 DATA
30109 DATA
3011 SHOW
30110 DATA
3012 RESUME
30199 DATA
302 VARNAME
30200 DATA
30201 DATA
30202 DATA
30206 DATA
30207 DATA
30208 DATA
30209 DATA
30210 DATA
30212 DATA
30213 DATA
30214 DATA
30215 DATA
30217 DATA
30218 DATA
30219 DATA
30220 DATA
30221 DATA
30222 DATA
30223 DATA
30224 DATA
30299 DATA
303 IF
30300 DATA
30301 DATA
30302 DATA
30303 DATA
30304 DATA
30305 DATA
30306 DATA
30307 DATA
30308 DATA
30309 DATA
30310 DATA
30311 DATA
30312 DATA
30313 DATA
30314 DATA
30315 DATA
30316 DATA
30317 DATA
30318 DATA
30319 DATA
30399 DATA
304 IF
30400 DATA
30401 DATA
30402 DATA
30403 DATA
30404 DATA
30405 DATA
30406 DATA
30407 DATA
30408 DATA
30410 DATA
30411 DATA
30412 DATA
30413 DATA
30414 DATA
30415 DATA
30416 DATA
30417 DATA
30418 DATA
30419 DATA
30420 DATA
30499 DATA
3050 REM
3051 REM PRINT LIST
3052 REM
3053 GOSUB
3054 VARNAME
3055 IF
3056 IF
3057 LPRINT
3058 INC
3059 GOSUB
3060 SHOW
3061 RESUME
31 REM START
310 VARNAME
3100 REM
3101 REM MESSAGE
3102 REM
3103 VARNAME
3104 LOCATE
3105 VARNAME
3106 VARNAME
3107 CLW
3108 PEN
3109 WINDEL
311 VARNAME
312 VARNAME
313 IF
314 IF
315 GOTO
32 REM
320 VARNAME
3200 REM
3201 REM FULL MATCH
3202 REM
3203 VARNAME
3204 VARNAME
3205 VARNAME
3206 CLS
321 IF
3210 VARNAME
3211 VARNAME
3212 VARNAME
3213 VARNAME
3214 IF
3215 VARNAME
3216 VARNAME
3217 IF
322 IF
3220 VARNAME
323 IF
3230 VARNAME
324 IF
33 REM
34 GOSUB
3400 REM
3401 REM BL by BL
3402 REM
3403 IF
3404 VARNAME
3410 REM
3411 REM PRT BL by BL
3412 REM
3413 VARNAME
3414 IF
3415 VARNAME
3416 VARNAME
3417 VARNAME
3418 VARNAME
3419 VARNAME
3440 IF
3441 IF
3442 VARNAME
3450 REM
3451 REM PRT PLYRS
3452 REM
3453 VARNAME
3454 FOR
3455 VARNAME
3456 IF
3457 VARNAME
3458 NEXT
3459 VARNAME
35 CLW
350 REM extras
3500 REM
3501 REM WAIT
3502 REM
3503 VARNAME
3504 IF
3505 INC
351 VARNAME
3510 VARNAME
3511 GOSUB
3512 IF
3513 CLEAR KEY
352 DEC
3520 WAIT
353 VARNAME
354 VARNAME
355 VARNAME
3550 REM
3551 REM PAUSE
3552 REM
3553 HIDE
3554 LOCATE
357 GOTO
36 GOSUB
360 VARNAME
361 VARNAME
362 IF
363 VARNAME
364 VARNAME
4 REM
40 REM
400 REM OUT
4000 REM
4001 REM OLD INNS
4002 REM
4003 GOSUB
4004 VARNAME
4005 IF
4006 IF
4007 IF
4008 IF
4009 GOSUB
401 VARNAME
402 IF
4020 REM
4021 REM SCORE
4022 REM
4023 VARNAME
4024 IF
4025 VARNAME
4026 VARNAME
4027 VARNAME
4028 RETURN
403 VARNAME
404 VARNAME
4050 REM
4051 REM NEW INNS
4052 REM
4053 IF
4060 INC
4062 VARNAME
4063 VARNAME
4064 VARNAME
4070 IF
4071 IF
4072 VARNAME
4073 VARNAME
4074 IF
4075 IF
4076 VARNAME
4080 VARNAME
4081 VARNAME
4082 GOSUB
4090 REM
4091 REM LTD OV TGT
4092 REM
4093 IF
4094 VARNAME
4095 RETURN
41 REM NEW GAME
410 VARNAME
4100 REM
4101 REM RESULT
4102 REM
4103 CLS
4104 GOSUB
411 VARNAME
4110 FOR
412 GOTO
4120 VARNAME
4121 VARNAME
4122 VARNAME
42 REM
420 VARNAME
421 VARNAME
422 VARNAME
423 VARNAME
430 REM add wkt to bwl
431 INC
44 FOR
440 VARNAME
4400 REM
4401 REM BATS CROSS
4402 REM
4403 SWAP
441 IF
442 VARNAME
444 VARNAME
445 VARNAME
446 GOTO
45 VARNAME
4500 REM
4501 REM E O S
4502 REM
4503 IF
4504 IF
4505 CLEAR KEY
4506 VARNAME
4507 VARNAME
4508 INC
4510 IF
4511 VARNAME
4512 VARNAME
4513 IF
4514 VARNAME
46 VARNAME
4800 REM
4801 REM PRINT TM
4802 REM
4803 IF
4804 VARNAME
4805 IF
4806 PRINT
4810 REM
4811 REM CONVERT H/M
4812 REM
4813 VARNAME
4815 IF
4816 RETURN
4900 REM
4901 REM EOS Screens
4902 REM
4903 IF
4904 LOCATE
4909 RETURN
4910 IF
4911 VARNAME
4912 LOCATE
4950 REM
4951 REM SUMMARY
4952 REM
4953 IF
4954 PEN
4955 PEN
4956 NEXT
4957 NEXT
5 BREAK
50 FOR
500 REM BATS CROSS
5000 REM
5001 REM SCORECARD
5002 REM
5003 CLEAR KEY
5004 VARNAME
5005 RETURN
501 GOSUB
5010 VARNAME
5050 IF
5051 VARNAME
510 REM add runs
5100 REM
5101 REM 1 LINE of CARD
5102 REM
5103 IF
5105 LOCATE
5106 IF
511 VARNAME
5110 VARNAME
5111 VARNAME
5112 IF
5113 NEXT
5150 VARNAME
5153 PEN
5160 PEN
5161 IF
5162 PRINT
5163 PRINT
5180 PEN
5181 IF
5182 PRINT
5183 RETURN
520 VARNAME
5200 REM
5201 REM HOW OUT
5202 REM
5203 VARNAME
5210 VARNAME
5211 IF
5212 IF
5213 IF
5214 IF
5215 IF
5216 IF
5217 IF
5218 IF
5219 IF
5220 PEN
5230 VARNAME
5231 RETURN
5300 REM
5301 REM SCORE AFTER OVERS
5302 REM
5303 IF
5304 PEN
5305 FOR
5306 LOCATE
5307 NEXT
60 FOR
600 IF
6000 REM
6001 REM draw screen
6002 REM
6003 IF
6004 VARNAME
6005 GOSUB
6006 IF
6007 LOCATE
601 IF
6010 REM
6011 REM  OVERS
6012 REM
6013 LOCATE
6014 VARNAME
6015 PRINT
6016 PRINT
6017 IF
6018 GOSUB
602 IF
6020 PRINT
6021 IF
6022 VARNAME
6023 LOCATE
6024 GOSUB
6025 LOCATE
6026 GOSUB
603 VARNAME
6030 REM
6031 REM OVERS string
6032 REM
6033 GOSUB
6035 IF
6036 VARNAME
604 GOTO
6040 REM
6041 REM RATE string
6042 REM
6043 IF
6044 VARNAME
6045 NEXT
605 IF
6050 REM
6051 REM SCORE STRINGS
6052 REM
6053 REM
6054 VARNAME
6055 PRINT
6056 RETURN
606 IF
6060 REM
6061 REM ICON SCORE
6062 REM
6063 VARNAME
6064 IF
6065 VARNAME
6066 VARNAME
607 IF
6070 REM
6071 REM VERSUS
6072 REM
6073 PRINT
608 VARNAME
609 VARNAME
610 IF
6100 REM
6101 REM AHEAD/BEHIND
6102 REM
6103 IF
6104 IF
6105 PRINT
6106 VARNAME
6107 PRINT
6108 PRINT
6109 IF
611 IF
6110 RETURN
612 IF
613 IF
615 IF
620 RESTORE
6200 REM
6201 REM RESULT
6202 REM
6203 IF
6204 IF
6205 IF
621 DATA
6210 IF
6211 VARNAME
6212 IF
6213 VARNAME
622 DATA
6220 IF
6221 IF
6222 VARNAME
6223 VARNAME
6224 PRINT
630 IF
631 IF
632 VARNAME
633 DATA
6500 REM
6501 REM TACTICS
6502 REM
6503 IF
6505 LOCATE
6510 VARNAME
6511 IF
6512 IF
6514 VARNAME
6520 IF
6521 VARNAME
6522 VARNAME
6530 REPEAT
6531 IF
6533 GOTO
6535 IF
6536 IF
6537 IF
6538 IF
6539 CLEAR KEY
6550 ON
6551 GOTO
6590 PEN
6591 IF
6592 IF
6593 VARNAME
6594 LOCATE
6595 IF
6596 PRINT
660 IF
665 IF
670 IF
671 VARNAME
672 GOTO
675 IF
676 VARNAME
680 VARNAME
6900 REM
6901 REM PLAYER name
6902 REM
6903 PRINT
6910 REM
6911 REM CURR BATS
6912 REM
6913 LOCATE
6914 IF
6915 IF
6916 VARNAME
6920 REM
6921 REM  CURR BOWLS
6922 REM
6923 VARNAME
6930 LOCATE
6932 GOSUB
6940 REM
6941 REM LAST MAN & WKT
6942 REM
6943 LOCATE
6944 VARNAME
6945 LOCATE
70 REM help
700 LOCATE
7000 REM
7001 REM BATTING
7002 REM
7003 Y MOUSE
7005 VARNAME
7006 IF
7007 IF
7008 VARNAME
7009 IF
701 PRINT
7010 IF
7011 GOTO
7012 IF
7013 IF
7014 IF
7015 VARNAME
702 PRINT
7020 IF
7021 VARNAME
7030 VARNAME
7031 VARNAME
7032 WAIT
7033 IF
7034 IF
7035 IF
7040 IF
7041 VARNAME
7042 NEXT
7043 IF
7044 VARNAME
7049 IF
7050 IF
7051 VARNAME
7052 IF
7060 VARNAME
7061 IF
7062 VARNAME
7063 VARNAME
7065 VARNAME
7066 VARNAME
7070 VARNAME
7071 LOCATE
7076 VARNAME
7080 PEN
7081 IF
7082 IF
7083 LOCATE
7084 RETURN
7085 IF
7086 IF
7087 IF
7088 IF
7089 IF
7090 LOCATE
7091 RETURN
7092 IF
7093 VARNAME
7099 FOR
71 FOR
7100 REM
7101 REM PROTECT
7102 REM
7103 VARNAME
7104 IF
7105 IF
7106 RETURN
72 FOR
720 IF
721 VARNAME
73 FOR
730 VARNAME
732 VARNAME
733 VARNAME
734 IF
74 VARNAME
750 REM end inns?
7500 REM
7501 REM BOWLING
7502 REM
7503 GOSUB
7504 Y MOUSE
7510 VARNAME
7511 IF
7512 IF
7513 VARNAME
7514 IF
7515 IF
7516 VARNAME
7517 IF
7518 IF
7519 IF
752 GOSUB
7520 IF
7521 VARNAME
7522 VARNAME
7530 VARNAME
7531 WAIT
7532 IF
7533 IF
7534 IF
7535 VARNAME
7536 IF
7537 IF
7538 VARNAME
7539 INC
754 IF
7540 IF
7541 VARNAME
7545 VARNAME
7550 IF
7551 IF
7552 VARNAME
7553 VARNAME
7554 IF
7555 IF
7556 VARNAME
7560 IF
7561 VARNAME
7562 GOTO
7590 IF
7591 RETURN
7600 VARNAME
7601 LOCATE
7602 VARNAME
7610 PEN
7611 IF
7612 IF
7613 LOCATE
7614 LOCATE
7615 IF
7616 VARNAME
7617 IF
7618 IF
7619 IF
7620 IF
7621 LOCATE
7622 IF
7623 IF
7624 IF
7625 IF
7626 VARNAME
7627 PRINT
7630 LOCATE
7631 LOCATE
7632 NEXT
7700 REM
7701 REM TYPE
7702 REM
7703 PRINT
7704 RETURN
7710 REM
7711 REM FIELD/RATE
7712 REM
7713 LOCATE
7714 LOCATE
7715 VARNAME
7716 VARNAME
7717 VARNAME
7718 IF
7719 VARNAME
7730 REM
7731 REM PRINT BOWL ANAL
7732 REM
7733 VARNAME
7734 PRINT
7735 FOR
7736 VARNAME
7737 PRINT
7740 REM
7741 REM O M R W
7742 REM
7743 PRINT
7750 REM
7751 REM NEW BALL
7752 REM
7753 VARNAME
7754 RETURN
800 REM
8000 REM
8001 REM GENERAL
8002 REM
8003 Y MOUSE
801 REM check for over
8010 SHOW
8011 IF
8012 IF
8013 IF
8014 VARNAME
8015 IF
8016 IF
8017 VARNAME
802 REM
8020 IF
8021 IF
8022 IF
8023 VARNAME
8024 GOTO
8025 IF
8026 IF
8027 VARNAME
8028 IF
8029 GOTO
803 IF
8030 IF
8031 VARNAME
8032 GOTO
8033 IF
8034 IF
8035 GOTO
804 VARNAME
805 GOSUB
8050 IF
8051 IF
8052 IF
8053 GOTO
8055 IF
8056 IF
8057 GOTO
806 VARNAME
8060 IF
8061 IF
8062 IF
8063 IF
8064 IF
8065 VARNAME
8066 IF
8067 VARNAME
8068 IF
8069 GOTO
807 VARNAME
8070 VARNAME
8071 GOTO
808 IF
8080 IF
8081 IF
8082 VARNAME
809 VARNAME
8090 VARNAME
8091 VARNAME
810 FOR
8100 WAIT
8101 IF
8102 HIDE
8105 IF
8106 IF
8110 IF
8111 VARNAME
8112 GOSUB
8113 IF
8114 IF
8115 GOTO
812 IF
8120 IF
8121 VARNAME
8122 VARNAME
8123 IF
8124 GOTO
813 VARNAME
814 IF
8140 IF
8141 VARNAME
8142 IF
8143 VARNAME
8150 IF
8151 VARNAME
8152 GOSUB
8153 IF
8154 IF
8155 IF
8156 GOTO
8160 IF
8161 VARNAME
8162 VARNAME
8170 VARNAME
8171 IF
8180 VARNAME
8181 IF
8182 GOSUB
8183 WAIT
8190 VARNAME
8191 RETURN
8192 FOR
820 CLS
8200 IF
8203 IF
8204 WINDEL
8205 VARNAME
8206 IF
8207 GOSUB
8208 IF
8209 IF
8210 VARNAME
8211 IF
8212 GOSUB
8213 GOTO
8214 IF
8215 IF
8220 IF
8221 IF
8222 VARNAME
8223 IF
8224 VARNAME
8225 GOSUB
8230 IF
8231 IF
8232 IF
8233 IF
8234 IF
8235 WINDEL
8237 GOTO
8238 IF
8239 IF
8240 VARNAME
8241 VARNAME
8242 IF
8243 VARNAME
8244 IF
8245 VARNAME
8246 IF
8247 GOSUB
8300 IF
8301 VARNAME
8302 LOCATE
8303 VARNAME
8304 GOTO
8305 IF
8306 IF
8307 FOR
8308 IF
8309 VARNAME
8310 IF
8311 IF
8312 GOTO
8313 VARNAME
8314 IF
8315 VARNAME
8316 IF
8317 VARNAME
8318 IF
8319 VARNAME
8320 IF
8321 VARNAME
8322 LOCATE
8323 VARNAME
8324 GOTO
8325 IF
8326 LOCATE
8327 VARNAME
8330 IF
8331 VARNAME
8332 LOCATE
8333 VARNAME
8334 INC
8335 GOTO
8340 VARNAME
8341 VARNAME
8345 IF
8346 IF
8347 VARNAME
8348 IF
8349 VARNAME
8360 IF
8361 IF
8362 IF
8363 VARNAME
8364 IF
8365 VARNAME
8370 IF
8371 IF
8372 GOSUB
8600 VARNAME
8601 LOCATE
8604 LOCATE
8605 IF
8606 IF
8607 VARNAME
8608 FOR
8609 GOSUB
8610 PEN
8611 IF
8612 IF
8613 IF
8614 IF
8615 IF
8616 IF
8617 IF
8618 IF
8619 IF
8620 IF
8621 IF
8622 IF
8623 IF
8624 IF
8625 IF
8626 PRINT
8630 IF
8631 IF
8632 LOCATE
8633 PRINT
8634 IF
8635 IF
8636 IF
8637 IF
8638 IF
8639 IF
8640 IF
8641 LOCATE
8642 RETURN
8643 IF
8644 IF
8645 IF
8646 RETURN
8650 IF
8651 IF
8652 LOCATE
8653 LOCATE
8655 IF
8656 IF
8657 IF
8660 IF
8665 IF
8666 IF
8667 VARNAME
8668 LOCATE
8670 IF
8671 IF
8672 VARNAME
8673 IF
8674 IF
8675 IF
8676 LOCATE
8680 IF
8681 IF
8682 IF
8683 IF
8684 PRINT
8690 IF
8691 PRINT
8692 IF
8693 PRINT
8694 PRINT
8695 PRINT
8696 PRINT
8697 IF
8698 RETURN
8700 REM
8701 REM WTHR
8702 REM
8703 IF
8704 VARNAME
8705 IF
8706 IF
8707 GOSUB
8710 REM
8711 REM FCST CHANGE
8712 REM
8713 IF
8714 RETURN
8730 REM
8731 REM FCST CHECK
8732 REM
8733 IF
8734 RETURN
8750 REM
8751 REM LIGHT init
8752 VARNAME
8753 IF
8754 IF
8755 VARNAME
8760 REM
8761 REM LIGHT / TIME
8762 REM
8763 IF
8764 IF
8765 IF
8766 RETURN
8780 REM
8781 REM OUTFIELD
8782 REM
8783 VARNAME
8784 VARNAME
8785 IF
8786 VARNAME
8790 REM
8791 REM WTHER SUMMARY
8792 REM
8793 LOCATE
8794 FOR
8795 LOCATE
8800 REM
8801 REM WKT change
8802 REM
8803 IF
8804 VARNAME
8805 IF
8806 IF
8807 GOSUB
8810 REM
8811 REM WKT real v perc
8812 REM
8813 IF
8814 VARNAME
8815 GOSUB
8820 REM
8821 REM PITCH fcst chge
8822 REM
8823 IF
8824 VARNAME
8825 IF
8826 VARNAME
8900 REM
8901 REM HELP ADJ
8902 REM
8903 FOR
8904 NEXT
8920 REM
8921 REM HELP ADJUST (REAL FROM PERC)
8922 REM
8923 VARNAME
8960 REM
8961 REM inc/dec bowl speed
8962 REM
8963 VARNAME
8964 INC
8965 IF
8966 VARNAME
8970 REM
8971 REM inc/dec merit
8972 REM
8973 VARNAME
8974 IF
8975 VARNAME
8980 REM
8981 REM CHECK VAL 0-4
8982 REM
8983 IF
8984 RETURN
8990 REM
8991 REM CHECK VAL 0-9
8992 REM
8993 IF
8994 RETURN
90 REM
9000 REM
9001 REM ERROR WINDOW
9002 REM
9003 VARNAME
9004 PRINT
9050 REM
9051 REM ERROR MESSAGE
9052 REM
9053 VARNAME
9054 IF
9055 IF
9056 IF
9057 IF
9058 IF
9059 IF
9060 IF
9061 IF
9062 IF
9063 IF
9070 GOSUB
9071 NEXT
9072 IF
9073 CENTRE
9075 LOCATE
9076 NEXT
9077 WINDEL
9080 DATA
9081 DATA
9082 DATA
9083 DATA
9084 DATA
9085 DATA
9086 DATA
9087 DATA
9088 DATA
9089 DATA
9090 DATA
9091 DATA
9092 DATA
9093 DATA
9094 DATA
9095 DATA
9096 DATA
91 REM TOSS
9100 REM
9101 REM YES / NO WINDOW
9102 REM
9103 GOSUB
9104 IF
9105 LOCATE
9106 IF
9107 GOSUB
9110 REM
9111 REM OVERWRITE?
9112 REM
9113 VARNAME
9114 GOSUB
9150 REM
9151 REM 2 CHOICE WINDOW
9152 REM
9153 SHOW
9154 VARNAME
9155 VARNAME
9156 IF
9157 IF
9158 WINDEL
9159 IF
9160 IF
9161 IF
9162 GOTO
9170 VARNAME
9171 IF
9172 LOCATE
9180 REM
9181 REM ENABLE WINDOW
9182 REM
9183 VARNAME
9184 LOCATE
9185 CENTRE
9190 REM
9191 REM PLEASE WAIT
9192 REM
9193 PEN
9194 PRINT
9195 CURS
92 REM
9200 REM
9201 REM ABORTED
9202 REM
9203 VARNAME
9204 CENTRE
9205 PEN
9210 REM
9211 REM SUCCESS
9212 REM
9213 VARNAME
9214 CENTRE
9215 PEN
9220 REM
9221 REM ALIGN PAPER
9222 REM
9223 GOSUB
9224 CENTRE
9225 VARNAME
9227 GOSUB
9230 REM
9231 REM NOT AVAILABLE
9232 REM
9233 VARNAME
9240 REM
9241 REM HELP PROMPT
9242 REM
9243 GOSUB
9244 CENTRE
9245 VARNAME
9247 GOSUB
93 CLS
94 GOSUB
9490 REM
9491 REM DEBUG
9492 REM
9493 ON ERROR
9494 RETURN
9495 GOSUB
9496 GOTO
95 VARNAME
96 PRINT
97 VARNAME
9700 REM
9701 REM  STATUS
9702 REM
9703 VARNAME
9704 LOCATE
9705 FOR
9706 VARNAME
9707 VARNAME
9715 LOCATE
9716 CLEAR KEY
98 VARNAME
99 VARNAME