10 REM LOADSTAR PRESENTS... 30 REM FOREST FIRE FIGHTER 40 REM FOR THE C64 50 REM 60 REM BY IAN ADAM 70 REM VANCOUVER BC 80 REM (C) 1991 90 REM 100 REMEMBER: LOADSTAR IS NOT PUBLIC DOMAIN! 105 : 110 IF TR=0 THEN TR=1:A$="READER C800":GOTO 5100 115 IF TR=1 THEN TR=2:A$="FFF.TXT":GOTO 5100 120 GOSUB 2000, PICTURE 130 GOSUB 3000, SOUND 140 GOSUB 4000, INPUT 150 : 170 ON RE GOSUB 4990,,6000,,6000,,300 180 GOTO 120 270 : 280 : QUIT 290 : 300 A=6:GOSUB 600 340 PRINT TAB(60)"QUIT FIRE FIGHTER..." 350 PRINT TAB(23)"ARE YOU SURE?" 360 PRINT TAB(103)"[153]CONTINUE PROGRAM" 370 PRINT TAB(103)"BACK TO LOADSTAR"; 390 : 400 GOSUB 4050 410 IF RE-7 THEN RETURN 430 : 450 OPEN 1,8,15:OPEN 2,8,8,"HELLO CONNECT" 460 INPUT#1,A,B$:CLOSE 2:CLOSE 1 470 PRINT"[147]":POKE 54296,.:SYS 16387 480 IF A<20 THEN LOAD"HELLO CONNECT",8 490 LIST-100 500 : 580 : CLEAR MESSAGE 590 : 600 POKE 53280,A:POKE 53281,A 620 FOR I=17 TO 24 630 : IF I=20 THEN I=21 640 : SYS CR,I,23:PRINT" "; 650 NEXT 660 SYS CR,14:PRINT"" 670 RETURN 1970 : 1980 : TITLE SCREEN 1990 : 2000 S=53265:K=198:CA=54272:CR=16390 2010 F1$(0)="[158][178][180][182][180][179][180][182]":F1$(1)="[178][180] [180][181][182] " 2020 F2$(3)="[158][178][178] [178][180] [178][179][180][180][181][180][172][145][157][157][157][157] [179] [180]" 2030 GOSUB 2400 2040 SYS CR,21 2050 PRINT TAB(23)"INSTRUCTIONS" 2060 PRINT TAB(23)"FIGHT SOME FIRES" 2070 PRINT TAB(63)"BACK TO LOADSTAR" 2080 POKE 53269,RND(-TI):POKE S,27 2090 : 2100 A=3:L1=1024:L2=40:L3=25 2110 X2=53252:Y2=X2+1:CH=16396:LL=16402:FR=16408 2120 WI$(0)="[145] ^[157]\[157]\[145][146] ":WI$(1)="[185][145][185][145][184]" 2130 WI$(2)="]][146]]":WI$(3)="[145][188][188][186][145]" 2140 WI$(4)="[145] \[157]\[157][146]\[145] ":WI$(5)="[183][145][185][145][185]" 2150 WI$(6)="_]][146]":WI$(7)="[145][187][188][188][145]" 2160 C$="[145] [157][157][157] [157][157][157] [145][157][157][157]" 2170 : 2180 F1$(2)="[178][179][178][180][179][180][182][145][157][179]" 2190 F1$(3)=" [178][179][178][178][179][145] [157] ":F1$(4)="[178][180][178][179][178][180]" 2200 F2$(0)="[178][179][180][178][179] [178][179][179][178] [178] [145][157][157][157] ":F2$(1)=" [178][180][181][178] [178][179][180][180][179][178]" 2210 F2$(2)=" [179][179][180][180] [178][179][180][181][180][179][180][145][157][157][157][157][179]" 2220 F2$(4)="[178][179] [178][179] [178][179][178][180][181][179][145][157][157][157] [178] " 2230 L$(1)="APPRENTICE":B$(1)=" MAX: ":SC(1)=750 2235 L$(2)="ROOKIE":B$(2)=" MAX:":SC(2)=1000 2240 L$(3)="EXPERT":B$(3)=" MAX:":SC(3)=1250 2245 L$(4)="MASTER SMOKIE":B$(4)=" MAX:":SC(4)=2000 2250 POKE 53248,.:POKE 53264,. 2260 POKE 53271,.:POKE 53277,.:POKE 53275,.:POKE 53276,1 2270 POKE 53285,10:POKE 53286,1:POKE 53287,1:POKE 53289,1 2280 POKE 2040,221:POKE 2041,222:POKE 2042,223 2290 CR(.)=216:CR(1)=217:CR(2)=1:CR(3)=41 2300 CR(4)=40:CR(5)=39:CR(6)=255:CR(7)=215 2310 SF(1)=1.15:SF(3)=1.30:SF(5)=1.35:SF(7)=1.77 2340 SYS 16685 2350 RESTORE:FOR I=. TO 4:READ G$(I),M$(I),P$(I):NEXT 2360 RETURN 2362 DATA NOT BAD!,PRACTICE MAKES PERFECT,NO TREE IS SAFE 2364 DATA THERE'S HOPE FOR BAMBI!,ROME BURNS WHILE NERO FIDDLES,YOU'RE FIRED 2366 DATA READY FOR A CHALLENGE?,WHEW! IT'S HOT HERE!,NOT SO BETTER... 2368 DATA HOT STUFF!,"THE FOREST IS JUST NATURE'S WAY OF  SAYING 'GET LOST'" 2370 DATA THE HILLS ARE ALIVE...,A TEDDY BEAR'S PICNIC 2372 DATA CAN'T SEE THE FOREST FOR THE TREES,STAND BY- I'LL EVACUATE SEATTLE 2375 : 2380 : SCREEN 2390 : 2400 POKE 53280,.:POKE S,11:POKE 53281,.:POKE 53272,31 2410 F$="[150][192][193][157][157][208] [145]" 2420 R$="[194][195][157][157][210][211][145]" 2430 E$="[196][197][157][157][212][213][145]" 2440 I$="[198][157][214][145]" 2450 G$="[199][200][157][157][215][216][145]" 2460 H$="[201][202][157][157][217][218][145]" 2470 T$="[203][204][157][157][219] [145]" 2480 F1$=F$+I$+R$+E$ 2490 F2$=F$+I$+G$+H$+T$+E$+R$ 2500 PRINT "[147][154]"TAB(59)"[146]LOADSTAR PRESENTS...[150]" 2510 PRINT TAB(146)F1$(.) 2520 PRINT TAB(25)F1$ 2530 PRINT TAB(63)F2$(3) 2540 PRINT TAB(22)F2$ 2550 PRINT TAB(143)"[154]BY IAN ADAM" 2560 PRINT TAB(23)"VANCOUVER BC" 2570 PRINT TAB(183)"[158]PRESS:" 2580 PRINT TAB(59)"F1" 2590 PRINT TAB(19)"F3" 2600 PRINT TAB(19)"F5" 2610 PRINT TAB(19)"F7" 2620 : 2630 PRINT "[149]" 2640 A$=" [160] [160][161]":B$=" [161] [160][160]" 2650 PRINT A$:PRINT B$:PRINT " [160] [161][160]":PRINT " [161] [161][160]":PRINT A$ 2660 PRINT B$:PRINT " [160] [162][160][161][163]":PRINT " [162][161][163] [164][160][160][165]" 2670 : 2700 PRINT "[153] [176][177]" 2710 PRINT "[153] [166][170][169]" 2720 PRINT "[153] [166][167][170][171][169]" 2730 PRINT " [166][169] [153][166][170][174][171]" 2740 PRINT " [166][173][169] [153][166][172][170][174][171][169]" 2750 PRINT " [166][173][169] [153][176][170][174][173][175][171]" 2760 PRINT " [166][172][169] [153][166][172][170][174][171][169]" 2770 PRINT " [166][173][173][169] [153][166][170][174][173][175][171][169]" 2780 PRINT " [166][172][174][173][169] [153][166][170][172][171][167][175][171][173]" 2790 PRINT " [166][172][175][169] [153][166][172][174][167][172][175][171][169]" 2800 PRINT " [166][172][175][174][173][173][169] [153][172][172][171][181][175][171][175][168][169]" 2810 PRINT " [176][172][167][181][169][173][153][176][172][174][173][175][175][173][175][171][169]" 2820 PRINT "[166][167][172][175][174][177][173][177][169][153][166][172][174][174][173][175][171][169]" 2830 PRINT " [166][174][174][177][168][169][173][153][172][172][170][175][173][153][175][171][173][177]" 2840 PRINT " [176][172][167][172][175][171][153][166][170][172][174][174][174][173][175][174][173][168][169]" 2850 PRINT "[166][172][167][175][176][175][153][176][167][172][174][172][153][176][167][173][173][175][153][171][175][173]" 2860 PRINT " [176][172][167][168][173][169][153][166][172][167][175][172][181][173][169][171][169][153][175][171][173][169]" 2870 PRINT " [166][172][173][168][177][153][176][167][182][167][174][177][174][171][177][175][169]" 2880 PRINT " [176][171][173][169][153] [166][182][174][168][175][173][169][157][157][157][171][177]" 2890 FL=1:RETURN 2970 : 2980 : SET UP SOUND CHIP 2990 : 3000 FOR I=CA TO CA+24:POKE I,.:NEXT 3010 : 3100 POKE CA+13,45:REM WIND 3110 POKE CA+15,255:POKE CA+19,1:REM FIRE 3120 POKE CA+1,6:POKE CA+6,252:REM PLANE 3130 POKE CA+24,11:RETURN 3970 : 3980 : INPUT 3990 : 4000 POKE FR,.:POKE FR+1,5:POKE FR+2,1:POKE FR+3,20:POKE FR+4,4 4010 POKE CA+11,129:POKE CA+18,129:CT=. 4020 IF PEEK(FR+6)>4 THEN POKE FR+6,3 4050 GET A$:RE=VAL(A$) 4070 IF A$>="[133]" THEN IF A$<"[140]" THEN RE=ASC(A$)*2-265 4080 IF A$=CHR$(13) THEN RE=1 4090 IF RE AND 1 THEN RETURN 4095 : 4100 IF FL=. THEN 4160 4120 A=A+1:IF A>4 THEN A=. 4130 PRINT "[158]"TAB(226)F1$(A) 4140 PRINT TAB(103)F2$(A) 4150 : 4160 CT=CT+1:IF CT<150 THEN 4050 4180 POKE FR,15 4190 IF CT<650 THEN POKE FR+1,CT/25 4200 GOTO 4050 4960 : 4970 : INSTRUCTIONS 4980 : 4990 PRINT "[147]" 5000 POKE 54296,.:TR=PEEK(53269):POKE 53269,.:FL=.:POKE 53272,23 5010 SYS 51200,""," [198]IRE [198]IGHTER'S [205]ANUAL " 5015 POKE 53272,31:POKE 54296,11:POKE 53269,TR 5020 RETURN 5030 : 5100 OPEN 1,8,15:OPEN 2,8,8,A$ 5110 INPUT#1,A,B$:CLOSE 2:CLOSE 1 5120 IF A<20 THEN LOAD A$,8,1 5130 PRINT"UNABLE TO LOCATE FILE '"A$"'." 5140 PRINT"PLEASE INSERT PROGRAM DISK IN DRIVE &" 5150 PRINT"PRESS RETURN, OR PRESS '*' TO QUIT:":WAIT 198,7:GET B$ 5160 IF B$<>"*" THEN 5100 5170 GOTO 450 5200 : 5730 PRINT"EVERY THREE TURNS. [200]OWEVER, YOU WILL" 5740 PRINT"START OUT WITH TWO CREWS ON STANDBY.":PRINT 5750 PRINT" [201]T IS ONLY RARELY THAT A FIRE WILL" 5760 PRINT"BE ABLE TO JUMP OVER SUCH A CAREFULLY" 5780 PRINT:PRINT" [217]OUR GREATEST CON.. 5782 [153]"WIND. (null)ATCH ITS DIRECTION CAREFULLY," 5784 [153]"AND TRY TO ANTICIPATE THE FIRE'S" 5786 [153]"SPREAD. (null)ITH LUCK YOU WILL CONTAIN" 5788 [153]"THE FIRE. PEEKUT WATCH FOR A SUDDEN" 5790 [153]"CHANGE IN WIND DIRECTION, WHICH COULD" 5792 [153]"TURN YOUR PLANS TO ASHES!" 5794 : 5800 [153]:[153]" (null)HIS SIMULATION GIVES YOU A CHOICE" 5810 [153]"OF FOUR DIFFICULTY LEVELS. (null)NTIL YOU" 5820 [153]"LEARN THE ROPES, RIGHT$ WOULD STRONGLY" 5830 [153]"SUGGEST@THE BEGINNER LEVELS!":[153] 5840 [153]" (null)HE FOREST AREA WILL THEN BE SHOWN." 5850 [153]"(null)OU WILL QUICKLY RECOGNIZE THE FIRES" 5860 [153]"SHOWN IN RED (THEN YELLOW), HOUSES IN" 5870 [153]"WHITE, AND LAKES IN BLUE. (null)SE THE" 5880 [153]"CURSOR KEYS TO INDICATE A TARGET, THEN":[153]"PRESS:":[153] 5890 [153]"- (null) FOR YOUR WATER BOMBER" 5900 [153]"- PEEK TO START A BACKFIRE" 5905 [153]"- ASC TO CUT A FIREBREAK" 5910 [153]"- LEFT$ FOR HELP (TO REVIEW THIS MANUAL)." 5915 [153]:[153]"(null)HE SCREEN WILL SHOW HOW MANY CREWS" 5920 [153]"ARE AVAILABLE TO YOU FOR FIREBREAKS." 5930 [153]"(null)OU CAN PRESS (null) TO QUIT, IF THE GOING" 5935 [153]"GETS TOO TOUGH. RIGHT$F YOU DON'T QUIT," 5940 [153]"BUT PUT THE FIRES OUT INSTEAD, YOU 5945 PRINT"WILL BE GIV@ YOUR SCORE, BASED ON HOW 5950 [153]"MUCH FOREST AND HOW MANY HOMES YOU":[153]"HAVE SAVED. 5955 PRINT:PRINT" [199]OOD LUCK, AND MAY YOU LIVE LONG 5960 [153]"ENOUGH TO BENEFIT FROM THE EXPERIENCE! 5962 PRINT:PRINT:PRINT" [205]ANUAL COURTESY OF [202]EFFREY [202]ONES":PRINTCHR$(0) 5965 PRINT#1:CLOSE1:END 5970 : 5980 : FIGHT FIRES: 5990 : 6000 A=.:GOSUB600 6010 PRINT TAB(60)"HOW TOUGH ARE YOU?[153] 6020 [129] I[178]1[164]4:[153]:[153][163]22)L$(I);:[130] 6060 [151] S,27 6080 : 6090 [141] 6500, [129]EST 6095 : 6100 [151] 53269,4 6110 [129] I[178]1 [164] 1E9:[161] A$ 6120 [139] A$[178]"CMD" [167] [139] X [167] [151] X2,[194](X2)[171]8:X[178]X[171]1:[130] 6130 [139] A$[178]"" [167] [139] X[179]24 [167] [151] X2,[194](X2)[170]8:X[178]X[170]1:[130] 6140 [139] A$[178]"ON" [167] [139] Y [167] [151] Y2,[194](Y2)[171]8:Y[178]Y[171]1:[130] 6150 [139] A$[178]"" [167] [139] Y[179]24 [167] [151] Y2,[194](Y2)[170]8:Y[178]Y[170]1:[130] 6160 [139] A$[178]"" [167] [151] X2,16:[151] Y2,44:X[178].:Y[178].:[130] 6190 : 6200 [139] A$[178]"Q" [167] 9020 6210 [139] A$[178]"W" [167] [141] 7500:[137] 6260 6220 [139] A$[178]"B" [167] [141] 8000:[137] 6260 6230 [139] A$[178]"F" [167] [141] 8200:[137] 6260 6240 [139] A$[178]"H" [167] [141] 5000 6250 [130] 6260 [139] [194](FR[171]1) [167] 6100 6270 : 6300 [153] "OPEN":[158] CR,8,24 6310 R$[178]" ":[153] R$ 6320 [153] [163]24)" YOUR SCORE: " 6330 [153] [163]24)[200](" "[170][196]([181](SC))[170]" OUT OF ",16) 6340 [153] [163]24)[200](" "[170][196](MS)[170]" MAXIMUM ",16) 6350 [153] [163]24)R$ 6360 : 6400 [139] SC[177].99[172]MS [167] A$[178]"* WOW! *":[137] 6450 6410 A[178][181]([187](.)[172]9):[139] A[177]4 [167] 9000 6420 A$[178]P$(A) 6430 [139] MS[173]SC[179]2 [167] A$[178]M$(A) 6440 [139] SC[173]MS[177].9 [167] A$[178]G$(A) 6450 [153] "SYS "A$" ":[137] 9000 6470 : 6480 : DO [129]EST 6490 : 6500 [141] 4050:LV[178](RE[170]1)[173]2 6510 [151] LL,LV 6520 [151] LL[170]2,LV[171]1[171](RE[178]1) 6530 SF[178]SF(RE) 6540 MX[178]9[170]11[172]LV 6550 MS[178]SC(LV) 6590 : 6600 SC[178]MS 6610 WW[178]5[172]LV[170][181]([187](1)[172]11)[170]5 6620 WD[178][181]([187](1)[172]8) 6630 [153] "LOAD"[163]29)F1$(.) 6640 [153] [163]28)F1$ 6650 [153] [163]66)F2$(3) 6660 [153] [163]26)F2$ 6690 : 6700 [151] S,27:[158] CH[171]3:[143] DRAW 6710 FB[178]2:T[178]1 6990 : 7000 [153] [163]106)"PRINT"L$(LV) 7010 [153] [163]26)"SYSTURN: "T 7020 [153] [163]26)"SCORE:"SC 7030 [153] [163]32)"CONTN" 7040 [153] [163]29)"NW NE" 7050 [153] [163]68)"W "WI$(WD)"CONT E" 7060 [153] [163]69)"SW SE" 7070 [153] [163]32)"S" 7080 [153] [163]26)"WIND:"WW"MPH" 7090 [153] [163]31)[181](1.61[172]WW)"KM/HPRINT" 7100 [153] [163]66)"DEFFIREBREAKS"[196](FB) 7110 [153] [163]26)"CONTW DROP WATER" 7120 [153] [163]26)"F FIREBREAK" 7130 [153] [163]26)"B BACKFIRE" 7140 [153] [163]26)"H HELP CLRQ QUIT" 7150 : 7160 X[178]12:Y[178]12:FL[178]. 7170 [151] X2,112:[151] Y2,140:[151] 53269,4 7180 [142] 7470 : 7480 : WATER BOMBER 7490 : 7500 A[178]53248:B[178]53251:C[178]54286:[151]CA[170]1,8.2[170][187](.) 7510 D[178]X[172]8:E[178]Y[172]8[170]35:F[178]232[171]X[172]5.3 7520 [151] A,.:[151] A[170]1,E[170]2:[151] A[170]2,D:[151] B,E:[151] C,F:[151] 2041,222 7530 [139] E[179]43 [167] [151] A[170]1,43 7540 [151] 53288,14:[151] 53269,1 7550 [151] 54287,3 7560 [151] 54276,.:[151] 54296,6:[151] 54276,19:[151] FR,. 7570 : 7600 [129] I[178]9 [164] D[171]1 [169] 2:[151] A,I:[151] C,F[171]I[173]3:[130] 7610 [151] 53269,3 7620 [129] I[178]D [164] D[170]14:[151] A,I:[151] A[170]2,I:[151] B,E:E[178]E[170].5:[130] 7630 [129] I[178]D[170]15 [164] D[170]46:[151] A,I:[151] C,240[171]I:[130] 7640 [151] 53288,15:[151] 2041,220 7650 [129] I[178]D[170]48 [164] 240:[151] A,I:[151] C,240[171]I:[130] 7670 [151] 53288,12:[151] 54276,18:[151] 53269,2 7690 : 7700 J[178]L1[170]X[170]L2[172]Y:C[178][194](J[170]CA) [175] 15:[143] RESULT 7705 [151] 53288,11:[151] FR,[194](FR[171]1) 7710 : 7720 [139] C[178]5 [167] [139] [194](J)[177]27 [167] [151] J,125:[137] 7900:[143] FOREST 7730 [139] [194](J)[178]95 [167] [151] J[170]CA,12:[137] 7900:[143] HOUSE 7740 : 7750 [143] FLAMES: 7760 [139] (C[171]2)[172](C[171]8) [167] 7770 7765 [151] J,32:[151] J[170]CA,.:[137] 7900 7770 [139] C[178]7 [167] [151] J[170]CA,10:[137] 7900 7780 [139] C[171]10 [167] 7900,[168] FLAME 7790 : 7800 [139] [194](J)[178]92 [176] [194](J)[178]93 [167] [151] J[170]CA,7:[151] J,127:[137] 7850 7820 [139] [194](J)[178]127 [167] [151] J,125:[137] 7900 7830 [151] J[170]CA,8 7850 [139] [187](.)[179].5 [167] 7765 7890 : 7900 [151] 54276,.:[151] 53269,.:[151] 54287,255:[151] 54296,11 7910 [137] 8300 7970 : 7980 [143] BACKFIRE 7990 : 8000 A[178]L1[170]X[170]L2[172]Y 8020 [139] ([194](A[170]CA) [175] 15)[171]5 [167] [142] 8030 [151] A,127:[151] A[170]CA,7 8040 SC[178]SC[171]SF 8100 [137] 8300 8170 : 8180 [143] FIREBREAK 8190 : 8200 A[178]L1[170]X[170]L2[172]Y 8220 [139] ([194](A[170]CA) [175] 15)[171]5 [167] [142] 8230 [139] FB[179]1 [167] [142] 8250 [151] A,27:FB[178]FB[171]1 8270 : 8280 [143] GET RESULTS 8290 : 8300 D[178]CR(WD):[129] I[178]1 [164] 700:[130] 8310 PR[178]12[172]WW:[139] WW[177]16 [167] PR[178]150[170]3[172]WW:[139] PR[177]255 [167] PR[178]255 8320 [151] LL[170]1,PR:[151] LL[170]3,D 8330 [158] CH 8340 SC[178][182](SC[171]SF[172][194](LL[170]4)) 8350 [139] [194](FR[171]1)[178]. [167] [142] 8360 [139] [187](.)[177].25[172](LV[171]1.3) [167] 8600 8370 : 8380 [143] SIDEWAYS 8390 : 8400 [129] I[178]. [164] 9 8410 : B[178]L1[170][181]([187](.)[172]L3)[172]L2[170][181]([187](.)[172]L3) 8420 : C[178][194](B[170]CA) [175] 15 8430 : [139] (C[171]2)[172](C[171]7)[172](C[171]8)[172](C[171]10) [167] [130]:[137] 8600,NO FLAME 8440 : 8450 A[178]CR((WD[171]1[170](I [175] 2))[175] 7) 8460 [139] A[177]99 [167] A[178]A[171]256 8470 A[178]B[170]A:C[178][194](A[170]CA)[175] 15 8480 B[178][171](C[178]5) 8490 [139] [194](A)[178]95 [167] B[178]6[170]4[172]LV 8500 [139] B [167] SC[178][182](SC[171]SF[172]B):[151] A,92:[151] A[170]CA,10 8510 : 8580 [143] RESULTS 8590 : 8600 T[178]T[170]1:[153] "SYS" 8610 [158] CR,8,32:[153] [196](T) 8620 [153] [163]32)[181](SC)[199](20) 8630 [151] FR,[194](FR[171]1) 8690 : 8700 A[178]WW[170][181]([187](.)[172]13)[171]6[171]4[172](WW[179]MX[173]2) 8710 [139] A[177][178]. [167] [139] A[179][178]MX [167] WW[178]A:[151] FR[170]1,A:[151] FR[170]3,A[172]4:[151] CA[170]24,11[170]WW[173]11 8720 [153]"":[139] T[179]5 [176] [187](.)[177].2[170]MX[173]150 [167] 8760 8740 WD[178](WD[171]2[170][181](5[172][187](.)))[175] 7:[153] [163]31)C$WI$(WD); 8750 : 8760 [153] [163]191)[196](WW)" MPH"[199](20) 8770 [153] [163]31)[196]([181](WW[172]1.61))" KM/H"[199](20) 8890 : 8900 [139] [181](T[173]3)[178]T[173]3 [167] FB[178]FB[170]1 8910 [153] [163]76)" CMDCMDCMDDEF" [196](FB) 8920 [142] 8990 : 9000 [151] CA[170]4,33 9005 [151] CA[170]1,6:[129]I[178]6[164]30[169] .8:[151] CA[170]1,I:[130]:J[178]9[174]9 9007 [151] CA[170]1,6:[129]I[178]6[164]30[169] .8:[151] CA[170]1,I:[130]:[129]I[178]1[164]100:[130]:[151] CA[170]4,. 9010 [139] SC[177][197](SC$(LV,5)) [167] [141] 9500 9020 [151] FR,.:[151] FR[170]1,6 9100 [153]"OPEN":[158] CR,19 9110 [153]"F1 FIGHT AGAIN " 9120 [153] "F3 NEW LEVEL " 9130 [153] "F5 HIGH SCORES " 9140 [153] "F7 FIRE " 9150 [153] " SEASON'S OVER WAIT"; 9160 [151] 53269,. 9200 [141] 4000 9210 [139] RE[177]5 [167] [142] 9220 [139] RE[178]1 [167] [141] 6600:[137] 6100 9240 [139] RE[178]3 [167] [141] 2400:[137] 6000 9250 [141] 10000:[137] 9100 9490 : 9500 [158] CR,3:A[178]1:L[178]10:[141] 11000 9505 [153][163]4)"FORCONGRATULATIONS,":A$[178]L$(LV):[141]11100:[153] 9510 [153][163]4)"YOUR SCORE WILL" 9512 [153][163]4)"BE CARVED IN THE":[153] 9514 [153]" -+ SMOKE EATERS +-" 9516 [153]" -+ HALL OF FLAME! +-" 9520 [153]"":L[178]4:[141] 11000 9530 [153][163]7)"YOUR NAME?" 9540 N$[178]"":[153][163]5)""; 9550 [129] L[178]1 [164] 16 9560 : [153]"*CMD";:[161] A$ 9570 : [139] A$[178][199](13) [167] 9650 9580 : [139] A$[178][199](20) [167] [139] L[177]1 [167] L[178]L[171]2:N$[178][200](N$,L):[153]"CMD CMDCMD";:[130] 9590 : [139] A$[179]" " [176] A$[177]"_" [167] 9560 9600 : N$[178]N$[170]A$:[153]A$; 9620 [130] 9650 N$(LV,5)[178][200](""[170]N$[170]" ",17) 9660 SC$(LV,5)[178][201](" "[170][196]([181](SC)),5) 9700 [141] 10000:N$(LV,5)[178][202](N$(LV,5),2) 9710 [129] I[178]4 [164] 1 [169][171]1 9720 [139] [197](SC$(LV,I))[177][178][197](SC$(LV,I[170]1)) [167] [142] 9730 A$[178]SC$(LV,I):SC$(LV,I)[178]SC$(LV,I[170]1):SC$(LV,I[170]1)[178]A$ 9740 [151] CA[170]1,10:[151] CA[170]4,33 9750 A$[178]N$(LV,I):N$(LV,I)[178]N$(LV,I[170]1):N$(LV,I[170]1)[178]A$ 9760 [151] CA[170]1,12 9770 [158] CR,LV[172]6[170]I[171]7:[153]:LE[178]LV 9780 [153][163]17)""N$(LE,I)SC$(LE,I) 9785 [153][163]17)" " 9790 [153][163]17)"ONSYS"N$(LE,I[170]1)SC$(LE,I[170]1) 9800 [129] A[178]13[164]30:[151] CA[170]1,A:[130] 9810 [151] CA[170]4,.:[130] 9900 [142] 9990 : 10000 [153]"LOADSYSDEFTOTOTOTOTOTOTOTOTOTOTO":[153]" FOR POKEFN" 10010 [153]" FOR CURRENT POKEFN":[153]" FOR HIGH POKEFN":[153]" FOR SCORES: POKEFN" 10020 [153]" FOR POKEFN":[153]" VERIFYTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(POKEFN":[153]" POKETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( " 10030 [153]""; 10100 [129] LE[178]1 [164] 4 10110 : [153][163]13)"PRINT"L$(LE)B$(LE)SC(LE)"CMD " 10120 : [129] I[178]1 [164] 5 10130 : [153]"PRINT#"[163]14)I"SYS"N$(LE,I)[163]33)SC$(LE,I) 10140 : [130] 10150 [130] 10160 [142] 10990 : 11000 [153][163]A)"DEFTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO" 11010 [129]I[178]1[164]L 11020 [153][163]A)"FOR POKEFN" 11030 [130] 11040 [153][163]A)"VERIFYTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(POKEFN" 11050 [153][163]A)"POKETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( FORON" 11060 [153][200]("ONONONONONONONONONON",L); 11070 [142] 11090 : 11100 [153] [163]A[170]11[171][195](A$)[173]2)"FOR"A$:[142] 11900 : 18000 A[178]1024:B[178]0:[129] I[178]0 [164] 15:[129]J[178]B[164]B[170]15:[151]A[170]J,J:[130]:A[178]A[170]24:B[178]B[170]16:[130] 18010 [153][194](61)[170]22[194](62)