PlotsOff 
FnOff :AxesOff 
ClrDraw 
0\->\Xmin:1\->\\Delta-x\ 
0\->\Ymin:1\->\\Delta-y\ 
Line(0,0,0,62) 
Line(0,0,94,0) 
Line(94,0,94,62) 
Line(0,62,94,62) 
Menu("TRON","CLEAR",X,"STATIC",Y) 
Lbl Y 
For(Z,1,20) 
int 94rand+1\->\X 
int 62rand+1\->\Y 
Pxl-On(Y,X) 
End 
Lbl X 
0\->\B:1\->\C:0\->\P 
47\->\D:0\->\E 
0\->\\@\:\(-)\1\->\Z 
47\->\V:62\->\U 
int 92rand+1\->\D 
int 30rand+1\->\E 
int 92rand+1\->\V 
int 30rand+30\->\U 
pxl-Test(1,1)\->\F 
Lbl 1 
0\->\A 
getKey\->\A 
If A=26 
Then 
1\->\B:0\->\C 
End 
If A=34 
Then 
1\->\C:0\->\B 
End 
If A=24 
Then 
\(-)\1\->\B:0\->\C 
End 
If A=25 
Then 
\(-)\1\->\C:0\->\B 
End 
If A=21 
Pause 
If D\<=\0 
1\->\B 
If E\<=\0 
1\->\C 
If E\>=\62 
\(-)\1\->\C 
If D\>=\94 
\(-)\1\->\B 
D+B\->\D 
E+C\->\E 
pxl-Test(1,1)\->\F 
0\->\F 
pxl-Test(E,D)\->\F 
If F=1 
Then 
Text(2,2,"YOU CRASHED") 
Pause 
ClrDraw 
ClrHome 
Stop 
End 
If P<30 
P+1\->\P 
If P=30 
Then 
int 2rand+1\->\\@\ 
If \@\=2 
\(-)\1\->\\@\ 
0\->\Z 
0\->\P 
End 
If \@\=\(-)\1 
Then 
If V\<=\1 
Then 
int 2rand+1\->\Z 
If Z=2 
\(-)\1\->\Z 
0\->\\@\ 
pxl-Test(U+Z,V)\->\F 
If F=1 
\(-)\Z\->\Z 
Else 
pxl-Test(U,V-1)\->\F 
If F=1 
Then 
int 2rand+1\->\Z 
If Z=2 
\(-)\1\->\Z 
0\->\\@\ 
pxl-Test(U+Z,V)\->\F 
If F=1 
\(-)\Z\->\Z 
End 
End 
End 
If \@\=1 
Then 
If V\>=\92 
Then 
int 2rand+1\->\Z 
If Z=2 
\(-)\1\->\Z 
0\->\\@\ 
pxl-Test(U+Z,V)\->\F 
If F=1 
\(-)\Z\->\Z 
Else 
pxl-Test(U,V+1)\->\F 
If F=1 
Then 
int 2rand+1\->\Z 
If Z=2 
\(-)\1\->\Z 
0\->\\@\ 
pxl-Test(U+Z,V)\->\F 
If F=1 
\(-)\Z\->\Z 
End 
End 
End 
If Z=\(-)\1 
Then 
If U\<=\1 
Then 
int 2rand+1\->\\@\ 
If \@\=2 
\(-)\1\->\\@\ 
0\->\Z 
pxl-Test(U,V+\@\)\->\F 
If F=1 
\(-)\\@\\->\\@\ 
Else 
pxl-Test(U-1,V)\->\F 
If F=1 
Then 
int 2rand+1\->\\@\ 
If \@\=2 
\(-)\1\->\\@\ 
0\->\Z 
pxl-Test(U,V+\@\)\->\F 
If F=1 
\(-)\\@\\->\\@\ 
End 
End 
End 
If Z=1 
Then 
If U\>=\60 
Then 
int 2rand+1\->\\@\ 
If \@\=2 
\(-)\1\->\\@\ 
0\->\Z 
pxl-Test(U,V+\@\)\->\F 
If F=1 
\(-)\\@\\->\\@\ 
Else 
pxl-Test(U+1,V)\->\F 
If F=1 
Then 
int 2rand+1\->\\@\ 
If \@\=2 
\(-)\1\->\\@\ 
0\->\Z 
pxl-Test(U,V+\@\)\->\F 
If F=1 
\(-)\\@\\->\\@\ 
End 
End 
End 
\@\+V\->\V 
Z+U\->\U 
pxl-Test(U,V)\->\F 
If F=1 
Then 
Text(2,2,"CALC CRASHED") 
Pause 
ClrDraw 
ClrHome 
Stop 
End 
Pxl-On(U,V) 
Pxl-On(E,D) 
Goto 1 
Stop 




Make your own free website on Tripod.com