----end documentation----
----begin ascii----
\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHCRED
\FILE=D:\TI\82\MECH\MECHCRED.82P
:ClrHome
:Output(3,1,"  GRAFICS BY:  "
:Output(5,1,"   JOSH LOMAS   "
:Pause 
:ClrHome
:Output(3,1,"  MOVEMENT BY:"
:Output(5,1,"  MATTHEW OBETS"
:Pause 
:ClrHome
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHDIST
\FILE=D:\TI\82\MECH\MECHDIST.82P
:Lbl 2
:If [A](1,3)\<=\0:Then
:1\->\[A](1,6):End
:If [A](2,3)\<=\0:Then
:1\->\[A](2,6):End
:If [A](3,3)\<=\0:Then
:1\->\[A](3,6):End
:If [A](1,4)\<=\0 and [A](1,5)\<=\0:Then
:1\->\[A](1,6):End
:If [A](2,4)\<=\0 and [A](2,5)\<=\0:Then
:1\->\[A](2,6):End
:If [A](3,4)\<=\0 and [A](3,5)\<=\0:Then
:1\->\[A](3,6):End
:If [A](1,6)=1 and [A](2,6)=1 and [A](3,6)=1
:Then
:Goto 1:End
:If Z\<=\0:Then
:Goto 5:End
:If H\>=\20:Then
:Goto H:End
:Lbl I
:ClrDraw
:If B=0:Then
:RecallPic Pic1:End
:If B=1:Then
:RecallPic Pic2:End
:Line(\(-)\5,\(-)\7,\(-)\5+Z(2/3),\(-)\7)
:Line(\(-)\5,\(-)\7.5,\(-)\5+Z(2/3),\(-)\7.5)
:Line(\(-)\5,\(-)\8.5,\(-)\5+(1/2)H,\(-)\8.5)
:Line(\(-)\5,\(-)\9,\(-)\5+(1/2)H,\(-)\9)
:If [A](1,6)<1:Then
:prgmMECHMOVE
:prgmMECHOPON:End
:If [A](2,6)<1 and C\>=\20+4J:Then
:prgmMECHMOV2
:prgmMECHOPO2:End
:If [A](3,6)<1 and C\>=\50+6J:Then
:prgmMECHMOV3
:prgmMECHOPO3:End
:Line(\(-)\9,0,\(-)\9,L*3)
:C+1\->\C
:If H\>=\1:Then
:H-1\->\H:End
:Lbl 3
:getKey\->\K
:If K=12:Then
:prgmMECHCRED:End
:If K=83:Then
:0\->\L:End
:If K=21:Then
:Return:End
:If K=24:Then
:X+1\->\X
:W+1\->\W
:V+1\->\V:End
:If K=25:Then
:\@\+1\->\\@\:End
:If K=26:Then
:X-1\->\X
:W-1\->\W
:V-1\->\V:End
:If K=34:Then
:\@\-1\->\\@\:End
:If K=73:Then
:L+.5\->\L:End
:If K=93:Then
:L-.5\->\L:End
:If [A](1,6)\<>\1:Then
:D*1.5^L\->\D:End
:If C\>=\20+4J and [A](2,6)\<>\1:Then
:E*1.5^L\->\E:End
:If C\>=\50+6J and [A](3,6)\<>\1:Then
:F*1.5^L\->\F:End
:If K=105:Then
:H+4\->\H
:If B=0:Then
:Line(0,0,10,\(-)\7
:Line(0,0,10,\(-)\6
:Line(0,0,\(-)\10,\(-)\6)
:Line(0,0,\(-)\10,\(-)\7)
:Line(0,0,10,\(-)\5
:Line(0,0,\(-)\10,\(-)\5)
:End
:If B=1:Then
:Line(0,0,\(-)\4.5,\(-)\5
:Line(0,0,\(-)\4,\(-)\5
:Line(0,0,\(-)\3.5,\(-)\5
:Line(0,0,4.5,\(-)\5
:Line(0,0,4,\(-)\5
:Line(0,0,3.5,\(-)\5
:End
:If [A](1,6)\<>\1:Then
:prgmMECHSHOT:End
:If [A](2,6)\<>\1 and C\>=\21+4J:Then
:prgmMECHSHO2:End
:If [A](3,6)\<>\1 and C\>=\51+6J:Then
:prgmMECHSHO3:End
:End
:If K=31:Then
:If B=0:Then
:1\->\B:Goto 2:End
:If B=1:Then
:0\->\B:Goto 2:End
:End
:Goto 2
:Lbl 1
:ClrHome
:Disp "    YOU WIN     "
:Pause 
:prgmMECHSTAT
:ClrHome
:For(S,1,3)
:For(T,1,5)
:[A](4,6)+([A](S,T)*50)\->\[A](4,6)
:End
:End
:[A](4,6)-((15-Z)200)\->\[A](4,6)
:J+5\->\J
:prgmMECHSHOP
:0\->\G
:0\->\M
:0\->\O
:0\->\L
:0\->\C
:0\->\H
:15\->\Z
:int (rand*20)-10\->\X
:int (rand*20)-10\->\W
:int (rand*20)-10\->\V
:int (rand*7)+2\->\D
:int (rand*7)+2\->\E
:int (rand*7)+2\->\F
:1/1.5^D\->\D
:1/1.5^E\->\E
:1/1.5^F\->\F
:0\->\\@\
:0\->\[A](1,6)
:0\->\[A](2,6)
:0\->\[A](3,6)
:For(S,1,3)
:5+J\->\[A](S,1)
:5+J\->\[A](S,2)
:10+J\->\[A](S,3)
:6+J\->\[A](S,4)
:6+J\->\[A](S,5)
:End
:Return
:Lbl 5
:ClrHome
:Disp "    YOU LOSE    "
:Pause 
:ClrHome
:Stop
:Lbl H
:If H\>=\20 and H\<=\25:Then
:ClrHome
:Output(5,2,"HEAT CRITICAL")
:Pause 
:Goto I:End
:If H\>=\26:Then
:0\->\H
:Z-2\->\Z
:R-10\->\R
:ClrHome
:Disp " SHUTTING DOWN. "
:Pause 
:Goto I:End
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHMOV2
\FILE=D:\TI\82\MECH\MECHMOV2.82P
:int (rand*10)\->\N
:If N=1 and [A](2,4)>0 and [A](2,5)>0:Then
:W+1E\->\W:End
:If N=2 and [A](2,4)>0 and [A](2,5)>0:Then
:W-1E\->\W:End
:If N=3 and [A](2,4)>0 and [A](2,5)>0:Then
:O+.5\->\O:End
:If N=4 and [A](2,4)>0 and [A](2,5)>0:Then
:O-.5\->\O:End
:E*1.25^O\->\E
:If N=5 and E\>=\8/27:Then
:Z-1\->\Z:End
:If N=7 and E\>=\256/625:Then
:Z-1\->\Z:End
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHMOV3
\FILE=D:\TI\82\MECH\MECHMOV3.82P
:int (rand*10)\->\N
:If N=1 and [A](3,4)>0 and [A](3,5)>0:Then
:V+1F\->\V:End
:If N=2 and [A](3,4)>0 and [A](3,5)>0:Then
:V-1F\->\V:End
:If N=3 and [A](3,4)>0 and [A](3,5)>0:Then
:G+.5\->\G:End
:If N=4 and [A](3,4)>0 and [A](3,5)>0:Then
:G-.5\->\G:End
:F*1.25^G\->\F
:If N=5 and F\>=\8/27:Then
:Z-1\->\Z:End
:If N=7 and F\>=\256/625:Then
:Z-1\->\Z:End
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHMOVE
\FILE=D:\TI\82\MECH\MECHMOVE.82P
:int (rand*10)\->\N
:If N=1 and [A](1,4)>0 and [A](1,5)>0:Then
:X+1D\->\X:End
:If N=2 and [A](3,4)>0 and [A](1,5)>0:Then
:X-1D\->\X:End
:If N=3 and [A](1,4)>0 and [A](1,5)>0:Then
:M+.5\->\M:End
:If N=4 and [A](1,4)>0 and [A](1,5)>0:Then
:M-.5\->\M:End
:D*1.25^M\->\D
:If N=5 and D\>=\8/27:Then
:Z-1\->\Z:End
:If N=7 and D\>=\256/625:Then
:Z-1\->\Z:End
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHOPO2
\FILE=D:\TI\82\MECH\MECHOPO2.82P
:If [A](2,1)\<=\0:Then
:Goto 1:End
:Line(W-6E,\@\+0,W-4E,\@\+3E)
:Line(W-4E,\@\+3E,W-1E,\@\+5E)
:Lbl 1
:If [A](2,3)\<=\0:Then
:Goto 5:End
:Line(W-1E,\@\+5E,W-2E,\@\+2E)
:Line(W-2E,\@\+2E,W+0E,\@\+0E)
:Lbl 5
:If [A](2,4)\<=\0:Then
:Goto 2:End
:Line(W+0,\@\+0,W-2E,\@\-1E)
:Line(W-2E,\@\-1E,W-4E,\@\-4E)
:Line(W-4E,\@\-4E,W-5E,\@\-7E)
:Line(W-5E,\@\-7E,W-6E,\@\-8E)
:Line(W-6E,\@\-8E,W-5E,\@\-7E)
:Line(W-5E,\@\-7E,W-4E,\@\-8E)
:Lbl 2
:If [A](2,2)\<=\0:Then
:Goto 3:End
:Line(W+6E,\@\+0,W+4E,\@\+3E)
:Line(W+4E,\@\+3E,W+1E,\@\+5E)
:Lbl 3
:If [A](2,3)\<=\0:Then
:Goto 6:End
:Line(W+1E,\@\+5E,W+2E,\@\+2E)
:Line(W+2E,\@\+2E,W+0E,\@\+0)
:Line(W-1E,\@\+5E,W+1E,\@\+5E)
:Lbl 6
:If [A](2,5)\<=\0:Then
:Goto 4:End
:Line(W+0,\@\+0,W+2E,\@\-1E)
:Line(W+2E,\@\-1E,W+4E,\@\-4E)
:Line(W+4E,\@\-4E,W+5E,\@\-7E)
:Line(W+5E,\@\-7E,W+6E,\@\-8E)
:Line(W+6E,\@\-8E,W+5E,\@\-7E)
:Line(W+5E,\@\-7E,W+4E,\@\-8E)
:Lbl 4
:Horizontal \(-)\1
:Line(0,0,W,5)
:Line(9,\(-)\5,9,(1/2)E\^-1\)
:Return
\STOP82\
\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHOPO3
\FILE=D:\TI\82\MECH\MECHOPO3.82P
:If [A](3,1)\<=\0:Then
:Goto 1:End
:Line(V-6F,\@\+0,V-4F,\@\+3F)
:Line(V-4F,\@\+3F,V-1F,\@\+5F)
:Lbl 1
:If [A](3,3)\<=\0:Then
:Goto 5:End
:Line(V-1F,\@\+5F,V-2F,\@\+2F)
:Line(V-2F,\@\+2F,V+0,\@\+0)
:Lbl 5
:If [A](3,4)\<=\0:Then
:Goto 2:End
:Line(V+0,\@\+0,V-2F,\@\-1F)
:Line(V-2F,\@\-1F,V-4F,\@\-4F)
:Line(V-4F,\@\-4F,V-5F,\@\-7F)
:Line(V-5F,\@\-7F,V-6F,\@\-8F)
:Line(V-6F,\@\-8F,V-5F,\@\-7F)
:Line(V-5F,\@\-7F,V-4F,\@\-8F)
:Lbl 2
:If [A](3,2)\<=\0:Then
:Goto 3:End
:Line(V+6F,\@\+0,V+4F,\@\+3F)
:Line(V+4F,\@\+3F,V+1F,\@\+5F)
:Lbl 3
:If [A](3,3)\<=\0:Then
:Goto 6:End
:Line(V+1F,\@\+5F,V+2F,\@\+2F)
:Line(V+2F,\@\+2F,V+0F,\@\+0)
:Line(V-1F,\@\+5F,V+1F,\@\+5F)
:Lbl 6
:If [A](3,5)\<=\0:Then
:Goto 4:End
:Line(V+0,\@\+0,V+2F,\@\-1F)
:Line(V+2F,\@\-1F,V+4F,\@\-4F)
:Line(V+4F,\@\-4F,V+5F,\@\-7F)
:Line(V+5F,\@\-7F,V+6F,\@\-8F)
:Line(V+6F,\@\-8F,V+5F,\@\-7F)
:Line(V+5F,\@\-7F,V+4F,\@\-8F)
:Lbl 4
:Horizontal \(-)\1
:Line(0,0,V,5)
:Line(9.5,\(-)\5,9.5,(1/2)F\^-1\)
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHOPON
\FILE=D:\TI\82\MECH\MECHOPON.82P
:If [A](1,1)\<=\0:Then
:Goto 1:End
:Line(X-6D,\@\+0,X-4D,\@\+3D)
:Line(X-4D,\@\+3D,X-1D,\@\+5D)
:Lbl 1
:If [A](1,3)\<=\0:Then
:Goto 5:End
:Line(X-1D,\@\+5D,X-2D,\@\+2D)
:Line(X-2D,\@\+2D,X+0,\@\+0)
:Lbl 5
:If [A](1,4)\<=\0:Then
:Goto 2:End
:Line(X+0,\@\+0,X-2D,\@\-1D)
:Line(X-2D,\@\-1D,X-4D,\@\-4D)
:Line(X-4D,\@\-4D,X-5D,\@\-7D)
:Line(X-5D,\@\-7D,X-6D,\@\-8D)
:Line(X-6D,\@\-8D,X-5D,\@\-7D)
:Line(X-5D,\@\-7D,X-4D,\@\-8D)
:Lbl 2
:If [A](1,2)\<=\0:Then
:Goto 3:End
:Line(X+6D,\@\+0,X+4D,\@\+3D)
:Line(X+4D,\@\+3D,X+1D,\@\+5D)
:Lbl 3
:If [A](1,3)\<=\0:Then
:Goto 6:End
:Line(X+1D,\@\+5D,X+2D,\@\+2D)
:Line(X+2D,\@\+2D,X+0D,\@\+0)
:Line(X-1D,\@\+5D,X+1D,\@\+5D)
:Lbl 6
:If [A](1,5)\<=\0:Then
:Goto 4:End
:Line(X+0,\@\+0,X+2D,\@\-1D)
:Line(X+2D,\@\-1D,X+4D,\@\-4D)
:Line(X+4D,\@\-4D,X+5D,\@\-7D)
:Line(X+5D,\@\-7D,X+6D,\@\-8D)
:Line(X+6D,\@\-8D,X+5D,\@\-7D)
:Line(X+5D,\@\-7D,X+4D,\@\-8D)
:Lbl 4
:Horizontal \(-)\1
:Line(0,0,X,5)
:Line(8.5,\(-)\5,8.5,(1/2)D\^-1\)
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHSAVE
\FILE=D:\TI\82\MECH\MECHSAVE.82P
:ClrHome
:FnOff 
:GridOff
:AxesOff
:PlotsOff 
:FullScreen
:\(-)\10\->\Xmin
:10\->\Xmax
:\(-)\10\->\Ymin
:10\->\Ymax
:If S=1:Then
:ClrHome
:Output(3,5,"SAVING")
:Output(5,3,"PLEASE WAIT")
:[[A,B,C,D,E,F][G,H,I,J,K,L][M,N,O,P,Q,R][S,T,U,V,W,X][Y,Z,\@\,0,0,0][0\#\
,0,0,0,0,0][0,0,0,0,0,0][0,0,0,0,0,0][0,0,0,0,0,0]]\->\[D]
:For(S,1,4)
:For(T,1,6)
:[A](S,T)\->\[D](S+5,T)
:End
:End
:Return
:End
:If S=2:Then
:ClrHome
:Output(3,5,"LOADING"
:Output(5,3,"PLEASE WAIT")
:[D](1,1)\->\A
:[D](1,2)\->\B
:[D](1,3)\->\C
:[D](1,4)\->\D
:[D](1,5)\->\E
:[D](1,6)\->\F
:[D](2,1)\->\G
:[D](2,2)\->\H
:[D](2,3)\->\I
:[D](2,4)\->\J
:[D](2,5)\->\K
:[D](2,6)\->\L
:[D](3,1)\->\M
:[D](3,2)\->\N
:[D](3,3)\->\O
:[D](3,4)\->\P
:[D](3,5)\->\Q
:[D](3,6)\->\R
:[D](4,1)\->\S
:[D](4,2)\->\T
:[D](4,3)\->\U
:[D](4,4)\->\V
:[D](4,5)\->\W
:[D](4,6)\->\X
:[D](5,1)\->\Y
:[D](5,2)\->\Z
:[D](5,3)\->\\@\
:{4,6}\->\dim [A]
:For(S,1,4)
:For(T,1,6)
:[D](S+5,T)\->\[A](S,T)
:End
:End
:Return
:End
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHSHO2
\FILE=D:\TI\82\MECH\MECHSHO2.82P
:If \@\\<=\8E and \@\\>=\0E and W\<=\8E and W\>=\0:Then
:[A](2,4)-P\->\[A](2,4)
:R+3\->\R:End
:If \@\\>=\0 and \@\\<=\8E and W\<=\0 and W\>=\\(-)\8E:Then
:[A](2,5)-P\->\[A](2,5)
:R+3\->\R:End
:If W\<=\2E and W\>=\\(-)\2E and \@\\<=\0 and \@\\>=\\(-)\4E:Then
:[A](2,3)-P\->\[A](2,3)
:R+5\->\R:End
:If W\<=\8E and W\>=\1E and \@\\<=\\(-)\1E and \@\\>=\\(-)\4E:Then
:[A](2,1)-P\->\[A](2,1)
:R+2\->\R:End
:If W\<=\\(-)\1E and W\>=\\(-)\8E and \@\\<=\1E and \@\\>=\\(-)\4E:Then\#\
:[A](2,2)-P\->\[A](2,2)
:R+2\->\R:End
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHSHO3
\FILE=D:\TI\82\MECH\MECHSHO3.82P
:If \@\\<=\8F and \@\\>=\0F and V\<=\8F and V\>=\0
:Then
:[A](3,4)-P\->\[A](3,4)
:R+3\->\R:End
:If \@\\>=\0 and \@\\<=\8F and V\<=\0 and V\>=\\(-)\8F:Then
:[A](3,5)-P\->\[A](3,5)
:R+3\->\R:End
:If V\<=\2F and V\>=\\(-)\2F and \@\\<=\0 and \@\\>=\\(-)\4F:Then
:[A](3,3)-P\->\[A](3,3)
:R+5\->\R:End
:If V\<=\8F and V\>=\1F and \@\\<=\\(-)\1F and \@\\>=\\(-)\4F:Then
:[A](3,1)-P\->\[A](3,1)
:R+1\->\R:End
:If V\<=\\(-)\1F and V\>=\\(-)\8F and \@\\<=\1F and \@\\>=\\(-)\4F:Then\#\
:[A](3,2)-P\->\[A](3,2)
:R+3\->\R:End
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHSHOP
\FILE=D:\TI\82\MECH\MECHSHOP.82P
:For(S,1,3)
:For(T,1,5)
:0\->\[A](S,T)
:End
:End
:Lbl 9
:ClrHome
:Disp "    MECHSHOP"
:Disp " "
:Disp "    YOU HAVE"
:Disp int [A](4,6)
:Disp "1=BUY"
:Disp "2=SELL"
:Disp "3=EXIT"
:Disp "4=STAT"
:Lbl 0
:getKey\->\K
:If K=92:Goto 1
:If K=93:Goto 2
:If K=94:Goto 3
:If K=82:Goto 6
:Goto 0
:Lbl 1
:Menu("BUY","LASER 1 1000",A,"LASER 2 3000",B,"LASER 3 5000",C,"LASER 4\#\
 7000",D,"LASER 5 10000",E,"EXIT",9)
:Lbl A
:1000\->\S
:(1/6)\->\T
:1\->\U
:Goto 4
:Lbl B
:3000\->\S
:(2/6)\->\T
:2\->\U
:Goto 4
:Lbl C
:5000\->\S
:(1/2)\->\T
:3\->\U
:Goto 4
:Lbl D
:7000\->\S
:(4/6)\->\T
:4\->\U
:Goto 4
:Lbl E
:10000\->\S
:(5/6)\->\T
:5\->\U
:Goto 4
:Lbl 4
:If I<6 and [A](4,6)\>=\S and [A](4,U)<6:Then
:[A](4,6)-S\->\[A](4,6)
:[A](4,U)+1\->\[A](4,U)
:I+1\->\I
:P+T\->\P
:ClrHome
:Disp "YOU GOT IT"
:Pause 
:Goto 9:End
:If [A](4,6)<S:Then
:ClrHome
:Disp "NOT ENOUGH CASH"
:Pause 
:Goto 9:End
:If I\>=\6 or [A](4,U)\>=\6:Then
:ClrHome
:Disp "TOO MANY LASERS"
:Pause 
:Goto 9:End
:Lbl 2
:Menu("SELL","LASER 1 800",F,"LASER 2 2700",G,"LASER 3 4500",H,"LASER 4\#\
 6500",I,"LASER 5 9000",J,"EXIT",9)
:Lbl F
:(1/6)\->\T
:800\->\S
:1\->\U
:Goto 5
:Lbl G
:(2/6)\->\T
:2700\->\S
:2\->\U
:Goto 5
:Lbl H
:(1/2)\->\T
:4500\->\S
:3\->\U
:Goto 5
:Lbl I
:(4/6)\->\T
:6500\->\S
:4\->\U
:Goto 5
:Lbl J
:(5/6)\->\T
:9000\->\S
:5\->\U
:Goto 5
:Lbl 5
:If I\>=\1 and [A](4,U)\>=\1:Then
:[A](4,6)+S\->\[A](4,6)
:[A](4,U)-1\->\[A](4,U)
:P-T\->\P
:I-1\->\I
:ClrHome
:Disp "SOLD!"
:Pause 
:Goto 9:End
:If I\<=\0 or [A](4,U)\<=\0:Then
:ClrHome
:Disp "   NOT ENOUGH"
:Disp "     LASERS"
:Pause 
:Goto 9:End
:Lbl 6
:ClrHome
:Disp "LASER 1"
:Output(1,16,[A](4,1)
:Disp "LASER 2"
:Output(2,16,[A](4,2)
:Disp "LASER 3"
:Output(3,16,[A](4,3)
:Disp "LASER 4"
:Output(4,16,[A](4,4)
:Disp "LASER 5"
:Output(5,16,[A](4,5)
:Pause 
:Goto 9
:Lbl 3
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHSHOT
\FILE=D:\TI\82\MECH\MECHSHOT.82P
:If \@\\<=\8D and \@\\>=\0D and X\<=\8D and X\>=\0 and [A](1,4)\>=\0:Th\#\
en
:[A](1,4)-P\->\[A](1,4)
:R+3\->\R:End
:If \@\\>=\0 and \@\\<=\8D and X\<=\0 and X\>=\\(-)\8D:Then
:[A](1,5)-P\->\[A](1,5)
:R+3\->\R:End
:If X\<=\2D and X\>=\\(-)\2D and \@\\<=\0 and \@\\>=\\(-)\4D:Then
:[A](1,3)-P\->\[A](1,3)
:R+5\->\R:End
:If X\<=\8D and X\>=\1D and \@\\<=\\(-)\1D and \@\\>=\\(-)\4D:Then
:[A](1,1)-P\->\[A](1,1)
:R+2\->\R:End
:If X\<=\\(-)\1D and X\>=\\(-)\8D and \@\\<=\\(-)\1D and \@\\>=\\(-)\4D\#\
:Then
:[A](1,2)-P\->\[A](1,2)
:R+2\->\R:End
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHSTAT
\FILE=D:\TI\82\MECH\MECHSTAT.82P
:Lbl 9
:ClrHome
:Menu("STATS","YOU",1,"ENEMY 1",2,"ENEMY 2",3,"ENEMY 3",4,"RETURN",5)
:Lbl 1
:Disp "YOUR LIFE"
:Disp Z
:Disp "POINTS"
:Disp R
:Pause 
:Goto 9
:Lbl 2
:1\->\Q
:Goto 8
:Lbl 3
:2\->\Q
:Goto 8
:Lbl 4
:3\->\Q
:Goto 8
:Lbl 8
:Disp "LEFT ARM"
:Output(1,13,[A](Q,1))
:Disp "RIGHT ARM"
:Output(2,13,[A](Q,2))
:Disp "TORSO"
:Output(3,13,[A](Q,3))
:Disp "LEFT LEG"
:Output(4,13,[A](Q,4))
:Disp "RIGHT LEG"
:Output(5,13,[A](Q,5))
:Pause 
:Goto 9
:Lbl 5
:Return
\STOP82\


\START82\
\COMMENT=Program file dated 10/22/96, 16:31
\NAME=MECHWAR
\FILE=D:\TI\82\MECH\MECHWAR.82P
:Lbl K
:StoreGDB GDB6
:0\->\B
:1\->\A
:Menu("RESUME","NO",9,"YES",W)
:Lbl W
:Menu("LOAD","NO",R,"YES",L)
:Lbl L
:2\->\S
:prgmMECHSAVE
:Goto 4
:Lbl R
:2\->\A
:Lbl 9
:0\->\G
:0\->\M
:0\->\O
:0\->\L
:PlotsOff 
:FnOff 
:GridOff
:AxesOff
:LabelOff
:Connected
:Func
:FullScreen
:If A=2:Goto 4
:0\->\C
:0\->\H
:0\->\R
:1\->\P
:15\->\Z
:\(-)\10\->\Xmin
:10\->\Xmax
:\(-)\10\->\Ymin
:10\->\Ymax
:{4,6}\->\dim [A]
:1000\->\[A](4,6)
:0\->\[A](1,6)
:0\->\[A](2,6)
:0\->\[A](3,6)
:For(S,2,5)
:0\->\[A](4,S)
:End
:6\->\[A](4,1)
:ClrHome
:Disp "DIFFICULTY? 0-2O"
:Input J
:If J=100:Then
:Input [A]
:10\->\J
:Goto Q:End
:For(S,1,3)
:5+J\->\[A](S,1)
:5+J\->\[A](S,2)
:10+J\->\[A](S,3)
:6+J\->\[A](S,4)
:6+J\->\[A](S,5)
:End
:Lbl Q
:int (rand*7)+2\->\D
:int (rand*7)+2\->\E
:int (rand*7)+2\->\F
:1/1.25^(D)\->\D
:1/1.25^(E)\->\E
:1/1.25^(F)\->\F
:int (rand*20)-10\->\X
:int (rand*20)-10\->\W
:int (rand*20)-10\->\V
:0\->\\@\
:6\->\I
:Lbl 4
:Menu("OPTIONS","SHUT DOWN",1,"EJECT",2,"MOVE",3,"STATS",Z,"SAVE",I)
:Lbl I
:1\->\S
:prgmMECHSAVE
:Goto 4
:Lbl 1
:ClrHome
:Output(5,4,"SHUTTING DOWN")
:0\->\H
:Pause 
:Goto 4
:Lbl 2
:ClrHome
:Output(5,4,"MISSION")
:Output(6,5,"FAILED")
:Pause 
:Menu("CONTINUE?","PLAY AGAIN",K,"EXIT",U)
:Lbl U
:ClrHome
:Output(4,3,"NOW EXITING."
:RecallGDB GDB6
:Stop
:Lbl 3
:prgmMECHDIST
:Goto 4
:Lbl Z
:prgmMECHSTAT
:Goto 4
\STOP82\
----end ascii----

----Begin UUE----
begin 664 MECH82.82G
M*BI423@R*BH:"@!0<F]G<F%M960@8GD@36%T=&AE=SH@82!-96-H=V%R<FEO
M<B!G86UE("`=)0L`7``%345#2$-2141<`%H`X3_@,RLS*RI'4D%02$E#4RE"
M63XJ/^`U*S0K*DI/4T@I3$]-05,J/]@_X3_@,RLS*RI-3U9%345.5"E"63XJ
M/^`U*S,K*DU!5%1(15<I3T)%5%,J/]@_X3_5"P!(!@5-14-(1$E35$@&1@;6
M,C_.7``0,2LS$6TP/L\_,01<`!`Q*S81/M0_SEP`$#(K,Q%M,#[//S$$7``0
M,BLV$3[4/\Y<`!`S*S,1;3`^SS\Q!%P`$#,K-A$^U#_.7``0,2LT$6TP0%P`
M$#$K-1%M,#[//S$$7``0,2LV$3[4/\Y<`!`R*S01;3!`7``0,BLU$6TP/L\_
M,01<`!`R*S81/M0_SEP`$#,K-!%M,$!<`!`S*S41;3`^SS\Q!%P`$#,K-A$^
MU#_.7``0,2LV$6HQ0%P`$#(K-A%J,4!<`!`S*S81:C$_SS_7,3[4/\Y:;3`^
MSS_7-3[4/\Y(;C(P/L\_UT@^U#_623^%/\Y":C`^SS^98``^U#_.0FHQ/L\_
MF6`!/M0_G+`U*[`W*[`U<%H0,H,S$2NP-Q$_G+`U*[`W.C4KL#5P6A`R@S,1
M*[`W.C41/YRP-2NP.#HU*[`U<!`Q@S(12"NP.#HU$3^<L#4KL#DKL#5P$#&#
M,A%(*[`Y$3_.7``0,2LV$6LQ/L\_7TU%0TA-3U9%/U]-14-(3U!/3C[4/\Y<
M`!`R*S81:S%`0VXR,'`T2C[//U]-14-(34]6,C]?345#2$]03S(^U#_.7``0
M,RLV$6LQ0$-N-3!P-DH^SS]?345#2$U/5C,_7TU%0TA/4$\S/M0_G+`Y*S`K
ML#DK3((S$3]#<#$$0S_.2&XQ/L\_2'$Q!$@^U#_6,S^M!$L_SDMJ,3(^SS]?
M345#2$-2140^U#_.2VHX,S[//S`$3#[4/\Y+:C(Q/L\_U3[4/\Y+:C(T/L\_
M6'`Q!%@_5W`Q!%<_5G`Q!%8^U#_.2VHR-3[//UMP,01;/M0_SDMJ,C8^SS]8
M<3$$6#]7<3$$5S]6<3$$5C[4/\Y+:C,T/L\_6W$Q!%L^U#_.2VHW,S[//TQP
M.C4$3#[4/\Y+:CDS/L\_3'$Z-01,/M0_SEP`$#$K-A%O,3[//T2",3HU\$P$
M1#[4/\Y#;C(P<#1*0%P`$#(K-A%O,3[//T6",3HU\$P$13[4/\Y#;C4P<#9*
M0%P`$#,K-A%O,3[//T:",3HU\$P$1C[4/\Y+:C$P-3[//TAP-`1(/\Y":C`^
MSS^<,"LP*S$P*[`W/YPP*S`K,3`KL#8_G#`K,"NP,3`KL#81/YPP*S`KL#$P
M*[`W$3^<,"LP*S$P*[`U/YPP*S`KL#$P*[`U$3_4/\Y":C$^SS^<,"LP*[`T
M.C4KL#4_G#`K,"NP-"NP-3^<,"LP*[`S.C4KL#4_G#`K,"LT.C4KL#4_G#`K
M,"LT*[`U/YPP*S`K,SHU*[`U/]0_SEP`$#$K-A%O,3[//U]-14-(4TA/5#[4
M/\Y<`!`R*S81;S%`0VXR,7`T2C[//U]-14-(4TA/,C[4/\Y<`!`S*S81;S%`
M0VXU,7`V2C[//U]-14-(4TA/,S[4/]0_SDMJ,S$^SS_.0FHP/L\_,01"/M<R
M/M0_SD)J,3[//S`$0C[7,C[4/]0_US(_UC$_X3_>*BDI*2E93U4I5TE.*2DI
M*2DJ/]@_7TU%0TA35$%4/^$_TU,K,2LS$3_35"LQ*S41/UP`$#0K-A%P$%P`
M$%,K5!&"-3`1!%P`$#0K-A$_U#_4/UP`$#0K-A%Q$!`Q-7%:$3(P,!$$7``0
M-"LV$3]*<#4$2C]?345#2%-(3U`_,`1'/S`$33\P!$\_,`1,/S`$0S\P!$@_
M,34$6C^Q$*N",C`1<3$P!%@_L1"K@C(P$7$Q,`17/[$0JX(R,!%Q,3`$5C^Q
M$*N"-Q%P,@1$/[$0JX(W$7`R!$4_L1"K@C<1<#($1C\Q@S$Z-?!$!$0_,8,Q
M.C7P101%/S&#,3HU\$8$1C\P!%L_,`1<`!`Q*S81/S`$7``0,BLV$3\P!%P`
M$#,K-A$_TU,K,2LS$3\U<$H$7``04RLQ$3\U<$H$7``04RLR$3\Q,'!*!%P`
M$%,K,Q$_-G!*!%P`$%,K-!$_-G!*!%P`$%,K-1$_U#_5/]8U/^$_WBHI*2DI
M64]5*4Q/4T4I*2DI*C_8/^$_V3_62#_.2&XR,$!(;3(U/L\_X3_@-2LR*RI(
M14%4*4-2251)0T%,*A$_V#_723[4/\Y(;C(V/L\_,`1(/UIQ,@1:/U)Q,3`$
M4C_A/]XJ*5-(551424Y'*41/5TXZ*2H_V#_723[4"P#7``5-14-(34]6,M<`
MU0"Q$*N",3`1!$X_SDYJ,4!<`!`R*S01;#!`7``0,BLU$6PP/L\_5W`Q1017
M/M0_SDYJ,D!<`!`R*S01;#!`7``0,BLU$6PP/L\_5W$Q1017/M0_SDYJ,T!<
M`!`R*S01;#!`7``0,BLU$6PP/L\_3W`Z-01//M0_SDYJ-$!<`!`R*S01;#!`
M7``0,BLU$6PP/L\_3W$Z-01//M0_18(Q.C(U\$\$13_.3FHU0$5N.(,R-S[/
M/UIQ,01:/M0_SDYJ-T!%;C(U-H,V,C4^SS]:<3$$6C[4/]4+`-<`!4U%0TA-
M3U8SUP#5`+$0JX(Q,!$$3C_.3FHQ0%P`$#,K-!%L,$!<`!`S*S41;#`^SS]6
M<#%&!%8^U#_.3FHR0%P`$#,K-!%L,$!<`!`S*S41;#`^SS]6<3%&!%8^U#_.
M3FHS0%P`$#,K-!%L,$!<`!`S*S41;#`^SS]'<#HU!$<^U#_.3FHT0%P`$#,K
M-!%L,$!<`!`S*S41;#`^SS]'<3HU!$<^U#]&@C$Z,C7P1P1&/\Y.:C5`1FXX
M@S(W/L\_6G$Q!%H^U#_.3FHW0$9N,C4V@S8R-3[//UIQ,01:/M0_U0L`UP`%
M345#2$U/5D77`-4`L1"K@C$P$01./\Y.:C%`7``0,2LT$6PP0%P`$#$K-1%L
M,#[//UAP,40$6#[4/\Y.:C)`7``0,RLT$6PP0%P`$#$K-1%L,#[//UAQ,40$
M6#[4/\Y.:C-`7``0,2LT$6PP0%P`$#$K-1%L,#[//TUP.C4$33[4/\Y.:C1`
M7``0,2LT$6PP0%P`$#$K-1%L,#[//TUQ.C4$33[4/T2",3HR-?!-!$0_SDYJ
M-4!$;CB#,C<^SS]:<3$$6C[4/\Y.:C=`1&XR-3:#-C(U/L\_6G$Q!%H^U#_5
M"P!G`@5-14-(3U!/,F<"90+.7``0,BLQ$6TP/L\_US$^U#^<5W$V12M;<#`K
M5W$T12M;<#-%$3^<5W$T12M;<#-%*U=Q,44K6W`U11$_UC$_SEP`$#(K,Q%M
M,#[//]<U/M0_G%=Q,44K6W`U12M7<3)%*UMP,D41/YQ7<3)%*UMP,D4K5W`P
M12M;<#!%$3_6-3_.7``0,BLT$6TP/L\_US(^U#^<5W`P*UMP,"M7<3)%*UMQ
M,441/YQ7<3)%*UMQ,44K5W$T12M;<31%$3^<5W$T12M;<31%*U=Q-44K6W$W
M11$_G%=Q-44K6W$W12M7<39%*UMQ.$41/YQ7<39%*UMQ.$4K5W$U12M;<3=%
M$3^<5W$U12M;<3=%*U=Q-$4K6W$X11$_UC(_SEP`$#(K,A%M,#[//]<S/M0_
MG%=P-D4K6W`P*U=P-$4K6W`S11$_G%=P-$4K6W`S12M7<#%%*UMP-441/]8S
M/\Y<`!`R*S,1;3`^SS_7-C[4/YQ7<#%%*UMP-44K5W`R12M;<#)%$3^<5W`R
M12M;<#)%*U=P,$4K6W`P$3^<5W$Q12M;<#5%*U=P,44K6W`U11$_UC8_SEP`
M$#(K-1%M,#[//]<T/M0_G%=P,"M;<#`K5W`R12M;<3%%$3^<5W`R12M;<3%%
M*U=P-$4K6W$T11$_G%=P-$4K6W$T12M7<#5%*UMQ-T41/YQ7<#5%*UMQ-T4K
M5W`V12M;<3A%$3^<5W`V12M;<3A%*U=P-44K6W$W11$_G%=P-44K6W$W12M7
M<#1%*UMQ.$41/]8T/Z:P,3^<,"LP*U<K-1$_G#DKL#4K.2L0,8,R$44,$3_5
M"P!I`@5-14-(3U!/,VD"9P+.7``0,RLQ$6TP/L\_US$^U#^<5G$V1BM;<#`K
M5G$T1BM;<#-&$3^<5G$T1BM;<#-&*U9Q,48K6W`U1A$_UC$_SEP`$#,K,Q%M
M,#[//]<U/M0_G%9Q,48K6W`U1BM6<3)&*UMP,D81/YQ6<3)&*UMP,D8K5G`P
M*UMP,!$_UC4_SEP`$#,K-!%M,#[//]<R/M0_G%9P,"M;<#`K5G$R1BM;<3%&
M$3^<5G$R1BM;<3%&*U9Q-$8K6W$T1A$_G%9Q-$8K6W$T1BM6<35&*UMQ-T81
M/YQ6<35&*UMQ-T8K5G$V1BM;<3A&$3^<5G$V1BM;<3A&*U9Q-48K6W$W1A$_
MG%9Q-48K6W$W1BM6<31&*UMQ.$81/]8R/\Y<`!`S*S(1;3`^SS_7,S[4/YQ6
M<#9&*UMP,"M6<#1&*UMP,T81/YQ6<#1&*UMP,T8K5G`Q1BM;<#5&$3_6,S_.
M7``0,RLS$6TP/L\_US8^U#^<5G`Q1BM;<#5&*U9P,D8K6W`R1A$_G%9P,D8K
M6W`R1BM6<#!&*UMP,!$_G%9Q,48K6W`U1BM6<#%&*UMP-481/]8V/\Y<`!`S
M*S41;3`^SS_7-#[4/YQ6<#`K6W`P*U9P,D8K6W$Q1A$_G%9P,D8K6W$Q1BM6
M<#1&*UMQ-$81/YQ6<#1&*UMQ-$8K5G`U1BM;<3=&$3^<5G`U1BM;<3=&*U9P
M-D8K6W$X1A$_G%9P-D8K6W$X1BM6<#5&*UMQ-T81/YQ6<#5&*UMQ-T8K5G`T
M1BM;<3A&$3_6-#^FL#$_G#`K,"M6*S41/YPY.C4KL#4K.3HU*Q`Q@S(11@P1
M/]4+`&D"!4U%0TA/4$].:0)G`LY<`!`Q*S$1;3`^SS_7,3[4/YQ8<39$*UMP
M,"M8<31$*UMP,T01/YQ8<31$*UMP,T0K6'$Q1"M;<#5$$3_6,3_.7``0,2LS
M$6TP/L\_US4^U#^<6'$Q1"M;<#5$*UAQ,D0K6W`R1!$_G%AQ,D0K6W`R1"M8
M<#`K6W`P$3_6-3_.7``0,2LT$6TP/L\_US(^U#^<6'`P*UMP,"M8<3)$*UMQ
M,401/YQ8<3)$*UMQ,40K6'$T1"M;<31$$3^<6'$T1"M;<31$*UAQ-40K6W$W
M1!$_G%AQ-40K6W$W1"M8<39$*UMQ.$01/YQ8<39$*UMQ.$0K6'$U1"M;<3=$
M$3^<6'$U1"M;<3=$*UAQ-$0K6W$X1!$_UC(_SEP`$#$K,A%M,#[//]<S/M0_
MG%AP-D0K6W`P*UAP-$0K6W`S1!$_G%AP-$0K6W`S1"M8<#%$*UMP-401/]8S
M/\Y<`!`Q*S,1;3`^SS_7-C[4/YQ8<#%$*UMP-40K6'`R1"M;<#)$$3^<6'`R
M1"M;<#)$*UAP,$0K6W`P$3^<6'$Q1"M;<#5$*UAP,40K6W`U1!$_UC8_SEP`
M$#$K-1%M,#[//]<T/M0_G%AP,"M;<#`K6'`R1"M;<3%$$3^<6'`R1"M;<3%$
M*UAP-$0K6W$T1!$_G%AP-$0K6W$T1"M8<#5$*UMQ-T01/YQ8<#5$*UMQ-T0K
M6'`V1"M;<3A$$3^<6'`V1"M;<3A$*UAP-40K6W$W1!$_G%AP-40K6W$W1"M8
M<#1$*UMQ.$01/]8T/Z:P,3^<,"LP*U@K-1$_G#@Z-2NP-2LX.C4K$#&#,A%$
M#!$_U0L`:`(%345#2%-!5D5H`F8"X3^7/WX+/WX)/^H_=3^P,3`$8PH_,3`$
M8PL_L#$P!&,,/S$P!&,-/\Y3:C$^SS_A/^`S*S4K*E-!5DE.1RH1/^`U*S,K
M*E!,14%312E704E4*A$_!@9!*T(K0RM$*T4K1@<&1RM(*TDK2BM+*TP'!DTK
M3BM/*U`K42M2!P93*U0K52M6*U<K6`<&62M:*ULK,"LP*S`'!C`K,"LP*S`K
M,"LP!P8P*S`K,"LP*S`K,`<&,"LP*S`K,"LP*S`'!C`K,"LP*S`K,"LP!P<$
M7`,_TU,K,2LT$3_35"LQ*S81/UP`$%,K5!$$7`,04W`U*U01/]0_U#_5/]0_
MSE-J,C[//^$_X#,K-2LJ3$]!1$E.1RH_X#4K,RLJ4$Q%05-%*5=!250J$3]<
M`Q`Q*S$1!$$_7`,0,2LR$01"/UP#$#$K,Q$$0S]<`Q`Q*S01!$0_7`,0,2LU
M$01%/UP#$#$K-A$$1C]<`Q`R*S$1!$<_7`,0,BLR$01(/UP#$#(K,Q$$23]<
M`Q`R*S01!$H_7`,0,BLU$01+/UP#$#(K-A$$3#]<`Q`S*S$1!$T_7`,0,RLR
M$01./UP#$#,K,Q$$3S]<`Q`S*S01!%`_7`,0,RLU$011/UP#$#,K-A$$4C]<
M`Q`T*S$1!%,_7`,0-"LR$014/UP#$#0K,Q$$53]<`Q`T*S01!%8_7`,0-"LU
M$017/UP#$#0K-A$$6#]<`Q`U*S$1!%D_7`,0-2LR$01:/UP#$#4K,Q$$6S\(
M-"LV"02U7``_TU,K,2LT$3_35"LQ*S81/UP#$%-P-2M4$01<`!!3*U01/]0_
MU#_5/]0+`/P`!4U%0TA32$\R_`#Z`,Y;;3A%0%MN,$5`5VTX14!7;C`^SS]<
M`!`R*S01<5`$7``0,BLT$3]2<#,$4C[4/\Y;;C!`6VTX14!7;3!`5VZP.$4^
MSS]<`!`R*S41<5`$7``0,BLU$3]2<#,$4C[4/\Y7;3)%0%=NL#)%0%MM,$!;
M;K`T13[//UP`$#(K,Q%Q4`1<`!`R*S,1/U)P-012/M0_SE=M.$5`5VXQ14!;
M;;`Q14!;;K`T13[//UP`$#(K,1%Q4`1<`!`R*S$1/U)P,@12/M0_SE=ML#%%
M0%=NL#A%0%MM,45`6VZP-$4^SS]<`!`R*S(1<5`$7``0,BLR$3]2<#($4C[4
M/]4+`/P`!4U%0TA32$\S_`#Z`,Y;;3A&0%MN,$9`5FTX1D!6;C`_SS]<`!`S
M*S01<5`$7``0,RLT$3]2<#,$4C[4/\Y;;C!`6VTX1D!6;3!`5FZP.$8^SS]<
M`!`S*S41<5`$7``0,RLU$3]2<#,$4C[4/\Y6;3)&0%9NL#)&0%MM,$!;;K`T
M1C[//UP`$#,K,Q%Q4`1<`!`S*S,1/U)P-012/M0_SE9M.$9`5FXQ1D!;;;`Q
M1D!;;K`T1C[//UP`$#,K,1%Q4`1<`!`S*S$1/U)P,012/M0_SE9ML#%&0%9N
ML#A&0%MM,49`6VZP-$8^SS]<`!`S*S(1<5`$7``0,RLR$3]2<#,$4C[4/]4+
M`$P$!4U%0TA32$]03`1*!--3*S$K,Q$_TU0K,2LU$3\P!%P`$%,K5!$_U#_4
M/]8Y/^$_WBHI*2DI345#2%-(3U`J/]XJ*2H_WBHI*2DI64]5*4A!5D4J/]ZQ
M7``0-"LV$3_>*C%J0E59*C_>*C)J4T5,3"H_WBHS:D58250J/]XJ-&I35$%4
M*C_6,#^M!$L_SDMJ.3(^US$_SDMJ.3,^US(_SDMJ.30^US,_SDMJ.#(^US8_
MUS`_UC$_YBI"55DJ*RI,05-%4BDQ*3$P,#`J*T$K*DQ!4T52*3(I,S`P,"HK
M0BLJ3$%315(I,RDU,#`P*BM#*RI,05-%4BDT*3<P,#`J*T0K*DQ!4T52*34I
M,3`P,#`J*T4K*D58250J*SD1/]9!/S$P,#`$4S\0,8,V$014/S$$53_7-#_6
M0C\S,#`P!%,_$#*#-A$$5#\R!%4_US0_UD,_-3`P,`13/Q`Q@S(1!%0_,P15
M/]<T/]9$/S<P,#`$4S\0-(,V$014/S0$53_7-#_613\Q,#`P,`13/Q`U@S81
M!%0_-015/]<T/]8T/\Y):S9`7``0-"LV$6Y30%P`$#0K51%K-C[//UP`$#0K
M-A%Q4P1<`!`T*S81/UP`$#0K51%P,01<`!`T*U41/TEP,01)/U!P5`10/^$_
MWBI93U4I1T]4*4E4*C_8/]<Y/M0_SEP`$#0K-A%K4S[//^$_WBI.3U0I14Y/
M54=(*4-!4T@J/]@_USD^U#_.26XV/%P`$#0K51%N-C[//^$_WBI43T\I34%.
M62E,05-%4E,J/]@_USD^U#_6,C_F*E-%3$PJ*RI,05-%4BDQ*3@P,"HK1BLJ
M3$%315(I,BDR-S`P*BM'*RI,05-%4BDS*30U,#`J*T@K*DQ!4T52*30I-C4P
M,"HK22LJ3$%315(I-2DY,#`P*BM**RI%6$E4*BLY$3_61C\0,8,V$014/S@P
M,`13/S$$53_7-3_61S\0,H,V$014/S(W,#`$4S\R!%4_US4_UD@_$#&#,A$$
M5#\T-3`P!%,_,P15/]<U/]9)/Q`T@S81!%0_-C4P,`13/S0$53_7-3_62C\0
M-8,V$014/SDP,#`$4S\U!%4_US4_UC4_SDEN,4!<`!`T*U41;C$^SS]<`!`T
M*S81<%,$7``0-"LV$3]<`!`T*U41<3$$7``0-"M5$3]0<50$4#])<3$$23_A
M/]XJ4T],1"TJ/]@_USD^U#_.26TP/%P`$#0K51%M,#[//^$_WBHI*2E.3U0I
M14Y/54=(*C_>*BDI*2DI3$%315)3*C_8/]<Y/M0_UC8_X3_>*DQ!4T52*3$J
M/^`Q*S$V*UP`$#0K,1$_WBI,05-%4BDR*C_@,BLQ-BM<`!`T*S(1/]XJ3$%3
M15(I,RH_X#,K,38K7``0-"LS$3_>*DQ!4T52*30J/^`T*S$V*UP`$#0K-!$_
MWBI,05-%4BDU*C_@-2LQ-BM<`!`T*S41/]@_USD_UC,_U0L`!P$%345#2%-(
M3U0'`04!SEMM.$1`6VXP1$!8;3A$0%AN,$!<`!`Q*S01;C`^SS]<`!`Q*S01
M<5`$7``0,2LT$3]2<#,$4C[4/\Y;;C!`6VTX1$!8;3!`6&ZP.$0^SS]<`!`Q
M*S41<5`$7``0,2LU$3]2<#,$4C[4/\Y8;3)$0%ANL#)$0%MM,$!;;K`T1#[/
M/UP`$#$K,Q%Q4`1<`!`Q*S,1/U)P-012/M0_SEAM.$1`6&XQ1$!;;;`Q1$!;
M;K`T1#[//UP`$#$K,1%Q4`1<`!`Q*S$1/U)P,@12/M0_SEAML#%$0%ANL#A$
M0%MML#%$0%MNL#1$/L\_7``0,2LR$7%0!%P`$#$K,A$_4G`R!%(^U#_5"P`=
M`05-14-(4U1!5!T!&P'6.3_A/^8J4U1!5%,J*RI93U4J*S$K*D5.14U9*3$J
M*S(K*D5.14U9*3(J*S,K*D5.14U9*3,J*S0K*E)%5%523BHK-1$_UC$_WBI9
M3U52*4Q)1D4J/]Y:/]XJ4$])3E13*C_>4C_8/]<Y/]8R/S$$43_7.#_6,S\R
M!%$_US@_UC0_,P11/]<X/]8X/]XJ3$5&5"E!4DTJ/^`Q*S$S*UP`$%$K,1$1
M/]XJ4DE'2%0I05)-*C_@,BLQ,RM<`!!1*S(1$3_>*E1/4E-/*C_@,RLQ,RM<
M`!!1*S,1$3_>*DQ%1E0I3$5'*C_@-"LQ,RM<`!!1*S01$3_>*E))1TA4*4Q%
M1RH_X#4K,3,K7``042LU$1$_V#_7.3_6-3_5"P```P5-14-(5T%2```#_@+6
M2S\P!$(_,01!/^8J4D5354U%*BLJ3D\J*SDK*EE%4RHK5Q$_UE<_YBI,3T%$
M*BLJ3D\J*U(K*EE%4RHK3!$_UDP_,@13/U]-14-(4T%613_7-#_64C\R!$$_
MUCD_,`1'/S`$33\P!$\_,`1,/^H_ES]^"S]^"3]^#3]^!C]V/W4_SD%J,C[7
M-#\P!$,_,`1(/S`$4C\Q!%`_,34$6C^P,3`$8PH_,3`$8PL_L#$P!&,,/S$P
M!&,-/P@T*S8)!+5<`#\Q,#`P!%P`$#0K-A$_,`1<`!`Q*S81/S`$7``0,BLV
M$3\P!%P`$#,K-A$_TU,K,BLU$3\P!%P`$#0K4Q$_U#\V!%P`$#0K,1$_X3_>
M*D1)1D9)0U5,5%FO*3!Q,D\J/]Q*/\Y*:C$P,#[//]Q<`#\Q,`1*/]=1/M0_
MTU,K,2LS$3\U<$H$7``04RLQ$3\U<$H$7``04RLR$3\Q,'!*!%P`$%,K,Q$_
M-G!*!%P`$%,K-!$_-G!*!%P`$%,K-1$_U#_643^Q$*N"-Q%P,@1$/[$0JX(W
M$7`R!$4_L1"K@C<1<#($1C\Q@S$Z,C7P$$01!$0_,8,Q.C(U\!!%$01%/S&#
M,3HR-?`01A$$1C^Q$*N",C`1<3$P!%@_L1"K@C(P$7$Q,`17/[$0JX(R,!%Q
M,3`$5C\P!%L_-@1)/]8T/^8J3U!424].4RHK*E-(550I1$]73BHK,2LJ14I%
M0U0J*S(K*DU/5D4J*S,K*E-40513*BM:*RI3059%*BM)$3_623\Q!%,_7TU%
M0TA3059%/]<T/]8Q/^$_X#4K-"LJ4TA55%1)3D<I1$]73BH1/S`$2#_8/]<T
M/]8R/^$_X#4K-"LJ34E34TE/3BH1/^`V*S4K*D9!24Q%1"H1/]@_YBI#3TY4
M24Y51:\J*RI03$%9*4%'04E.*BM+*RI%6$E4*BM5$3_653_A/^`T*S,K*DY/
M5RE%6$E424Y'.BH_V3_6,S]?345#2$1)4U0_US0_UEH_7TU%0TA35$%4/]<T
M"P#V`@=@`````````/8"]`+```````````````8P`````````````![,````
M`````````'[S`````````````?C\P```````````!^#_.```````````/X8_
MQ@``````````_A@/^8`````````#^&`#_F`````````/PX``_YP```````!_
M#```'^,```````'\,```!_S```````?QP````?\P`````!^&`````#_,````
M`'XX``````_S______C```````/]_____^,```````#_______P```````#*
M`````.(```````&4`````'$```````,H`````#B```````90`````!Q`````
M``R@``````X@`````!E```````<0`````#*```````.(`````&4```````'$
M`````,H```````#B`````90```````!Q`````R@``'$<```X@```!E````@@
M```<0```#*````1````.(`#_^4`````````''_X``H``!Y`3P``#@`#_^4``
M```````''_X`#*````1````.(```!E````@@```<0````R@``'$<```X@```
M`90```````!Q`````,H```````#B`````&4```````'$`````#*```````.(
M`````!E```````<0``````R@``````X@``````90`````!Q```````,H````
M`#B```````&4`````'$```````#*`````.(```````!_______\```````']
M`````'C```````?S______XP`````#_,`````!^,`````/\P``````?C````
M!_S```````'XX```'^,```````!^&```?YP````````?A@`#_F`````````'
MX?[_^X`````````!^'[_Q@``````````_A[_/@``````````_X;\_@``````
M````_^#S_@``````````__C/_@``````````__X__@``````````__S__@``
M````````__X+`/8"!V`!````````]@+T`@``````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````'_``````````````<!P````````````#D!.`````````
M```,(`A@```````````P0`08``````````!`0`0$``````````"`@`("````
M``````,`8`P!@`````````0`&#``0`````````@`!L``(````````!```X``
M$```````````#&``````````````,!@`````````````P`8````````````!
M``$````````````"``"````````````$``!````````````(```@````````
M```0```0```````````@```(```````````@```(``````````!````$````
M``````!````$``````````"````"``````````"````"``````````$````!
2``````````,````!@`````][
 
end
----end UUE----