• IchigoJam
• SWITCH

NEW
10 'MEMU
20 SWITCH1:FORI=1TO4:OUTI,-1:NEXT:UART1
30 CLS:LC0,0,1:?"IchigoJamSWITCH";:BEEP5
40 GSB@W
50 L=5:M=0:N=0:IFF=0F=1
60 @F:BEEP
70 IFF<4CLS:FILES1,3:LC0,F-1,1:WAIT30:GOTO@LP
80 S=F/5*5:G=S+L-1:IFG>163G=163
90 IFN<>S:CLS:FILESS,G:N=S
100 LC0,F-S,1: WAIT30
110 @LP:M=F
120 IF!IN(9)*!IN(5)END
130 IF!IN(9)BEEP10:WAIT10:BEEP5:LRUNF
140 F=F+!IN(6)-!IN(7)+(!IN(8)-!IN(5))*L
150 IFF<1F=1
160 IF(F>=4)*(F<60)IFIN(3)F=100:N=0:ELSEF=1
170 IF(F>=60)*(F<=99)F=1
180 IFF>=163F=163
190 IFF=MGOTO@LP:ELSEGOTO@F
200 @W:IF!BTN()CONT:ELSEBEEP2
210 IFBTN()CONT:ELSEBEEP5:RTN
SAVE0

Pagetop