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