BCG101/port/BOXING.BAS

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