In this game random numbers (from 0 to 10) is shown at the screen and your task is to remember them. When ? appers on the screen type them like on a phone. Each time you write all numbers right a new is added. If you press a key that doesn’t have a number you will not lose the game.
Note: Before playing the first time, set the highscore (Mat A[4,1]) to zero.
-> means right arrow.
=> means the right arrow in the "jump" menu.
\= means the "not equal to" symbol.
Change 255 to the maximum matrix dimension in your calculator.
ClrText
{255,1}->Dim Mat B
Fill (0,Mat B)
For 1->A To 255
Int 10Ran#->Mat B[A,1]
Locate 8,2,"."
For 1->M To 70
Ran#
Next
For 1->N To A
Locate 8,2,Mat B[N,1]
For 1->M To 70
Ran#
Next
Next
Locate 8,2,"?"
0->L
For 1->N To A
Mat B[N,1]->B
Lbl 1
Do
Getkey->K
LpWhile K=L
Do
Getkey->K
LpWhile K=0
K->L
-1->C
K=71=>0->C
K=72=>1->C
K=62=>2->C
K=52=>3->C
K=73=>4->C
K=63=>5->C
K=53=>6->C
K=74=>7->C
K=64=>8->C
K=54=>9->C
C=-1=>Goto 1
B\=C=>Goto L
Locate 8,2,B
Next
Next
Isz A
Lbl L
[[0]]->Mat B
Locate 5,4,"SCORE:"
Locate 14,4,A-1
Mat A[4,1]->H
A-1>H=>A-1->Mat A[4,1]
A-1>H=>Locate 5,3,"HISCORE!"
Locate 5,5,"HISCORE:"
Locate 14,5,H
Locate 7,6,"~PHONE NUMBER~"
Stop