Skip to content

Instantly share code, notes, and snippets.

@tomaes

tomaes/digitreaction.bas

Created May 20, 2019 15:47
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tomaes/fdc43eaac2d5ee4d9fa2bc7052faafb3 to your computer and use it in GitHub Desktop.
Save tomaes/fdc43eaac2d5ee4d9fa2bc7052faafb3 to your computer and use it in GitHub Desktop.
Download ZIP
Another tiny game; this time in IchigoJam BASIC. Press the right key, don't press the wrong key. Hurry to make it to 1k points.
Raw
digitreaction.bas
1 'digit reaction
10 CLV
20 R=0
22 X=RND(28)
23 C=RND(9)+48
30 LC X,23: ?CHR$(C)
33 R=R+1: S=S-R
40 K=INKEY(): IF K=0 GOTO 30
50 IF K<>C S=S-200: LC X,23: ?"NOPE!": GOTO 30
60 S=S+150: ?"SCORE:";S
66 WAIT 1: IF S<1000 GOTO 20
70 ?"WELL DONE"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment