Inspirado en este listado de la Guía del usuario de Commodore 64:
10 PRINT "{CLR/HOME}"
20 POKE 53280,7 : POKE 53281,13
30 X = 1 : Y = 1
40 DX = 1 : DY = 1
50 POKE 1024 + X + 40 * Y, 81
60 FOR T = 1 TO 10 : NEXT
70 POKE 1024 + X + 40 * Y, 32
80 X = X + DX
90 IF X <= 0 OR X >= 39 THEN DX = -DX
100 Y = Y + DY
110 IF Y <= 0 OR Y >= 24 THEN DY = -DY
120 GOTO 50
Haga un programa similar en el idioma / plataforma que elija para hacer rebotar un objeto similar a una pelota alrededor de su terminal, pantalla, lienzo u otra área de visualización.
No tiene que imitar los gráficos PETSCII del C64 exactamente, de manera simple Oo osuficiente, ni tiene que usar el GOTOcomando si todavía existe en su idioma. Siempre que su bola comience en la parte superior de su lienzo y viaje en diagonal hasta que llegue al límite del lienzo, y luego rebote en consecuencia, de la siguiente manera:
- Viajando hacia abajo y hacia la derecha y toca la parte inferior del área de la pantalla, rebota y continúa hacia la derecha;
- Viaja hacia arriba y hacia la derecha y golpea el límite más a la derecha, y rebota hacia la izquierda y hacia arriba;
- Viajando hacia la izquierda y hacia arriba y golpea la parte superior, rebota hacia la izquierda y hacia abajo;
- Viajando hacia la izquierda y hacia abajo y llega al límite más a la izquierda, rebota hacia la derecha y hacia abajo;
- Golpea cualquier esquina e invierte la dirección;
Entonces todos estamos bien.
Tampoco tiene que mover la bola 8 píxeles a la vez, como está sucediendo en la lista BÁSICA en el C64; puede mover un bloque de caracteres o un píxel a la vez, lo que considere más apropiado.
Para ver este listado BÁSICO funcionando, puede escribirlo con este emulador en línea Commodore 64 siempre que su navegador admita Flash.
