ClrText
0ÞA~Z
0ÞX
Locate 2,2,"™=GET THE NUMBERS=™"
Locate 2,4,"BY:MARCUS LUNDSTROM 1997"
Locate 6,7,"PRESS [EXE]"
Do:LpWhile Getkeyá31
ClrText
Locate 1,6,"™™™™™™™™™™™™™™™™™™™™™"
Locate 1,7,"TIME:"
Locate 10,7,"SCORE:"
5ÞA
5ÞB
0ÞE
20ÞF
Lbl 1
Int 20Ran#‰1ÞC
Int 4Ran#‰1ÞD
E‰1ÞE
Lbl 0
F™1ÞF
If F=0
Then Goto 3
IfEnd
Locate 16,7,S
Locate 6,7,F
Locate C,D,E
Locate 6,7,"  "
Locate A,B,"*"
If Getkey=38 And A>1
Then A™1ÞA
Locate A‰1,B," "
IfEnd
If Getkey=27 And A<21:Then A‰1ÞA
Locate A™1,B," "
IfEnd
If Getkey=28 And B>1
Then B™1ÞB
Locate A,B‰1," "
IfEnd
If Getkey=37 And B<5
Then B‰1ÞB
Locate A,B™1," "
IfEnd
If A=C And B=D
Then F©EÞJ
S‰JÞS
20ÞF
E=2ãGoto 2
Goto 1
IfEnd
If A=O And B=N
Then Goto 3
IfEnd
If A=Q And B=P
Then Goto 3
IfEnd
If A=T And B=R
Then Goto 3
IfEnd
If A=V And B=U
Then Goto 3
IfEnd
Goto 0
Lbl 2
X‰1ÞX
If X=5
Then Locate 6,4,"™=YOU WIN=™"
Goto 4
IfEnd
Locate 5,4,"™=NEXT LEVEL=™"Ý
Locate 5,4,"              "
M‰1ÞM
Goto 5
Lbl 3
Locate 5,4,"™=GAME OVER=™"
Goto 4
Lbl 5
0ÞE
If M=1
Then Int 4Ran#‰1ÞN
Int 20Ran#‰1ÞO
Locate O,N,"#"
IfEnd
If M=2
Then Int 4Ran#‰1ÞP
Int 20Ran#‰1ÞQ
Locate Q,P,"#"
IfEnd
If M=3
Then Int 4Ran#‰1ÞR
Int 20Ran#‰1ÞT
Locate T,R,"#"
IfEnd
If M=4
Then Int 4Ran#‰1ÞU
Int 20Ran#‰1ÞV
Locate V,U,"#"
Goto 1
IfEnd
Goto 1
Lbl 4