10 IF PEEK(49152)=169 THEN30
20 IFL=0THENL=1:LOAD"DEC ML",8,1
30 PRINT CHR$(8):GOTO580
40 M=3:W=1:C=1:S=25:P=25
50 PRINT"[147][158]GUNS";M;"     SCORE";N;"         [144] [215][215][215][215][215][215][215][215][215][215]";
60 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][209][209][209][209][209][209][209][209][209][209]";
70 PRINT"                                       [216]";
80 FORI=1TO21
90 PRINT"[216]                                      [216]";
100 NEXTI
110 FORI=1TO150
120 R=RND(1)*679+1
130 POKE1144+R,88
140 NEXTI:POKE1984,88:POKE2023,60:POKE1864,62
150 GOSUB190
160 SYS 50572:POKE251,211:POKE252,7
170 SYS 49152
180 GOTO240
190 SYS 49680:SYS 51432:POKE49299,2
200 POKE52994,C:POKE52996,S
210 POKE 52998,0:POKE52997,0
220 POKE52999,0:SS=2:POKE53013,SS:POKE53015,0:POKE6,0
230 FORXX=54272TO54295:POKEXX,0:NEXT:POKE54296,15:RETURN
240 REM
250 IFPEEK(52998)<10THENM=M-1:IFM=0THENPRINT"[147]":GOTO550
260 X=PEEK(52997):Y=PEEK(52998):SP=PEEK(53015):SI=PEEK(53002)
270 N=N+X*25+Y*50+SP*200+SI*1200
280 IFN=>12000*WTHENM=M+1:W=W+1
290 PRINT"[158]"TAB(5);M;TAB(17);N
300 PRINT"[145][144][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][209][209][209][209][209][209][209][209][209][209]"
310 SYS 50614
320 FORI=1TOX+Y+13
330 R=RND(1)*679+1
340 POKE1144+R,88
350 NEXTI
360 POKE1110+Z,32
370 Z=RND(1)*31+1
380 POKE1110+Z,88
390 IFPEEK(52998)<10THENP=P-1:GOTO490
400 C=C+1:IFC=15THENC=1
410 IFC/3<>INT(C/3)THEN480
420 ONC/3GOTO430,440,450,460,470
430 S=P-3:P=P-1:GOTO500
440 S=P-3:P=P-1:GOTO500
450 S=P-4:P=P-1:GOTO500
460 S=P-4:P=P-1:GOTO500
470 S=P-4:P=P-1:GOTO500
480 IFC<8THENS=P:GOTO500
490 S=P-1
500 IFS<7THENS=7
510 IFP=7THENP=13
520 GOSUB190
530 SYS 50572:POKE251,211:POKE252,7:SYS49152
540 GOTO240
550 PRINT"[147]GAME OVER"
560 PRINT:PRINT:PRINT"SCORE";N
570 FORS=1TO4000:NEXT
580 POKE53280,0:POKE53281,0:PRINT"[147]";
590 PRINT"      [223][146] [169] [223][146] [169] [223][146] [169] [223][146] [169] [223][146] [169] [223][146]   [223][146] [169] [223][146]"
600 PRINT"     [146]  [146]  [146]    [146]     [146]   [146]  [146]  [146]    [146]  [146]  [146]"
610 PRINT"     [146]  [146]   [146]   [146]     [146]    [146][169]   [146]   [146]  [146]   [146]"
620 PRINT"     [146]  [146]  [146]    [146]     [146]   [146]    [146]    [146]  [146]  [146]"
630 PRINT"      [146][169] [223] [146][169] [223] [146][169] [223] [146][169]  [146]   [223] [146][169]   [146][169] [223] [146][169]"
640 PRINT:PRINTSPC(8)"PRESS TRIGGER TO BEGIN[146]"
650 IFPEEK(56320)=111THENRUN 40
660 GOTO650