1ȚA
1ȚB
1ȚC
Lbl 1
C‰1ȚC
Locate A,B,"*"
A‰1ȚA
C<21ăGoto 1
Lbl 2
C‰1ȚC
Locate A,B,"*"
B‰1ȚB
C<27ăGoto 2
Lbl 3
C‰1ȚC
Locate A,B,"*"
A™1ȚA
C<47ăGoto 3
Lbl 4
C‰1ȚC
Locate A,B,"*"
B™1ȚB
C<52ăGoto 4
Lbl 5
C‰1ȚC
Locate A,B,"*"
A‰1ȚA
C<71ăGoto 5
Lbl 6
C‰1ȚC
Locate A,B,"*"
B‰1ȚB
C<75ăGoto 6
Lbl 7
C‰1ȚC
Locate A,B,"*"
A™1ȚA
C<93ăGoto 7
Lbl 8
C‰1ȚC
Locate A,B,"*"
B™1ȚB
C<96ăGoto 8
Lbl 9
C‰1ȚC
Locate A,B,"*"
A‰1ȚA
C<113ăGoto 9
Lbl A
C‰1ȚC
Locate A,B,"*"
B‰1ȚB
C<115ăGoto A
Lbl B
C‰1ȚC
Locate A,B,"*"
A™1ȚA
C<131ăGoto B
Lbl C
C‰1ȚC
Locate A,B,"*"
B™1ȚB
C<132ăGoto C
Lbl D
C‰1ȚC
Locate A,B,"*"
A‰1ȚA
C<149ăGoto D
8ȚA
7ȚB
Lbl E
Locate A,B,"STAR"
B<7ăLocate A,B‰1,"****"
B™1ȚB
B>1ăGoto E
1ȚA
3ȚB
Lbl F
A>1ăLocate A™1,B,"*****"
Locate A,B,"EATER"
A‰1ȚA
A<11ăGoto F
Lbl G
If Getkeyá31
Then For 1ȚA To 2
Locate 7,5,"PRESS EXE"
Next
For 1ȚA To 2
Locate 7,5,"         "
Next
Else Goto H
IfEnd
Goto G
Lbl H