10 CLS:WIDTH20,8:MEMSET2816:OPTIONBASE0:DIMX%(108),Y%(108):X%(0)=0:Y%(0)=0:Z%=3
20 PRINTCHR$(23):PRINTTAB(6)+"Fireman!":PRINTTAB(6)+"Fireman!"
30 FORI=1TO3:FORJ=1TO55STEP3:SOUNDJ,1:NEXTJ,I
40 J=0:RESTORE:POKE286,10:POKE287,64:FORI=2624TO2629:READJ:POKEI,J:NEXTI
50 FORO=0TO90STEP18:RESTORE290:FORI=1TO18:READX%(O+I),Y%(O+I):NEXTI,O
60 CLS:T%=1:U%=4:V%=2:W%=8:INPUT"Default";A$:IFA$=""THEN80ELSE70
70 CLS:INPUT"  ���";T%:INPUT"�/���";U%:INPUT"�/���";V%:INPUT"�/���";W%
80 T%=ABS(T%)MOD2:U%=ABS(U%-1)MOD10+1:V%=(ABS(V%-1)MOD4+2)*18
90 J=0:FORI=(T%+2)TOU%:J=J+(18-T%)\(I-T%):NEXTI:U%=J+(T%+1):IFT%THENRESTORE310ELSERESTORE330
100 CLS:LOCATE19,3:PRINT"�";:LOCATE0,0:PRINT"��";:FORI=1TO3:LOCATE0,I:PRINT"��";:NEXTI
110 FORI=0TO999:NEXTI:LOCATE3,3:PRINT"���";
120 FORI=1TO3:FORJ=56TO51STEP-1:SOUNDJ,1:SOUND51,1:SOUND56,1:NEXTJ,I
130 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1:NEXTJ,I
140 FORM=1TOU%:READK,L:FORN=19TOV%+K:FORO=N TON-K STEP-L
150 IFO>=19ANDO<=V%THENB$="�"ELSEB$=" "
160 LOCATEX%(O-1),Y%(O-1):PRINT" ";:LOCATEX%(O),Y%(O):PRINTB$;
170 A$=INKEY$:IFA$=CHR$(28)THENGOSUB230ELSEIFA$=CHR$(29)THENGOSUB240
180 IFY%(O)=2ANDX%(O)<18ANDB$="�"THENGOSUB250ELSESOUND11,1
190 NEXTO,N,M
200 CLS:PRINT"�:",R%:PRINT"�:",S%:PRINT"�:";100*R%/(R%+S%);"%";
210 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
220 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K:CLS:END
230 LOCATEZ%,3:PRINT"   ";:Z%=(Z%+5)MOD15:LOCATEZ%,3:PRINT"���";:RETURN
240 LOCATEZ%,3:PRINT"   ";:Z%=(Z%+10)MOD15:LOCATEZ%,3:PRINT"���";:RETURN
250 IFX%(O)=Z%+1THENSOUND21,1:R%=R%+1:RETURN
260 LOCATEZ%+1,3:PRINT"�";:LOCATEX%(O),Y%(O):PRINT"�";
270 FORI=1TO4:SOUND56,1:SOUND1,1:NEXTI:S%=S%+1:IFS%=W%THEN200ELSERETURN
280 DATA86,37,47,37,86,0
290 DATA2,0,3,1,4,2,5,1,6,0,7,0,8,1,9,2,10,1
300 DATA11,0,12,0,13,1,14,2,15,1,16,0,17,0,18,1,19,2
310 DATA1,17,1,1,2,1,4,2,6,3,8,4,10,5,12,6,14,7,16,8,3,1,6,2,9,3,12,4,15,5
320 DATA4,1,8,2,12,3,16,4,5,1,10,2,15,3,6,1,12,2,7,1,14,2,8,1,16,2,17,1
330 DATA1,17,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9
340 DATA2,1,4,2,6,3,8,4,10,5,12,6,3,1,6,2,9,3,12,4
350 DATA4,1,8,2,12,3,5,1,10,2,15,3,6,1,12,2,7,1,14,2,8,1,16,2,17,1