IchigoBoy _Menu

1 'Mobile Menu
5 IF IN(9)=0:GOTO5
10 L=0:I=1
20 SWITCH1:CLS:UART1
30 OUT1,-1:OUT2,-1:OUT3,-1:OUT4,-1
40 OUT5,-1:OUT6,-1
50 CLS:?"***************"
100 FILESL,L+3
110 ?"***************"
120 ? CHR$(226);" ";CHR$(227);" & START";
130 LC0,I:?CHR$(225);
200 IF IN(5)=1: goto 300
210 IF IN(8)=1: GOTO 400
220 IF IN(9)=0: GOTO 500
230 GOTO200
300 IF I>1:I=I-1:GOTO600
310 IF L>4:L=L-4
320 IF L<100: L=0
330 GOTO 600
400 IF I<4:i=I+1:GOTO 600
410 IF L=0:L=100:GOTO600
420 IF L<227:L=L+4:GOTO600
430 GOTO600
500 LRUN L+I-1
600 IF IN(5)=1:GOTO600
610 IF IN(8)=1:GOTO610
620 IF IN(9)=0:GOTO620
630 GOTO 50