FotS

This module is part of the original MMBasic library. It is reproduced here with kind permission of Hugh Buckle and Geoff Graham. Be aware it may reference functionality which has changed or is deprecated in the latest versions of MMBasic.

This is a math game of memory testing. The objective of this game is to remember the numbers as they get produced across the screen.

You can go into the program and lengthen the time the numbers are displayed …but they get quicker as time goes by… You have to match the on screen numbers by remembering their sequence.

5 Rem NUMBERS BY FRANK .P. DEC 83....
10 A$=""
20 Y=1
30 X=Int(Rnd*(10))
40 A$=A$+(Str$(X))
50 ? A$
60 Pause 6000/Y
70 Cls
80 Input B$
90 If A$ <> B$ Then GoTo 190
100 If Y<5 Then ? "THATS""S O.K."
110  Y=Y +1
120 If Y>=5 And Y<8 Then ? "WELL DONE"
130 If Y>=8 Then ? "EXCELLENT"
140 GoTo 30
190 ? "TOO BAD"
200 ? A$," WAS THE ANSWER"
210 ? B$, "WAS YOUR ANSWER"
220 ? "YOU LASTED FOR ";Y;"GOES"