• IchigoJam

10 'SPACE CRASH
20 CLS:CLP:B=0:X=15:POKE #788,0,36,0,0,0,36,0,0
30 @LP:B=B+1:IFB=5 B=0
40 IFB=0POKE#700,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF
50 IFB=2POKE#700,#00,#00,#FF,#FF,#FF,#00,#00,#00
60 IFB=3POKE#700,#00,#00,#00,#00,#FF,#00,#00,#00
70 IFB=4POKE#700,#00,#00,#00,#FF,#FF,#FF,#00,#00
80 LCRND(30),0:?CHR$(#E0,#E0):SCROLL2:LCX,21:?CHR$(#F1)
90 X=X-BTN(28)*(X>0)+BTN(29)*(X<30)
100 IF!SCR(X,20)LCX,20:?CHR$(#F0):BEEP100,2:WAIT3:GOTO@LP
110 LCX,20:?CHR$(#F2):FORJ=0TO50:FORI=#790TO#798:POKEI,RND(256):NEXT:BEEPRND(100)+10,2:WAIT3:NEXT:CLS:END

Pagetop