1Z=INP(3) 10P$="K A R A T E" 20;CHR$(12) 30H1=17:W1=17:D1=17 40FORI=1TO25:;CHR$(151):NEXTI 50FORI=1TO16 60H=H+1:W=W+1:D=D+1 70GOSUB110:GOSUB170:GOSUB230:GOSUB80:GOTO90 80FORQ=1TO100:NEXTQ:RETURN 90FORQ=1TO100:NEXTQ:NEXTI 100GOTO290 110;CUR(H,H1)CHR$(151)" " 120;CUR(H+1,H1)CHR$(151)" 5 5 " 130;CUR(H+2,H1)CHR$(151)" 7#5 " 140;CUR(H+3,H1)CHR$(151)" ! ! " 150;CUR(H+4,H1)CHR$(151)" " 160RETURN 170;CUR(W,W1)CHR$(151)" " 180;CUR(W+1,W1)CHR$(151)" 5 5 " 190;CUR(W+2,W1)CHR$(151)" ue5 " 200;CUR(W+3,W1)CHR$(151)" ! ! " 210;CUR(W+4,W1)CHR$(151)" " 220RETURN 230;CUR(D,D1)CHR$(151)" " 240;CUR(D+1,D1)CHR$(151)" 7#4 " 250;CUR(D+2,D1)CHR$(151)" 5 5 " 260;CUR(D+3,D1)CHR$(151)" ## " 270;CUR(D+4,D1)CHR$(151)" " 280RETURN 290FORI=1TO7 300H1=H1-1:D1=D1+1 310GOSUB110:GOSUB170:GOSUB230:GOSUB80:GOTO320 320FORQ=1TO100:NEXTQ:NEXTI 330FORI=1TO4 340W=W-1 350GOSUB170 360FORQ=1TO300:NEXTQ 370NEXTI 380FORI=1TO10 390H=H-1:W=W-1:D=D-1 400GOSUB110:GOSUB170:GOSUB230:GOSUB80:GOTO410 410FORQ=0TO100:NEXTQ 420NEXTI 430A$="H U G O W I K S T R \ M S D A T A" 440FORI=1TO35 450;CUR(12,3)LEFT$(A$,I) 460FORQ=0TO100:NEXTQ 470NEXTI 480A$="P R E S E N T E R A R" 490FORI=1TO21 500;CUR(14,11)LEFT$(A$,I) 510GOSUB80 520NEXTI 530B=LEN(P$):G=40-B:G=G/2 540FORI=1TOB 550;CUR(17,G)CHR$(135)LEFT$(P$,I) 560GOSUB80 570NEXTI 580FORI=1TO6000:NEXTI 590FORI=1TO24:;:FORQ=1TO100:NEXTQ:NEXTI 600;CHR$(12)" KARATE ** KARATE ** KARATE ** KARATE " 610;:;"Du Styr med f|ljande tangenter." 640;:;"1.Hoppa":;"Q.H|gparering":;"A.L}gparering":;"Z.Benspark":;"W.H|gspark":;"S.L}gspark" 650;"E.H|gtslag":;"D.L}gtslag" 660;:;CUR(22,0)"V{nta. Jag laddar vidare." 670CHAIN"KAR.STY"