10 REM GOLF3.ECB 100 PRINT 110 PRINT " ..............................................." 120 PRINT " WELCOME TO THE BROWN UNIVERSITY COUNTRY CLUB..." 130 PRINT " DETAILS? 1-YES, 0-NO."; 140 INPUT T 150 IF T=0 THEN 210 160 PRINT " THERE ARE THREE TYPES OF GAMES THAT CAN BE PLAYED" 170 PRINT " ENTER 1-TWO PEOPLE CAN PLAY EACH OTHER" 180 PRINT " 2-YOU CAN PLAY AGAINST THE COMPUTERS PRO" 190 PRINT " OR 3-YOU CAN WATCH THE COMPUTER PLAY AGAINST ITSELF." 200 PRINT 210 PRINT " ENTER TYPE OF GAME YOU WANT TO PLAY."; 220 INPUT I 230 ON I GOTO 240,290,870 240 PRINT " ENTER NAME OF PLAYER 1"; 250 INPUT A$ 260 PRINT " ENTER NAME OF PLAYER 2"; 270 INPUT B$ 280 GOTO 320 290 GOSUB 510 300 PRINT " ENTER NAME OF YOUR PLAYER" 310 GOTO 270 320 IF T=0 THEN 380 330 PRINT " TO SELECT YOUR CLUB ENTER AN INTEGER" 340 PRINT " 1-IS YOUR PUTTER" 350 PRINT " 2-9 REPRESENTS YOUR 2-9 IRONS" 360 PRINT " 10-WEDGE, AND 11-14 ARE YOUR 1 TO 4 WOODS." 370 PRINT 380 PRINT " THE TOSS OF THE COIN- ";B$;" CALL THE TOSS." 390 PRINT " ENTER 1 FOR HEADS, 0 FOR TAILS." 400 INPUT Z 410 IF Z=0 THEN 430 420 LET A=INT(1*RND(0)) 430 LET Q=INT(10*RND(0)) 440 PRINT " TOSS WON BY"; 450 IF Q>4 THEN 480 460 PRINT " ";B$;" " 470 GOTO 930 480 IF I=1 THEN 920 490 GOSUB 560 500 GOTO 930 510 PRINT " PLAYING FOR THE COMPUTER WILL BE"; 520 LET J=INT(12*RND(0)) 530 IF J>1 THEN 550 540 LET J=1 550 LET J2=J 560 ON J GOTO 570,590,610,630,650,670,690,710,730,750,770 570 PRINT " DAN SIKES " 580 GOTO 780 590 PRINT " GARY PLAYER " 600 GOTO 780 610 PRINT " SAM SNEAD " 620 GOTO 780 630 PRINT " DOUG SANDERS " 640 GOTO 780 650 PRINT " GENE LITTLER " 660 GOTO 780 670 PRINT " ARNOLD PALMER" 680 GOTO 780 690 PRINT " JACK NICKLAUS" 700 GOTO 780 710 PRINT " CHARLIE MOODY" 720 GOTO 780 730 PRINT " GEORGE ARCHER" 740 GOTO 780 750 PRINT " BOB MURPHY " 760 GOTO 780 770 PRINT " AL GEIBERGER " 780 IF I=3 THEN 800 790 RETURN 800 IF J1=1 THEN 790 810 LET J1=1 820 LET J=J+1 830 PRINT " PLAYER NUMBER 2 IS"; 840 GOTO 560 850 PRINT " PLAYER NUMBER 1 IS"; 860 GOTO 520 870 GOSUB 850 880 PRINT " THE TOSS OF THE COIN - HEADS - " 890 PRINT " TOSS WON BY "; 900 GOSUB 560 910 GOTO 930 920 PRINT " ";A$;" " 930 GOSUB 4740 940 ON I GOTO 950,1010,1020 950 IF Q>4 THEN 980 960 PRINT " ENTER CLUB SELECTION ";B$;" " 970 GOTO 990 980 PRINT " ENTER CLUB SELECTION ";A$;" " 990 INPUT C 1000 GOTO 1060 1010 IF Q<=4 THEN 960 1020 LET C=7 1030 GOSUB 560 1040 GOTO 1930 1050 PRINT 1060 IF C>14 THEN 1340 1070 LET C1=0 1080 LET F1=F1+1 1090 IF C=1 THEN 4450 1100 IF C<10 THEN 1190 1110 IF C=10 THEN 3970 1120 IF C=11 THEN 1250 1130 LET C1=18 1140 LET C=C-10 1150 IF X7=3 THEN 4190 1160 PRINT C;" WOOD DRIVEN "; 1170 LET C=INT(248-(C*15-(13*RND(0)))) 1180 GOTO 2430 1190 IF X7=3 THEN 4190 1200 IF X7=2 THEN 4220 1210 LET C1=(13-C)*2 1220 PRINT C;" IRON SHOT "; 1230 LET C=INT(-(C*10-(9*RND(0)))+205) 1240 GOTO 2430 1250 IF X7=3 THEN 4190 1260 PRINT " DRIVE "; 1270 IF X9>0 THEN 1310 1280 LET C=INT(255-(21*RND(0))) 1290 PRINT " GOOD FOR "; 1300 GOTO 2430 1310 LET C=INT(180*RND(0))+50 1320 PRINT " SKULLED FOR "; 1330 GOTO 2430 1340 PRINT " PLEASE RE-TYPE SELECTION" 1350 GOTO 990 1360 LET X1=X 1370 IF X<10 THEN 1390 1380 LET X1=X-9 1390 ON X1 GOTO 1400,1430,1460,1490,1520,1550,1580,1610,1640 1400 LET A1=Q4 1410 LET B1=Q5 1420 GOTO 1660 1430 LET A2=Q4 1440 LET B2=Q5 1450 GOTO 1660 1460 LET A3=Q4 1470 LET B3=Q5 1480 GOTO 1660 1490 LET A4=Q4 1500 LET B4=Q5 1510 GOTO 1660 1520 LET A5=Q4 1530 LET B5=Q5 1540 GOTO 1660 1550 LET A6=Q4 1560 LET B6=Q5 1570 GOTO 1660 1580 LET A7=Q4 1590 LET B7=Q5 1600 GOTO 1660 1610 LET A8=Q4 1620 LET B8=Q5 1630 GOTO 1660 1640 LET A9=Q4 1650 LET B9=Q5 1660 LET F1=0 1670 LET X7=0 1680 LET Q2=0 1690 LET Q3=0 1700 LET Q6=0 1710 LET Q8=0 1720 IF Q4=Q5 THEN 1860 1730 IF Q4>Q5 THEN 1800 1740 LET Q4=0 1750 LET Q5=0 1760 LET Q=5 1770 LET Q1=5 1780 LET J=J2 1790 GOTO 930 1800 LET Q4=0 1810 LET Q5=0 1820 LET Q=4 1830 LET Q1=4 1840 LET J=J2+1 1850 GOTO 930 1860 LET Q=Q1 1870 LET Q4=0 1880 LET Q5=0 1890 LET J=J2 1900 IF Q>4 THEN 930 1910 LET J=J2+1 1920 GOTO 930 1930 IF X7=3 THEN 2140 1940 IF X7=2 THEN 2160 1950 IF X7=1 THEN 2160 1960 LET X6=X8 1970 IF X5=1 THEN 2000 1980 IF X5=2 THEN 2120 1990 LET X6=X6+7 2000 IF X6>250 THEN 2180 2010 IF X6>189 THEN 2220 2020 IF X6<118 THEN 2160 2030 LET C=INT(210-X6)/10 2040 LET C=INT(C) 2050 LET X6=210-X6 2060 LET X6=X6-(C*10) 2070 IF X6<6 THEN 1060 2080 LET C=C+1 2090 IF C>1 THEN 1060 2100 LET C=2 2110 GOTO 1060 2120 LET X6=X6-7 2130 GOTO 2000 2140 LET C=1 2150 GOTO 1060 2160 LET C=10 2170 GOTO 1060 2180 IF X9>0 THEN 2220 2190 IF X3=3 THEN 2300 2200 LET C=11 2210 GOTO 1060 2220 IF X3=4 THEN 2320 2230 IF X6>216 THEN 2300 2240 IF X6>201 THEN 2280 2250 IF X6<188 THEN 2000 2260 LET C=14 2270 GOTO 1060 2280 LET C=13 2290 GOTO 1060 2300 LET C=12 2310 GOTO 1060 2320 IF X6<228 THEN 2230 2330 IF X6<240 THEN 2360 2340 LET X6=X6-80 2350 GOTO 2230 2360 IF X2=3 THEN 2340 2370 IF X2=5 THEN 2340 2380 IF X2<8 THEN 2230 2390 GOTO 2340 2400 LET C=INT(81*RND(0))+1 2410 IF C<5 THEN 4530 2420 GOTO 4680 2430 PRINT C;" YDS. "; 2440 LET X8=X8-C 2450 LET X9=X9+C 2460 LET X4=INT(10*RND(0))+1 2470 IF X3=3 THEN 3320 2480 IF X8<10 THEN 3390 2490 IF X8<20 THEN 3870 2500 IF X3=4 THEN 3260 2510 ON X4 GOTO 2740,2740,2710,2710,2710,2620,2680,2680,2680,2550 2520 LET X8=X8+C 2530 LET X9=X9-C 2540 GOTO 940 2550 IF X3<5 THEN 2600 2560 PRINT " BUT OUT-OF-BOUNDS TO THE LEFT." 2570 LET X7=20 2580 PRINT " REPLACE BALL AND RE-HIT SHOT." 2590 GOTO 2520 2600 PRINT " INTO THE LEFT ROUGH" 2610 GOTO 2760 2620 IF X3<5 THEN 2660 2630 PRINT " BUT OUT-OF-BOUNDS TO THE RIGHT." 2640 LET X7=20 2650 GOTO 2580 2660 PRINT " INTO THE RIGHT ROUGH" 2670 GOTO 2760 2680 PRINT " DOWN THE LEFT SIDE OF THE FAIRWAY" 2690 LET X7=10 2700 GOTO 2760 2710 PRINT " DOWN THE RIGHT SIDE OF THE FAIRWAY" 2720 LET X7=10 2730 GOTO 2760 2740 PRINT " DOWN THE MIDDLE OF THE FAIRWAY" 2750 GOTO 2880 2760 IF X2>6 THEN 2830 2770 IF X2<4 THEN 2880 2780 IF X4>6 THEN 2810 2790 LET X8=X8+X7 2800 GOTO 2880 2810 LET X8=X8-X7 2820 GOTO 2880 2830 IF X3<4 THEN 2880 2840 IF X4>6 THEN 2870 2850 LET X8=X8-X7 2860 GOTO 2880 2870 LET X8=X8+X7 2880 PRINT X8;" YDS TO GO." 2890 IF Q>4 THEN 3080 2900 LET Q8=X8 2910 LET Q9=X9 2920 LET Q3=X7 2930 LET Q5=F1 2940 IF Q2<9 THEN 2990 2950 IF Q2>9 THEN 2990 2960 IF Q3<9 THEN 940 2970 IF Q3>9 THEN 940 2980 GOTO 1360 2990 IF Q3=9 THEN 3010 3000 IF Q69 THEN 3170 3140 IF Q2<9 THEN 940 3150 IF Q2>9 THEN 940 3160 GOTO 1360 3170 IF Q2=9 THEN 3190 3180 IF Q870 THEN 2510 3270 PRINT " RIGHT INTO THE WATER" 3280 LET X8=75 3290 LET F1=F1+1 3300 PRINT " YOU WILL DROP BEHIND, 75 YDS FROM GREEN" 3310 GOTO 2890 3320 IF X9>260 THEN 2480 3330 IF X9>249 THEN 3360 3340 IF X9>240 THEN 2480 3350 IF X9<230 THEN 2480 3360 IF X4>5 THEN 2510 3370 PRINT " INTO THE FAIRWAY TRAP." 3380 GOTO 2760 3390 LET X8=X8+20 3400 IF X8>=0 THEN 3440 3410 LET X8=(10-X8) 3420 PRINT " OVER THE GREEN BY ";X8;" YARDS." 3430 GOTO 2890 3440 IF X8<10 THEN 3750 3450 LET X8=X8-10 3460 LET X7=3 3470 LET C1=INT(C1*RND(0)) 3480 IF X8<5 THEN 3680 3490 IF X5=2 THEN 3610 3500 PRINT " ONTO THE FRONT OF THE GREEN" 3510 IF X5>2 THEN 3590 3520 LET C=INT(14*RND(0))+12+C1 3530 IF C>1 THEN 3560 3540 PRINT " 1 FOOT FROM THE PIN." 3550 GOTO 3570 3560 PRINT C;" FEET FROM THE PIN." 3570 LET X8=C 3580 GOTO 2890 3590 LET C=INT(19*RND(0))+34+C1 3600 GOTO 3530 3610 LET C=INT(5*RND(0))+C1 3620 IF C>=1 THEN 3530 3630 IF F1=1 THEN 3660 3640 PRINT " INTO THE HOLE FOR A ";F1 3650 GOTO 4390 3660 PRINT " *** HOLE IN ONE. ***" 3670 GOTO 4390 3680 PRINT " ONTO THE BACK OF THE GREEN" 3690 IF X5>2 THEN 3610 3700 IF X5=2 THEN 3590 3710 GOTO 3520 3720 PRINT " RIGHT NEAR THE MIDDLE OF THE GREEN" 3730 IF X5>1 THEN 3520 3740 GOTO 3610 3750 ON X2 GOTO 3830,3830,3830,3760,3830,3760,3760,3830,3760,3760 3760 LET X7=1 3770 PRINT " INTO THE REAR TRAP." 3780 LET C=INT(5*RND(0))+5 3790 PRINT C;" FEET OFF THE GREEN AND "; 3800 ON X5 GOTO 3590,3810,3520,3520 3810 LET C=INT(20*RND(0))+50 3820 GOTO 3530 3830 LET C=INT(9*RND(0))+1 3840 PRINT " TO THE REAR FRINGE." 3850 LET X7=2 3860 GOTO 3790 3870 ON X2 GOTO 3930,3930,3880,3930,3880,3930,3930,3880,3880,3880 3880 PRINT " INTO THE FRONT TRAP." 3890 LET X7=1 3900 LET C=INT(5*RND(0))+5 3910 PRINT C;" FEET OFF THE GREEN AND "; 3920 ON X5 GOTO 3590,3520,3810,3810 3930 PRINT " JUST SHORT IN THE FRINGE." 3940 LET X7=2 3950 LET C=INT(9*RND(0))+1 3960 GOTO 3910 3970 IF X9=0 THEN 4120 3980 IF X7>9 THEN 4000 3990 IF X7>0 THEN 4170 4000 IF X8>124 THEN 4060 4010 ON X5 GOTO 4080,4020,4040,4040 4020 LET X6=X8-8 4030 GOTO 4090 4040 LET X6=X8+8 4050 GOTO 4090 4060 LET X6=124 4070 GOTO 4090 4080 LET X6=X8 4090 LET C=INT(6*RND(0))+X6-3 4100 PRINT " WEDGE GOOD FOR "; 4110 GOTO 2430 4120 IF X3=2 THEN 4140 4130 GOTO 4060 4140 PRINT " WEDGE SHOT INTO THE WATER RE-TEE" 4150 LET F1=F1+1 4160 GOTO 940 4170 IF X7=1 THEN 4240 4180 IF X7=2 THEN 4220 4190 PRINT " YOU ARE ON THE GREEN UNEXCEPTABLE CLUB CHOICE." 4200 LET F1=F1-1 4210 GOTO 940 4220 PRINT " CHIP SHOT FROM FRINGE"; 4230 GOTO 4270 4240 PRINT " SAND WEDGE FROM TRAP "; 4250 GOTO 4350 4260 PRINT " THE PUTT FROM THE FRINGE"; 4270 LET X7=3 4280 GOTO 2400 4290 IF X7=1 THEN 4340 4300 IF X7=2 THEN 4260 4310 PRINT " THE PUTT FROM";X8;" YARDS OUT TRAVELS"; 4320 LET C=INT(12*RND(0))+13 4330 GOTO 2430 4340 PRINT " TEXAS WEDGE FROM THE TRAP"; 4350 LET C=INT(81*RND(0))+1 4360 IF C<75 THEN 4270 4370 PRINT " CATCHES THE LIP AND ROLLS BACK IN." 4380 GOTO 940 4390 LET X7=9 4400 GOTO 2890 4410 LET C=INT(81*RND(0))+1 4420 IF C<8 THEN 4530 4430 LET C=INT(9*RND(0))+1 4440 GOTO 4690 4450 IF X7<3 THEN 4290 4460 IF X7>3 THEN 4290 4470 PRINT " THE PUTT "; 4480 IF X8>25 THEN 4410 4490 IF X8>14 THEN 4660 4500 IF X8>5 THEN 4640 4510 LET C=INT(9.6*RND(0))+1 4520 IF C>9 THEN 4600 4530 ON C GOTO 4540,4540,4560,4540,4580,4560,4580,4540,4540 4540 PRINT " DEAD CENTER IN THE HOLE FOR A ";F1 4550 GOTO 4390 4560 PRINT " CURLS IN THE LEFT SIDE OF THE HOLE FOR A ";F1 4570 GOTO 4390 4580 PRINT " CURLS IN THE RIGHT SIDE OF THE CUP FOR A ";F1 4590 GOTO 4390 4600 PRINT " SLIDES JUST PAST THE HOLE." 4610 LET F1=F1+1 4620 PRINT " TAPPED IN FOR A ";F1 4630 GOTO 4390 4640 LET C=INT(16.1*RND(0))+1 4650 GOTO 4520 4660 LET C=INT(34*RND(0))+1 4670 IF C<8 THEN 4530 4680 LET C=INT(6*RND(0))+1 4690 IF C=1 THEN 4600 4700 PRINT " SLIDES";C;" FEET BY." 4710 LET F1=F1+1 4720 LET X8=C 4730 GOTO 4450 4740 LET X=X+1 4750 IF X=10 THEN 6150 4760 IF X=19 THEN 6380 4770 LET X1=X 4780 PRINT 4790 PRINT " * THE "; 4800 IF X<11 THEN 4830 4810 LET X1=X-10 4820 ON X1 GOTO 5140,5170,5200,5230,5260,5290,5330,5370 4830 ON X1 GOTO 4840,4870,4900,4930,4960,4990,5020,5050,5080,5110 4840 LET Y1=Y 4850 PRINT " FIRST "; 4860 GOTO 5410 4870 LET Y2=Y 4880 PRINT " SECOND "; 4890 GOTO 5410 4900 LET Y3=Y 4910 PRINT " THIRD "; 4920 GOTO 5410 4930 LET Y4=Y 4940 PRINT " FOURTH "; 4950 GOTO 5410 4960 LET Y5=Y 4970 PRINT " FIFTH "; 4980 GOTO 5410 4990 LET Y6=Y 5000 PRINT " SIXTH "; 5010 GOTO 5410 5020 LET Y7=Y 5030 PRINT " SEVENTH "; 5040 GOTO 5410 5050 LET Y8=Y 5060 PRINT " EIGHTH "; 5070 GOTO 5410 5080 LET Y9=Y 5090 PRINT " NINTH "; 5100 GOTO 5410 5110 LET Z1=Y 5120 PRINT " TENTH "; 5130 GOTO 5410 5140 LET Z2=Y 5150 PRINT " ELEVENTH "; 5160 GOTO 5410 5170 LET Z3=Y 5180 PRINT " TWELFTH "; 5190 GOTO 5410 5200 LET Z4=Y 5210 PRINT " THIRTEENTH "; 5220 GOTO 5410 5230 LET Z5=Y 5240 PRINT " FOURTEENTH "; 5250 GOTO 5410 5260 LET Z6=Y 5270 PRINT " FIFTEENTH "; 5280 GOTO 5410 5290 LET Y=INT(50*RND(0))+180 5300 LET Z7=Y 5310 PRINT " SIXTEENTH "; 5320 GOTO 5410 5330 LET Y=INT(50*RND(0))+350 5340 LET Z8=Y 5350 PRINT " SEVENTEENTH "; 5360 GOTO 5410 5370 LET Y=INT(50*RND(0))+390 5380 LET Z9=Y 5390 PRINT " EIGNTEENTH "; 5400 GOTO 5410 5410 PRINT " HOLE IS "; 5420 IF X=4 THEN 5540 5430 IF X=7 THEN 5540 5440 IF X=11 THEN 5540 5450 IF X=16 THEN 5540 5460 LET X2=INT(9*RND(0))+1 5470 ON X2 GOTO 5480,5480,5480,5500,5500,5500,5520,5520,5520 5480 PRINT " STRAIGHT AWAY "; 5490 GOTO 5550 5500 PRINT " A DOGLEG LEFT "; 5510 GOTO 5550 5520 PRINT " A DOGLEG RIGHT "; 5530 GOTO 5550 5540 PRINT " A PAR 3 "; 5550 LET T9=T9+Y 5560 IF X<10 THEN 5580 5570 LET T8=T8+Y 5580 PRINT Y;" YARDS LONG" 5590 PRINT " GREEN TRAPPED "; 5600 ON X2 GOTO 5610,5630,5650,5670,5690,5710,5730,5750,5770,5770 5610 PRINT " ON THE LEFT "; 5620 GOTO 5790 5630 PRINT " ON THE RIGHT "; 5640 GOTO 5790 5650 PRINT " IN THE FRONT "; 5660 GOTO 5790 5670 PRINT " IN THE BACK "; 5680 GOTO 5790 5690 PRINT " LEFT & FRONT "; 5700 GOTO 5790 5710 PRINT " LEFT & BACK "; 5720 GOTO 5790 5730 PRINT " RIGNT & BACK "; 5740 GOTO 5790 5750 PRINT " RIGHT & FRONT "; 5760 GOTO 5790 5770 PRINT " ON THREE SIDES "; 5780 GOTO 5790 5790 LET X3=INT(5*RND(0))+1 5800 IF Y>300 THEN 5820 5810 IF X3=3 THEN 5830 5820 ON X3 GOTO 5830,5850,5870,5890,5910 5830 PRINT " WITH A WIDE OPEN FAIRWAY" 5840 GOTO 5960 5850 PRINT " WITH WATER FROM 50 TO 130 YDS OUT" 5860 GOTO 5960 5870 PRINT " WITH FAIRWAY TRAPS AT 230 & 250 YDS" 5880 GOTO 5960 5890 PRINT " WITH WATER 70 YDS IN FRONT OF GREEN" 5900 GOTO 5960 5910 PRINT " WITH OUT-OF-BOUNDS ON THE "; 5920 IF X2>5 THEN 5950 5930 PRINT " RIGHT." 5940 GOTO 5960 5950 PRINT " LEFT." 5960 LET X5=INT(4*RND(0))+1 5970 PRINT " TODAY THE PIN IS PLACED TO THE "; 5980 ON X5 GOTO 5990,6010,6030,6050 5990 PRINT " CENTER "; 6000 GOTO 6060 6010 PRINT " LEFT FRONT "; 6020 GOTO 6060 6030 PRINT " BACK RIGHT "; 6040 GOTO 6060 6050 PRINT " BACK EDGE "; 6060 PRINT " OF THE GREEN" 6070 LET Q6=Y 6080 LET Q8=Y 6090 LET X8=Q8 6100 LET Q7=0 6110 LET Q9=0 6120 LET X9=0 6130 PRINT 6140 RETURN 6150 PRINT 6160 PRINT " 1 2 3 4 5 6 7 "; 6170 PRINT " 8 9 OUT TOTAL" 6180 PRINT " YARDS ";Y1;Y2;Y3;Y4;Y5;Y6;Y7;Y8; 6190 PRINT Y9;T9 6200 PRINT " PAR 4 4 5 3 4 5 3 "; 6210 PRINT " 4 4 36 " 6220 LET T7=A1+A2+A3+A4+A5+A6+A7+A8+A9 6230 LET T6=B1+B2+B3+B4+B5+B6+B7+B8+B9 6240 ON I GOTO 6250,6270,6340 6250 PRINT A$ 6260 PRINT " ";A1;A2;A3;A4;A5;A6;A7;A8;A9;" ";T7 6270 PRINT B$ 6280 PRINT " ";B1;B2;B3;B4;B5;B6;B7;B8;B9;" ";T6 6290 IF I=1 THEN 6330 6300 GOSUB 560 6310 PRINT " ";A1;A2;A3;A4;A5;A6;A7;A8;A9;" ";T7 6320 PRINT 6330 GOTO 4770 6340 LET J=J2+1 6350 GOSUB 560 6360 LET J=J2 6370 GOTO 6280 6380 PRINT 6390 PRINT " 10 11 12 13 14 15 16 "; 6400 PRINT " 17 18 IN" 6410 PRINT " YARDS ";Z1;Z2;Z3;Z4;Z5;Z6;Z7;Z8;Z9;T8;T9 6420 PRINT " PAR 5 3 4 4 4 5 3 "; 6430 PRINT " 4 4 36 72" 6440 LET T5=A1+A2+A3+A4+A5+A6+A7+A8+A9 6450 LET T4=B1+B2+B3+B4+B5+B6+B7+B8+B9 6460 LET T7=T7+T5 6470 LET T6=T6+T4 6480 ON I GOTO 6490,6530,6590 6490 PRINT A$ 6500 PRINT " ";A1;A2;A3;A4;A5;A6;A7;A8;A9;T5; 6510 PRINT " ";T7 6520 IF I>1 THEN 6630 6530 PRINT " ";B$ 6540 PRINT " ";B1;B2;B3;B4;B5;B6;B7;B8;B9;T4; 6550 PRINT " ";T6 6560 IF I=1 THEN 6630 6570 GOSUB 560 6580 GOTO 6500 6590 LET J=J2+1 6600 GOSUB 560 6610 LET J=J2 6620 GOTO 6540 6630 LET "..." 6640 END