0ŢA~Z
'Prog "INTRO"
‡1ŢE~F
Int 21Ran#‰1ŢA
Int 7Ran#‰1ŢB
Int 21Ran#‰1ŢE
Int 7Ran#‰1ŢF
1ŢV
‡1ŢZ
Lbl 2
ClrText
Int 21Ran#‰1ŢC
Int 7Ran#‰1ŢD
C=1ăD=1ăD‰1ŢD
C=2ăD=1ăD‰1ŢD
C=3ăD=1ăD‰1ŢD
Locate C,D,"*"
Z‰1ŢZ
Z=V©10ăGoto 3
Lbl 1
Y‰1ŢY
Locate A,B,"Î"
Locate 1,1,Z
Prog "EX1"
A=EăB=FăGoto 6
E=CăF=DăZ™2ŢZ
E=CăF=DăGoto 2
A=CăB=DăGoto 2
If Getkey=31
Then Goto 5
IfEnd
If Getkey=27
Then Locate A,B," "
A‰1ŢA
IfEnd
A>21ă1ŢA
If Getkey=38
Then Locate A,B," "
A™1ŢA
IfEnd
A<1ă21ŢA
If Getkey=37
Then Locate A,B," "
B‰1ŢB
IfEnd
B>7ă1ŢB
If Getkey=28
Then Locate A,B," "
B™1ŢB
IfEnd
B<1ă7ŢB
A=CăB=DăGoto 2
A=EăB=FăGoto 6
Goto 1
Lbl 5
Locate 7,4,"PAUSE"
If Getkeyá31
Then Goto 5
IfEnd
Locate 7,4,"     "
Goto 1
Lbl 3
ZąY©10000ŢX
Int XŢX
W‰XŢW
Locate 3,3,"LEVEL COMPLETE"
Locate 4,4,"SCORE:"
Locate 4,5,"LEVEL:"
Locate 11,5,V
Locate 11,4,W
Z™1ŢZ
V‰1ŢV
Lbl 4
If Getkeyá31
Then Goto 4
IfEnd
Goto 2
Lbl 6
ClrText
Locate 2,3,"EATEN BY BLACK HOLE"
ZąY©5000ŢX
Int XŢX
W‰XŢW
Locate 4,4,"SCORE:"
Locate 11,4,W
Locate 4,5,"LEVEL:"
Locate 11,5,V
Dim List 3ŢQ
Locate 4,6,"HISCORE:"
WŢList 3[(Dim List 3)™1]
SortA(List 3)
Dim List 3ŢÎ
List 3[Î]ŢW
Locate 12,6,List 3[Q]Ý
Lbl 7
If Getkeyá31
Then Goto 7
IfEnd