10 REM ---BLOCK KUZUSI---
100 REM ---GAMEN---
105 CLS
110 COLOR 2
120 LOCATE 0,0:PRINT STRING$(32,"#");
130 FOR I=1 TO 20:LOCATE 0,I:PRINT"#";SPACE$(30);"#";:NEXT
135 COLOR 6
140 FOR I=2 TO 8
150 LOCATE 1,I:PRINT STRING$(30,"L");
160 NEXT
190 X=10:V=0:Y=20:T=0:A=12:B=19:C=1:D=-1
200 REM ---MAIN---
210 I$=INKEY$
220 IF I$="j" THEN V=-1
230 IF I$="l" THEN V=1
240 IF I$="k" THEN V=0
250 IF X+V<1 OR X+V+3>30 THEN V=-V
260 LOCATE X,Y:PRINT"    ";        
270 X=X+V
280 LOCATE X,Y:COLOR 7:PRINT"====";
283 I=ZTIME:J=INT(ZTIME/50)*50+50
285 IF ZTIME>=I AND ZTIME<J THEN GOTO 285
290 T=(T+1) MOD 2:IF T THEN GOTO 200
300 REM ---BALL---
310 REM IF A+C<1 OR A+C>32 THEN C=-C
320 REM IF B+D<1 THEN D=-D
330 REM IF B+D>19 AND PEEK(A+C,B+D)<>32 THEN D=-D
400 P=PEEK(A+C,B):Q=PEEK(A,B+D):R=PEEK(A+C,B+D)
405 I=C:J=D:F=0
410 IF P=ASC("L") THEN LOCATE INT((A+C-1)/2)*2+1,B:PRINT"  ":I=-C:S=S+1:F=1
420 IF Q=ASC("L") THEN LOCATE INT((A-1)/2)*2+1,B+D:PRINT"  ":J=-D:S=S+1:F=1
430 IF R=ASC("L") AND F=0 THEN LOCATE INT((A+C-1)/2)*2+1,B+D:PRINT"  ":I=-C:J=-D
435 LOCATE 33,5:COLOR 7:PRINT"SCORE=";:LOCATE 33,6:PRINT S;"0";"  ";
440 C=I:D=J
442 IF A+C<1 OR A+C>30 THEN C=-C
444 IF B+D<1 THEN D=-D
446 IF B+D>19 AND PEEK(A+C,B+D)<>32 THEN D=-D
450 LOCATE A,B:PRINT" "
460 A=A+C:B=B+D
470 LOCATE A,B:COLOR 5:PRINT"O"
480 IF B>20 THEN END
600 GOTO 200