20 Championship Boxing
420 LOCATE X+2,Y+3:PRINT CHR$(236);:PEN 2:PRINT CHR$(237):PEN 1:REM SOUND 1,90,3 430 LOCATE X+2,Y+3:PEN 2:PRINT CHR$(237) ;:PEN 1:PRINT " "
440 IF Y=F-1 AND X=G-1 THEN S1=S1+1:SOUN D 1,200,3:LOCATE 3,9:PRINT S1
450 IF S1=K2 THEN 660
460 RETURN
470 IF F(Y THEN 530
480 LOCATE G,F+1:PEN 3:PRINT CHR$(238);: PEN 1:PRINT CHR$(232):SOUND 1,120,3
490 LOCATE G,F+1:PRINT " ";:PEN 3:PRINT CHR$(238)
500 IF F=Y+1 THEN S2=S2+1:SOUND 1,180,3: LOCATE 29,9:PRINT S2
510 IF S2=K1 THEN 700
520 RETURN
530 LOCATE G,F+3:PEN 3:PRINT CHR$(240);: PEN 1:PRINT CHR$(236):SOUND 1,200,3
540 LOCATE G,F+3:PRINT " ";:PEN 3:PRINT CHR$(240);
550 IF F=Y-1 THEN S2=S2+1:LOCATE 29,9:PR INT S2
560 IF S2=K1 THEN 700
570 RETURN
580 LOCATE X1+1,Y1+1:PRINT " ":LOCATE X 1+1,Y1+2:PRINT " ":LOCATE X1+1,Y1+3:PRIN
590 FOR X=19 TO 12 STEP —1:X1=X
600 LOCATE X1+1,Y1+1:PRINT CHR$(231);:PE N 2:PRINT CHR$(233):PEN 1:LOCATE X1+1,Y1 +3:PRINT CHR$(235);:PEN 2:PRINT CHR$(237 ):PEN 1
610 LOCATE X1+1,Y1+2:PRINT CHR$(24);CHR-47 (234);CHR$(24);" ";CHR$(24);CHR$(234);CH R$(24);" ":LOCATE X1+3,Y1+1:PRINT CHR$(2 39);" ":LOCATE X1+3,Y1+3:PRINT CHR$(241) ;" ";:PEN 1
620 SOUND 1,160,3
630 NEXT X
640 LOCATE X1+3,Y1+1:PRINT " ":LOCATE X1 +3,Y1+2:PRINT " ":LOCATE X1+3,Y1+3:PRINT
650 E=0:RETURN