Championship Boxing 19
180 LOCATE G1+1,F1+1:PRINT " ";:LOCATE G1+2,F1+2:PRINT" ";:LOCATE 61+1,F1+3:PRI NT" ";:LOCATE 6+1,F+1:PEN 3:PRINT CHR$ ( 238);:PEN 1:PRINT CHRS(239):LOCATE 6+2,F +2:PRINT CHRS(24);CHRS(234);CHRS(24); 190 LOCATE 6+1,F+3:PEN 3:PRINT CHRS(240)
:PEN 1:PRINT CHRS(241):F1=F:G1=6
200 TS=TS-2: IF TS=0 THEN TM=TM-1:TS=60:I F TM=-1 THEN 1110
210 LOCATE 28,18:PRINT MIDS(STRS(TM),2); ":";:IF TS>58 THEN PRINT"00"; ELSE IF TS >8 THEN PRINT MIDS(STRS(TS),2); ELSE PRI NT "0";MIDS(STRS(TS),2);
220 IF INKEY(67)=0 THEN GOSUB 370:IF S1= K2 THEN 660
230 IF INKEY(59)=0 THEN GOSUB 420:IF S1= K2 THEN 660
240 IF G=X+1 THEN IF RND>SK THEN GOSUB 4 70
250 Y=Y—(INKEY(2)=0 AND Y<17)+(INKEY(0)= 0 AND Y>2)
260 X=X—(INKEY(1)=0 AND )(<22)+(INKEY(8)= 0 AND X>7)
270 F=F+INT(RND*2.5)—INT(RND*2.5)—(F<Y)+ (F>Y)
280 IF F<2 THEN F=2
290 IF F>17 THEN F=17
300 G=G+INT (RND*2.5)—INT(RND*2.5)—(G<X+ 2)4-(G>X+2)
310 IF G<X+1 THEN G=X+1
320 IF G>23 THEN 6=23
330 IF E=0 THEN IF X>20 THEN E=1
340 IF E<>0 THEN E=E+(E-1)*()(<20)+1:IF E =10 THEN GOSUB 580
350 SOUND 1,180,3
360 GOTO 160
370 LOCATE X+2,Y+1:PRINT CHRS(232);:PEN 2:PRINT CHR$ (233) : PEN 1:SOUND 1,120,3 380 LOCATE X1+2,Y+1:PEN 2:PRINT CHRS(233 );:PEN 1:PRINT " "
390 IF Y=F+1 AND X=6-1 THEN S1=S1+1:LOCA TE 3,9:PRINT S1
400 IF S1=K2 THEN 660
410 RETURN