10 'PHONE.BAS
20 PRINT"Have you ever been looking up a number in the 'phone book, and just found it when the
30 PRINT"book slipped out of your hand?  Or have you ever been phoning a number and then
31 PRINT"lost your place before you finished dialing?  Yes?  This program is for you.":PRINT
40 PRINT"In a short while you will be asked to input a number in tenths of a second.  If this
50 PRINT"is your first time using the program, we suggest you try 30.  This will give you 3
60 PRINT"seconds to remember a number which will be up to 7 characters long.  When you then
70 PRINT"press [RETURN] or [ENTER], a random number will appear in the top left hand corner
80 PRINT"of the screen.":PRINT:PRINT"Hint: try reading it aloud.":PRINT
90 PRINT"When the screen clears after the given length of time, you are required to type in 
100 PRINT"the number you saw followed by [RETURN] or [ENTER].  If you get it right you will 
110 PRINT"be given another number... but you will have 1/10 of a second less to remember it!":PRINT
120 PRINT"If you got it wrong, you will be given a score.  This score is not important and is
130 PRINT"only used if you are playing in competition.  Try again, and this time allow yourself
140 PRINT"a few more tenths of a second.":PRINT
150 PRINT"Your aim is to reduce your time to as low as possible.  And your reward for playing
160 PRINT"will be that you can remember things more correctly.  So - this program could prove
170 PRINT"to be worth quite a lot to you.  The bargain of the year.  Try it and see.":PRINT
1000 PRINT "Press the SPACE bar to play, any other key to finish.":FOR a%=-32000 TO 32000:m$=INKEY$:IF m$="" THEN NEXT:ELSE IF m$<>" " THEN GOTO 25000:ELSE RANDOMIZE a%
1010 score=0:cl$=CHR$(27)+"E"+CHR$(27)+"H":PRINT cl$
1020 d$="":INPUT "How many tenths of a second would you like to look for?  ",a:a=a/10:time=a
1030 b=INT(RND*1E+07)
1040 PRINT cl$;b
1050 w!=0:WHILE 4.4*w!<a:w!=w!+0.001234:WEND
1060 a=a-0.1
1070 PRINT cl$:INPUT "What was the number?  ",c
1080 IF c=b THEN score=score+1:GOTO 1030 ELSE PRINT "Wrong!!!  Your score was";100*score*(1/time);".  The correct number was";b;"."
1090 PRINT "You managed to remember";score;"numbers correctly, taking just";a+0.1;"seconds for the last.":GOTO 1000
25000 IF FIND$("M:$$$$$$$$.&&&")<>"" THEN OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":