D. JacKaL's Mega Man 81

This is a clone of Mega Man for the TI-81.  It is completely text-based and consists of fights 
with robot masters.  After you beat the first 8 robot masters, you can fight TI and win.

For more info, go to the Mega Man 80/81/82/83/83-ASM/85/ZShell/OS-85/92/Fargo 
page at: http://home.pb.net/~jaklitsch/djackal/ti/megaman.htm

\START81\
Prgm1:MEGA
:Prgm8    (this is the DJ program.)
:0\->\A    (this is the STO> button.)
:0\->\B
:0\->\C
:0\->\D
:0\->\E
:0\->\F
:0\->\G
:0\->\H
:0\->\V
:1\->\Arow
:2\->\Acol
:ClrHome
:Disp ""
:Disp ""
:Disp ""
:Disp ""
:Disp ""
:Disp ""
:Disp ""
:Disp "    MEGA MAN"
:69!
:Disp "       81"
:69!
:Disp ""
:69!
:Disp ""
:69!
:Disp ""
:Pause
:Lbl M
:ClrHome
:Disp "MEGA MAN 81"
:Disp "1)PLAY GAME"
:Disp "2)PASSWORD"
:Disp "3)QUIT"
:Input J
:If J=1
:Goto K
:If J=2
:Prgm5    (this is the ZMPW program.)
:If J=3
:Goto Q
:Goto M
:Lbl K
:28\->\L
:ClrHome
:Disp ""
:Disp " 7)AN 8)MA 9)MD"
:Disp " 4)DO 5)TI 6)PO"
:Disp " 1)FR 2)SA 3)MI"
:Disp "     0)MENU"
:Input K
:If K=0
:Goto M
:If (K=1)(F\<>\1)+(K=2)(C\<>\2)+(K=3)(G\<>\3)+(K=4)(A\<>\4)+(K=6)(H\<>\6)+(K=7)(E\<>\7)+
(K=8)(D\<>\8)+(K=9)(B\<>\9)+(K=5)(A=4)(B=9)(C=2)(D=8)(E=7)(F=1)(G=3)(H=6)
:Prgm3    (this is the ZML program.)
:If L\<=\0    (this is the less than or equal to sign.)
:Goto Z
:If V\<>\1    (this is the not equal to sign.)
:Goto K
:Prgm6    (this is the ZMSE program.)
:Prgm7    (this is the ZCRDTS program.)
:Goto Q
:Lbl Z
:ClrHome
:Disp "   GAME OVER"
:Pause
:Lbl Q
:0\->\[A]
:ClrHome
:Disp ""
:Disp ""
:Disp " THANK YOU FOR"
:Disp "    PLAYING"
:Disp "  MEGA MAN 81"
:Pause
:Prgm2    (this is the DFLTS program.)
\STOP81\

\START81\
Prgm2:DFLTS
:ClrHome
:ClrDraw
:All-Off 
:\(-)\10\->\Xmin    (this is the negative sign.)
:10\->\Xmax
:1\->\Xscl
:\(-)\10\->\Ymin
:10\->\Ymax
:1\->\Yscl
:1\->\Xres
:Norm
:Float
:Deg
:Function
:Connected
:Rect
:Sequence
:Grid Off
:ClrStat
\STOP81\

\START81\
Prgm3:ZML
:28\->\M
:0\->\W
:Lbl F
:L\->\[A](1,1
:M\->\[A](1,2
:ClrHome
:If K=1
:Disp "FRESHMAN"
:If K=2
:Disp "SALESMAN"
:If K=3
:Disp "MILKMAN"
:If K=4
:Disp "DOORMAN"
:If K=5
:Disp "       TI"
:If K=6
:Disp "POLICEMAN"
:If K=7
:Disp "ANCHORMAN"
:If K=8
:Disp "MAILMAN"
:If K=9
:Disp "MADMAN"
:Disp ""
:Disp [A]
:If W=0
:Disp "  W) P"
:If W=1
:Disp "  W) DO"
:If W=2
:Disp "  W) MD"
:If W=3
:Disp "  W) SA"
:If W=4
:Disp "  W) MA"
:If W=6
:Disp "  W) AN"
:If W=7
:Disp "  W) FR"
:If W=8
:Disp "  W) MI"
:If W=9
:Disp "  W) PO"
:Disp "1=ATK 0=CHG WPN"
:If L\<=\0
:Goto B
:If M\<=\0
:Goto R
:Input \@\    (this is the theta character.)
:If \@\=0
:Prgm4    (this is the ZMSS program.)
:If \@\\<>\1
:Goto F
:Int 5Rand\->\Z
:If Z=0
:L-1\->\L
:If Z=4
:L-2\->\L
:Int 3Rand\->\Z
:If Z=0
:Goto F
:M-1\->\M
:If (K=W)+(K=5)(W=4)
:M-6\->\M
:Goto F
:Lbl R
:ClrHome
:If K=5
:Goto B
:If K=1
:1\->\F
:If K=2
:2\->\C
:If K=3
:3\->\G
:If K=4
:4\->\A
:If K=6
:6\->\H
:If K=7
:7\->\E
:If K=8
:8\->\D
:If K=9
:9\->\B
:Disp ""
:Disp ""
:Disp "    YOU GOT"
:If K=1
:Disp "  ZIT  SHIELD"
:If K=2
:Disp "  BILL CHARGE"
:If K=3
:Disp "  MILK BUBBLE"
:If K=4
:Disp " SPLINTER SHOT"
:If K=6
:Disp "BADGE BOOMERANG"
:If K=7
:Disp "  ANCHOR TOSS"
:If K=8
:Disp "  STAMP THROW"
:If K=9
:Disp "SWEARING SCREAM"
:Disp ""
:If K=1
:Disp "      F=1"
:If K=2
:Disp "      C=2"
:If K=3
:Disp "      G=3"
:If K=4
:Disp "      A=4"
:If K=6
:Disp "      H=6"
:If K=7
:Disp "      E=7"
:If K=8
:Disp "      D=8"
:If K=9
:Disp "      B=9"
:Pause
:Lbl B
:If (K=5)(L>0)
:1\->\V
\STOP81\

\START81\
Prgm4:ZMSS
:Lbl 1
:ClrHome
:Disp "0)P"
:If A=4
:Disp "1)DO"
:If B=9
:Disp "2)MD"
:If C=2
:Disp "3)SA"
:If D=8
:Disp "4)MA"
:Disp "5)NEXT"
:Input W
:If W=5
:Goto 2
:If (W=0)+(W=1)(A=4)+(W=2)(B=9)+(W=3)(C=2)+(W=4)(D=8)
:Goto R
:Goto 1
:Lbl 2
:ClrHome
:If E=7
:Disp "6)AN"
:If F=1
:Disp "7)FR"
:If G=3
:Disp "8)MI"
:If H=6
:Disp "9)PO"
:Disp "5)NEXT"
:Input W
:If W=5
:Goto 1
:If (W=6)(E=7)+(W=7)(F=1)+(W=8)(G=3)+(W=9)(H=6)
:Goto R
:Goto 2
:Lbl R
\STOP81\

\START81\
Prgm5:ZMPW
:ClrHome
:Disp "A="
:Input A
:Disp "B="
:Input B
:Disp "C="
:Input C
:Disp "D="
:Input D
:Disp "E="
:Input E
:Disp "F="
:Input F
:Disp "G="
:Input G
:Disp "H="
:Input H
\STOP81\

\START81\
Prgm6:ZMSE
:ClrHome
:Disp "MEGA MAN USES   WHAT IS LEFT OF TI TO RE-BUILD  AND RE-PROGRAM  HIM AS A"
:Disp "FRIEND..."
:Pause
:ClrHome
:Disp "TI WOULD OFTEN  ASK WHAT HIS    INITIALS STOOD  FOR.  MEGA MAN  ALWAYS RESPONDEDBY
 SAYING..."
:Pause
:ClrHome
:Disp ""
:Disp "     THAT^S"
:Disp "   IRRELEVANT."
:Disp ""
:Pause
:Disp "       T"
:Disp "       H"
:Disp "       END."
:Pause
:ClrHome
\STOP81\

\START81\
Prgm7:ZCRDTS
:ClrHome
:Disp "MADE"
:Disp "TESTED"
:Disp "EDITED"
:Disp "ETC..."
:Disp "BY"
:Disp "D. JaKaL"
:Disp "SOFTWARE"
:Pause
\STOP81\

\START81\
Prgm8:DJ
:Prgm2    (this is the DFLTS program.)
:5\->\Xmin
:100\->\Xmax
:0\->\Xscl
:5\->\Ymin
:68\->\Ymax
:0\->\Yscl
:Line(25,55,25,25
:Line(20,50,45,60
:Line(45,60,20,20
:Line(47,35,55,27
:Line(55,27,55,52
:Line(44,52,64,52
:Line(80,55,70,45
:Line(70,45,80,35
:Line(80,35,70,25
:Pause
:ClrDraw
\STOP81\