add all BASIC source files and folders

15 Boxing/README.md

@@ -0,0 +1,7 @@
+### Boxing
+
+As published in Basic Computer Games (1978)
+https://www.atariarchives.org/basicgames/showpage.php?page=28
+
+Downloaded from Vintage Basic at
+http://www.vintage-basic.net/games.html

15 Boxing/boxing.bas

@@ -0,0 +1,142 @@
+1 PRINT TAB(33);"BOXING"
+2 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
+10 PRINT "WHAT IS YOUR OPPONENT'S NAME";
+20 INPUT J$
+30 PRINT "INPUT YOUR MAN'S NAME";
+40 INPUT L$
+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 "WHAT IS HIS VULNERABILITY";
+80 INPUT D
+90 B1=INT(4*RND(1)+1)
+100 D1=INT(4*RND(1)+1)
+110 IF B1=D1 THEN 90
+120 PRINT J$;"'S ADVANTAGE IS";B1;"AND VULNERABILITY IS SECRET.":PRINT
+130 FOR R=1 TO 3
+140 IF J>= 2 THEN 1040
+150 IF L>=2 THEN 1060
+160 X=0
+170 Y=0
+180 PRINT "ROUND";R;"BEGINS..."
+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 GOTO 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 GOTO 950
+310 PRINT "IT'S BLOCKED."
+330 GOTO 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 ";
+370 PRINT
+375 IF X=1 THEN 950
+380 PRINT
+390 PRINT
+400 GOTO 300
+410 PRINT "HE CONNECTS!"
+420 IF X>35 THEN 980
+425 X=X+15
+440 GOTO 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 GOTO 300
+500 PRINT "BUT IT'S BLOCKED!!!!!!!!!!!!!"
+510 GOTO 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 GOTO 300
+570 PRINT "AND HE CONNECTS!"
+580 X=X+4
+590 GOTO 300
+600 J7=INT(4*RND(1)+1)
+601 IF J7 =B1 THEN 605
+602 GOTO 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 GOTO 300
+690 PRINT " BLOOD SPILLS !!!"
+700 Y=Y+5
+710 GOTO 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 " IT'S BLOCKED!"
+760 GOTO 300
+770 PRINT " POW!!!!! HE HITS HIM RIGHT IN THE FACE!"
+780 IF Y>35 THEN 1010
+790 Y=Y+15
+800 GOTO 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 GOTO 300
+920 PRINT " BLOCKS AND HITS ";J$;" WITH A HOOK."
+930 X=X+5
+940 GOTO 300
+950 NEXT R1
+951 IF X>Y THEN 955
+952 PRINT:PRINT J$" WINS ROUND" R
+953 J=J+1
+954 GOTO 960
+955 PRINT: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 GOTO 1080
+1010 PRINT L$ " IS KNOCKED COLD AND " J$" IS THE WINNER AND CHAMP!";
+1030 GOTO 1000
+1040 PRINT J$ " WINS (NICE GOING," J$;")."
+1050 GOTO 1000
+1060 PRINT L$ " AMAZINGLY WINS!!"
+1070 GOTO 1000
+1080 PRINT
+1085 PRINT
+1090 PRINT "AND NOW GOODBYE FROM THE OLYMPIC ARENA."
+1100 PRINT
+1110 END