MECHWAR  T.I. 82





	This program is a Mech Warrior like game.  It requires about 10,000 

bites free.  This number includes all 15 programs, matrix [A] and [D], Pic1, 

and all 27 variables.  If You are unable to find that much free memory, I 

have a smaller version that I can give you.  It only requires 6,519 bites.  

My e-mail address is at the bottom of this document.



----begin documentation----



BASICS

	When you start the game it will ask you if you want to resume.  

This allows you to continue playing where you left off if you have not 

messed with the variables or load a saved game.  Then it will ask you the 

difficulty.  It says, "0-20", but you can enter any number you want.  

It just adds to the number of times you must shoot the enemies.  Then 

you will get a menu:



				OPTIONS

				1:SHUT DOWN

				2:EJECT

				3:MOVE

				4:STATS

				5:SAVE



	"SHUT DOWN" will do just that.  This allows you to cool off without

		    taking damage.

	"EJECT" ends the game.

	"MOVE" allows you to play the game.  I will talk more about this 

	       later.

	"STATS" Shows your points, damage, and your opponents damage.

	"SAVE" Will save the game in matrix [D].



GAME PLAY

	After selecting "MOVE" you will see the inside of the cockpit.  

	There is a line going UP and DOWN on the left of the screen.  

	This shows your speed.  If you are playing the game and reading 

	this at the same time, you wont see this line because you are not 

	moving.  If you want to move, push 8 to go forward, 2 to go 

	backwards, and 5 to stop.  The more you push these buttons, the 

	faster you go.  On the bottom of the screen, are two lines.  The top

	is your life.  The bottom is your heat.	On the right side are three 

	lines.  One for each enemy.  The left one is for the first enemy 

	and the right one for the third.  These tell you how far the enemies

	are from you.  Coming out of the center of the screen are three 

	lines that end over the enemy.  This will tell you which way to turn

	 by using the arrow keys.  To aim up and down, use the down and up 

	keys.  To fire, press the enter key.  Alfa togels the external and 

	the internal views.

	

	This program requires Pic1 and Pic2 which is the inside of the 

	cockpit	and cross hairs and an external veiw.

	  <<<<<You will have to draw these yourself if you don't have a 

	       graphlink.>>>>>



	If you have any comments or questions, e-mail me at:

		matto@iapc.net

	

	By the way, my name is Matthew Obets.



----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----