1 REM PRINT TAB(33);"BOXING"
2 REM PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
3 PRINT:PRINT:PRINT
4 PRINT "BOXING OLYMPIC STYLE (3 ROUNDS -- 2 OUT OF 3 WINS)"
5 J=0
6 L=0
8 PRINT
50 PRINT "DIFFERENT PUNCHES ARE: (1) FULL SWING; (2) HOOK; (3) UPPERCUT; (4) JAB."
60 INPUT "WHAT IS YOUR MAN JAKE'S BEST? "; B
70 INPUT "WHAT IS JAKE'S VULNERABILITY? "; D
90 M=RND(4)+1
100 N=RND(4)+1
110 IF M=N THEN GOTO 90
120 PRINT "ALI'S ADVANTAGE IS ";M;" AND VULNERABILITY IS SECRET." : PRINT
130 FOR R=1 TO 3
140 IF J>1 THEN GOTO 1040
150 IF L>1 THEN GOTO 1060
160 X=0
170 Y=0
180 PRINT "ROUND ";R;" BEGINS..."
185 FOR S=1 TO 7
190 I=RND(10)+1
200 IF I>5 THEN GOTO 600
210 INPUT "JAKE'S PUNCH: "; P
221 IF P=B THEN GOTO 225
222 GOTO 230
225 X=X+2
230 IF P=1 THEN GOTO 340
240 IF P=2 THEN GOTO 450
250 IF P=3 THEN GOTO 520
270 PRINT "JAKE JABS AT ALI'S HEAD ";
271 IF N=4 THEN GOTO 290
275 C=RND(8)+1
280 IF C<4 THEN GOTO 310
290 X=X+3
300 GOTO 950
310 PRINT "IT'S BLOCKED."
330 GOTO 950
340 PRINT "JAKE SWINGS AND ";
341 IF N=4 THEN GOTO 410
345 T=RND(30)+1
350 IF T<10 THEN GOTO 410
360 PRINT "HE MISSES ";
370 PRINT
375 IF X=1 THEN GOTO 950
380 PRINT
390 PRINT
400 GOTO 300
410 PRINT "HE CONNECTS!"
420 IF X>35 THEN GOTO 980
425 X=X+15
440 GOTO 300
450 PRINT "JAKE GIVES THE HOOK... ";
455 IF N=2 THEN GOTO 480
460 T=RND(2)+1
470 IF T=1 THEN GOTO 500
475 PRINT "CONNECTS..."
480 X=X+7
490 GOTO 300
500 PRINT "BUT IT'S BLOCKED!!!!!!!!!!!!!"
510 GOTO 300
520 PRINT "JAKE TRIES AN UPPERCUT ";
530 IF N=3 THEN GOTO 570
540 T=RND(100)+1
550 IF T<51 THEN GOTO 570
560 PRINT "AND IT'S BLOCKED (LUCKY BLOCK!)"
565 GOTO 300
570 PRINT "AND HE CONNECTS!"
580 X=X+4
590 GOTO 300
600 LET U=4 : LET U=U+1
601 IF U=M THEN GOTO 605
602 GOTO 610
605 Y=Y+2
610 IF U=1 THEN GOTO 720
620 IF U=2 THEN GOTO 810
630 IF U=3 THEN GOTO 860
640 PRINT "ALI JABS AND ";
645 IF D=4 THEN 700
650 T=RND(7)+1
655 IF T>4 THEN GOTO 690
660 PRINT "IT'S BLOCKED!"
670 GOTO 300
690 PRINT " BLOOD SPILLS !!!"
700 Y=Y+5
710 GOTO 300
720 PRINT "ALI TAKES A FULL SWING AND";
730 IF D=1 THEN GOTO 770
740 T=RND(60)+1
745 IF T<30 THEN GOTO 770
750 PRINT " IT'S BLOCKED!"
760 GOTO 300
770 PRINT " POW!!!!! HE HITS HIM RIGHT IN THE FACE!"
780 IF Y>35 THEN GOTO 1010
790 Y=Y+15
800 GOTO 300
810 PRINT "ALI GETS JAKE IN THE JAW (OUCH!)"
820 Y=Y+7
830 PRINT "....AND AGAIN!"
835 Y=Y+5
840 IF Y>35 THEN GOTO 1010
850 PRINT
860 PRINT "JAKE IS ATTACKED BY AN UPPERCUT (OH,OH)..."
865 IF D=3 THEN GOTO 890
870 T=RND(200)+1
880 IF T>75 THEN GOTO 920
890 PRINT "AND ALI CONNECTS..."
900 Y=Y+8
910 GOTO 300
920 PRINT " BLOCKS AND HITS ALI WITH A HOOK."
930 X=X+5
940 GOTO 300
950 NEXT S
951 IF X>Y THEN GOTO 955
952 PRINT:PRINT "ALI WINS ROUND ";R
953 J=J+1
954 GOTO 960
955 PRINT:PRINT "JAKE WINS ROUND ";R
956 L=L+1
960 NEXT R
961 IF J>1 THEN GOTO 1040
962 IF L>1 THEN GOTO 1060
980 PRINT "ALI IS KNOCKED COLD AND JAKE IS THE WINNER AND CHAMP!";
1000 GOTO 1080
1010 PRINT "JAKE IS KNOCKED COLD AND ALI IS THE WINNER AND CHAMP!";
1030 GOTO 1000
1040 PRINT "ALI WINS (NICE GOING, ALI)."
1050 GOTO 1000
1060 PRINT "JAKE AMAZINGLY WINS!!"
1070 GOTO 1000
1080 PRINT
1085 PRINT
1090 PRINT "AND NOW GOODBYE FROM THE OLYMPIC ARENA."
1100 PRINT
1110 END
