Rmc

50 INPUT"PRESS ENTER TO GO ON"; Z:CLS:PRINT"YOUR HEADQUARTERS IS

EQUIPPED WITH A PHONE AND A RADIO. YOU HAVE A CREW OF IS PEOPLE (BESIDES YOURSELF). THERE ARE 4 MEDIUM TRUCKS, EACH WITH A RADIO. THERE ARE 6 LOOKOUT TOWERS, EACH WITH A RADIO.

£0 PRINT"THE DISTRICT HAS 500,000 ACRES OF PONDEROSA PINE FORES T.

YOU WILL GET A STATUS REPORT AND A WEATHER REPORT EACH DAY. YOU CAN ESTIMATE FIRE DANGER FROM THE WEATHER REPORT. PRESS ENTER TO GO ON"?:INPUTZ:CLS

70 DEFINT B-Z:DEFSNG NsDIM W(42):A$="AUGUST":T$="FULL":AC=50000 0: D=6

85 PRINT"REMEMBER THAT THERE IS ALSO AN OLD VOLCANO, MOUNT ST. HELENS, NEARBY WHICH THREATENS TO GO ACTIVE AT ANY TIME. ¡T IS RUMBLING AND SMOKING." 90 PRINT"HOW MANY OF THE SIX LOOKOUT TOWERS DO YOU WANT TO MAN, REMEMBER THAT LOOKOUTS STAY IN THEIR TOWERS'ALL SUMMER AND CAN'T BE USED TO FIGHT FIRES, ETC."?:INPUTT:IFT>6CLS:PRINT" THERE ARE ONLY 6 TOWERS! ":GOTO90

100 IF D>36 A$="SEPTEMBER"

120 RE=0:GOTO 240

130 IF D=41 GOTO 3100

140 CLS:PRINT"DAILY STATUS REPORT: ";A$;" ";DA:PRINT:PRINT"LEFT AT BASE:": PRINT" MEN: " ", 18-K-M1-M2-T-H: PRINT" TRUCKS: "54 -T1-T2-B

150 PRINT: PRINT'iACRES OF TIMBER LEFT: " ;USING"###, ###" ;AC-A 160 IF F1=0 AND F¿S=0PRINT "NO FIRES BURNING TODAY":PRINT:PRINT: GOTO 320

oo 170 PRINTS512? "FIRE NO. " :PRINTa57G, "DAY" : PRINTSE40, "MEN" : PRINTS ° 704,"TRUCKS"

■ 190 PRINT3523,"1"*:PRINT3586,D1,:PRINTSE50,Ml":PRINT3714,T1 ^ 200 IF F2=0 GOTO 320 ;

C 210 PRINT3533,"2"I :PRINT3596, D2":PRINTS660,M2?:PRINT3724, T2, | 220 PRINTS 832,""

C 250 DC=DC+1:IF DC=3 THEN DC=0:GOTO 130

7 260 ON W-4 GOTO 270,270,280,280,290,290,300,300,300,300

> 270 A=A+200*DH+3:GOTO 310 O 2S0 A=A+50*DH+3:GOTO 310

290 A=A+20*DH+3: GOTO 310 g 300 A=A+5*DH-t-3: GOTO 310 O 310 DH=D2:G0T0 250

0 0

Post a comment