Lbl 1

ClrHome
Output(1,1,"AVOID THE"
Output(2,1,"QUESTION MARKS."
Output(4,1,"PRESS ENTER TO"
Output(5,1,"START OR CLEAR"
Output(6,1,"TO EXIT"

While 1
getKey->K
If K=45
Goto 99
If K=105
Goto 2
End

Lbl 2

ClrHome
checkTmr(0)->S

4->X
8->Y
2->A
2->B
2->C
15->D
7->E
8->F

0->P
0->I

While 1

(checkTmr(0)-S)-P->T
Output(1,1,T)

Output(X,Y,"0"

If I=0
Then

1->I
A->U
B->V
randInt(~1,7)->R
If R>1
Then
If A<X
Then
A+1->A
Else
If A>X
A-1->A
End
Else
A+R->N
If N<9
Then
If N>0
N->A
End
End

randInt(~1,7)->R

If R>1
Then
If B<Y
Then
B+1->B
Else
If B>Y
B-1->B
End
Else
B+R->N
If N<17
Then
If N>0
N->B
End
End
Output(U,V," "
Output(A,B,"?"

Else
If I=1
Then

2->I
C->U
D->V
randInt(~1,7)->R
If R>1
Then
If C<X
Then
C+1->C
Else
If C>X
C-1->C
End
Else
C+R->N
If N<9
Then
If N>0
N->C
End
End
randInt(~1,7)->R
If R>1
Then
If D<Y
Then
D+1->D
Else
If D>Y
D-1->D
End
Else
D+R->N
If N<17
Then
If N>0
N->D
End
End
Output(U,V," "
Output(C,D,"?"

Else
0->I

E->U
F->V
randInt(~1,7)->R
If R>1
Then
If E<X
Then
E+1->E
Else
If E>X
E-1->E
End
Else
E+R->N
If N<9
Then
If N>0
N->E
End
End
randInt(~1,7)->R
If R>1
Then
If F<Y
Then
F+1->F
Else
If F>Y
F-1->F
End
Else
F+R->N
If N<17
Then
If N>0
N->F
End
End
Output(U,V," "
Output(E,F,"?"

End

End


If A=X and B=Y
Then
Goto 98
Else
If C=X and D=Y
Then
Goto 98
Else
If E=X and F=Y
Goto 98
End
End

getKey->K
If K
Then

If K=45
Then
checkTmr(0)->J
ClrHome
Output(4,6,"PAUSED"
Pause
P+(checkTmr(0)-J)->P
ClrHome

Else
If K=34 and X<8
Then
Output(X,Y," "
X+1->X

Else
If K=25 and X>1
Then
Output(X,Y," "
X-1->X

Else
If K=26 and Y<16
Then
Output(X,Y," "
Y+1->Y

Else
If K=24 and Y>1
Then
Output(X,Y," "
Y-1->Y
End

End
End
End
End
End

End

Lbl 98
(checkTmr(0)-S)-P->T
ClrHome
If T<=H
Then
Output(1,1,"YOU LOSE!")
Output(2,1,"YOU SURVIVED:"
Output(3,1,T)
Output(4,1,"SECONDS")
Output(6,1,"HIGHSCORE: "
Output(6,12,H
Output(7,1,"BY: "
Output(7,5,Str9
Pause
Else
Disp "NEW HIGHSCORE!"
Input "NAME:",Str9
T->H
End

Goto 1

Lbl 99

ClrHome