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