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\