10ONERRORGOTO20
20FORI=1TO25:;:FORQ=1TO100:NEXTQ:NEXTI
30V1=15:M9=15:V4=4:H4=4
40;" NAMN (MAX 15T)";:INPUTN1$
50IFN1$=""GOTO40
60;CHR$(12%)
70V%=15:H%=21:S9%=1:M1%=1:P=0
80M3=1:]=0:GOSUB1570:GOTO790
90REMStridsst{lningH
100;CUR(10,H%+2)"/"CUR(11,H%+1)"p"CUR(12,H%+1)"`0"
110GOSUB180
120RETURN
130REMStridsst{lningV
140;CUR(10,V%+2)"/"CUR(11,V%+2)"p"CUR(12,V%+1)"`0"
150GOSUB210
160RETURN
170REMUnderdelV
180;CUR(13,H%+1)"~#}"CUR(14,H%)"j5 j5"
190RETURN
200REMUnderdelH
210;CUR(13,V%+1)"~#}"CUR(14,V%)"j5 j5"
220RETURN
230REMH|gtslagV
240;CUR(10,V%+4)"/"CUR(11,V%+3)"~'##"CUR(12,V%+1)"`~%"
250GOSUB210:RETURN
260REMH|gtslagH
270;CUR(10,H%)"/"CUR(11,H%-2)"##+}"CUR(12,H%+1)"*}0"
280GOSUB170:RETURN
290REML}gtslagV
300;CUR(10,V%+4)"/"CUR(11,V%+3)"~-p"CUR(12,V%+1)"`~%"CUR(12,V%+6)"#"
310GOSUB210:RETURN
320REML}gtslagH
330;CUR(10,H%)"/"CUR(11,H%-1)"p.}"CUR(12,H%-2)"#"CUR(12,H%+1)"*}0"
340GOSUB180:RETURN
350REML}gsparkV
360;CUR(10,V%+3)"/"CUR(11,V%+2)"ju0"CUR(12,V%+2)"juppp"CUR(13,V%+1)"`?####"CUR(14,V%+1)"~!"
370RETURN
380REMl}gSparkH
390;CUR(10,H%+1)"/"CUR(11,H%)"`z5"CUR(12,H%-2)"pppz5"CUR(13,H%-2)"####o0"CUR(14,H%+2)'"}'
400RETURN
410REMh|gSparkV
420;CUR(10,V%)"x0"CUR(10,V%+3)"8"CUR(11,V%-1)'d"n6'CUR(11,V%+5)"p|"
430;CUR(12,V%)"#!o|/#!"CUR(13,V%+1)"`?!"CUR(14,V%+1)"~!"
440RETURN
450REMH|gSparkH
460;CUR(10,H%+1)"d `t"CUR(11,H%-2)"|p"CUR(11,H%+2)"i=!8"CUR(12,H%-2)'"#/|?"#'CUR(13,H%+2)"o0"CUR(14,H%+2)'"}'
470RETURN
480REMH|gpareringV
490;CUR(10,V%+2)"/0"CUR(11,V%+2)"5"CUR(12,V%+1)"`0":GOSUB200
500RETURN
510REMh|gpareringH
520;CUR(10,H%+1)"`/"CUR(11,H%+1)"j"CUR(12,H%+1)"`0":GOSUB180
530RETURN
540REML}gpareringV
550;CUR(10,V%+2)"/"CUR(11,V%+2)"4"CUR(12,V%+1)"`:":GOSUB200
560RETURN
570REMl}gpreringH
580;CUR(10,H%+2)"/"CUR(11,H%+1)"h"CUR(12,H%+1)"e0":GOSUB180
590RETURN
600REMBenSparkV
610;CUR(11,V%+4)"|"CUR(12,V%+2)"`|t"CUR(13,V%+1)"`~t"CUR(14,V%)"x~% #/|0"
620RETURN
630REMBensparkH
640;CUR(11,H%)"|"CUR(12,H%)"x|0"CUR(13,H%)"x}0"CUR(14,H%-3)"`|/# *}t"
650RETURN
660REMhOPpV
670;CUR(9,V%+2)"`"CUR(10,V%+1)"x;!"CUR(11,V%+1)"3!"CUR(12,V%+1)"+o5"CUR(13,V%+2)'"%'
680RETURN
690REMhOPpH
700;CUR(9,H%+2)"0"CUR(10,H%+1)'"gt'CUR(11,H%+1)'"c'CUR(12,H%+1)"j?'"CUR(13,H%+1)"*!"
710RETURN
720REMKNOCKAD!!!V
730;CUR(11,V%+2)"p"CUR(12,V%+1)"`3"CUR(13,V%+1)"~7d"CUR(14,V%)"*|||0"
740RETURN
750REMKNOCKAD!!!H
760;CUR(11,H%+2)"p"CUR(12,H%+2)"c0"CUR(13,H%+1)"8k}"CUR(14,H%-1)"`|||%"
770RETURN
780REM>>>>>>>MAINLOOP<<<<<<<
790GOSUB920
800B2%=INP(56%)
810]=]-10:IF]<10GOTO1990
820RESTORE860
830FORI%=1TO8
840READB%,S8%
850IFB2%=B%ANDS9%=1S9%=S8%:G%=5:GOSUB920:GOTO880
860DATA177,9,209,6,193,7,215,5,211,4,197,2,196,3,218,8
870NEXTI%
880G%=G%-1:IFG%=0S9%=1:GOSUB920
890GOSUB1090
900GOTO800
910REM=======UPPRITNINGAVGUBBAROCH=======KROPPSPO[NG===========
920FORI%=9TO14
930;CUR(I%,V%-3)CHR$(151%)"                  "
940NEXTI%
950REMIFV1<=0S9%=10:V1=0:GOSUB690:V4=V4+2:GOSUB1600
960IFM9<=0M1%=10:M9=0:GOSUB760:H4=H4+2:GOSUB1840
970ONS9%GOSUB140,240,300,360,420,490,550,610,670,730
980ONM1%GOSUB100,270,330,390,460,520,580,640,700,760
990;CUR(2,1)N1$"   "CUR(2,20)N$"  "
1000GOSUB1010:RETURN
1010;CUR(1%,1)"                                     "
1020;CUR(1%,1)CHR$(151%)STRING$(V1,47)CUR(1,20)STRING$(M9,47)
1030;CUR(3,10)"BONUS:"]" "
1040IFP>NN=P
1050;CUR(20,2)"PO[NG:"P" "CUR(20,25)"RECORD:"N" "
1060;CUR(15,1)CHR$(151%)""
1070RETURN
1080REM*********DATORPARERINGAR********************************************
1090RESTORE1160
1100READS%,S1%,X%
1110IFS%=0GOTO1270
1120FORI%=1TOX%
1130READS2%(I%),M%(I%)
1140IFS%=S9%GOTO1180
1150NEXTI%
1160DATA2,4,2,50,6,5,8,3,2,1,75,7,4,3,1,25,7,5,5,1,35,6,8,4,1,20,9,0,0,0
1170GOTO1100
1180L%=INT(RND*100)+1
1190IFL%<S2%(1)M1%=M%(1):GOTO1260
1200IFL%<S2%(1)+S2%(2)M1%=M%(2):GOTO1260
1210IFM1%=M%(1)ORM1%=M%(2)GOTO1260
1220FORI%=1TO20:OUT6,7,6,11:NEXTI%:OUT6,0
1230S9%=1%
1240M9=M9-S1%
1250P=P+M3*10
1260GOSUB920
1270M9=M9+A:IFM9>15M9=15
1280V1=V1+.5:IFV1>15V1=15
1290GOSUB1010
1300L=INT(RND*100)+1
1310IFL>OM1%=1:GOSUB920:RETURN
1320L=INT(RND*100)+1
1330IFL<C1B1=D1:M1%=2:GOTO1380
1340IFL<C1+C2B1=D2:M1%=3:GOTO1380
1350IFL<C1+C2+C3B1=D3:M1%=4:GOTO1380
1360IFL<C1+C2+C3+C4B1=D4:M1%=5:GOTO1380
1370B1=D5:M1%=8
1380GOSUB920
1390RESTORE1430
1400READ\,[
1410IF\=M1%GOTO1450
1420IF\=8GOTO1450
1430DATA2,6,3,7,4,7,5,6,8,9
1440GOTO1400
1450FORQ=0TOW:NEXTQ
1460B2%=INP(56%)
1470RESTORE1510
1480FORI%=1TO8
1490READB%,S8%
1500IFB2%=B%S9%=S8%:GOSUB920
1510DATA177,9,209,6,193,7,215,5,211,4,197,2,196,3,218,8
1520NEXTI%
1530IF[=S9%GOTO1560
1540FORQ=1TO25:OUT6,1,6,11:NEXTQ:OUT6,0
1550V1=V1-B1:IFV1<0V1=0:V4=V4+2:S9%=10:GOSUB920:GOSUB1010:GOSUB1720:M1%=1:GOTO800
1560RETURN
1570ONM3RESTORE1600,1610,1620,1630,1640,1650,1660,1670,1680,1690
1580P=P+]:]=M3*1000+4000
1590READN$,A,O,C1,D1,C2,D2,C3,D3,C4,D4,C5,D5,W
1600DATA'PUMA',0.1,50,20,3,20,2,20,3,20,4,20,1,1000
1610DATA'KADOOF',0.2,60,20,3,10,2,10,3,40,5,20,2,900
1620DATA'TAM-PONG',0.3,65,20,3,20,2,20,4,20,5,20,3,800
1630DATA'RULLE   ',0.4,75,25,4,15,3,30,4,30,5,10,5,700
1640DATA'MAD-PAD',0.5,80,25,4,15,3,10,3,40,5,10,1,600
1650DATA'SMOCK  ',0.6,85,30,4,10,3,10,4,45,5,5,1,500
1660DATA'TKICK',0.7,85,30,5,10,3,10,4,45,6,5,3,400
1670DATA'FUSK ',0.8,90,20,6,5,3,5,5,40,7,30,5,300
1680DATA'J.R.',0.9,95,30,6,20,5,25,5,20,8,5,3,200
1690DATA'**HUGO WIKSTR\M**',1,100,20,7,20,6,20,6,20,9,20,5,100
1700M1%=1:S9%=1:GOSUB920:FORQ=1TO4000:NEXTQ:;CHR$(7)
1710RETURN
1720FORI=1TOV4:;CUR(3,5)I:FORQ=0TO1000:NEXTQ:NEXTI
1730IFV4=10GOTO1980
1740FORI=1TO15
1750V1=V1+1:M9=15:M1%=1
1760GOSUB920
1770FORQ=0TO100:NEXTQ
1780NEXTI
1790M1%=1:S9%=1
1800GOSUB920
1810FORQ=1TO3000:NEXTQ
1820;CHR$(7)
1830RETURN
1840M9=1:GOSUB920:FORI=1TOH4:;CUR(3,35)I:FORQ=0TO1000:NEXTQ:NEXTI
1850IFH4=10M3=M3+1:H4=4:V4=4:S9%=1:M1%=1:M9=15:V1=15:GOSUB1570:GOTO790
1860FORI=1TO15
1870M9=M9+1
1880V1=15
1890S9%=1
1900GOSUB920
1910FORQ=0TO100:NEXTQ
1920NEXTI
1930M1%=1:S9%=1
1940GOSUB920
1950FORQ=1TO3000:NEXTQ
1960;CHR$(7)
1970RETURN
1980IFP>NN=P
1990RESTORE2090
2000;CUR(23,0)
2010READA$,K
2020;A$;
2030FORQ=1TO150:NEXTQ
2040IFK=1;N$;
2050IFK=2;P;
2060IFK=3;N;
2070IFA$="";
2080IFK=9GOTO2140
2090DATA'**************************************',0,,0,'**************   KARATE  *************',0,,0
2100DATA'**************************************',0,,0,,0,,0,,0,,0,,0,,0,'RECORD:',3
2110DATA,0,,0,,0,'DINA PO[NG:',2,,0,,0,,0,,0,'DU F\RLORADE MOT ',1,,0,' (den starke)',0
2120DATA,0,,0,'TRYCK P] RETURN F\R ETT NYTT SPEL',9
2130GOTO2010
2140REMsorterin
2150P(10)=P:N1$(10)=N1$
2160FORI=1TO9
2170FORJ=I+1TO10
2180IFP(I)>P(J)GOTO2200
2190X1=P(I):P(I)=P(J):P(J)=X1:X1$=N1$(I):N1$(I)=N1$(J):N1$(J)=X1$
2200NEXTJ
2210NEXTI
2220FORQ=0TO1000:IFINP(56)=141GOTO20ELSENEXTQ
2230;CHR$(12)"************ RANKING LISTA ************"
2240;:;:;:;:;
2250FORI=1TO10
2260;I;:;TAB(4)N1$(I);:;TAB(30)P(I)
2270NEXTI
2280;CUR(20,3)"TRYCK P] RETURN F\R NYTT SPEL"
2290IFINP(56)=141GOTO20ELSEGOTO2290
2300FORI=1TO10
2310;TAB(3)N1$(I)TAB(20)P(I)
2320NEXTI
2330GOTO2280
