[Apple II]
Type=Paste

[Data]

NEW

1  REM  ************************
2  REM   ALTAIR BOXING
3  REM  ==============
4  REM
5  REM  ADAPTED FOR THE APPLE II, AND SLIGHTLY IMPROVED BY MOOSE O'MALLEY 6-MAR-2002
6  REM
7  REM  ************************
8 TEXT : HOME
1000 REM PROGRAM SUBMITTED BY JESSE LYNCH, ST. PAUL, MN.
1010 J=0
1020 L=0
1030 PRINT "OLYMPIC BOXING --- 3 ROUNDS"
1040 PRINT
1050 PRINT "INPUT YOUR OPPONENT'S NAME ";
1060 INPUT J$
1070 PRINT "INPUT YOUR MAN'S NAME ";
1080 INPUT L$
1090 PRINT
1100 GOSUB 1120
1110 GOTO  1170
1120 PRINT "DIFFERENT PUNCHES ARE - 1 = FULL SWING"
1130 PRINT "                        2 = HOOK"
1140 PRINT "                        3 = UPPERCUT"
1150 PRINT "                        4 = JAB"
1160 RETURN
1170 PRINT "WHAT IS YOUR MAN'S BEST PUNCH (1-4) ";
1180 INPUT B
1190 PRINT "AND WHAT IS HIS VULNERABILITY (1-4) ";
1200 INPUT D
1210 PRINT 
1220 B1 = INT(4*RND(1)+1)
1230 D1 = INT(4*RND(1)+1)
1240 IF B1 = D1 THEN 1220
1250 PRINT J$"'S ADVANTAGE IS "B1 : PRINT "BUT HIS DISADVANTAGE IS A SECRET ... "
1260 FOR R= 1 TO 3
1270 IF J>=2 THEN 2460
1280 IF L>=2 THEN 2480
1290 X=0
1300 Y=0
1310 PRINT
1320 PRINT "ROUND "R" BEGINS..."
1330 PRINT 
1340 FOR R1=1 TO 7
1350 I=INT(10*RND(1)+1)
1360 IF I>5 THEN 1900
1370 GOSUB3000:PRINT L$"'S PUNCH";
1380 INPUT P
1390 IF P<1 THEN 1430
1400 IF P>4 THEN 1430
1410 GOTO 1450
1420 IF P><0 THEN 1450
1430 GOSUB 1120
1440 GOTO  1370
1450 IF P=B THEN 1470
1460 GOTO 1480
1470 X=X+2
1480 IF P=1 THEN 1590
1490 IF P=2 THEN 1720
1500 IF P=3 THEN 1810
1510 GOSUB3000:PRINT L$" JABS AT "J$"'S HEAD ";
1520 IF D1=4 THEN 1550
1530 C=INT(8*RND(1)+1)
1540 IF C<4 THEN 1570
1550 X=X+3
1560 GOTO 2320
1570 GOSUB3000:PRINT "IT'S BLOCKED!!!"
1580 GOTO 2320
1590 GOSUB3000:PRINT L$" SWINGS AND ";
1600 IF D1=4 THEN 1680
1610 X3=INT(30*RND(1)+1)
1620 IF X3<10 THEN 1680
1630 GOSUB3000:PRINT " HE MISSES!! ";
1640 IF X=1 THEN 2320
1650 PRINT
1660 PRINT
1670 GOTO 1560
1680 GOSUB3000:PRINT "HE CONNECTS!! "
1690 IF X>35 THEN 2420
1700 X=X+15
1710 GOTO 1560
1720 GOSUB3000:PRINT L$" GIVES THE HOOK! ";
1730 IF D1=2 THEN 1770
1740 H1=INT(2*RND(1)+1)
1750 IF H1=1 THEN 1790
1760 GOSUB3000:PRINT "CONNECTS..."
1770 X=X+7
1780 GOTO 1560
1790 GOSUB3000: PRINT : PRINT "BUT IT'S BLOCKED!!!"
1800 GOTO 1560
1810 GOSUB3000:PRINT L$ " TRYS AN UPPERCUT";
1820 IF D1=3 THEN 1870
1830 D5=INT(RND(1)*100)
1840 IF D5<51 THEN 1870
1850 GOSUB3000:PRINT " AND ITS BLOCKED!!"
1860 GOTO 1560
1870 GOSUB3000:PRINT " AND HE CONNECTS!!"
1880 X=X+4
1890 GOTO 1560
1900 J7=INT(4*RND(1)+1)
1910 IF J7=B1 THEN 1930
1920 GOTO 1940
1930 Y=Y+2
1940 IF J7=1 THEN 2060
1950 IF J7=2 THEN 2160
1960 IF J7=3 THEN 2220
1970 GOSUB3000:PRINT J$ " JABS AND ";
1980 IF D=4 THEN 2040
1990 Z4=INT(7*RND(1)+1)
2000 IF Z4>4 THEN 2030
2010 GOSUB3000:PRINT " ITS BLOCKED!!"
2020 GOTO 1560
2030 GOSUB3000:PRINT " BLOOD SPILLS!!!"
2040 Y=Y+5
2050 GOTO 1560
2060 GOSUB3000:PRINT J$ " TAKES A FULL SWING AND...";
2070 IF D=1 THEN 2120
2080 R6=INT(60*RND(1)+1)
2090 IF R6<30 THEN 2120
2100 GOSUB3000: PRINT : PRINT " BUT IT'S BLOCKED !"
2110 GOTO 1560
2120 GOSUB3000:PRINT " POW!!!!! HE HITS HIM IN THE FACE!"
2130 IF Y>35 THEN 2440
2140 Y=Y+15
2150 GOTO 1560
2160 GOSUB3000:PRINT J$ " GETS "L$" IN THE JAW (OUCH) !"
2170 Y=Y+7
2180 GOSUB3000:PRINT "....AND AGAIN!"
2190 Y=Y+5
2200 IF Y>35 THEN 2440
2210 PRINT
2220 GOSUB3000:PRINT L$ " IS ATTACKED BY AN UPPERCUT " : PRINT "(OH, OH)..."
2230 IF D=3 THEN 2260
2240 Q4=INT(200*RND(1)+1)
2250 IF Q4>75 THEN 2290
2260 GOSUB3000:PRINT " AND "J$" CONNECTS..."
2270 Y=Y+8
2280 GOTO 1560
2290 GOSUB3000:PRINT " BLOCKS AND HITS "J$" WITH A HOOK."
2300 X=X+5
2310 GOTO 1560
2320 NEXT R1
2330 IF X>Y THEN 2370
2340 PRINT J$ "WINS ROUND "R
2350 J=J+1
2360 GOTO 2390
2370 PRINT L$ " WINS ROUND "R
2380 L=L+1
2390 NEXT R
2400 IF J>=2 THEN 2460
2410 IF L>=2 THEN 2480
2420 PRINT J$ " IS KNOCKED COLD AND "L$" IS THE" : PRINT "WINNER AND CHAMP ";
2430 GOTO 2500
2440 PRINT L$ " IS KNOCKED COLD AND "J$" IS THE" : PRINT "WINNER AND CHAMP ";
2450 GOTO 2430
2460 PRINT J$ " WINS! NICE GOING, "J$"!"
2470 GOTO 2500
2480 PRINT L$ "AMAZINGLY WINS  "
2490 GOTO 2500
2500 PRINT:PRINT
2510 PRINT "AND NOW GOODBYE FROM THE OLYMPIC ARENA."
2520 PRINT
2530 END
3000 FOR XD=1 TO 200+(RND(1)*300):XC=1:NEXT XD
3010 RETURN