\start83P\
\comment=Program file dated 04/10/96, 18:39
\protected=FALSE
\name=STONED
ClrHome
FnOff 
ClrDraw
AxesOff
ZoomSto
ZStandard
ZInteger
27\->\Ymax
\(-)\35\->\Ymin
Menu("FLEA","CAGED",1,"INFINITE",2,"ESCAPING",3)
Lbl 1
1\->\A
Goto 4
Lbl 2
2\->\A
Goto 4
Lbl 3
3\->\A
Lbl 4
Menu("STONE","CRUSHING",5,"DISABLED",6)
Lbl 5
1\->\B
Goto 7
Lbl 6
2\->\B
Lbl 7
getKey
0\->\C
0\->\D
0\->\I
DispGraph
Horizontal \(-)\28
Text(57,15,"PRESS ENTER TO END")
Lbl A
E\->\I
28\->\J
Lbl B
getKey\->\L
If L=105
Goto \theta\
iPart(rand3-1\->\G
iPart(rand3-1\->\H
C+G\->\E
D+H\->\F
If abs(E=48
Then
If A=1
E-E/48\->\E
If A=2
\(-)\E+E/48\->\E
If A=3
Goto Y
End
If abs(F=28
Then
If A=1
F-F/28\->\F
If A=2
\(-)\F+F/28\->\F
If A=3
Goto Y
End
Pt-On(E,F)
Pt-Off(C,D)
E\->\C
F\->\D
If B=1
Then
J-1\->\K
Pt-On(I,K)
Pt-Off(I,J)
If I=E and K=F
Goto Z
If K=\(-)\28
Goto A
K\->\J
End
Goto B
Lbl Y
Disp "THE FLEA HAS","ESCAPED!","YOU LOSE!"
Pause 
Goto \theta\
Lbl Z
Disp "STONED!","YOU LOSE!"
Pause 
Lbl \theta\
ZoomRcl
AxesOn
ClrDraw
ClrHome
Stop
COPYRIGHT STEPHEN OSTERMILLER 1996

\stop83P\