Click Here to Visit Our Sponsor
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 
Make your own free website on Tripod.com