Championship Boxing 21
660 LOCATE 6+1,F+1:PRINT CHRS(248);:PEN
:PRINT CHR$(238);:PEN 1:PRINT CHR$(239) :LOCATE 6+1,F+3:PRINT CHRS(250);:PEN 3:P RINT CHR$(240):PEN 1:PRINT CHRS(241)
670 LOCATE G+1,F+2:PRINT CHRS(249);:PEN 0:FRINT CHRS(143);CHRS(143);:PEN 1:PRINT CHRS(234);
680 LOCATE 8,2:PRINT CHRS(24)"WELL BOXED - A K.O.";CHRS(24):FOR XX=1 TO 25:SOUND 1,(XX*2),3:NEXT
690 GOTO 730
700 LOCATE X,Y+1:PRINT CHRS(231);:PEN 2: PRINT CHRS(233);:PEN 1:PRINT CHR$(245):L OCATE X,Y+3:PRINT CHRS(235);:PEN 2:PRINT CHRS(237);:PEN 1:PRINT CHRS(247)
710 LOCATE X-1,Y+2:PRINT CHRS(234);:PEN 0:PRINT CHRS(143);CHRS(143);:PEN 1:PRINT CHRS(246);
720 LOCATE 8,2:PEN 2:PRINT CHRS(24); "BA D LUCK - A K.O.";CHRS(24):PEN 1
730 FOR F=1 TO 3000:NEXT
740 CLS:IF 1(1=52 OR S2>S1 THEN 790
750 PEN 3:PRINT "Well done ! You beat "; :PEN 1:PRINT B$;" in";RD;" ROUNDS."
760 PEN 2:PRINT "The result in points wa s ";:PEN 1:PRINT s1;:PEN 2:PRINT "for yo u,and ";:PEN 1:PRINT s2;:PEN 2:PRINT " f or ";:PEN 1:PRINT B$
770 PRINT:PRINT "I suggest you try a tou gher	opponent."
780 GOTO 820
790 PRINT "Bad luck ! You were beaten in ";:PEN 3:PRINT RD;:PEN 1:PRINT "rounds." BOO PEN 2:PRINT:PRINT "The result in poi nts was ";:PEN 1:PRINT s1;:PEN 2:PRINT or you,and ";:PEN 1:PRINT s2;:PEN 2:PRI NT " for ";:PEN 1:PRINT B$
810 PRINT:PRINT "I suggest you try a wea ker	opponent."
820 PEN 3:PRINT "Here's your choice:":RE STORE 940:PRINT :PEN 1:FOR F=1 TO 10:REA D AS:PEN 2:PRINT F;"...";AS:NEXT:PEN 1 830 IF INKEYS<>" THEN 830