22 Championship Boxing
840 LOCATE 1,23:PRINT CHR$(20);"ENTER YO UR OPPONENT'S NUMBER OR	(0) TO
UIT";:LOCATE 20,24:INPUT XS:IF XS="" THE N 840 ELSE IF ASC(X$)<48 THEN 840 ELSE X =VAL(XS)
850 IF X$="0" THEN STOP
860 IF X<1 OR X>10 THEN 840
870 CLS :RESTORE 940:FOR F=1 TO X:READ A S:NEXT:BS=LEFTS(AS,6): PRINT "OK YOU SHA LL FIGHT ";BS:PRINT CHRS(24);" PRESS AN 'I KEY TO START ";CHRS(24);
880 IF INKEYS<>"" THEN ma
890 IF INKEYS="" THEN 890 ELSE CLS
900 S1=0:82=S1:SK=(11-X)/12:K2=10+X+INT( RND*6):LET K1=16-X+INT(RND*10): GOTO 70 910 RESTORE 940
920 LOCATE 1,11:PRINT "Enter your name ( up to 6 letters)":LOCATE 1,12:PRINT CHR$ (18)::LOCATE 1,12:INPUT CS:IF LEN(CS)>6 THEN 920 .
930 CLS
940 DATA Henry Hopeless,Arnold Awful,Nig el No-good,Philip Fair,Andrew Average,Ro ger Right-Hook,Brian Brick-wall,Simon Su per,Edward Excellent,Flynn Fantastic
950 LOCATE 5,1:PRINT CHR$(24);" CHAMPION SHIP BOXING ";CHRS(24);
960 LOCATE I,4:PEN 2:PRINT "So you want to be a champion ? If so this is the ga me for you":PEN 1
970 PRINT:PRINT "Which opponent do you w ish to	fight first?"
980 FOR F=1 TO 10:READ AS:PEN 3:LOCATE 4 ,11+F: PRINT MIDS(STRS(F),2);"...";AS:NE XT F:PEN 1
990 LOCATE 1,23:PRINT CHRS(18);:LOCATE 1 ,23:INPUT X$: IF XS="" OR ASC(XS)<49 THEN 990 ELSE X=VAL(XS):IF X<1 OR )010 THEN 990
1000 SK=(11-X)/12
1010 K2=10+X+INT(RND*6):K1=16-X+INT(RND* 10)
1020 RESTORE 940:FOR F=1 TO X:READ A$: NE XT F:BS=LEFTS(AS,6)