Championship Boxing 23
1030 CLS:PEN 2:PRINT:PRINT "Very well,yo ur opponent will be "0$:PEN 1
1040 PRINT:PRINT
1050 PEN 3:PRINT:PRINT"Each bout you fig ht is only	three rounds.
Move about the ring with cursor k eys,	and punch with [O] (lefthand) and
LW]	(right hand).":PEN 1
1060 PRINT:PRINT "Note that you can move and punchat the same time.
Only p
unches to the head score AND K.O.s are possible."
1070 LOCATE 1,24:PRINT CHR$(24); "PRESS ANY KEY TO START THE FIGHT";CHR$(24); 1080 IF INKEY$<>"THEN 1080
1090 IF INKEYS=" THEN 1090 ELSE CLS 1100 RETURN
1110 LOCATE 28,18:PRINT "0:00"
1120 FOR 6=1 TO 4:FOR XX=-2 TO 2:SOUND 1 ,(XX+100),3:NEXT XX,S
1130 RD=RD+1:IF RD=4 THEN RD=3:GOTO 740 1140 LOCATE 1,23:PEN 2:PRINT CHR$(24);"P repare to fight the next round";CHR$(24)
PEN 1:LOCATE 8,3:PRINT CHR$(234);:LOCA TE 25,20:PRINT CHR$(234);
1150 FOR i=1 TO 20:y=y+(y>2):x=x+(x>7) 1160 LOCATE X1+1,Y1+1:PRINT" ":LOCATE X 1+1,Y1+2:PRINT " ":LOCATE X1+1,Y1+3:PRIN T " ":LOCATE X+1,Y+1:PRINT CHR$(231);:P EN 2:PRINT CHR$(233):PEN 1:LOCATE X+1,Y+ 2:PRINT CHR$(24);CHR$(234);CHR$(24):LOCA TE X+1,Y+3:PRINT CHR$(235);CHR$(237);:Y1 =Y:X1=X
1170 F=F-(F<17):3=8-(3<23)
1180 LOCATE G1+1,F1+1:PRINT" ":LOCATE G 1+2,F1+2:PRINT" ":LOCATE G1+1,F1+3:PRINT
" ":LOCATE G+1,F+1:PEN 3:PRINT CHR$(23 9);:PEN 1:PRINT CHR$(239):LOCATE 6+2,F+2 :PRINT CHR$(24);CHR$(234);CHR$(24);:LOCA TE G+1,F+3:PEN 3:PRINT CHR$(240);CHR$(24 1);:F1=F:G1=G
1190 NEXT I:LOCATE 1,23:PRINT CHR$(18);: GOSUB 1490:GOTO 100