1 HS=0:D$="":L$=CHR$(29):R$=CHR$(17):PRINTCHR$(147)
11 POKE53281,0:CO=14:PK=160
21 FORX=0TO39:Y=0:GOSUB321:GOSUB341:Y=1:GOSUB321:GOSUB341:Y=24:GOSUB321
31 GOSUB341:NEXTX:X=39:FORY=1TO23:GOSUB321:GOSUB341:NEXTY:FORX=15TO38STEP6
41 CN=(X-7)/6:FORY=2TO23:GOSUB321:GOSUB341:IFCO=CNTHENCO=CO+1:GOTO61
51 CO=CN
61 X=X+1:GOSUB321:GOSUB341:X=X-1:NEXTY:NEXTX:X=0:CO=13:FORY=2TO23:GOSUB341
71 NEXTY:IF SC>HS THEN HS=SC
81 BP=10:GOSUB 381:BL=5:SC=0
91 HS$=STR$(HS):HS$=RIGHT$(HS$,LEN(HS$)-1)
101 PRINTTAB(2);"HI-SCORE:";TAB(12);HS$;TAB(17);"SCORE:";TAB(30);"BALLS:";
111 PRINTTAB(37);RIGHT$(STR$(BL),1);CHR$(19);:GOSUB371
121 BX=4:VX=1:BL=BL-1:PRINTTAB(37);RIGHT$(STR$(BL),1);CHR$(19);:BY=INT(RND(1)*19)+3
131 VY=INT(RND(1)*3)-1:IFVY=0THEN131
141 RO=PEEK(56320):PK=32:GOSUB381:IFNOT(ROAND1)=1THENBP=BP-2
151 IFNOT(ROAND2)=2THENBP=BP+2
161 PK=160:GOSUB381
171 Y=BY:X=BX:PK=32:GOSUB321
181 Y=Y+VY:X=X+VX:IFX<0THEN261
191 GOSUB331:IFPK=32THEN251
201 IFY<2ORY>23THENVY=-VY:GOTO171
211 IFX>38ORX<1THENVX=-VX:GOTO171
221 GOSUB351:SC=SC+CO*10:GOSUB371:PK=32:GOSUB321
231 IFRND(1)*4>1THENVX=-VX:GOTO171
241 GOTO181
251 PK=81:CO=1:GOSUB341:GOSUB321:BX=X:BY=Y:GOTO141
261 IFBL>0THEN121
271 PRINT TAB(10);LEFT$(D$,24);"ANOTHER GAME(Y/N)?";
281 GETZ$:IFZ$=""THEN281
291 IFZ$<>"Y"ORZ$<>"N"THEN281
301 IFZ$="Y"THEN1
311 IFZ$="N"THENPRINTCHR$(147);:END
321 POKE1024+X+40*Y,PK:RETURN
331 PK=PEEK(1024+X+Y*40):RETURN
341 POKE55296+X+40*Y,CO:RETURN
351 CO=PEEK(55296+X+40*Y)
361 CO=CO/16:CO=(CO-INT(CO))*16:RETURN
371 X$=STR$(SC):PRINTTAB(24);RIGHT$(X$,LEN(X$)-1);CHR$(19);:RETURN
381 X=0:Y=BP:GOSUB321:Y=Y+1:GOSUB321:RETURN
391 Y=BP:GOSUB321:Y=Y+1:GOSUB321:RETURN