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.
<<<<>>>>
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)=\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----
© 1997 bckcoats@ix.netcom.com
Get your own Free Home Page