ClrHome Disp "","",""," WELCOME TO"," 'FATAL' KOMBAT" For(I,1,400) End ClrHome Lbl 3 Menu(" 'FATAL' KOMBAT ","FIGHT!",1,"INSTRUCTIONS",2,"QUIT",\@\) Lbl \@\ ClrHome Disp " THANKS FOR"," PLAYING"," 'FATAL' KOMBAT" Stop Lbl 2 ClrHome Disp "( = PUNCH",") = KICK","LEFT ARROW =","MOVE LEFT","RIGHT ARROW =",\#\ "MOVE RIGHT","Y= QUIT DURING","PLAY" Pause ClrHome Disp "WINDOW = PAUSE","ENTER = RESUME" getKey\->\A 0\->\A 0\->\B Lbl 6 For(I,1,1 End getKey\->\A A+B\->\B If A=105:Goto 3 If B=116:Goto 7 Goto 6 Lbl 7 ClrHome Disp "SPECIAL MOVES:","SPEAR: MODE DEL"," X,T,\@\","ELECTRIFY: MA\#\ TRX"," PRGM"," VARS Pause ClrHome Disp "HEAD THROW: LOG"," LN"," STO->" Disp "FATALITIES:","ERASER: 0 . (-)" Pause ClrHome Disp "ROCKET: 1 2 3","BACKFIRE: 4 5 6","GET OVER HERE: "," 7 8 9","MON\#\ STER MOUTH:"," 4 1 0","DISSOLVE:6 3 (-)" Pause ClrHome Disp "DISMANTLE: UP"," DOWN"," LEFT"," RI\#\ GHT","TONGUE GRAB: "," WINDOW TRACE"," GRAPH" Pause ClrHome Disp "FRIENDSHIPS:","DISCO INFERNO:"," Y= WINDOW ZOOM","FLOWER: - + ENT\#\ R","BABALITY:","ZOOM TRACE GRAPH" Pause Goto 3 Lbl 1 0\->\B 0\->\A 3\->\D 13\->\E 14\->\H 14\->\J ClrHome Output(4,6,"READY!" For(I,1,200 End Output(4,6,"FIGHT!" For(I,1,200 End ClrHome Output(2,1,"NUBA" Output(2,10,"CORNEA" Lbl 4 If J=14 or J=13:Output(1,1,":::::::" If J=12 or J=11:Output(1,1,":::::: " If J=10 or J=9:Output(1,1,"::::: " If J=8 or J=7:Output(1,1,":::: " If J=6 or J=5:Output(1,1,"::: " If J=4 or J=3:Output(1,1,":: " If J=2 or J=1:Output(1,1,": " If J\<=\0:Then:Output(1,1," ":Goto B:End If H=14 or H=13:Output(1,10,":::::::" If H=12 or H=11:Output(1,10,":::::: " If H=10 or H=9:Output(1,10,"::::: " If H=8 or H=7:Output(1,10,":::: " If H=6 or H=5:Output(1,10,"::: " If H=4 or H=3:Output(1,10,":: " If H=2 or H=1:Output(1,10,": " If H\<=\0:Then:Output(1,10," ":Goto A:End Output(8,D-1,"(" Output(8,D+1,")" Output(7,D,"+" Output(6,D-1,"-+-" Output(5,D,"O" Output(5,E,"O" Output(6,E-1,"-+-" Output(7,E,"+" Output(8,E-1,"(" Output(8,E+1,")" getKey\->\F If F=11:Goto 3 If F=12:Pause If F=63:Then:If D\>=\15:Goto Z:Output(6,D+2,"-" For(I,1,125) End Output(6,D+2," " If abs (D-E)\<=\4:H-1\->\H:End Lbl Z If F=64:Then:If D\>=\15:Goto Y:Output(8,D+1," " Output(7,D+1,"/" For(I,1,125 End Output(7,D+1," " If abs (D-E)\<=\3:Then:H-2\->\H:Output(5,E," ":Output(5,E+1,"O":For(I,1\#\ ,125:End:Output(5,E+1," ":Output(5,E,"O":End:End Lbl Y If F=26:Then:Output(5,D," ":Output(6,D-1," ":Output(7,D," ":Output(8,\#\ D-1," " D+1\->\D:If D\>=\15:15\->\D:End If F=24:Then:Output(5,D," ":Output(6,D-1," ":Output(7,D," ":Output(8,\#\ D-1," " D-1\->\D:If D\<=\1:2\->\D:End If F\<>\42 and F\<>\43 and F\<>\44 and F\<>\22 and F\<>\23 and F\<>\32 \#\ and F\<>\71 and F\<>\81 and F\<>\91 and F\<>\13 and F\<>\23 and F\<>\33\#\ and F\<>\43 and F\<>\53 and F\<>\63 and F\<>\73 and F\<>\83 and F\<>\9\#\ 3 and F\<>\103:0\->\F F+B\->\B ELECTRIC If B=129:Then D+1\->\K Repeat K=E Output(6,K,"." For(I,1,125 End Output(6,K," " If K=D+1:Output(6,D+1,"-" K+1\->\K End 3\->\L Repeat L=0 L-1\->\L Output(6,E-1,"-" Output(8,E-2,"." Output(7,E-1,"." Output(6,E-2,"." Output(5,E-1,"." Output(4,E-1,"..." If E\>=\15:Goto V Output(5,E+1,"." Output(6,E+2,"." Output(7,E+1,"." Output(8,E+2,"." Lbl V For(I,1,200 End Output(8,E-2," " Output(7,E-1," " Output(6,E-2," " Output(5,E-1," " Output(4,E-1," " If E\>=\15:Goto U Output(5,E+1," " Output(6,E+2," " Output(7,E+1," " Output(8,E+2," " Lbl U For(I,1,200 End End H-4\->\H 0\->\B End If B=580:H-14\->\H SPEAR If B=77:Then 0\->\K D+1\->\K Repeat K=E Output(6,K,"-->" For(I,1,125 End Output(6,K," " If K=D+1:Output(6,D+1,"-" K+1\->\K End H-3\->\H 0\->\B End If B=243:Then For(I,1,50 End Output(5,D-1,"O " For(I,1,150 End Output(5,D-1," " D\->\K Repeat K=(E-1) Output(5,K,"O" For(I,1,150 End Output(5,K," " K+1\->\K End Output(5,E+1,"O" Output(5,E," " For(I,1,150 End Output(5,E-1,"O" K-1\->\K For(I,1,150 End Repeat K=D Output(5,K,"O " For(I,1,150 End K-1\->\K End Output(5,D+1," " Output(5,E+1," " H-5\->\H 0\->\B End round(rand20+1,0\->\M If M=13 or M=4 or M=2 or M=3 or M=14 or M=20 or M=16 or M=18:Then Output(5,E," " Output(6,E-1," " Output(7,E," " Output(8,E-1," " E-1\->\E If E\<=\2:2\->\E End If M=5 or M=9 or M=10 or M=1 or M=4 or M=17:Then Output(5,E," " Output(6,E-1," " Output(7,E," " Output(8,E-1," " E+1\->\E If E\>=\15:15\->\E End If M=7 or M=15:Then:If E\>=\14 or E\<=\3:Goto W:Output(6,E-2,"-" For(I,1,125 End Output(6,E-2," " If abs (D-E)\<=\4:J-2\->\J:End Lbl W Goto 4 Lbl A ClrHome Output(3,3,"FINISH HIM!" Output(5,3,"O" Output(6,2,"-+-" Output(7,3,"+" Output(8,2,"( )" Output(5,13,"O" Output(6,12,"-+-" Output(7,13,"+" Output(8,12,"( )" 0\->\O 0\->\U Lbl C getKey\->\T T+U\->\U If O=75:Goto 3 If U=36:Goto D If U=39:Goto E If U=42:Goto F If U=109:Goto G If U=309:Goto H If U=219:Goto K If U=249:Goto L If U=279:Goto M If U=282:Goto N If U=276:Goto O If U=285:Goto R 0\->\T O+1\->\O Goto C Lbl D Output(3,3," " Output(1,8,"Sx" Output(1,9," " For(I,1,125 End Output(1,8,":" Output(2,8,"Sx" Output(2,9," " For(I,1,125 End 5\->\V Repeat V=0 V-1\->\V Output(7,4," " Output(3,2,"." Output(3,8,"." Output(3,16,"." Output(4,3,"." Output(4,5,"." Output(4,10,"." Output(5,4,"." Output(5,12,"." Output(5,14,"." Output(6,6,"." Output(6,8,"." Output(7,5,"." Output(8,7,"." Output(8,11,"." Output(7,3," " Output(7,2,"+" For(I,1,150 End Output(3,2," " Output(3,8," " Output(3,16," " Output(4,3," " Output(4,5," " Output(4,10," " Output(5,4," " Output(5,12," " Output(5,14," " Output(6,6," " Output(6,8," " Output(7,5," " Output(8,7," " Output(8,11," " Output(7,2," " Output(7,3,"+" Output(3,3,"." Output(3,9,"." Output(3,15,"." Output(4,4,"." Output(4,6,"." Output(4,11,"." Output(5,5,"." Output(5,16,"." Output(6,5,"." Output(6,9,"." Output(7,6,"." Output(8,8,"." Output(8,10,"." For(I,1,150 End Output(3,3," " Output(3,9," " Output(3,15," " Output(4,4," " Output(4,6," " Output(4,11," " Output(5,5," " Output(5,16," " Output(6,5," " Output(6,9," " Output(7,6," " Output(8,8," " Output(8,10," " Output(7,3," " Output(7,4,"+" Output(3,5,"." Output(3,7,"." Output(3,14,"." Output(4,5,"." Output(4,7,"." Output(4,10,"." Output(5,7,"." Output(5,14,"." Output(6,6,"." Output(6,8,"." Output(7,7,"." Output(8,9,"." For(I,1,150 End Output(7,4," " Output(7,3,"+" For(I,1,150 End End End 2\->\\@\ Goto S Lbl E Output(3,3," " Output(5,4,"<" For(I,1,125 End Output(5,4,"-<" For(I,1,125 End Output(5,4,"--<" For(I,1,125 End Output(5,4,"---<" For(I,1,125 End Output(5,4,"----<" For(I,1,125 End Output(5,4,"-----<" For(I,1,125 End Output(5,4,"------<" For(I,1,125 End Output(5,4,"-------<" For(I,1,125 End Output(5,4,"--------<" For(I,1,125 End Output(5,4,"---------" For(I,1,125 End Output(5,4,"--------O " For(I,1,125 End Output(5,4,"-------O " For(I,1,125 End Output(5,4,"------O " For(I,1,125 End Output(5,4,"-----O " For(I,1,125 End Output(5,4,"----O " For(I,1,125 End Output(5,4,"---O " For(I,1,125 End Output(5,4,"--O " For(I,1,125 End Output(5,4,"-O " For(I,1,125 End Output(5,4,"O " For(I,1,125 End Output(5,4," " For(I,1,125 End Output(3,1," " For(I,1,250 End 1\->\\@\ Goto S Lbl F Output(3,3," " For(I,1,250:End Output(5,13," " Output(6,12," " Output(7,12,"-+-" Output(6,13,"O" For(I,1,400 End 3\->\\@\ Goto S Lbl G DISMANTLE Output(3,3," " Output(6,2," " Output(5,3," " Output(6,2," O " Output(7,2,"-+-" Output(7,5,"-" For(I,1,100 End Output(7,6,"-" For(I,1,100 End Output(7,7,"-" For(I,1,100 End Output(7,8,"-" For(I,1,100 End Output(7,9,"-" For(I,1,100 End Output(7,10,"-" For(I,1,100 End Output(7,11,"-" For(I,1,100 End Output(7,12,"-" For(I,1,100 End For(I,1,100 End Output(7,12,"+ " For(I,1,100 End Output(5,13," " Output(6,12," " Output(7,13," " Output(6,13,"O" Output(7,13,"+-" For(I,1,100 End Output(7,11,"+ " Output(7,12,"-" For(I,1,100 End Output(7,10,"+ " For(I,1,100 End Output(7,9,"+ " For(I,1,100 End Output(7,8,"+ " For(I,1,100 End Output(7,7,"+ " For(I,1,100 End Output(7,6,"+ " For(I,1,100 End Output(7,5,"+ " For(I,1,100 End Output(7,5," " Output(8,5,"+" For(I,1,100 End Output(7,5,"-" For(I,1,100 End Output(7,6,"-" For(I,1,100 End Output(7,7,"-" For(I,1,100 End Output(7,8,"-" For(I,1,100 End Output(7,9,"-" For(I,1,100 End Output(7,10,"-" For(I,1,100 End Output(7,11,"-" For(I,1,100 End For(I,1,100 End Output(7,12," " For(I,1,100 End Output(7,11," " For(I,1,100 End Output(7,10," " For(I,1,100 End Output(7,9," " For(I,1,100 End Output(7,8," " For(I,1,100 End Output(7,7," " For(I,1,100 End Output(7,6," " Output(8,6,"-" For(I,1,100 End Output(7,6,"-" For(I,1,100 End Output(7,7,"-" For(I,1,100 End Output(7,8,"-" For(I,1,100 End Output(7,9,"-" For(I,1,100 End Output(7,10,"-" For(I,1,100 End Output(7,11,"-" For(I,1,100 End Output(7,12,"-" For(I,1,100 End For(I,1,100 End Output(7,12,"+ " Output(7,13,"O" Output(6,13," " For(I,1,100 End Output(7,11,"+ " For(I,1,100 End Output(7,10,"+ " For(I,1,100 End Output(7,9,"+ " For(I,1,100 End Output(7,8,"+ " For(I,1,100 End Output(7,7,"+ " For(I,1,100 End Output(8,7,"+" Output(7,7," " For(I,1,100 End Output(7,7,"-" For(I,1,100 End Output(7,8,"-" For(I,1,100 End Output(7,9,"-" For(I,1,100 End Output(7,10,"-" For(I,1,100 End Output(7,11,"-" For(I,1,100 End Output(7,12,"-" For(I,1,100 End Output(7,14,"-" For(I,1,100 End For(I,1,100 End Output(7,13,"O" For(I,1,100 End Output(7,12,"O " For(I,1,100 End Output(7,11,"O " For(I,1,100 End Output(7,10,"O " For(I,1,100 End Output(7,9,"O " For(I,1,100 End Output(7,8,"O " For(I,1,100 End Output(7,8," " Output(8,8,"O" For(I,1,100 End Output(7,8,"-" For(I,1,100 End Output(7,9,"-" For(I,1,100 End Output(7,10,"-" For(I,1,100 End Output(7,11,"-" For(I,1,100 Output(7,12,"- " For(I,1,100 End Output(7,13,"-" For(I,1,100 End For(I,1,100 End Output(7,14," " For(I,1,100 End Output(7,13," " For(I,1,100 End Output(7,12," " For(I,1,100 End Output(7,11," " For(I,1,100 End Output(7,10," " For(I,1,100 End Output(7,9," " For(I,1,100 End Output(8,9,"-" Output(7,9," " For(I,1,100 End Output(7,8,"- " For(I,1,100 End Output(7,7,"- " For(I,1,100 End Output(7,6,"- " For(I,1,100 End Output(7,5,"- " For(I,1,100 End Output(7,4,"- " For(I,1,100 End Output(7,4," " For(I,1,100 End Output(7,2," + " Output(6,2,"-+-" Output(5,3,"O" For(I,1,400 End 1\->\\@\ Goto S Lbl H Output(3,3," " Output(6,6,"." For(I,1,75 End Output(6,6," ." For(I,1,75 End Output(6,7," :" Output(7,8,"'" For(I,1,75 End Output(6,8," :" Output(7,8," '" For(I,1,75 End Output(5,10,"." Output(6,9," :" Output(7,9," :" For(I,1,75 End Output(5,10," ." Output(6,10," :" Output(7,10," :" Output(8,11,"'" For(I,1,75 End 10\->\U Lbl T Repeat U=15 U+1\->\U Output(5,U," :" Output(6,U," :" Output(7,U," :" Output(8,U," :" For(I,1,75 End End Output(5,16," " Output(6,16," " Output(7,16," " Output(8,16," " 1\->\\@\ Goto S Lbl K Output(3,3," " Output(6,5,"\(-)\>" For(I,1,50 End Output(6,6,"->" For(I,1,50 End Output(6,7,"->" For(I,1,50 End Output(6,8,"->" For(I,1,50 End Output(6,9,"->" For(I,1,50 End Output(6,10,"->" For(I,1,50 End Output(6,11,"->" For(I,1,50 End Output(6,12,"->" For(I,1,50 End Output(6,13,"+> For(I,1,50 End Output(6,14,"->" For(I,1,50 End Output(5,12,"O " Output(6,11,"-+-> " Output(7,12,"+ " Output(8,11,"( ) " For(I,1,50 End Output(5,11,"O " Output(6,10,"-+-> " Output(7,11,"+ " Output(8,10,"( ) " For(I,1,50 End Output(5,10,"O " Output(6,9,"-+-> " Output(7,10,"+ " Output(8,9,"( ) " For(I,1,50 End Output(5,9,"O " Output(6,8,"-+-> " Output(7,9,"+ " Output(8,8,"( ) " For(I,1,50 End Output(5,8,"O " Output(6,7,"-+-> " Output(7,8,"+ " Output(8,7,"( ) " For(I,1,100 End Output(6,5,"- " Output(6,10," " For(I,1,300 End Output(6,6,"-" Output(5,8," O" For(I,1,50 End Output(6,6," " Output(5,9," " Output(6,10,"O" For(I,1,50 End Output(6,10," " Output(7,11,"O" For(I,1,50 End Output(7,11," " Output(8,12,"O" For(I,1,350 End 1\->\\@\ Goto S Lbl K Output(3,3," " Output(6,2,"--+--" For(I,1,100 End Output(6,2,">-+-<" For(I,1,100 End Output(5,4," " Output(6,2," O " Output(7,2,">-+-<" Output(8,4,"+" For(I,1,75 End Output(7,6,"-<" For(I,1,75 End Output(7,7,"-<" For(I,1,75 End Output(7,8,"-<" For(I,1,75 End Output(7,9,"-<" For(I,1,50 End Output(7,10,"-<" For(I,1,75 End Output(7,11,"-<" For(I,1,75 End Output(7,12,"-" For(I,1,75 End Output(7,12,"+ " For(I,1,75 End Output(7,11,"+ " Output(5,13," " Output(6,12," O " Output(7,12,"-+-" For(I,1,75 End Output(7,10,"+ " Output(6,13," " Output(7,12," O " Output(8,13,"+" For(I,1,75 End Output(7,13," " Output(8,13,"O" Output(7,9,"+ " For(I,1,75 End Output(7,8,"+ " For(I,1,100 End Output(7,7,"+ " Output(7,7," " Output(8,7,"+" Output(5,4,"O" Output(6,2,">-+-<" Output(7,2," + " Output(8,4," " For(I,1,150 End Output(6,2,"--+--" For(I,1,150 End Output(6,2," -+- " For(I,1,350 End 1\->\\@\ Goto S Lbl M Output(3,3," " Output(6,6,"[>" For(I,1,75 End Output(6,6,"=[>" For(I,1,75 End Output(6,6,"==[>" For(I,1,75 End Output(6,6," ==[>" For(I,1,75 End Output(6,7," ==[>" For(I,1,75 End Output(6,8," ==[>" For(I,1,75 End Output(6,9," ==[>." Output(5,12,". ." Output(7,12,". " Output(8,11,". ." For(I,1,75 End Output(6,10," ==[>" Output(4,11,". ." Output(5,12," ." Output(7,12," " Output(8,11," . ." For(I,1,75 End Output(6,11," ==[>" Output(4,11," " Output(5,15," " Output(8,12," " For(I,1,75 End Output(6,12," ==[>" For(I,1,75 End Output(6,13," ==[" For(I,1,75 End Output(6,14," ==" For(I,1,75 End Output(6,15," =" For(I,1,75 End Output(6,16," " For(I,1,350 End 1\->\\@\ Goto S Lbl N Output(3,3," " Output(6,6,"." For(I,1,50 End Output(6,6," ." For(I,1,50 End Output(6,7," ." For(I,1,50 End Output(6,8," ." For(I,1,50 End Output(6,9," ." For(I,1,50 End Output(6,10," ." For(I,1,50 End Output(5,13,"." Output(6,11," ..." Output(7,13,"." Output(8,12,". ." For(I,1,50 End Output(5,13," " Output(6,12," . " Output(7,12,"..." Output(8,13,"." For(I,1,50 End Output(6,13," " Output(7,12," . " For(I,1,50 End Output(7,13," " For(I,1,350 End 1\->\\@\ Goto S Lbl O Output(3,3," " 0\->\Z Lbl P Z+1\->\Z If Z=2 Goto W Output(8,2," " Output(7,2," " Output(6,2," " Output(1,2,".---." Output(2,2,"[ * ]" Output(3,2,"[ < " Output(4,2,"'---'" Output(5,2,"--+--" Output(6,3," + " Output(7,3,"[ ]" Output(8,3,"[ ]" For(I,1,200 End Output(5,1,">--+--<" For(I,1,50 End Output(5,7,"-<" For(I,1,50 End Output(5,8,"-<" For(I,1,50 End Output(5,9,"-<" For(I,1,50 End Output(5,10,"-<" For(I,1,50 End Output(5,11,"-<" For(I,1,75 End Output(5,12,"-" For(I,1,50 End Output(5,11,"-O " For(I,1,50 End Output(5,10,"-O " For(I,1,50 End Output(5,9,"-O " For(I,1,75 End Output(5,8," " Output(4,8,"/" Output(3,9,"O" For(I,1,75 End Output(5,8,"'" Output(4,8,"V" Output(3,8,"O " For(I,1,50 End Output(3,7,"O " For(I,1,50 End Output(3,6,"O " For(I,1,50 End Output(3,5,"- " For(I,1,350 End 1\->\\@\ Goto S Lbl R Output(3,3," " Output(6,5,"-" For(I,1,125 End Output(6,6,"-" For(I,1,125 End Output(6,7,"-" For(I,1,125 End Output(7,7,"." For(I,1,125 End Output(7,7," " Output(8,7,"." For(I,1,125 End Output(6,7," " For(I,1,125 End Output(6,6," " For(I,1,125 End Output(6,5," " For(I,1,125 End Output(8,7,"+" Output(7,7,"*" For(I,1,250 End Output(8,6,"-" Output(8,8,"-" Output(7,6,"*" Output(7,8,"*" Output(6,6,"***" For(I,1,400 End 2\->\\@\ Goto S Lbl S If \@\=1 Output(3,5,"FATALITY" If \@\=2:Then 5\->\Y Repeat Y=0 Y-1\->\Y Output(3,4,"F I N S I !" Output(4,4," R E D H P " For(I,1,175 End Output(3,4," R E D H P " Output(4,4,"F I N S I !" For(I,1,175 End End End End If \@\=3:Then Output(3,8,"ClrDraw" Output(3,10,"int " Output(3,11,"tanh " Output(3,12,"\y1\" Output(3,5,"baba" Output(3,13," " End For(I,1,500 End Goto 3 Lbl L Output(3,3," " Output(6,11,"." For(I,1,80 End Output(6,10,". " For(I,1,80 End Output(6,9,". " For(I,1,80 End Output(6,8,". " For(I,1,80 End Output(6,7,". " Output(6,5,"{" For(I,1,80 Output(6,6,". " For(I,1,80 End For(I,1,80 End Output(6,6," ." For(I,1,80 End Output(6,7," ." Output(6,5," " For(I,1,80 End Output(6,8," ." For(I,1,80 End Output(6,9," ." For(I,1,80 End Output(6,10," ." For(I,1,80 End Output(6,11," ." For(I,1,80 End Output(6,12," " For(I,1,80 End Output(5,13,"-" Output(6,12,")++" Output(7,13,"(" Output(8,12,"O -" For(I,1,250 End 1\->\\@\ Goto S Lbl B Output(4,5,"YOU LOST" For(I,1,400 End Goto 3