4000 POKE53281,14:POKE53280,14:I=1:S=13:PRINT"{white}!!!!!!!!!!!!!!{space*8}!!!!!!!!!!!!!!!!!":POKEM4,17:
FORU=100TO10STEP-1:POKEM5,U:POKEM6,UL:NEXT:FORU=50TO80:POKEM5,U:POKEM6,UL:NEXT:RETURN
4100 POKE53280,13:POKE53281,13:I=1:POKEV+39,2:POKEV+40,2:
L=L-1:IFH=6THENPRINT"{blue}!!!!!!!!!!!!!!!!!{space*6}!!!!!!!!!!!!!!!!":RETURN
5000 POKEV+41,11:UM=200:POKEM1,15:POKEM2,10:POKEM3,200:POKEM4,17:
POKE2042,195:FORU=100TO200STEP1:IFAX<>0THENPOKEV+16,4
5036 POKEM5,UM:POKEM6,100:POKEV+4,AM:POKEV+5,U:UM=UM-2:NEXTU:POKEM4,129:
FORU1=15TO1STEP-.1:POKEM1,U1:POKEM5,30:POKEM6,100:NEXT:POKEM5,0:POKEM6,0:
FORU1=1TO500:NEXT:POKEV+21,0:L=L+1:IFL<3THENPOKEV+21,0:POKEV+16,0:GOTO25
5100 PRINT"{clear}":AM=20:FORU=1TO30:PRINT"{home}{down*17}"TAB(U)G$(1):
PRINTTAB(U)G$(2):PRINTTAB(U)G$(3):PRINTTAB(U)G$(4):PRINTTAB(U)G$(5):
FORU1=1TO100:NEXT:POKEV+21,0:POKEM1,15:POKEM4,33:POKEM5,AM:POKEM6,100:
IFAM=20THENAM=15:GOTO5180
5170 IFAM=15THENAM=20
5180 NEXT:POKEM5,0:POKEM6,0:POKE53272,21:PRINT"{clear}":POKE53280,15:POKE53281,15:
PRINTCHR$(14):PRINT"{blue}{right*13}W-I-P-E{space*2}O-U-T ":
PRINT"{down*3}{green}You were splatted by the "NS$(H):IFH=3THENH=H2
5230 PRINT"{down*3}{red}You covered:{green}"P"{red}metres.":
PRINT"{purple}{down*3}Longest distance covered is{gray}";:IFHS<PTHENHS=P
5237 PRINTHS"{purple}metres.":FORU=1TO22STEP2:POKEM5,FM(U):POKEM6,100:FORU1=1TOFM(U+1):NEXT:
POKEM5,0:POKEM6,0:NEXT:FORU=1TO3000:NEXT:PRINT"{down*5}{blue}{space*13}{reverse on} Press fire. ":U=0
5260 IFPEEK(56320)=111THEN11
5270 U=U+1:IFU<1500THENGOTO5260 5
280 GOTO11