Pinball by Kotai

1 *** INICIALIZACIÓN GRÁFICOS 1 SCREEN 1,2,0:COLOR 15,1,1:KEYOFF:WIDTH 32:CLEAR 1500:DEFINT A-U:FOR I=0TO 3:S$="":FOR J=1TO 32:READ A$:S$=S$+CHR$(VAL("&h"+A$)):NEXT:SPRITE$(I)=S$:NEXT:FOR I=0TO 63:READ A$:FOR J=768TO 1024STEP 64:VPOKE J+I,VAL("&H"+A$):NEXT J,I:FOR I=0TO 4:READ A 2 *** PINTAR FONDO Y SPRITES (el SOUND 7 es para activar en todos los canales el tono sin ruido 10111000 = 184, el SOUND 12 es la duración de cada sonido y el SOUND 10 indicamos que el canal C usará el volumen de la envolvente 13 2 VPOKE8204+I,A:NEXT:FOR I=0TO22:READ A$:PRINT A$:NEXT:PUTSPRITE 1,(50,168),15,0:PUTSPRI...