Breakout C64
Basic
Actualizado el 4 de Febrero del 2021 por Adelino (24 códigos) (Publicado el 1 de Febrero del 2021)
2.051 visualizaciones desde el 1 de Febrero del 2021
Juego de romper bloques para Commodore 64.
Iniciar sesiónCrear cuenta
Crear cuenta
110 PRINT CHR$(0) CHR$(147)
120 DIM F(399): A=55296: D=54272
130 B=A+940: C=B+40: N=A+159: L=248
140 FOR Y=0 TO 8: N=N+2: E=E=0
150 FOR X=1 TO 20+E
160 M=E<0 OR X>1 AND X<20
170 FOR P=0 TO -M
180 POKE N,L: POKE N-D,207+40*P
190 F(N-A-160)=N-M-P-P: N=N+1
200 NEXT P,X,Y
210 FOR N=A+1 TO A+38
220 POKE N,11: POKE N-D,207
230 POKE N+960,0: POKE N+960-D,249
240 NEXT
250 FOR Y=0 TO 24: N=A+40*Y
260 POKE N,11: POKE N-D,207
270 POKE N+39,11: POKE N+39-D,207
280 NEXT
290 M=20: P=246: X=-1: Y=X
300 POKE B,0: B=B+40*Y+X
310 POKE B,5: POKE B-D,81
320 GOSUB 500
330 M=M+X: IF B-A<80 THEN Y=1
340 R=-1: IF M=1 OR M=38 THEN X=-X: R=1
350 N=B+X: IF PEEK(N)=L THEN X=X*R: POKE N,0: POKE F(N-A-160),0
360 N=B+40*Y: IF PEEK(N)=L THEN Y=-Y: POKE N,0: POKE F(N-A-160),0
370 N=B+40*Y+X: IF PEEK(N)=L THEN X=X*R: Y=-Y: POKE N,0: POKE F(N-A-160),0
380 GOSUB 500
390 IF B<A+920 GOTO 300
400 Y=PEEK(N)=P OR PEEK(N-X)=P
410 IF C-B=38 OR C-B=39 THEN X=0: R=1
420 IF R<0 THEN X=(C-B>39)-(C-B<38)
430 IF Y GOTO 300
500 GET E$: IF E$<>"" THEN E=ASC(E$): GOTO 500
510 IF Y=0 THEN Y=E=13: GOTO 430
520 IF E=29 AND C<A+995 THEN POKE C,0: POKE C+4,P: C=C+1
530 IF E=157 AND C>A+961 THEN C=C-1: POKE C,P: POKE C+4,0
540 E=0: RETURN