D. JacKaL's Mega Man 80 This is a clone of Mega Man for the TI-80. 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 /START80/ /NAME=MEGA :PRGM_ZDJ :0->A:0->B:0->C:0->D:0->E:0->F:0->G:0->H:0->V (this is the STO> button) :2->DIM L1 :LBL 1 :CLRDRAW :LINE(25,47,48,47 :LINE(25,47,13,23 :LINE(48,47,60,23 :LINE(19,35,54,35 :LINE(13,23,60,23 :LINE(37,47,37,35 :LINE(32,47,29,35 :LINE(34,43,37,43 :LINE(33,39,37,39 :LINE(28,47,26,41 :LINE(22,35,24,41 :LINE(26,35,28,41 :LINE(43,47,46,35 :LINE(44,43,40,43 :LINE(40,43,41,39 :LINE(41,39,42,39 :LINE(49,40,50,35 :LINE(46,45,47,43 :LINE(31,35,28,23 :LINE(42,35,45,23 :LINE(17,23,20,29 :LINE(24,23,26,29 :LINE(25,35,23,28 :LINE(37,23,37,28 :LINE(37,31,37,33 :LINE(50,23,48,31 :LINE(50,35,53,29 :LINE(31,19,31,13 :LINE(35,19,35,13 :LINE(32,20,34,20 :LINE(32,16,34,16 :LINE(32,12,34,12 :LINE(39,19,39,13 :LINE(43,19,43,13 :LINE(40,20,42,20 :LINE(40,12,42,12 :PAUSE :LBL M :CLRHOME :DISP "MEGA MAN 80","1:PLAY GAME","2:PASSWORD","3:STORY","4:QUIT" :INPUT J :IF J=1 :GOTO P :IF J=2 :PRGM_ZMSB :GOTO 1 :END :IF J=4 :GOTO Q :GOTO M :LBL P :28->L :CLRHOME :PRGM_ZMB :IF E\<>\7 (this is the not equal to sign) :THEN :LINE(7,43,11,50 :LINE(11,50,15,43 :LINE(9,47,13,47 :LINE(17,40,17,47 :LINE(17,47,24,40 :LINE(24,40,24,47 :END :IF D\<>\8 :THEN :LINE(28,43,28,50 :LINE(28,50,32,46 :LINE(32,46,36,50 :LINE(36,50,36,43 :LINE(37,40,41,47 :LINE(41,47,45,40 :LINE(39,44,43,44 :END :IF B\<>\9 :THEN :LINE(49,43,49,50 :LINE(49,50,53,46 :LINE(53,46,57,50 :LINE(57,50,57,43 :LINE(60,40,60,47 :LINE(59,47,66,44 :LINE(66,44,59,40 :END :IF A\<>\4 :THEN :LINE(8,29,8,36 :LINE(7,36,14,33 :LINE(14,33,7,29 :LINE(16,27,16,31 :LINE(17,32,21,32 :LINE(22,31,22,27 :LINE(21,26,17,26 :END :IF H\<>\6 :THEN :LINE(49,28,49,36 :LINE(49,36,54,33 :LINE(54,33,49,30 :LINE(58,27,58,31 :LINE(59,32,63,32 :LINE(64,31,64,27 :LINE(63,26,59,26 :END :IF F\<>\1 :THEN :LINE(7,14,7,22 :LINE(7,22,12,22 :LINE(7,19,10,19 :LINE(17,12,17,20 :LINE(17,20,22,18 :LINE(22,18,17,16 :LINE(17,16,22,12 :END :IF C\<>\2 :THEN :LINE(33,22,28,19 :LINE(28,19,33,16 :LINE(33,16,28,13 :LINE(37,12,41,19 :LINE(41,19,45,12 :LINE(39,16,43,16 :END :IF G\<>\3 :THEN :LINE(49,15,49,22 :LINE(49,22,53,18 :LINE(53,18,57,22 :LINE(57,22,57,15 :LINE(59,18,65,18 :LINE(62,18,62,12 :LINE(59,12,65,12 :END :INPUT :0->K :IF Y>38:THEN :IF (X<26)(E\<>\7):7->K :IF (X>26)(X<47)(D\<>\8):8->K :IF (X>47)(B\<>\9):9->K :END :IF (Y<38)(Y>24):THEN :IF (X<26)(A\<>\4):4->K :IF (X>26)(X<47)(A=4)(B=9)(C=2)(D=8)(E=7)(F=1)(G=3)(H=6):5->K :IF (X>47)(H\<>\6):6->K :END :IF Y<24:THEN :IF (X<26)(F\<>\1):1->K :IF (X>26)(X<47)(C\<>\2):2->K :IF (X>47)(G\<>\3):3->K :END :IF (X=26)+(Y=38)+(Y=24)+(X=47) :GOTO M :PRGM_ZML :IF L\<=\0 (this is the less than or equal to sign) :GOTO Z :IF V\<>\1 :GOTO P :PRGM_ZMSE :PRGM_ZCRDTS :GOTO Q :LBL Z :CLRHOME :DISP " GAME OVER" :PAUSE :LBL Q :CLRHOME :DISP "",""," THANK YOU FOR"," PLAYING"," MEGA MAN 80" :PAUSE :PRGM_ZDF /STOP80/ /START80/ /NAME=ZCRDTS :CLRHOME :DISP "CREATED,","DESIGNED,","PROGRAMMED,","EDITED,","TESTED,","ETC.","BY D. JacKaL" :PAUSE :CLRHOME /STOP80/ /START80/ /NAME=ZDF :CLRDRAW :ZSTANDARD :FNOFF :NORMAL :FLOAT :DEGREE :\aub/c\ (this can be found in the MODE menu) :AUTOSIMP :FUNC :CONNECTED :SEQUENTIAL :CLRLIST L1,L2,L3,L4,L5,L6 (these are all the lists) :CLRHOME /STOP80/ /START80/ /NAME=ZDJ :PRGM_ZDF :5->XMIN :67->XMAX :5->YMIN :51->YMAX :0->XSCL :0->YSCL :LINE(13,43,13,16 :LINE(8,40,28,45 :LINE(28,45,8,10 :LINE(33,23,42,17 :LINE(42,17,42,42 :LINE(31,42,51,42 :LINE(64,45,52,34 :LINE(52,34,64,23 :LINE(64,23,52,12 :PAUSE :CLRDRAW /STOP80/ /START80/ /NAME=ZMB :CLRDRAW :VERTICAL 26 :VERTICAL 47 :HORIZONTAL 24 :HORIZONTAL 38 :FOR(I,5,10 :HORIZONTAL I :END :LINE(28,36,36,36 :LINE(32,36,32,28 :LINE(37,34,45,34 :LINE(41,34,41,26 :LINE(37,26,45,26 /STOP80/ /START80/ /NAME=ZML :28->M :0->W :LBL F :L->L1(1) :M->L1(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 "TITANIC INIQUITY" :IF K=6 :DISP " POLICEMAN" :IF K=7 :DISP " ANCHORMAN" :IF K=8 :DISP " MAILMAN" :IF K=9 :DISP " MADMAN" :DISP "----------------",L1 :IF W=0 :DISP " WEAPON: P" :IF W=1 :DISP " WEAPON: DO" :IF W=2 :DISP " WEAPON: MD" :IF W=3 :DISP " WEAPON: SA" :IF W=4 :DISP " WEAPON: MA" :IF W=6 :DISP " WEAPON: AN" :IF W=7 :DISP " WEAPON: FR" :IF W=8 :DISP " WEAPON: MI" :IF W=9 :DISP " WEAPON: PO" :DISP "----------------","1:ATK 0:CHG WPN" :IF L\<=\0 :GOTO B :IF M\<=\0 :GOTO R :INPUT \@\ (this is the greek letter theta) :IF \@\=0 :PRGM_ZMSS :IF \@\\<>\1 :GOTO F :INT 5RAND->Z :IF Z=0 :L-1->L :IF Z=4 :L-2->L :INT 3RAND->Z :PRGM_ZMSW :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 "",""," 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 /STOP80/ /START80/ /NAME=ZMPW :CLRHOME :INPUT "A=",A :INPUT "B=",B :INPUT "C=",C :INPUT "D=",D :INPUT "E=",E :INPUT "F=",F :INPUT "G=",G :INPUT "H=",H /STOP80/ /START80/ /NAME=ZMSB :CLRHOME :DISP "MEGA MAN\rad\S","BATTLES WITH Dr.","WILY RAGED FOR","MANY YEARS,",\#\ "UNTIL AGE BEGAN","TO TAKE ITS TOLL","ON WILY." (the small r in the ANGLE menu) :PAUSE :CLRHOME :DISP "IN THE FINAL","YEARS OF HIS","LIFE, WILY","DEVOTED ALL HIS",\#\ "TIME TO BUILDING","AN INGENIOUSLY","EVIL ROBOT." :PAUSE :CLRHOME :DISP "HAVING USED HIS","CHERISHED TI-80","AS THE VERY CORE","OF HIS GREATEST",\#\ "MASTERPIECE,","WITH HIS LAST","DYING BREATH," :PAUSE :CLRHOME :DISP "HE DUBBED HIS","NEWEST ROBOTIC","SUCCESSOR:","TITANIC","INIQUITY, OR",\#\ "\rad\TI\rad\ FOR SHORT." :PAUSE :CLRHOME :DISP "NOW MEGA MAN","MUST FACE OFF","AGAINST TI AND","HIS 8 NEW ","ROBOT MASTERS..." :PAUSE :CLRHOME /STOP80/ /START80/ /NAME=ZMSE :CLRHOME :DISP "AFTER DESTROYING","TI, MEGA MAN IS","VISIBLY UPSET","THAT SUCH A GOOD",\#\ "THING HAD TO BE","DESTROYED." :PAUSE :CLRHOME :DISP "HAD IT NOT BEEN","FOR Dr. WILY,","THE TI-80 MIGHT","HAVE BEEN USED",\#\ "FOR GOOD INSTEAD","OF FOR EVIL." :PAUSE :CLRHOME :DISP "MEGA MAN CANNOT","HELP BUT PONDER","ALL OF THIS AS","HE TURNS AROUND",\#\ "TO RETURN TO","THE LAB." :PAUSE :CLRHOME :DISP "JUST AS HE WAS","ABOUT TO LEAVE,","THOUGH, MEGA MAN","REALIZES THAT TI",\#\ "DIDN\rad\T HAVE","TO BE WASTED","ON EVIL." :PAUSE :CLRHOME :DISP "AS A ROBOT, MEGA","MAN CAN PROGRAM","-AND RE-PROGRAM-","JUST ABOUT","ANYTHING." :PAUSE :CLRHOME :DISP "HE QUICKLY RUNS","OVER TO TI AND","APPLIES ALL OF","HIS SKILL INTO",\#\ "MAKING A FRIEND","FROM HIS ENEMY." :PAUSE :CLRHOME :DISP "IN A SHORT TIME","MEGA MAN PROVES","HIS MASTERY IN","RE-PROGRAMMING",\#\ "AND TI IS","REBORN." :PAUSE :CLRHOME :DISP "THEY BOTH LEFT","AND MEGA MAN","KNEW THAT HE\rad\D","NEVER AGAIN HAVE",\#\ "TO FACE OFF","WITH TITANIC","INIQUITY." :PAUSE :CLRHOME :DISP "OFTEN, TI WOULD","ASK WHAT","HIS INITIALS","STOOD FOR." :PAUSE :CLRHOME :DISP "IN RESPONSE,","MEGA MAN WOULD","ALWAYS JUST","SMILE AND SAY..." :PAUSE :CLRHOME :DISP "","","","","","",""," THAT'S"," IRRELEVANT.","" :FOR(I,1,100 :END :DISP " T"," H"," END." :PAUSE :CLRHOME /STOP80/ /START80/ /NAME=ZMSS :LBL 1 :CLRHOME :DISP "0:P" :IF A=4 :DISP "1:DO" :IF B=9 :DISP "1:MD" :IF C=2 :DISP "1:SA" :IF D=8 :DISP "1: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 "1:AN" :IF F=1 :DISP "1:FR" :IF G=3 :DISP "1:MI" :IF H=6 :DISP "1: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 /STOP80/ /START80/ /NAME=ZMSW :CLRHOME :DISP "","","",""," \@\ 0"," X X","----------------" :FOR(I,1,5 :END :CLRHOME :DISP "","","",""," \@\ 0"," X\deg\ X","----------------" (the degree symbol) :FOR(I,1,5 :END :CLRHOME :DISP "","","",""," \@\ 0"," X \deg\ X","----------------" :FOR(I,1,5 :END :CLRHOME :DISP "","","",""," \@\ 0"," X \deg\ X","----------------" :FOR(I,1,5 :END :CLRHOME :DISP "","","",""," \@\ 0"," X \deg\ X","----------------" :FOR(I,1,5 :END :CLRHOME :DISP "","","",""," \@\ 0"," X \deg\ X","----------------" :FOR(I,1,5 :END :CLRHOME :DISP "","","",""," \@\ 0"," X \deg\X","----------------" :FOR(I,1,5 :END :CLRHOME /STOP80/