0 GRAPHICS 8:GRAPHICS 7:SETCOLOR 0,0,6:SETCOLOR 1,1,10:SETCOLOR 2,8,14:MOVE ADR("F`????A"),DPEEK(560)+85,7:A=DPEEK(DPEEK(560)+4):POKE 54279,168:B=43008
1 DPOKE 704,13364:DPOKE 53260,1:POKE 53277,3:POKE 559,46:MOVE ADR("??8p`@?"),B+128,7:MOVE ADR("?@`p8??"),B+256,7:C=1:D=2:E=67:REPEAT 
2 MOVE A,A+1,3200:F=C*5+5:POKE 657,1:? "level ";C;" of 4","score ";G;" of ";F;" ";:FOR H=0 TO 5:FOR I=0 TO 2*H:J=(H>2)*(H-2<I)*(H+2>I)
3 K=(H=4)*(I=4):COLOR 1-J+2*K:TEXT (I-H)*8+76,H*8+32,CHR$(160-64*K):NEXT I:NEXT H:PAUSE 60:REPEAT :DPOKE B+384+15+L,0:COLOR 3:IF M=0:N=RND*3.5-0.18
4 O=COS(N):P=SIN(N):Q=E*O+80:L=68-E*P:R=-D*O:S=D*P:M=1:PLOT Q,L:ENDIF :POKE 53278,0:Q=Q+R:POKE 53252,Q+45:L=L+S
5 DPOKE B+384+15+L,257:DRAWTO Q,L:PAUSE 1:IF PEEK(53248)&1=1:FOR O=0 TO 1:COLOR (1-O)*3:FOR T=1 TO 8:CIRCLE Q,L,T:SETCOLOR 2,RAND(16),10:NEXT T:NEXT O:PLOT Q,L
6 SETCOLOR 2,8,14:M=0:ELSE :IF PEEK(53248)&2=2:? ,"GAME OVER";:FOR T=1 TO 48:CIRCLE Q,L,2*T:SETCOLOR 4,RAND(16),4:NEXT T:RUN :ENDIF :ENDIF :POKE 53278,0
7 U=INT((228-PADDLE(0))*0.395):PAUSE 0:MOVE B+128+(U>46)*128-87+(U<47)*U-(U-95)*(U>46)+38,B+512+37,56:POKE 53248,78+U:PAUSE 0
8 MOVE B+128+(U>43)*128-82+(U<44)*U-(U-85)*(U>43)+38,B+640+37,56:POKE 53249,83+U:IF PEEK(53256)>0:M=0:G=G+1:POKE 657,21
9 ? "score ";G;" of ";F;:ENDIF :UNTIL G=F:G=0:C=C+1:D=D+0.33:E=E-4:UNTIL C=5:? ,"YoU wIn!";:DO :LOOP