Skip to content

Instantly share code, notes, and snippets.

@tomaes tomaes/wm-ichigo.bas
Last active May 23, 2019

Embed
What would you like to do?
What's more? IchigoJam version.
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.