CLS
NEW
' ------- 08 Break Block
10 CLS:X=6:Y=20:D=50:E=50:F=1:G=0:S=0
20 B=0:C=1000
30 FOR J=1 TO 4
40 FOR I=1 TO 13
50 LOCATE I*2, J*2:PRINT CHR$(1);
60 G=G+1
70 NEXT
80 NEXT
100 LOCATE 0,21:PRINT "Score ";S;
110 LOCATE X-1, Y:PRINT CHR$(32,131,131,131,32);
120 K=INKEY():X=X-(K=28 AND X>0)+(K=29 AND X<28)
130 F=F+1:IF (F%2)>0 THEN GOTO 230
140 LOCATE B/100,C/100:PRINT " ";
150 B=B+D
160 C=C+E
170 Q=B/100:R=C/100
180 IF SCR(Q,R)=1 THEN S=S+1:E=-E:G=G-1:IF G=0 THEN CLS:GOTO 20
190 M=B%100:N=C%100
200 LOCATE Q,R:PRINT CHR$(128+(M<50 AND N<50)+(M>=50 AND N<50)*2+(M<50 AND N>=50)*4+(M>=50 AND N>=50)*8);
210 IF B<0 OR B=2900 THEN D=-D
220 IF C<0 THEN E=-E
230 Q=B/100:R=C/100
240 IF (R=Y-1 OR R=Y) AND (Q>=X AND Q<=X+2) THEN E=-80+RND(11)
250 IF R<20 THEN GOTO 100
260 LOCATE 12,9:PRINT "Game Over"