Championship Boxing 25
1450 LOCATE 1,5:PEN 2:PRINT C$;:PEN 1:LO CATE 27,5:PEN 3:PRINT BS:PEN 1
1460 LOCATE 1,7:PRINT "POINTS":LOCATE 27 ,/:PRINT"POINTS":PEN 3:LOCATE 1,16:PRINT
"ROUND":PEN 1:LOCATE 28,16:PEN 2:PRINT "TIME":PEN 1
1470 LOCATE 3,9:PRINT CHRS(24);S1;:LOCAT E 29,9:PRINT 52;CHRS(24);
1480 RETURN
1490 Y1=16:X1=9:RESTORE 1500:FOR F=1 TO 4:READ Y,X
1500 DATA 0,1,-1,0,0,-1,1,0
1510 FOR E=I TO 12:LOCATE XI+1,Y1+1:PRIN T CHRS(242);:LOCATE X1+1,Y1+2:PEN 3:PRIN I CHRS(243):PEN 1:LOCATE X1+1,Y1+3:PRINT CHR$(244):LOCATE X1+1,Y1:PRINT CHRS(24) ;MIDS(STRS(RD),2);CHRS(24);:PEN 1
1520 FOR XX=I TO 3:SOUND 1,(XX*20),3:NEX T
1530 IF E=12 THEN FOR 0=25 TO 35:SOUND I ,20,2:NEXT 0:FOR 0=1 TO 20:NEXT 0:FOR 0= 35 TO 25:SOUND I,0,2:NEXT 0
1540 LOCATE X1+1,Y1+1:PRINT " ":LOCATE X 1+1,Y1+2:PRINT " ":LOCATE X1+1,Y1+3:PRIN T " ":LOCATE X1+1,Y1:PRINT
1550 Y1=Y1+Y:X1=X1+X:NEXT E:NEXT F 1560 RETURN