100 POKE52,28:POKE56,28:CLR:POKE36878,15:GOSUB270:GOSUB480
110 S1=0:S2=0:GOSUB430:IFFLTHEN100
120 PRINT"[147]":C=30720
130 R=R+1:IFS1>=100OR(S2>=100ANDNP=2)OR(R=11ANDNP=1)THEN540
140 FORA=7724TO7745:POKEA,160:POKEA+C,0:POKEA+440,160:POKEA+440+C,0:NEXT
150 FORA=7746TO8142STEP22:POKEA,160:POKEA+C,0:POKEA+21,160:POKEA+21+C,0:NEXT
160 IFB$="Y"THENGOSUB510
170 IFNP=2THENPRINT"RED"S1"[146]       BLUE"S2
180 IFNP=1THENPRINT"SCORE"S2""SPC(12)"ROUND"R
190 POKE251,225:POKE252,30:POKE253,235:POKE254,30:POKE837,7:POKE838,D1
200 TI$="000000":SYS7168:SC=INT(TI/60):IFNP=1THENSC=SC*LV
210 ONPEEK(834)GOTO220,230
220 SP=PEEK(870)+256*PEEK(871):GOSUB240:S2=S2+SC:GOTO120
230 SP=PEEK(872)+256*PEEK(873):GOSUB240:S1=S1+SC:GOTO120
240 POKE36877,130:FORA=1TO6
250 POKESP,PEEK(SP)-2*(PEEK(SP)AND128)+128:FORB=1TO400:NEXT:POKE36878,6-A:NEXT
260 POKE36877,0:POKE36878,15:RETURN
270 REM OPTION ROUTINE
280 POKE36879,25:PRINT"[147]"TAB(7)"TRAP 'EM":POKE198,0
290 PRINT""TAB(5)"1[146] ONE PLAYER":PRINT""TAB(5)"2[146] TWO PLAYER"
300 PRINTSPC(5)"3[146] QUIT"
310 GETA$:IFA$<"1"ORA$>"3"THEN310
320 IFA$="3"THENPRINT"[147]":END
330 NP=VAL(A$):POKE836,NP
340 D1=11:POKE843,0:IFNP=2THEN380
350 PRINT" J[146]OYSTICK OR K[146]EYBOARD"
360 GETA$:IFA$="J"THENPOKE843,1:D1=7:RETURN
370 IFA$<>"K"THEN360
380 PRINT"[147]WHICH KEY TO GO UP":WAIT198,1:A(1)=PEEK(197):POKE198,0
390 PRINT"WHICH KEY TO GO DOWN":WAIT198,1:A(2)=PEEK(197):POKE198,0
400 PRINT"WHICH KEY TO GO LEFT":WAIT198,1:A(3)=PEEK(197):POKE198,0
410 PRINT"WHICH KEY TO GO RIGHT":WAIT198,1:A(4)=PEEK(197):POKE198,0
420 FORA=1TO4:POKE829+A,A(A):NEXT:RETURN
430 PRINT"[147]   ENTER SPEED (0-9)"
440 PRINT"  OR (C) FOR OPTIONS"
450 GETA$:IF(A$<"0"ORA$>"9")ANDA$<>"C"THEN450
460 IFA$="C"THENFL=1
470 LV=VAL(A$):P=60-LV*6:POKE839,P:POKE840,P:LV=LV+1:RETURN
480 PRINT"[147]DO YOU WANT BARRIERS?"
490 GETB$:IFB$<>"Y"ANDB$<>"N"THEN490
500 RETURN
510 FORA=1TO15
520 Q=RND(1)*430+7746:IFPEEK(Q)<>32OR(Q>7899ANDQ<7922)THEN520
530 POKEQ,160:POKEQ+C,0:NEXT:RETURN
540 IFNP=2THEN580
550 PRINT"[147]"SPC(7)"SCORE:"S2
560 IFS2>HITHENHI=S2
570 PRINTSPC(8)"HIGH:"HI:GOTO620
580 W=-(S1>=100)-2*(S2>=100):PRINT"[147]"SPC(5)"PLAYER"W"WINS!"
590 PRINT"SC  :"S1:PRINTSPC(12)"[145]SC  :"S2
600 WI(W)=WI(W)+1:PRINT"WINS:"WI(1):PRINTSPC(12)"[145]WINS:"WI(2)
610 T1=T1+S1:T2=T2+S2:PRINT"TOT :"T1:PRINTSPC(12)"[145]TOT :"T2
620 PRINTSPC(6)"HIT ANY KEY":POKE198,0
630 GETA$:IFA$=""THEN630
640 ONNPGOTO100,110