What's more? IchigoJam version.

wm-ichigo.bas

1 ' What's more? in ICHIGO JAM BASIC
10 S = 6: Z = 1: R = 0
12 Q = RND(4)
20 IF Q = 0 B=225
22 IF Q = 1 B=228
23 IF Q = 2 B=236
24 IF Q = 3 B=250
30 CLT
40 :
50 CLS
60 R = R+1
70 Q = RND(100)
80 [0]=0: [1]=0
85  :
90  FOR Y = 1 TO S
100 FOR X = 1 TO S
110  N = 0
120  IF RND(100) > Q N = 1
130  [N] = [N]+1
140  ? " "; CHR$(B+N); " ";
150 NEXT
160 ?: ?
170 NEXT
180 :
200 ? "WHAT'S MORE (0="; CHR$(B); " OR 1="; CHR$(B+1); ") ";
210 :
220 INPUT K
240 IF K<0 OR K>1 ?"INPUT ERROR!": BEEP: GOTO 200
250 :
260 FOR I = 0 TO 1
270  ? CHR$(B + I); ":"; [I]; " "
280  IF [I]>[K] Z = 0
290 NEXT
300 :
310 IF Z = 1 ?"CORRECT!": WAIT 20: FOR I = 0 TO 32: SCROLL 1: NEXT: GOTO 50
313 :
320 BEEP
323 ? "INCORRECT!": ?
330 ? "YOUR RUN: "; R; " ROUND(S)"
340 ? "IN ~"; TICK()/10; " SECONDS TIME!": '-> use TICK()/60 if it works
350 END