• IchigoJam

10 'SCROLL STARS
20 CLS
30 X=16:Y=12:C=#E9
40 @LP
50 LCRND(30)+1,RND(22)+1:?"*";
60 A=0
70 A=A+BTN(28):'L
80 A=A+BTN(29)*2:'R
90 A=A+BTN(30)*4:'U
100 A=A+BTN(31)*8:'D
110 LC X,Y:?CHR$(0);
120 IF A & 8 SCROLL 0:C=#E3:'U
130 IF A & 1 SCROLL 1:C=#E0:'R
140 IF A & 4 SCROLL 2:C=#E2:'D
150 IF A & 2 SCROLL 3:C=#E1:'L
160 IF SCR(X,Y)<>0 GOTO@ED
170 LC X,Y:?CHR$(C);
180 WAIT5
190 GOTO40
200 @ED
210 LC X,Y:?"X";
220 LC X,Y,1
230 CONT

Pagetop