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