Código de Basic - Breakout C64

<<>>
Imágen de perfil
Val: 535
Oro
Ha mantenido su posición en Basic (en relación al último mes)
Gráfica de Basic

Breakout C64gráfica de visualizaciones


Basic

Actualizado el 4 de Febrero del 2021 por Adelino (20 códigos) (Publicado el 1 de Febrero del 2021)
775 visualizaciones desde el 1 de Febrero del 2021
Juego de romper bloques para Commodore 64.




Muro

Requerimientos

Probado en emulador Power64 para macosx.

1.0

Actualizado el 6 de Febrero del 2021 (Publicado el 1 de Febrero del 2021)gráfica de visualizaciones de la versión: 1.0
92 visualizaciones desde el 1 de Febrero del 2021

1.1

Actualizado el 6 de Febrero del 2021 (Publicado el 2 de Febrero del 2021)gráfica de visualizaciones de la versión: 1.1
46 visualizaciones desde el 2 de Febrero del 2021

1.2

Actualizado el 6 de Febrero del 2021 (Publicado el 3 de Febrero del 2021)gráfica de visualizaciones de la versión: 1.2
51 visualizaciones desde el 3 de Febrero del 2021

1.3

Publicado el 4 de Febrero del 2021gráfica de visualizaciones de la versión: 1.3
587 visualizaciones desde el 4 de Febrero del 2021
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
100 POKE 53280,0: POKE 53281,0
110 PRINT CHR$(0) CHR$(147)
120 DIM F(399): A=55296: D=54272
130 C=A: B=A+940: 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 TO A+39
220 POKE N,11: POKE N-D,207
230 POKE N+960,0: POKE N+960-D,249
240 NEXT
250 FOR Y=1 TO 23: C=C+40
260 POKE C,11: POKE C-D,207
270 POKE C+39,11: POKE C+39-D,207
280 NEXT
290 C=B+40: M=20: P=246: X=-1: Y=-40
300 POKE B,0: B=B+Y+X
310 POKE B,5: POKE B-D,81
320 GOSUB 500
330 M=M+X: N=B-A: IF N<80 THEN Y=40
340 R=-1: IF M=1 OR M=38 THEN X=-X: R=1
350 IF PEEK(B+X)=L THEN POKE B+X,0:         POKE F(N+X-160),0: X=-X
360 IF PEEK(B+Y)=L THEN POKE B+Y,0:         POKE F(N+Y-160),0: Y=-Y
370 IF PEEK(B+Y+X)=L THEN POKE B+Y+X,0:     POKE F(N+Y+X-160),0: Y=-Y: X=X*R
380 GOSUB 500
390 IF N<920 GOTO 300
400 N=PEEK(B+Y)=P OR PEEK(B+Y+X)=P
410 IF N=0 THEN GOSUB 500: GOTO 400
420 X=(C<B+38)*R-(C>B+39)*R
430 Y=-40: GOTO 300
500 GET E$: IF E$<>"" THEN E=ASC(E$):       GOTO 500
510 IF E=29 AND C<A+996 THEN POKE C,0:      POKE C+4,P: C=C+1
520 IF E=157 AND C>A+960 THEN C=C-1:        POKE C,P: POKE C+4,0
530 E=0: RETURN



Comentarios sobre la versión: 1.3 (0)


No hay comentarios
 

Comentar la versión: 1.3

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s6857