Atari 8-bit Source code

10 GRAPHICS 0:PRINT "NIVEL: 1=FACIL 2=MEDIO 3=DIFICIL":INPUT D
20 IF D<1 OR D>3 THEN GOTO 10:REM VALIDAR ENTRADA [1]
30 SP=45-(D*12):SC=0:REM CALCULAR VELOCIDAD Y PUNTOS [2]
40 GRAPHICS 1+16:POKE 752,1:REM MODO 1 (20X24) SIN VENTANA Y OCULTAR CURSOR [3-5]
50 SETCOLOR 4,0,0:REM FONDO NEGRO [6, 7]
60 SETCOLOR 0,9,10:REM COLOR CELESTE PARA MAYUSCULAS (RASTRO) [7, 8]
70 SETCOLOR 1,3,10:REM COLOR ROJO PARA MINUSCULAS (SCORE) [8]
80 X=10:Y=12:DX=1:DY=0:REM POSICION INICIAL Y DIRECCION
90 POSITION X,Y:PRINT #6;"*";:REM DIBUJAR PUNTO DE INICIO [9]
100 S=STICK(0):IF S=15 THEN GOTO 160:REM LEER JOYSTICK; 15 ES REPOSO [10-12]
110 IF S=14 THEN DX=0:DY=-1:REM ARRIBA [10, 12]
120 IF S=13 THEN DX=0:DY=1:REM ABAJO [10, 12]
130 IF S=11 THEN DX=-1:DY=0:REM IZQUIERDA [10, 12]
140 IF S=7 THEN DX=1:DY=0:REM DERECHA [10, 12]
160 X=X+DX:Y=Y+DY:REM ACTUALIZAR POSICION [10, 13]
170 IF X<0 OR X>19 OR Y<0 OR Y>23 THEN GOTO 500:REM LIMITES DE PANTALLA MODO 1 [10]
180 LOCATE X,Y,C:IF C<>32 THEN GOTO 500:REM COLISION SI NO ES ESPACIO (32) [3, 12, 14]
190 POSITION X,Y:PRINT #6;"*";:REM IMPRIMIR RASTRO EN CELESTE [15]
195 SC=SC+1:POSITION 0,0:PRINT #6;"score:";SC:REM MOSTRAR PUNTOS EN ROJO [3, 16]
197 SOUND 0,6*(ABS(21-X)+1),10,4:REM SONIDO DINAMICO SEGUN POSICION [10]
200 FOR W=1 TO SP:NEXT W:GOTO 100:REM BUCLE DE TIEMPO Y RETORNO [2, 17]
500 POSITION 5,12:PRINT #6;"GAME OVER":REM MENSAJE FINAL [18-20]
505 FOR E=15 TO 0 STEP -1:SOUND 0,5,0,E:FOR Q=1 TO 10:NEXT Q:NEXT E:REM SONIDO EXPLOSION [21]
510 IF PEEK(53279)<>6 THEN GOTO 510:REM ESPERAR A PRESIONAR START [22-25]
520 GRAPHICS 0:END:REM REGRESAR A MODO TEXTO Y FINALIZAR [25, 26]	

• Download link 1