Simple IchigoJam performance test app

ichigojamperformance.bas

20 CLV: CLK: CLS: W=40: LED 0
30 LC 2,5: ?"IchigoJam Performance Tests"
40 LC 2,6: FOR I=0 TO 26: ? CHR$(145);: NEXT
50 LC 2,8: ?"(1) VRAM"
60 LC 2,9: ?"(2) CHARSET"
70 LC 2,10:?"(3) SCROLL"
74 LC 2,11:?"(4) RNG"
75 LC 2,12:?"(5) LED"
77 LC 2,13:?"(Q) EXIT TO OS"
90 K=INKEY(): IF K=0 GOTO 90
92 IF K=49 GOTO 100
93 IF K=50 GOTO 200
94 IF K=51 GOTO 300
95 IF K=52 GOTO 400
96 IF K=53 GOTO 450
97 IF K=ASC("Q") CLS: ?"BYE": END
98 BEEP
99 GOTO 90
100 CLS: CLT
105 FOR I=0 TO 384: POKE #900+I, I%4: NEXT
110 ?: ?"TICK():"; TICK()
112 GOTO 500
200 CLS: ?"hold <space>"
210 FOR I=0 TO 255
215 ? I;": "; CHR$(I)
220 IF INKEY()<>32 GOTO 220
230 NEXT: GOTO 500
300 CLT 
302 FOR B=1 TO 4: FOR A=1 TO 4: SCROLL 1: NEXT
305 FOR A=1 TO 4: SCROLL 3: NEXT: NEXT
310 ?: ?"TICK():"; TICK()
320 GOTO 500
400 CLT: CLS: ? "256xRND, WAIT..."
420 FOR I=1 TO 256: A=RND(256): NEXT
430 ?: ? "TICK():"; TICK():GOTO 500
450 FOR I=1 TO 20: LED I%2: WAIT 1: NEXT: GOTO 500
500 ?: ?"<space>": CLK
510 IF INKEY()<>32 GOTO 510: ELSE RUN