Directory of image this file is from
This file as a plain text file
INT "IS THROWN FOR A "; 1550 GOTO 1110 1560 LET G=-(2*G+8) 1570 LET M=5 1580 LET A=1 1590 PRINT "SCRAMBLES FOR A "; 1600 GOTO 1110 1610 LET B=B+G 1620 PRINT "TO "; 1630 GOSUB 3300 1640 IF B<=99 THEN 1670 1650 GOSUB 1990 1660 GOTO 630 1670 IF B1>B THEN 3120 1680 IF B1<B THEN 1730 1690 IF RND(0)>.5 THEN 1730 1700 PRINT "**MEASUREMENT**" 1710 GOSUB 3520 1720 IF RND(X)<.5 THEN 3120 1730 GOSUB 2980 1740 LET D=0 1750 GOTO 3120 1760 IF RND(X)<.06 THEN 1890 1770 LET B=B+30+INT(15*(1-RND(X)^3)) 1780 LET Z9=2 1790 GOSUB 1490 1800 IF B<=99 THEN 1850 1810 LET P1=3 1820 GOSUB 2030 1830 IF P1=0 THEN 710 1840 GOTO 630 1850 PRINT "THE KICK IS "; 1860 LET Z2=0 1870 LET S=3-S 1880 GOTO 2340 1890 PRINT "**BLOCKED** RECOVERED.."; 1900 LET G=-INT(14*RND(X)) 1910 GOTO 1410 1920 PRINT "THE PUNT IS "; 1930 IF RND(X)<.06 THEN 1890 1940 LET F1=B 1950 LET Z2=1 1960 LET S=3-S 1970 LET Z3=.65 1980 GOTO 650 1990 PRINT "** TOUCHDOWN**" 2000 LET P1=1 2010 LET P(S)=P(S)+6 2020 LET B=130 2030 PRINT "THE KICK IS "; 2040 IF RND(X)<(B/132)^4 THEN 2070 2050 LET P1=0 2060 PRINT "NO "; 2070 PRINT "GOOD" 2080 LET P(S)=P(S)+P1 2090 GOSUB 2120 2100 LET S=3-S 2110 RETURN 2120 PRINT "SCORE: ME";P(1);" YOU";P(2) 2130 LET L=0 2140 IF X<5 THEN 2160 2150 IF P(1)<>P(2) THEN 2770 2160 RETURN 2170 PRINT "**SAFETY**" 2180 LET P(3-S)=P(3-S)+2 2190 LET F1=30 2200 LET S=3-S 2210 GOSUB 2120 2220 GOSUB 3440 2230 PRINT "FROM THE 20" 2240 GOTO 650 2250 GOSUB 3440 2260 IF S=2 THEN 2330 2270 PRINT "ON-SIDE"; 2280 GOSUB 3610 2290 IF Q<>13 THEN 2330 2300 LET F2=.15 2310 LET Z2=1 2320 LET O=1 2330 RETURN 2340 LET B=100-B 2350 PRINT "RECEIVED AT "; 2360 GOSUB 3300 2370 IF Z2*RND(X)>Z3 THEN 2490 2380 IF RND(X)<F2 THEN 2500 2390 LET G=5+INT(100*RND(0)) 2400 IF RND(0)<.15 THEN 2430 2410 LET G=INT(24*(1-RND(X)^2)) 2420 IF G=0 THEN 2490 2430 LET B=B+G 2440 PRINT " AND RUN BACK..."; 2450 LET L=1 2460 IF B>99 THEN 1650 2470 PRINT " TO "; 2480 GOSUB 3300 2490 IF RND(0)>F2 THEN 3260 2500 LET G=0 2510 PRINT "**FUMBLE**"; 2520 GOTO 1410 2530 IF S=1 THEN 2560 2540 LET Y=INT(1+3.5*RND(0)) 2550 RETURN 2560 LET M=INT(55*RND(0)/10.5)+1 2570 IF (B1-B)/(5-D)<3 THEN 2590 2580 LET M=INT(6-4*RND(0)^2) 2590 IF L*F*60>=C THEN 2670 2600 IF D<4 THEN 2550 2610 PRINT "I'LL "; 2620 IF B<55 THEN 2720 2630 IF 0<4*RND(0)-B1+B THEN 2750 2640 PRINT "TRY FOR A FIELD GOAL" 2650 LET M=7 2660 RETURN 2670 IF P(2)*U2<=P(1)*U2 THEN 2600 2680 PRINT "TIME OUT" 2690 LET U2=U2-1 2700 GOSUB 3520 2710 GOTO 2600 2720 PRINT "PUNT" 2730 LET M=8 2740 RETURN 2750 PRINT "GO FOR IT" 2760 RETURN 2770 IF X<4 THEN 2830 2780 IF P(1)=P(2) THEN 2830 2790 PRINT "THE GAME IS OVER" 2800 PRINT "FINAL "; 2810 GOSUB 2120 2820 STOP 2830 PRINT "END OF PERIOD";X 2840 GOSUB 2120 2850 LET F=1-F 2860 GOSUB 3520 2870 LET C=900 2880 LET X=X+1 2890 IF F<>0 THEN 810 2900 LET S=3-K 2910 GOTO 580 2920 IF T1=0 THEN 2770 2930 PRINT "2 MINUTE WARNING" 2940 GOSUB 3520 2950 LET T1=0 2960 LET C=120 2970 GOTO 880 2980 LET B1=B+10 2990 IF B1<=100 THEN 3010 3000 LET B1=100 3010 RETURN 3020 LET Q=1.3*(A*RND(0)-1)-.06 3030 LET A=1 3040 IF Q>=0 THEN 3070 3050 LET A=0 3060 LET Q=-Q 3070 LET M1=M-1 3080 LET G=D(A,M1)+FNT(Q)*(D(2,M1)-D(A,M1))/3.5 3090 LET G=G+INT(RND(0)+.02)*A*100*RND(0) 3100 LET G=INT(G) 3110 RETURN 3120 LET D=D+1 3130 IF D=5 THEN 3240 3140 IF D<> 1 THEN 3160 3150 PRINT "1ST"; 3160 IF D<>2 THEN 3180 3170 PRINT "2ND"; 3180 IF D<>3 THEN 3200 3190 PRINT "3RD"; 3200 IF D<4 THEN 3220 3210 PRINT "4TH"; 3220 PRINT " AND";B1-B;" "; 3230 GOTO 810 3240 LET S=3-S 3250 LET B=100-B 3260 IF S=2 THEN 770 3270 PRINT "MY "; 3280 GOTO 780 3290 PRINT "BALL ON "; 3300 IF B=50 THEN 3400 3310 LET V=50-ABS(B-50) 3320 LET C=C-INT(7+3*RND(0)) 3330 IF S=1 THEN 3420 3340 IF B<50 THEN 3370 3350 PRINT "MY "; 3360 GOTO 3380 3370 PRINT "YOUR "; 3380 PRINT V 3390 RETURN 3400 PRINT "THE 50" 3410 RETURN 3420 IF B<50 THEN 3350 3430 GOTO 3370 3440 IF S=2 THEN 3470 3450 PRINT "YOU"; 3460 GOTO 3480 3470 PRINT "I"; 3480 PRINT " KICK OFF." 3490 LET F2=.06 3500 LET Z2=0 3510 RETURN 3520 LET L=0 3530 PRINT "TIMEOUT CALLED..." 3540 PRINT 3550 RETURN 3560 IF U=0 THEN 3600 3570 LET U=U-1 3580 GOSUB 3520 3590 GOTO 3610 3600 PRINT "..WRONG, TRY AGAIN" 3610 INPUT A 3620 IF ABS(INT(A))>17 THEN 3600 3630 LET Q=R(INT(ABS(A))) 3640 IF Q=0 THEN 3600 3650 IF Q=100 THEN 3560 3660 RETURN 3670 DATA .5,-2,.25,4,.5,13,.55 3680 DATA .4,-2,.3,7,.65,15,.75 3690 DATA .4,-2,.3,6,.6,15,.35 3700 DATA .65,-2,.65,6,.6,17,.9 3710 DATA .4,2,.7,10,.4,27,.2 3720 DATA .1,19,.4,35,.2,100,.1 3730 END 1 PRINT\REM *** MODIFICATIONS TO THE ORIGINAL BY DAVID AHL, DIGITAL 2 PRINT " *** WELCOME TO THE MAYNARD COUNTRY CLUB, AN EIGHTEEN HOLE" 3 PRINT " *** CHAMPIONSHIP LAYOUT, LOCATED JUST A SHORT DISTANCE" 4 PRINT " *** FROM THE HEART OF BEAUTIFUL DOWNTOWN MAYNARD." 5 PRINT" *** THE COMMENTATOR WILL EXPLAIN THE COURSE AS YOU" 6 PRINT" *** PLAY. ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE..." 7 PRINT 8 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 9 DIM L(10) 10 LET G1=18 20 LET G2=0 30 LET G3=0 40 LET A=0 50 LET N=.8 60 LET S2=0 70 LET F=1 80 PRINT "WHAT IS YOU HANDICAP"; 90 INPUT H 100 IF H>30 THEN 470 110 IF H<0 THEN 470 120 PRINT"DIFFICULTIES AT GOLF INCLUDE:" 130 PRINT"0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTING" 140 PRINT "WHICH ONE (ONLY) IS YOUR WORST"; 150 INPUT T 160 IF T>5 THEN 120 170 LET S1=0 210 RANDOMIZE 230 LET L(0)=0 240 LET J=0 245 LET Q=0 250 LET S2 = S2+1 260 LET K=0 270 IF F=1 THEN 310 290 PRINT"YOUR SCORE ON HOLE";F-1;"WAS";S1 291 GO TO 1750 292 IF S1>P+2 THEN 297 293 IF S1=P THEN 299 294 IF S1=P-1 THEN 301 295 IF S1=P-2 THEN 303 296 GO TO 310 297 PRINT"KEEP YOUR HEAD DOWN." 298 GO TO 310 299 PRINT"A PAR. NICE GOING." 300 GO TO 310 301 PRINT "A BIRDIE" 302 GO TO 310 303 IF P=3 THEN 306 304 PRINT"A GREAT BIG EAGLE:" 305 GO TO 310 306 PRINT "A HOLE IN ONE" 310 IF F=19 THEN 1710 315 LET S1=0 316 PRINT 320 IF S1=0 THEN 1590 330 IF L(0)<1 THEN 1150 340 LET X=0 350 IF L(0)>5 THEN 1190 360 PRINT"SHOT WENT";D1;"YARDS. IT'S";D2;"YARDS FROM THE CUP." 362 PRINT"BALL IS";INT(O);"YARDS OFF LINE...IN "; 380 GOSUB 400 390 GOTO 620 400 IF L(X)=1 THEN 480 410 IF L(X)=2 THEN 500 420 IF L(X)=3 THEN 520 430 IF L(X)=4 THEN 540 440 IF L(X)=5 THEN 560 450 IF L(X)=6 THEN 580 460 PRINT"OUT OF BOUNDS" 465 GOTO 1690 470 PRINT"PGA RULES HANDICAP = 0 TO 30" 472 GOTO 150 480 PRINT"FAIRWAY" 490 GOTO 1690 500 PRINT"ROUGH" 510 GOTO 1690 520 PRINT"TREES" 530 GOTO 1690 540 PRINT"ADJACENT FAIRWAY" 550 GOTO 1690 560 PRINT"TRAP" 570 GOTO 1690 580 PRINT"WATER" 590 GOTO 1690 620 IF A=1 THEN 629 621 PRINT"SELECTION OF CLUBS" 622 PRINT"YARDAGE DESIRED SUGGESTED CLUBS" 623 PRINT"200 TO 280 YARDS 1 TO 4" 624 PRINT"100 TO 200 YARDS 19 TO 13" 625 PRINT" 0 TO 100 YARDS 29 TO 23" 626 LET A=1 629 PRINT "WHAT CLUB DO YOU CHOOSE"; 630 INPUT C 632 PRINT 635 IF C<1 THEN 690 637 IF C>29 THEN 690 640 IF C>4 THEN 710 650 IF L(0)<5 THEN 740 660 IF C=14 THEN 740 665 IF C=23 THEN 740 670 GOTO 690 680 LET S1 = S1-1 690 PRINT"THAT CLUB IS NOT IN THE BAG." 693 PRINT 700 GOTO 620 710 IF C<12 THEN 690 720 LET C=C-6 730 GOTO 650 740 LET S1 = S1+1 741 LET W=1 742 IF C>13 THEN 960 746 IF INT(F/3)=F/3 THEN 952 752 IF C<4 THEN 756 754 GOTO 760 756 IF L(0)=2 THEN 862 760 IF S1>7 THEN 867 770 LET D1=INT(((30-H)*2.5+187-((30-H)*.25+15)*C/2)+25*RND(R)) 780 LET D1=INT(D1*W) 800 IF T=2 THEN 1170 820 T7=(SIN(D1*.0035))/(COS(D1*.0035)) 830 O=(RND(0)/.8)*(2*H+16)*ABS(T7) 840 LET D2=INT(SQR(O^2+ABS(D-D1)^2)) 850 IF D-D1<0THEN 870 860 GOTO 890 862 PRINT"YOU DUBBED IT." 864 LET D1=35 866 GOTO 830 867 IF D<200 THEN 1300 868 GOTO 770 870 IF D2<20 THEN 890 880 PRINT"TOO MUCH CLUB. YOU'RE PAST THE HOLE." 890 LET B=D 900 LET D=D2 910 IF D2>27 THEN 1020 920 IF D2>20 THEN 1100 930 IF D2>.5 THEN 1120 940 LET L(0)=9 950 GOTO 1470 952 IF S2+Q+(10*(F-1)/18)<(F-1)*(72+((H+1)/.85))/18 THEN 956 954 GOTO 752 956 LET Q = Q+1 957 IF S1/2<>INT(S1/2) THEN 1011 958 GOTO 862 960 PRINT"YOU MAY NOW GUAGE YOUR DISTANCE BY PERCENT .01 TO .99" 961 PRINT"PERCENT FULL SWING "; 970 INPUT W 972 PRINT 980 IF W>1 THEN 680 985 I F L(0) = 5 THEN 1280 990 IF C=14 THEN 760 1000 LET C = C-10 1010 GOTO 760 1011 IF D<95 THEN 862 1012 PRINT"BALL HIT TREE - BOUNCED INTO ROUGH";D-75;"YARDS FROM HOLE." 1014 LET D=D-75 1018 GOTO 620 1020 IF O<30 THEN 1150 1022 IF J>0 THEN 1150 1030 IF T>0 THEN 1070 1035 LET S9=(S2+1)/15 1036 IF INT(S9)=S9 THEN 1075 1040 PRINT"YOU HOOKED- "; 1050 LET L(0)=L(2) 1055 IF O>45 THEN 1092 1060 GOTO 320 1070 LET S9=(S2+1)/15 1071 IF INT(S9)=S9 THEN 1040 1075 PRINT"YOU SLICED- "; 1080 LET L(0)=L(1) 1090 GOTO 1055 1092 PRINT"BADLY." 1094 GOTO 320 1100 LET L(0)=5 1110 GOTO 320 1120 LET L(0)=8 1130 LET D2=INT(D2*3) 1140 GOTO 1380 1150 LET L(0)=1 1160 GOTO 320 1170 LET D1=INT(.85*D1) 1180 GOTO 830 1190 IF L(0)>6 THEN 1260 1200 PRINT"YOUR SHOT WENT INTO WATER." 1210 LET S1 = S1+1 1220 PRINT"PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION." 1230 LET J=J+1 1240 LET L(0)=1 1242 LET D=B 1250 GOTO 620 1260 PRINT"YOUR SHOT WENT OUT OF BOUNDS." 1270 GOTO1210 1280 IF T=3 THEN 1320 1300 LET D2=1+(3*INT((80/(40-H))*RND(R))) 1310 GOTO 1380 1320 IF RND(R)>N THEN 1360 1330 LET N=N*.2 1340 PRINT"SHOT DUBBED, STILL IN TRAP." 1350 GOTO 620 1360 LET N=.8 1370 GOTO 1300 1380 PRINT"ON THE GREEN";D2;"FEET FROM THE PIN." 1381 PRINT"CHOOSE YOUR PUTT DISTANCE BY POTENCY NUMBER 1 TO 13." 1382 PRINT "PUTT POTENCY NUMBER"; 1400 INPUT I 1410 LET S1 = S1+1 1420 IF S1+1-P>(H*.072)+2 THEN 1470 1425 IF K>2 THEN 1470 1428 LET K=K+1 1430 IF T=4 THEN 1530 1440 LET D2=D2-I*(4+2*RND(R))+1.5 1450 IF D2<-2 THEN 1560 1460 IF D2>2 THEN 1500 1470 PRINT"YOU HOLED IT" 1472 PRINT 1480 LET F=F+1 1490 GOTO 230 1500 PRINT"PUTT SHORT." 1505 LET D2=INT(D2) 1510 GOTO 1380 1530 LET D2=D2-I*(4+1*RND(R))+1 1550 GOTO 1450 1560 PRINT"PASSED BY CUP." 1570 LET D2=-D2 1580 GOTO 1505 1590 READ D,P,L(1),L(2) 1595 PRINT 1600 PRINT"YOU ARE AT TEE OF HOLE";F;" DISTANCE";D;"YARDS, PAR";P; 1605 LET G3=G3+P 1620 PRINT"ON YOUR RIGHT IS "; 1630 LET X=1 1640 GOSUB 400 1650 PRINT"ON YOUR LEFT IS "; 1660 LET X=2 1670 GOSUB 400 1680 GOTO 620 1690 RETURN 1700 DATA 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2 1702 DATA 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4 1704 DATA 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2 1706 DATA 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2 1708 DATA 180,3,6,2,550,5,6,6 1710 PRINT 1750 LET G2=G2+S1 1760 PRINT"TOTAL PAR FOR";F-1;"HOLES IS";G3;" YOUR TOTAL IS";G2 1761 IF G1=F-1 THEN 1770 1765 GOTO 292 1770 END 1 REM LIFE CLARK BAKER 3/72 C.O.G. 2 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 3 X1=1\Y1=1\X2=24\Y2=70 4 PRINT "ENTER YOUR PATTERN - END BY " 5 PRINT "ANSWERING THE ? WITH THE LETTER 'Z'" 10 DIM A(24,70),B$(24,24) 40 C=1 50 INPUT B$(C)\IF SEG$(B$(C),1,1)="Z" GOTO 80 55 B$(C)=SEG$(B$(C),1,LEN(B$(C))) 60 C=C+1 70 GO TO 50 80 L=0\C=C-1 90 FOR X=1 TO C 100 IF LEN(B$(X))=<L THEN 110\L=LEN(B$(X)) 110 NEXT X 120 X1=INT(11-C/2) 130 Y1=INT(33-L/2) 140 FOR X=1 TO C 150 FOR Y=1 TO LEN(B$(X)) 160 IF SEG$(B$(X),Y,Y)=" " THEN 170\A(X1+X,Y1+Y)=1\P=P+1 170 NEXT Y 180 NEXT X 200 PRINT 210 PRINT "GENERATION:";G,"POPULATION:";P;\IF I9<>-1 GOTO 215\PRINT "INVALID!"; 215 X3=24\Y3=70\X4=1\Y4=1\P=0 220 G=G+1 225 PRINT 230 FOR X=X1 TO X2 240 PRINT 250 FOR Y=Y1 TO Y2 253 IF A(X,Y)<>2 THEN 256\A(X,Y)=0\GO TO 270 256 IF A(X,Y)<>3 THEN 260\A(X,Y)=1\GO TO 261 260 IF A(X,Y)<>1 THEN 270 261 PRINT TAB(Y);"*"; 262 IF X=>X3 GOTO 264\X3=X 264 IF X=<X4 GOTO 266\X4=X 266 IF Y=>Y3 GOTO 268\Y3=Y 268 IF Y=<Y4 GOTO 270\Y4=Y 270 NEXT Y 290 NEXT X 295 PRINT 298 PRINT 299 X1=X3\X2=X4\Y1=Y3\Y2=Y4 301 IF X1>=3 THEN 303 \ X1=3\I9=-1 303 IF X2<=22 THEN 305 \X2=22\I9=-1 305 IF Y1>=3 THEN 307 \Y1=3\I9=-1 307 IF Y2=<68 THEN 309 \ Y2=68\I9=-1 309 P=0 500 FOR X=X1-1 TO X2+1 510 FOR Y=Y1-1 TO Y2+1 520 C=0 530 FOR I=X-1 TO X+1 540 FOR J=Y-1 TO Y+1 550 IF A(I,J)<1 GOTO 560\IF A(I,J)>2 THEN 560\ C=C+1 560 NEXT J 570 NEXT I 580 IF A(X,Y)=0 THEN 610 590 IFC=3 GOTO 595\IFC=4 GOTO 595\A(X,Y)=2\GOTO 600 595 P=P+1 600 GO TO 620 610 IF C<>3 THEN 620\A(X,Y)=3\P=P+1 620 NEXT Y 630 NEXT X 635 X1=X1-1\Y1=Y1-1\X2=X2+1\Y2=Y2+1 640 GO TO 210 650 END 1PRINT"COMPETITIVE LIFE, YOU MUST KNOW THE RULES TO PLAY" 2 REM *** WRITTEN BY BRIAN WYVILL, UNIV OF BRADFORD, ENGLAND 3 DATA 3,102,103,120,130,121,112,111,12 4 DATA 21,30,1020,1030,1011,1021,1003,1002,1012 5 DIM N1(6,6),K1(18),A1(16),X(2),Y(2) 6 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 10 FORM=1TO18\READK1(M)\NEXTM 13 DATA-1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1,1,1,1 14 FORO1=1TO16\READA1(O1)\NEXTO1 20 GOTO500 50 FORJ=1TO5 51 FORK=1TO5 55 IFN1(J,K)>99 GOTO 56\GOTO 60 56 GOSUB 200 60 NEXTK 65 NEXTJ 90 LETK=0\LETM2=0\LETM3=0 99 FORJ=0TO6\PRINT 100 FORK=0TO6 101 IF J=0 GOTO 102\IF J<>6 GOTO 105 102 IFK<>6 GOTO 103\PRINT 0;\GOTO 125 103 PRINTK;\GOTO120 105 IF K=0 GOTO 106\IF K<>6 GOTO 110 106IF J<>6 GOTO 107\PRINT 0;\GOTO 126 107 PRINTJ;\GOTO120 110 GOSUB300 120 NEXTK 125 NEXTJ 126 RETURN 200 LETB=1\IFN1(J,K)=<999 GOTO 220\B=10 220 FORO1=1TO15STEP2 230 LETN1(J+A1(O1),K+A1(O1+1))=N1(J+A1(O1),K+A1(O1+1))+B 231 NEXTO1 239 RETURN 300 IFN1(J,K)<3THEN399 305 FORO1=1TO18 310 IFN1(J,K)=K1(O1)THEN350 315 NEXTO1 320 GOTO399 350 IFO1>9THEN360 351 LETN1(J,K)=100\LETM2=M2+1\PRINT" * "; 355 RETURN 360 LET N1(J,K)=1000\LET M3=M3+1\PRINT" # "; 365 RETURN 399 LETN1(J,K)=0\PRINT" ";\RETURN 500 PRINT"SET UP THE BOARD"\PRINT"AND LET'S PLAY..."\PRINT 505 LETM2=0\LETM3=0 510 FORJ=1TO5 511 FORK=1TO5 515 LETN1(J,K)=0 516 NEXTK 517 NEXTJ 519 FORB=1TO2\LETP1=3\IFB<>2 GOTO 520\P1=30 520 PRINT"PLAYER";B;"3 LIVE PIECES" 535 FORK1=1TO3\GOSUB700 540 LETN1(X(B),Y(B))=P1\NEXTK1 542 NEXTB 559 GOSUB90 560 PRINT\GOSUB50 570 IF M2<>0 GOTO 571\IFM3=0GOTO 574 571 IFM3<>0 GOTO 572\B=1\GOTO 574 572 IFM2<>0 GOTO 573\B=2\GOTO 575 573 GOTO580 574 PRINT\PRINT "A DRAW GAME"\GOTO 1 575 PRINT\PRINT "PLAYER";B;"IS THE WINNER"\RESTORE\GOTO 1 580 FORB=1TO2\PRINT\PRINT"PLAYER";B;\GOSUB700 581 IFB=99THEN560 582 NEXTB 586 LETN1(X(1),Y(1))=100\LETN1(X(2),Y(2))=1000 596 GOTO 560 700 PRINT "X,Y"\INPUT Y(B),X(B) 705 IFX(B)>5 GOTO 706\IFX(B)>0 GOTO 708 706 GOTO750 708 IFY(B)>5 GOTO 710\IF Y(B)>0 GOTO 715 710 GOTO750 715 IFN1(X(B),Y(B))<>0THEN750 720 IFB<>1 GOTO 725\RETURN 725 IF X(1)<>X(2) GOTO 730\IF Y(1)=Y(2) GOTO 740 730 RETURN 740 PRINT"SAME COORD. SET TO 0" 741 N1(X(B)+1,Y(B)+1)=0\B=99\RETURN 750 PRINT"ILLEGAL COORDS. RETYPE"\GOTO 700 900 END 1 DIM A(50),B(15) 2DEFFNA(X)=INT(10*RND(X)) 3DEFFNB(X)=X-100*INT(X/100) 4PRINT"WELCOME TO THE HALLDEN CASINO. WE EACH HAVE $200" 5PRINT"I WILL OPEN THE BETTING BEFORE THE DRAW; YOU OPEN AFTER" 6PRINT"WHEN YOU FOLD, BET 0; TO CHECK, BET .5" 7PRINT"ENOUGH TALK -- LET'S GET DOWN TO BUSINESS" 8PRINT 9LETO=1 10LETC=200 11LETS=200 12LETP=0 13RANDOMIZE 14PRINT 15IFC<=5THEN367 16PRINT"THE ANTE IS $5. I WILL DEAL" 17PRINT 18IFS>5THEN20 19GOSUB383 20LETP=P+10 21LETS=S-5 22LETC=C-5 23FORZ=1TO10 24GOSUB174 25NEXTZ 26PRINT"YOUR HAND:" 27LETN=1 28GOSUB185 29LETN=6 30LETI=2 31GOSUB217 32PRINT 33IFI<>6THEN47 34IFFNA(0)<=7THEN37 35LETX=11100 36GOTO42 37IFFNA(0)<=7THEN40 38LETX=11110 39GOTO42 40IFFNA(0)>=1THEN45 41LETX=11111 42LETI=7 43LETZ=23 44GOTO58 45LETZ=1 46GOTO51 47IFU>=13THEN54 48IFFNA(0)>=2THEN50 49GOTO42 50LETZ=0 51LETK=0 52PRINT"I CHECK" 53GOTO62 54IFU<=16THEN57 55LETZ=2 56IFFNA(0)>=1THEN58 57LETZ=35 58LETV=Z+FNA(0) 59GOSUB348 60 PRINT "I'LL OPEN WITH ";V 61LETK=V 62GOSUB305 63GOSUB65 64GOTO82 65IFI<>3THEN76 66PRINT 67PRINT"I WIN" 68LETC=C+P 69PRINT"NOW I HAVE $";C;"AND YOU HAVE $";S 70PRINT"DO YOU WISH TO CONTINUE"; 71INPUTH$ 72IFH$="YES"THEN12 73IFH$="NO"THEN410 74PRINT"ANSWER YES OR NO, IDIOT" 75GOTO70 76IFI<>4THEN81 77PRINT 78PRINT"YOU WIN" 79LETS=S+P 80GOTO69 81RETURN 82PRINT 83 PRINT"NOW WE DRAW -- HOW MANY CARDS DO YOU WANT"; 84INPUTT 85IFT=0THEN98 86LETZ=10 87IFT<4THEN90 88PRINT"YOU CAN'T DRAW MORE THAN THREE CARDS" 89GOTO84 90PRINT"WHAT ARE THEIR NUMBERS" 91FOR Q=1TOT 92INPUTU 93GOSUB173 94NEXTQ 95PRINT"YOUR NEW HAND:" 96LETN=1 97GOSUB185 98LETZ=10+T 99FORU=6TO10 100IFINT(X/10^(U-6))<>10*INT(X/10^(U-5))THEN102 101GOSUB173 102NEXTU 103PRINT 104PRINT"I AM TAKING";Z-10-T;"CARD"; 105IFZ=11+TTHEN109 106PRINT"S" 107PRINT 108GOTO110 109PRINT 110LETN=6 111LETV=I 112LETI=1 113GOSUB217 114LETB=U 115LETM=D 116IFV<>7THEN119 117LETZ=28 118GOTO133 119IFI<>6THEN122 120LETZ=1 121GOTO133 122IFU>=13THEN127 123LETZ=2 124IFFNA(0)<>6THEN126 125LETZ=19 126GOTO133 127IFU>=16THEN132 128LETZ=19 129IFFNA(0)<>8THEN131 130LETZ=11 131GOTO133 132LETZ=2 133LETK=0 134GOSUB305 135IFT<>.5THEN145 136IFV=7THEN140 137IFI<>6THEN140 138PRINT"I'LL CHECK" 139GOTO146 140LETV=Z+FNA(0) 141GOSUB348 142 PRINT "I'LL BET";V 143LETK=V 144GOSUB306 145GOSUB65 146PRINT 147PRINT"NOW WE COMPARE HANDS" 148LETJ$=H$ 149LETK$=I$ 150PRINT"MY HAND:" 151LETN=6 152GOSUB185 153LETN=1 154GOSUB217 155PRINT 156PRINT"YOU HAVE "; 157LETK=D 158GOSUB369 159LETH$=J$ 160LETI$=K$ 161LETK=MOTO 310 240 IF K<8 THEN 260 250 IF K<=200 GO TO 310 260 PRINT "NOT POSSIBLE",,,,"K"; 270 INPUT K \ GOTO 230 310 IF M-N-.001 <=0 GOTO410 320 IF T<.001 GOTO 210 330 LET S=T\IF N+S*K<=M GO TO 350 340 LET S=(M-N)/K 350 LET I0=1 \ GOTO 900 360 IF I <= 0 GOT O 710 370 IF V<=0 GO TO 380 375 IF J<0 GOTO 810 380 LET I0=1\GOTO600 410 PRINT"FUEL OUT AT ";L;"SECS." 420 LET S=(-V+SQR(V*V+2*A*G))/G 430 LET V = V+G*S 440 LET L=L+S 510 PRINT"ON THE MOON AT ";L;"SECS." 511 LET W = 3600*V 514 PRINT "IMPACT VELOCITY OF ";W;"M.P.H." 520 PRINT "FUEL LEFT ";M-N;"LBS." 530 IF W>=1 GOTO 550 540 PRINT "PERFECT LANDING! CONGRATULATIONS!!"\ GOTO 590 550 IF W >=10 THEN 560 552 PRINT "VERY GOOD LANDING, NOT PERFECT YET."\GOTO590 560 IF W >= 25 THEN 570 562 PRINT "A FAIR LANDING, NO CRAFT DAMAGE."\GOTO590 570 IF W >= 60 THEN580 572 PRINT "CRAFT DAMAGE -- BETTER LUCK NEXT TIME."\GOTO 590 580 PRINT "SORRY, BUT THERE WERE NO SURVIVORS." 585 PRINT "IN FACT YOU BLASTED A NEW LUNAR CRATER ";W*.277777;" FEET DEEP." 590 PRINT\PRINT\PRINT "TRY AGAIN? (Y,N,RESTART, OR LOW WINDOW)"; 592 INPUT R$\R$=SEG$(R$,1,1) 593 IF R$="Y" THEN 90 \ IF R$="R" THEN 1200 \ IF R$="L" THEN 1100 595 PRINT\ PRINT "CONTROL OUT" \ GOTO 1800 600 LET L=L+S 610 LET T = T-S 620 LET M=M-S*K 630 LET A=I 640 LET V=J 650 IF I0=1 GO TO 310 660 IF I0=3 GO TO 850 710 IF S< .005 GO TO 510 720 LET S= 2*A/(V+SQR(V*V+2*A*(G-Z*K/M))) 730 LET I0=2 \GOTO 900 810 LET W=(1-M*G/(Z*K))/2 820 LET S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05 825 LET I0=3 \GOTO 900 830 IF I<=0 THEN 710 840 GOTO 600 850 IF J>=0 THEN 310 860 IF V<=0 GO TO 310 870 GOTO 810 900 LET Q=S*K/M 905 IF Q<=0 THEN 1000 910 LET J=V+G*S+Z*(-Q-(Q^2)/2-(Q^3)/3-(Q^4)/4-(Q^5)/5) 920 LET I=A-G*S*S/2-V*S+Z*S*(Q/2+Q^2/6+Q^3/12+Q^4/20+Q^5/30) 930 IF I0=1 GOTO 360 940 IF I0=2 GOTO 600 950 IF I0=3 GOTO 830 1000 LET J=V+G*S 1010 LET I=A-G*S*S/2-V*S 1020 GOTO930 1100 LET L=140 1110 LET A=2.382342 1120 LET V=.1257558 1130 LET M=18500 1140 LET N=16500 1150 GOTO 170 1200 M=M1 \ L=L1 \ V=V1 \ A=A1 \ GOTO 210 1800 END 5 REM **** WRITTEN BY ERIC PETERS, DIGITAL 10 REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL 20 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 70 PRINT "LUNAR LANDING SIMULATION" 80 PRINT "----- ------- ----------"\PRINT 100 PRINT "DO YOU WANT INSTRUCTIONS (YES OR NO)";\INPUT A$ 120 IF A$="NO" THEN 390 160 PRINT 200 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL" 210 PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A" 220 PRINT "DOWNWARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN." 225 PRINT 230 PRINT "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:" 240 PRINT "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING" 250 PRINT " FUEL WILL BE REPORTED." 260 PRINT "(2) AFTER THE REPORT, A '?' WILL BE TYPED. ENTER THE" 270 PRINT " NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE" 280 PRINT " NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT" 290 PRINT " BY 1 FT/SEC." 310 PRINT "(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR" 320 PRINT " 30 UNITS OF FUEL PER SECOND." 330 PRINT "(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE" 340 PRINT " WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A" 350 PRINT " REPORT OF YOUR LANDING SPEED AND REMAINING FUEL." 360 PRINT "(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR," 370 PRINT " BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL" 380 PRINT " YOU CONTACT THE LUNAR SURFACE."\PRINT 390 PRINT "BEGINNING LANDING PROCEDURE....."\PRINT 410 PRINT "G O O D L U C K ! ! !" 420 PRINT\PRINT 440 PRINT "SEC FEET SPEED FUEL PLOT OF DISTANCE" 450 PRINT 455 T=0\H=500\V=50\F=120 490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*" 500 INPUT B 510 IF B<0 THEN 650 520 IF B<=30 THEN 530\B=30 530 IF B<=F THEN 540\B=F 540 V1=V-B+5 560 F=F-B 570 H=H-.5*(V+V1) 580 IF H<=0 THEN 670 590 T=T+1 600 V=V1 610 IF F>0 THEN 490 615 IF B=0 THEN 640 620 PRINT "*** OUT OF FUEL ***" 640 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*" 650 B=0 660 GOTO 540 670 PRINT "*** CONTACT ***" 680 H=H+.5*(V+V1) 690 IF B=5 THEN 720 700 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B) 710 GOTO 730 720 D=H/V 730 V1=V+(5-B)*D 760 PRINT "TOUCHDOWN AT";T+D;"SECONDS." 770 PRINT "LANDING VELOCITY =";V1;"FT/SEC" 780 PRINT F;"UNITS OF FUEL REMAINING." 790 IF V1<>0 THEN 810 800 PRINT "CONGRATULATIONS!! A PERFECT LANDING!" 805 PRINT "YOUR LICENSE WILL BE RENEWED.......LATER." 810 IF ABS(V1)<2 THEN 840 820 PRINT "***** SORRY, BUT YOU BLEW IT!!!!" 830 PRINT "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN." 840 PRINT\PRINT\PRINT 850 PRINT "ANOTHER MISSION";\INPUT A$ 870 IF A$="YES" THEN 390 880 PRINT\PRINT "CONTROL OUT."\PRINT 999 END 1000 REM *** GAME OF ROULETTE WRITTEN BY DAVID JOSLIN 1010 REM *** CONVERTED TO BASIC-PLUS BY DAVID AHL, DIGITAL 1015 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 1020 PRINT "WELCOME TO THE ROULETTE TABLE" 1030 PRINT 1040 PRINT "WANT INSTRUCTIONS (Y OR N)";\INPUT Y$ 1060 IF Y$="N" THEN 1550 1070 PRINT 1080 PRINT "THIS IS THE BETTING LAYOUT" 1090 PRINT " (*=RED)" 1100 PRINT 1110 PRINT " 1* 2 3*" 1120 PRINT " 4 5* 6 " 1130 PRINT " 7* 8 9*" 1140 PRINT "10 11 12*" 1150 PRINT "---------------" 1160 PRINT "13 14* 15 " 1170 PRINT "16* 17 18*" 1180 PRINT "19* 20 21*" 1190 PRINT "22 23* 24 " 1200 PRINT "---------------" 1210 PRINT "25* 26 27*" 1220 PRINT "28 29 30*" 1230 PRINT "31 32* 33 " 1240 PRINT "34* 35 36*" 1250 PRINT "---------------" 1260 PRINT " 00 0 " 1270 PRINT 1280 PRINT "TYPES OF BETS" 1290 PRINT 1300 PRINT "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET" 1310 PRINT "ON THAT NUMBER" 1320 PRINT "THESE PAY OFF 35:1" 1330 PRINT 1340 PRINT "THE 2:1 BETS ARE:" 1350 PRINT " 37) 1-12 40) FIRST COLUMN" 1360 PRINT " 38) 13-24 41) SECOND COLUMN" 1370 PRINT " 39) 25-36 42) THIRD COLUMN" 1380 PRINT 1390 PRINT "THE EVEN MONEY BETS ARE:" 1400 PRINT " 43) 1-18 46) ODD" 1410 PRINT " 44) 19-36 47) RED" 1420 PRINT " 45) EVEN 48) BLACK" 1430 PRINT 1440 PRINT " 49)0 AND 50)00 PAY OFF 35:1" 1450 PRINT " NOTE: 0 AND 00 DO NOT COUNT UNDER ANY" 1460 PRINT " BETS EXCEPT THEIR OWN" 1470 PRINT 1480 PRINT "WHEN I ASK FOR EACH BET,TYPE THE NUMBER" 1490 PRINT "AND THE AMOUNT,SEPERATED BY A COMMA" 1500 PRINT "FOR EXAMPLE:TO BET $500 ON BLACK,TYPE 48,500" 1520 PRINT 1530 PRINT "MINIMUM BET IS $5,MAXIMUM IS $500" 1540PRINT"YOU'RE STARTING WITH $1000; I HAVE $100,000 IN THE BANK"\PRINT 1550 REM-PROGRAM BEGINS HERE 1560 REM-TYPE OF BET(NUMBER) ODDS 1580 DIM B(100),C(100),T(100),X(38),A(50) 1590 DIM B$(26) 1600 FOR I=1 TO 38\X(I)=0\NEXT I 1610 P=1000 1620 D=100000. 1630 PRINT "HOW MANY BETS"; 1640 INPUT Y 1650 IF Y<1 THEN 1630\IF Y<>INT(Y) THEN 1630 1660 FOR I=1 TO 50\A(I)=0\NEXT I 1670 FOR C=1 TO Y 1680 PRINT "NUMBER";C; 1690 INPUT X,Z 1700 B(C)=Z 1710 T(C)=X 1720 IF X<1 THEN 1680\IF X>50 THEN 1680\IF X<>INT(X) THEN 1680 1730 IF Z<1 THEN 1680\IF Z<>INT(Z) THEN 1680 1740 IF Z<5 THEN 1680\IF Z>500 THEN 1680 1750 IF A(X)=0 THEN 1780 1760 PRINT "YOU MADE THAT BET ONCE ALREADY,DUM-DUM" 1770 GOTO 1680 1780 A(X)=1 1790 NEXT C 1800 PRINT "SPINNING" 1810 PRINT 1820 PRINT 1830 S=INT(RND(0)*100) 1840 IF S=0 THEN 1830\IF S>38 THEN 1830 1850 X(S)=X(S)+1 1860 IF S<37 THEN 1920 1870 IF S=37 THEN 1900 1880 PRINT "00" 1890 GOTO 2020 1900 PRINT "0" 1910 GOTO 2020 1920 RESTORE 1930 FOR I=1 TO 18 1940 READ R 1950 IF R=S THEN 2000 1960 NEXT I 1970 A$="BLACK" 1980 PRINT S;A$ 1990 GOTO 2020 2000 A$="RED" 2010 GOTO 1980 2020 PRINT 2030 FOR C=1 TO Y 2040 IF T(C)<37 THEN 2710 2050 F=T(C)-36\IF F=1 GOTO 2090\IF F=2 GOTO 2190 2052 IF F=3 GOTO 2220\IF F=4 GOTO 2250\IF F=5 GOTO 2300 2054 IF F=6 GOTO 2350\IF F=7 GOTO 2400\IF F=8 GOTO 2470 2056 IF F=9 GOTO 2500\IF F=10 GOTO 2530\IF F=11 GOTO 2560 2058 IF F=12 GOTO 2630 2070 GOTO 2710 2080 STOP 2090 REM 1-12(37) 2:1 2100 IF S <= 12 THEN 2150 2110 PRINT "YOU LOSE";B(C);"DOLLARS ON BET";C 2120 D=D+B(C) 2130 P=P-B(C) 2140 GOTO 2180 2150 PRINT "YOU WIN";B(C)*2;"DOLLARS ON BET";C 2160 D=D-B(C)*2 2170 P=P+B(C)*2 2180 GOTO 2810 2190 REM 13-24(38) 2:1 2200 IF S=<12 GOTO 2210\IF S<25 GOTO 2150 2210 GOTO 2110 2220 REM 25-36(39) 2:1 2230 IF S=<24 GOTO 2240\IF S<37 GOTO 2150 2240 GOTO 2110 2250 REM FIRST COLUMN(40) 2:1 2260 FOR I=1 TO 34 STEP 3 2270 IF S=I THEN 2150 2280 NEXT I 2290 GOTO 2110 2300 REM SECOND COLUMN(41) 2:1 2310 FOR I=2 TO 35 STEP 3 2320 IF S=I THEN 2150 2330 NEXT I 2340 GOTO 2110 2350 REM THIRD COLUMN(42) 2:1 2360 FOR I=3 TO 36 STEP 3 2370 IF S=I THEN 2150 2380 NEXT I 2390 GOTO 2110 2400 REM 1-18(43) 1:1 2410 IF S<19 THEN 2430 2420 GOTO 2110 2430 PRINT "YOU WIN";B(C);"DOLLARS ON BET";C 2440 D=D-B(C) 2450 P=P+B(C) 2460 GOTO 2810 2470 REM 19-36(44) 1:1 2480 IF S=<18 GOTO 2490\IF S<37 GOTO 2430 2490 GOTO 2110 2500 REM EVEN(45) 1:1 2510 IF S/2<> INT(S/2) THEN 2520\IF S<37 THEN 2430 2520 GOTO 2110 2530 REM ODD(46) 1:1 2540 IF S/2=INT(S/2) THEN 2550\IF S<37 THEN 2430 2550 GOTO 2110 2560 REM RED(47) 1:1 2570 RESTORE 2580 FOR I=1 TO 18 2590 READ R 2600 IF S=R THEN 2430 2610 NEXT I 2620 GOTO 2110 2630 REM BLACK(48) 1:1 2640 RESTORE 2650 FOR I=1 TO 18 2660 READ R 2670 IF S=R THEN 2110 2680 NEXT I 2690 IF S>36 THEN 2110 2700 GOTO 2430 2710 REM--1TO36,0,00(1-36,49,50)35:1 2720 IF T(C)<49 THEN 2760 2730 IF T(C)<>49 GOTO 2740\IF S=37 GOTO 2780 2740 IF T(C)<>50 GOTO 2750\IF S=38 GOTO 2780 2750 GOTO 2110 2760 IF T(C)=S THEN 2780 2770 GOTO 2110 2780 PRINT "YOU WIN";B(C)*35;"DOLLARS ON BET";C 2790 D=D-B(C)*35 2800 P=P+B(C)*35 2810 NEXT C 2820 PRINT 2830 PRINT "TOTALS:","ME","YOU" 2840 PRINT " ",D,P 2850 IF P>0 THEN 2880 2860 PRINT "OOPS! YOU JUST SPENT YOUR LAST DOLLAR" 2870 GOTO 3190 2880 IF D>0 THEN 2920 2890 PRINT "YOU BROKE THE HOUSE!" 2900 P=101000. 2910 GOTO 2960 2920 PRINT "AGAIN"; 2930 INPUT Y$ 2935 Y$=SEG$(Y$,1,1) 2940 IF Y$="Y" THEN 1630 2950 DATA 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36 2960 IF P<1 THEN 3190 2970 PRINT "TO WHOM SHALL I MAKE OUT THE CHECK"; 2980 INPUT B$ 2990 PRINT 3000 PRINT "-------------------------------------------------------" 3010 PRINT TAB(50);"CHECK NO. ";INT(RND(0)*100) 3020 PRINT 3040 PRINT TAB(40);DAT$(0) 3050 PRINT 3060 PRINT 3070 PRINT "PAY TO THE ORDER OF-----";B$;"-----$ "; 3080 PRINT P 3090 PRINT 3100 PRINT 3110 PRINT TAB(10),"THE MEMORY BANK OF VIRGINIA" 3120 PRINT 3130 PRINT TAB(40),"THE COMPUTER" 3140 PRINT TAB(40);"----------X-----" 3150 PRINT 3160 PRINT "--------------------------------------------------------------" 3170 PRINT "COME BACK SOON!" 3180 GOTO 3210 3190 PRINT "THANKS FOR YOUR MONEY" 3200 PRINT "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL" 3210 PRINT 3220 GOTO 3420 3420 END 1 DATA 2,3,4,9,1,5,8,7,6 2 DATA 2,3,4,9,1,5,8,7,6,2,9,8,3,1,7 3 DATA 4,5,6,2,1,6,4,1,8 4 DATA 0,1,-1,1,-1,1,-1,1,-1 5 DIM A(9) 6 DIM B(9) 7 DIM C(24) 8 DIM D(24) 9 DIM F(9) 10 FOR I=1 TO 9 11 READ A(I) 12 NEXT I 13 FOR I=1 TO 24 14 READ C(I) 15 NEXT I 16 FOR I=1 TO 9 17 READ F(I) 18 NEXT I 19 PRINT "TIC-TAC-TOE" 20 PRINT 21 PRINT "THE MOVE POSITIONS ARE:" 22 PRINT 23 PRINT "1 2 3" 24 PRINT "4 5 6" 25 PRINT "7 8 9" 26 GOSUB 133 27 GOSUB 133 32 LET E=0 33 LET G=2 34 LET K=0 35 FOR I=1 TO 9 36 LET B(I)=0 37 NEXT I 38 FOR I=1 TO 24 39 LET D(I)=0 40 NEXT I 41 PRINT 42 PRINT 43 PRINT "--BEGIN GAME--" 44 PRINT "YOU WILL BE 'X', I WILL BE 'O'" 47 PRINT "TYPE 0 IF YOU WANT ME TO GO FIRST"; 48 INPUT I 49 IF I=0 THEN 65 50 LET L=-1 51 PRINT "YOUR MOVE"; 52 INPUT I 53 PRINT 54 PRINT 55 LET H=INT(ABS(I)) 56 IF H<>I THEN 50 57 IF H < 1 THEN 50 58 IF H>9 THEN 50 59 LET H=A(H) 60 IF B(H) <> 0 THEN 50 61 IF K=1 THEN 64 62 LET G=F(H) 63 LET K=1 64 GOSUB 111 65 LET L=1 66 FOR I=1 TO 22 STEP 3 67 IF D(I) + D(I+1) + D(I+2) = -3 THEN 92 68 NEXT I 69 FOR I=1 TO 22 STEP 3 70 IF D(I) + D(I+1) + D(I+2) = 2 THEN 90 71 NEXT I 72 FOR I=1 TO 22 STEP 3 73 IF D(I) + D(I+1) + D(I+2) = -2 THEN 106 74 NEXT I 75 IF E=1 THEN 77 76 IF G = -1 THEN 78 77 IF B(1)=0 THEN 100 78 IF G <> 0 THEN 82 79 FOR I=2 TO 8 STEP 2 80 IF B(I)=0 THEN 101 81 NEXT I 82 IF H=8 THEN 86 83 FOR I=H+1 TO 8 84 IF B(I)=0 THEN 101 85 NEXT I 86 FOR I=2 TO 9 87 IF B(I)=0 THEN 101 88 NEXT I 89 GO TO 98 90 PRINT "I WIN" 91 GOTO 900 92 PRINT "YOU ARE NOT ALLOWED TO WIN" 93 FOR I=1 TO 9 94 LET B(I)=1 95 NEXT I 96 GOSUB 117 97 GOTO 900 98 PRINT "DRAW" 99 GOTO 900 100 LET I=1 101 LET H=I 102 GOSUB 111 103 LET E=1 104 GOSUB 117 105 GO TO 50 106 FOR J=I TO I+2 107 IF D(J)=0 THEN 109 108 NEXT J 109 LET I=C(J) 110 GO TO 101 111 LET B(H)=L 112 FOR M=1 TO 24 113 IF C(M) <> H THEN 115 114 LET D(M)=L 115 NEXT M 116 RETURN 117 FOR N=1 TO 9 118 IF B(N)=0 THEN 200 119 NEXT N 120 IF N<100 THEN 98 121 FOR N=1 TO 9 STEP 3 122 FOR O= 0 TO 2 123 IF B(A(O+N))=0 THEN 127 124 IF B(A(O+N))=1 THEN 129 125 PRINT "X "; 126 GO TO 130 127 PRINT "- "; 128 GO TO 130 129 PRINT "O "; 130 NEXT O 131 PRINT 132 NEXT N 133 PRINT 136 RETURN 137 STOP 200 LET N=1000 210 GOTO 119 900 GOTO 910 910 PRINT "TRY AGAIN (IF SO TYPE 0)"; 920 INPUT I 930 IF I<>0 THEN 999 940 GOTO 27 999 END 1 REM THIS PROGRAM PLAYS THE CARD GAME OF WAR. THE ONLY CHANGE 2 REM IS THAT A TIE MAKES NO SCORE AT ALL. THE PACK IS READ IN 3 REM AND THEN SHUFFLES IN A RANDOM WAY. THE COMPUTER THEN DEALS THE 4 REM CARDS TWO AT A TIME AS LONG AS THE GAME COMTINUES. A RUNNING 5 REM SCORE IS KEPT. 6 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 100 PRINT "THIS IS THE CARD GAME OF WAR. EACH CARD IS GIVEN BY SUIT-#" 110 PRINT "AS S-7 FOR SPADE 7. "; 120 PRINT "DO YOU WANT DIRECTIONS"; 130 INPUT B$ 140 IF B$="NO" THEN 210 150 IF B$="YES" THEN 180 160 PRINT "YES OR NO, PLEASE. "; 170 GOTO 120 180 PRINT "THE COMPUTER GIVES YOU AND IT A 'CARD'. THE HIGHER 'CARD' "; 190 PRINT "(NUMERICALLY) WINS. THE GAME ENDS WHEN YOU CHOOSE NOT"; 200 PRINT " TO CONTINUE OR WHEN YOU HAVE FINISHED THE PACK." 210 PRINT 220 PRINT 230 DIM A$(52,3),L(54) 240 FOR I=1 TO 52 250 READ A$(I) 260 NEXT I 270 RANDOMIZE 280 FOR J=1 TO 52 290 LET L(J)=INT(52*RND(X)+1) 300 FOR K=1 TO J-1 310 IF L(K)<>L(J) THEN 340 320 LET J=J-1 330 GOTO 350 340 NEXT K 350 NEXT J 360 LET P=P+1 370 LET M1=L(P) 380 LET P=P+1 390 LET M2=L(P) 400 PRINT 410 PRINT 420 PRINT "YOU: ";A$(M1), "COMPUTER: ";A$(M2), 430 LET N1=INT((M1-.5)/4) 440 LET N2=INT((M2-.5)/4) 450 IF N1>=N2 THEN 490 460 LET A1=A1+1 470 PRINT "COMPUTER WINS.";PNT(7);PNT(7);PNT(7);PNT(7);PNT(7) 475 PRINT " YOU HAVE";B1;"; COMPUTER HAS";A1 480 GOTO 540 490 IF N1=N2 THEN 530 500 LET B1=B1+1 510 PRINT "YOU WIN. YOU HAVE";B1;"; COMPUTER HAS";A1 520 GOTO 540 530 PRINT "TIE. NO SCORE CHANGE." 540 IF L(P+1)=0 THEN 610 550 PRINT "DO YOU WANT TO CONTINUE"; 560 INPUT V$ 570 IF V$="YES" THEN 360 580 IF V$="NO" THEN 650 590 PRINT "YES OR NO, PLEASE. "; 600 GOTO 540 610 PRINT 620 PRINT 630 PRINT "YOU HAVE RUN OUT OF CARDS. FINAL SCORE: YOU--";B1; 640 PRINT "; COMPUTER--";A1 650 PRINT "THANKS FOR PLAYING. IT WAS FUN.";PNT(7);PNT(7) 660 DATA "S-2","H-2","C-2","D-2","S-3","H-3","C-3","D-3","S-4","H-4","C-4" 665 DATA "D-4","S-5","H-5","C-5" 670 DATA "D-5","S-6","H-6","C-6","D-6","S-7","H-7","C-7","D-7","S-8","H-8" 675 DATA "C-8","D-8","S-9","H-9" 680 DATA "C-9","D-9","S-10","H-10","C-10","D-10","S-J","H-J","C-J" 685 DATA "D-J","S-Q","H-Q","C-Q","D-Q" 690 DATA "S-K","H-K","C-K","D-K","S-A","H-A","C-A","D-A" 700 END 1 REM BOB DORES/WAR 2 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 3 PRINT "I AM AT WAR WITH YOU." 4 PRINT "WE HAVE 72000 SOLDIERS A PIECE." 5 PRINT "DISTRIBUTE YOUR FORCES." 6 PRINT " ","ME","YOU" 7 PRINT"ARMY","30000", 8 INPUT A 9 PRINT"NAVY","20000", 10 INPUT B 11 PRINT"A.F.","22000", 12 INPUT C 13 IF A+B+C>72000 THEN 5 14 D=30000 15 E=20000 16 F=22000 17 PRINT "YOU ATTACK FIRST. TYPE 1 FOR ARMY 2 FOR NAVY" 18 PRINT "AND 3 FOR AIR FORCE." 19 INPUT Y 20 PRINT "HOW MANY MEN" 21 INPUT X 22 IF X<0 THEN 20 23 IF Y=2 GOTO 200\IF Y=3 GOTO 300 100 IF X>A THEN 20 105 IF X<A/3 THEN 120 110 IF X<2*A/3 THEN 150 115 GOTO 270 120 PRINT "YOU LOST";X;"MEN FROM YOUR ARMY." 125 A=INT(A-X) 130 GOTO 500 150 PRINT "YOU LOST";INT(X/3);"MEN, BUT I LOST";INT(2*D/3) 155 A=INT(A-X/3) 160 D=0 165 GOTO 500 200 IF X>B THEN 20 210 IF X<E/3 THEN 230 215 IF X<2*E/3 THEN 250 220 GOTO 270 230 PRINT "YOUR ATTACK WAS STOPPED!" 232 B=INT(B-X) 235 GOTO 500 250 PRINT "YOU DESTROYED";INT(2*E/3);"OF MY ARMY." 255 E=INT(E/3) 260 GOTO 500 270 PRINT"YOU SUNK 1 OF MY PATROL BOATS, BUT I WIPED OUT 2" 275 PRINT"OF YOUR A.F. BASES, AND 3 ARMY BASES." 280 A=INT(A/3) 285 C=INT(C/3) 290 E=INT(2*E/3) 293 GOTO 500 300 IF X>C THEN 20 310 IF X<C/3 THEN 350 320 IF X<2*C/3 THEN 370 330 GOTO 380 350 PRINT "YOUR ATTACK WAS WIPED OUT." 355 C=INT(C-X) 360 GOTO 500 370 PRINT "WE HAD A DOGFIGHT- YOU WON - AND FINISHED YOUR MISSION." 375 D=INT(2*D/3) 377 E=INT(E/3) 378 F=INT(F/3) 379 GOTO 500 380 PRINT "YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I" 381 PRINT "DESTROYED 2 NAVY BASES, AND BOMBED 3 ARMY BASES." 385 A=INT(A/4) 387 B=INT(B/3) 390 D=INT(2*D/3) 500 PRINT 501 PRINT,"YOU","ME" 510 PRINT"ARMY",A,D 520 PRINT"NAVY",B,E 530 PRINT"A.F.",C,F 1000 PRINT "WHAT IS YOUR NEXT MOVE?" 1010 PRINT "ARMY=1 NAVY=2 AIR FORCE=3" 1020 INPUT G 1030 PRINT "HOW MANY MEN" 1040 INPUT T 1045 IF T<0 THEN 1030 1050 IF G=2 GOTO 1700\IF G=3 GOTO 1800 1600 IF T>A THEN 1030 1610 IF T<D/2 THEN 1630 1615 PRINT "YOU DESTROYED MY ARMY!" 1616 D=0 1617 GOTO 2000 1630 PRINT "I WIPED OUT YOUR ATTACK" 1635 A=A-T 1640 GOTO 2000 1700 IF T>B THEN 1030 1710 IF T<E/2 THEN 1750 1720 GOTO 1770 1750 PRINT "I SUNK 2 OF YOUR BATTLESHIPS, AND MY AIR FORCE" 1751 PRINT "WIPED OUT YOUR UNGUARDED CAPITOL." 1755 A=A/4 1760 B=B/2 1765 GOTO 2000 1770 PRINT "YOUR NAVY SHOT DOWN 3 OF MY X111 PLANES ," 1771 PRINT"AND SUNK 3 BATTLESHIPS." 1775 F=2*F/3 1780 E=(E/2) 1790 GOTO 2000 1800 IF T>C THEN 1030 1810 IF T>F/2 THEN 1830 1820 GOTO 1850 1830 PRINT "MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT" 1831 PRINT "YOUR COUNTRY IN SHAMBLES." 1835 A=A/3 1837 B=B/3 1840 C=C/3 1845 GOTO 2000 1850 PRINT"ONE OF YOUR PLANES CRASHED INTO MY HOUSE. I AM DEAD." 1851 PRINT"MY COUNTRY FELL APART." 1860 GOTO 2010 2000 PRINT 2001 PRINT "FROM THE RESULTS OF BOTH OF YOUR ATTACKS," 2002 IF A+B+C>3/2*(D+E+F) THEN 2010 2005 IF A+B+C<2/3*(D+E+F) THEN 2015 2006 PRINT"THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR" 2007 PRINT"RESPECTIVE COUNTRIES, AND LIVE IN PEACE." 2008 GOTO 2020 2010 PRINT "YOU WON, OH! SHUCKS!!!!!" 2012 GOTO 2020 2015 PRINT "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU " 2016 PRINT "RIGHT FOR PLAYING THIS STUPID GAME!!!" 2020 END 10 PRINT"" 20 REM MODIFIED TO LOOK RESPECTABLE ON PDP-8'S BY KAY R. FISHER ...DEC 120PRINT 124 LET Y1 = 1970 130 PRINT" ENTER TODAY'S DATE IN THIS FORM: MONTH,DAY, YEAR"; 140 INPUT M1,D1,Y1 150 IF Y1>100 THEN 170 160 LET Y1 = Y1 + 1900 170 DEF FNA(A)=INT(A/4) 180 DIM T(12) 190 DEF FNB(A)=INT(A/7) 210 FOR I= 1 TO 12 220 READ T(I) 230 NEXT I 240 PRINT 241PRINT"THIS PROGRAM DEMONSTRATES OS8 BASIC AND ALSO GIVES " 242PRINT"FACTS ABOUT A DATE OF INTEREST TO YOU" 244 PRINT 245 PRINT"ENTER DATE OF BIRTH IN THIS FORM: MO,DAY,YEAR"; 250 INPUT M,D,Y 260 PRINT 270 IF Y - 75 >0 THEN 280 275 LET Y = Y+1900 280 LET I1 = INT((Y-1500)/100) 290 IF Y-1582<0 THEN 1300 300 LET A = I1*5+(I1+3)/4 310LET I2 = INT(A-FNB(A)*7) 320 LET Y2= INT(Y/100) 330 LET Y3 = INT(Y-Y2*100) 340 LET A = Y3/4+Y3+D+T(M)+I2 350 LET B = INT(A-FNB(A)*7)+1 360 IF M>2 THEN 470 370 IF Y3= 0 THEN 440 380 LET T1 = INT(Y-FNA(Y)*4) 390 IF T1<> 0 THEN 470 400 IF B<>0 THEN 420 410 LET B = 6 420 LET B = B-1 430 GOTO 470 440 LET A = I1-1 450 LET T1 = INT(A-FNA(A)*4) 460 IF T1 = 0 THEN 400 470 IF B <> 0 THEN 490 480 LET B = 7 490 IF (Y1*12+M1)*31+D1<(Y*12+M)*31+D THEN 550 500 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 530 510 PRINT M;"/";D;"/";Y;" WAS A "; 520 GOTO 570 530 PRINT M;"/";D;"/";Y;" IS A "; 540 GOTO 570 550 PRINT M;"/";D;"/";Y;" WILL BE A "; 570 IF B<>1 THEN 590 580 PRINT "SUNDAY" 590 IF B<>2 THEN 610 600 PRINT "MONDAY" 610 IF B<>3 THEN630 620 PRINT "TUESDAY" 630 IF B<>4 THEN 650 640 PRINT "WEDNESDAY" 650 IF B<>5 THEN 670 660 PRINT "THURSDAY" 670 IF B<>6 THEN 690 680 GOTO 1250 690 IF B<>7 THEN 710 700 PRINT "SATURDAY" 710 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 1120 720 LET I5=Y1-Y 730 PRINT 740 LET I6=M1-M 750 LET I7=D1-D 760 IF I7>=0 THEN 790 770 LET I6=I6-1 780 LET I7=I7+30 790 IF I6>=0 THEN 820 800 LET I5=I5-1 810 LET I6=I6+12 820 IF I5<0 THEN 1310 830 IF I7<>0 THEN 850 835 IF I6<>0 THEN 850 840 PRINT "****HAPPY BIRTHDAY*****" 850 PRINT " "," ","YEARS","MONTHS","DAYS" 860 PRINT "YOUR AGE ",I5,I6,I7 870 LET A8= (I5*365)+(I6*30)+I7+INT(I6/2) 880 LET K5=I5 890 LET K6=I6 900 LET K7=I7 920 LET E=Y+65 940 LET F=.35 950 PRINT "YOU HAVE SLEPT ", 960 GOSUB 1370 970 LET F=.17 980 PRINT "YOU HAVE EATEN ", 990 GOSUB 1370 1000 LET F=.23 1010 IF K5 > 3 THEN 1040 1020 PRINT"YOU HAVE PLAYED ", 1030 GOTO 1080 1040 IF K5 > 9 THEN 1070 1050 PRINT "YOU HAVE PLAYED/STUDIED", 1060 GOTO 1080 1070 PRINT "YOU HAVE WORKED/STUDIED", 1080 GOSUB 1370 1090 PRINT "YOU HAVE RELAXED ",K5,K6,K7 1100 PRINT 1110 PRINT " ","**YOU MAY RETIRE IN";E;"**" 1120 PRINT 1130 PRINT" CALCULATED BY THE BEST MINICOMPUTER TODAY - THE GREAT PDP-8" 1140 FOR Q=1 TO 2 1150 PRINT 1160 NEXT Q 1170 PRINT 1240 GOTO 240 1250 IF D=13 THEN 1280 1260 PRINT "FRIDAY " 1270 GOTO 710 1280 PRINT "FRIDAY THE THIRTEENT@---BEWARE!" 1290 GOTO 710 1300 PRINT "NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXPXII -" 1305 PRINT " THE CURRENT CALENDAR DID NOT EXIST BEFORE THAT YEAR." 1310 GOTO 1140 1330 DATA 0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5 1370 LET K1= INT(F*A8) 1380 LET I5 = INT(K1/365) 1390 LET K1 = K1-(I5*365) 1400 LET I6 = INT(K1/30) 1410 LET I7 = K1-(I6*30) 1420 LET K5 = K5-I5 1430 LET K6 = K6-I6 1440 LET K7 = K7-I7 1450 IF K7 >= 0 THEN 1480 1460 LET K7 = K7+30 1470 LET K6 = K6-1 1480 IF K6 > 0 THEN 1510 1490 LET K6 = K6+12 1500 LET K5 = K5-1 1510 PRINT I5,I6,I7 1520 RETURN 1530 IF K6 = 12 THEN 1550 1540 GOTO 1090 1550 LET K5 = K5+1 1560 LET K6=0 1570 GOTO 1090 1580 END 100 REM PROGRAM WRITTEN BY DANIEL R. VERNON 110 REM SENIOR AT BUTLER SENIOR HIGH SCHOOL 120 REM BUTLER, PENNSYLVANIA 16001 130 REM DATE: 2-1-73 140 REM COMPUTER SUPERVISION- MR. WILLIAM ELLIS 150 REM COMPUTER TOPICS INSTRUCTION- MR. ALBERT STEWART 160 REM 170 REM THIS PROGRAM IS DESIGNED TO CREATE POSTERS 180 REM 185 REM TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 190 DIM G$(54,1),H$(6,6),B$(54),G(6),A(54) 195 FILEV #1:"LPT:" 200 PRINT "INPUT HEIGHT IN INCHES"\INPUT L 205 PRINT "INPUT WIDTH IN INCHES"\INPUT R\S=0\A=R*2\C=A 210 PRINT"HOW FAR, IN INCHES FROM THE LEFT HAND SIDE, DO YOU WANT TO PLACE " 220 PRINT"THE LETTERS";\INPUT S\S=12*S 230 PRINT"INPUT MESSAGE HERE" 240 INPUT B$ 250 FOR I=1TO LEN(B$) 252 A(I)=ASC(SEG$(B$,I,I)) 253 NEXT I 260 H$(1)=" "\H$(2)=" "\H$(3)=" "\H$(4)=" " 261 H$(5)=" "\H$(6)=" "\H$=H$(L) 262 GOSUB 940 270 F=F+1\IF A(F)=0 GOTO 990\G(0)=L 271 FOR I=1 TO LEN(B$) 272 G$(I)=CHR$(A(I)) 280 NEXT I 290 FOR X=1TO A/2 291 PRINT#1: 292 NEXT X 295 G$=CHR$(A(F)) 297 FOR X=2 TO L\G$=G$&CHR$(A(F))\NEXT X 300 IF A(F)=46 GOTO 345\IFA(F)=36GOTO990\IFA(F)=32GOTO630\IFA(F)<27GOTO305 301 IF A(F)<48 GOTO 270\IF A(F)>57 GOTO 270 305 IFA(F)<27 GOTO310\IF A(F)=48 GOTO500\IF A(F)=49 GOTO 440 306 IFA(F)=50GOTO 620\IF A(F)=51 GOTO625\IF A(F)=52 GOTO 635 307 IF A(F)=53 GOTO 550\IF A(F)=54 GOTO 615\IF A(F)=55 GOTO 605 308 IF A(F)=56 GOTO 595\IF A(F)=57 GOTO 585 310 IF A(F)>26 GOTO 270\IF A(F)>15 GOTO 330 320 IF A(F)=1 GOTO 350\IF A(F)=2 GOTO 360\IF A(F)=3 GOTO 370 321 IF A(F)=4 GOTO 380\IF A(F)=5 GOTO 390\IF A(F)=6 GOTO 400 322 IF A(F)=7 GOTO 410\IF A(F)=8 GOTO 430\IF A(F)=9 GOTO 440 323 IF A(F)=10 GOTO 450\IF A(F)=11 GOTO 460\IF A(F)=12 GOTO 470 324 IF A(F)=13 GOTO 480\IF A(F)=14 GOTO 490\IF A(F)=15 GOTO 500 330 IF A(F)>26 GOTO 270\IF A(F)=16 GOTO 510\IF A(F)=17 GOTO 520 331 IF A(F)=18 GOTO 540\IF A(F)=19 GOTO 550\IF A(F)=20 GOTO 560 332 IF A(F)=21 GOTO 570\IF A(F)=22 GOTO 580\IF A(F)=23 GOTO 590 333 IF A(F)=24 GOTO 600\IF A(F)=25 GOTO 610\IF A(F)=26 GOTO 620 340 GOTO 270 345 FOR X=1 TO A 346 PRINT #1:TAB(S);G$;G$ 347 NEXT X 348 GOTO 270 350 GOSUB 640 351 GOSUB 690 352 GOSUB 640 353 GOTO 270 360 GOSUB 640 361 GOSUB 650 363 A=C*.5 365 GOSUB 640 366 A=C 367 GOSUB 810 368 GOTO 270 370 GOSUB 640 372 GOSUB 700 374 GOSUB 700 376 GOTO 270 380 GOSUB 640 382 GOSUB 700 384 A=C*.5\GOSUB 640 386 A=C\GOSUB 840 388 GOTO 270 390 GOSUB 640 392 GOSUB 650 394 GOSUB 650 396 GOTO 270 400 GOSUB 640 402 GOSUB 690 404 GOSUB 690 406 GOTO 270 410 GOSUB 640 412 A=C*.75\GOSUB 700 414 A=C*.25\GOSUB 650 416 A=C\GOSUB 760 420 A=C*.25\GOSUB 710 422 A=C\GOTO 270 430 GOSUB 640 432 GOSUB 710 434 GOSUB 640 436 GOTO 270 440 GOSUB 640 442 GOTO 270 450 GOSUB 750 452 GOSUB 740 454 GOSUB 640 456 GOTO 270 460 GOSUB 640 462 GOSUB 860 464 GOTO 270 470 GOSUB 640 472 GOSUB 740 474 GOSUB 740 476 GOTO 270 480 GOSUB 640 482 GOSUB 890 484 GOSUB 880 486 GOSUB 640 488 GOTO 270 490 GOSUB 640 492 GOSUB 890 494 GOSUB 640 496 GOTO 270 500 GOSUB 640 502 GOSUB 700 504 GOSUB 640 506 GOTO 270 510 GOSUB 640 512 GOSUB 690 514 GOSUB 790 516 GOTO 270 520 GOSUB 640 522 A=C*.75\GOSUB 700 524 A=C*.25\GOSUB 650 526 A=C\GOSUB 640 530 A=C*.25\GOSUB 710 532 A=C\GOTO 270 540 GOSUB 640 542 GOSUB 690 544 A=C*.5\GOSUB 640 546 GOSUB 810 548 A=C\GOTO 270 550 GOSUB 770 552 GOSUB 650 554 GOSUB 760 556 GOTO 270 560 GOSUB 780 562 GOSUB 640 564 GOSUB 780 566 GOTO 270 570 GOSUB 640 572 GOSUB 740 574 GOSUB 640 576 GOTO 270 580 GOSUB 890 582 GOSUB 880 584 GOTO 270 585 GOSUB 790 586 GOSUB 690 587 GOSUB 640 588 GOTO 270 590 GOSUB 640 591 GOSUB 880 592 GOSUB 890 593 GOSUB 640 594 GOTO 270 595 GOSUB 640 596 GOSUB 650 597 GOSUB 640 598 GOTO 270 600 GOSUB 900 601 GOTO 270 605 GOSUB 780 606 GOSUB 780 607 GOSUB 640 608 GOTO 270 610 GOSUB 970 611 GOSUB 800 612 GOSUB 960 613 GOTO 270 615 GOSUB 640 616 GOSUB 650 617 GOSUB 760 618 GOTO 270 620 GOSUB 920 621 GOTO 270 625 GOSUB 700 626 GOSUB 650 627 A=C*.5\GOSUB 640 628 A=C\GOSUB 810 629 GOTO 270 630 GOSUB 940 631 GOTO 270 635 GOSUB 790 636 GOSUB 710 637 GOSUB 640 638 GOTO 270 640 FOR Y=1 TO A 641 PRINT #1:TAB(S); 642 FOR X=1 TO 10 643 PRINT #1:G$; 644 NEXT X 645 PRINT #1: 646 NEXT Y 647 RETURN 650 IF A<1 THEN 660\GOTO 670 660 A=1 670 FOR X=1 TO A\PRINT #1:TAB(S);G$;G$;H$;H$;G$;G$;H$;H$;G$;G$\NEXT X 672 RETURN 680 PRINT#1:TAB(S); 690 FOR X=1 TO A\PRINT #1:TAB(4*L+S);G$;G$;H$;H$;G$;G$\NEXT X 692 RETURN 700 FOR X=1 TO A\PRINT#1:TAB(S);G$;G$;\PRINT#1:TAB(8*L+S);G$;G$\NEXT X 701 RETURN 710 IF A<1 THEN 720\GOTO 730 720 A=1 730 FOR X=1 TO A\PRINT#1:TAB(4*L+S);G$;G$\NEXT X 731 RETURN 740 FOR X=1 TO A\PRINT#1:TAB(S);G$;G$\NEXT X 742 RETURN 750 FOR X=1 TO A\PRINT#1:TAB(S);G$;G$;G$;G$\NEXT X 752 RETURN 760 FOR Y=1 TO A\PRINT#1:TAB(S);G$;G$;G$;G$;G$;G$;H$;H$;G$;G$\NEXT Y 761 RETURN 770 FOR X=1 TO A\PRINT#1:TAB(S);G$;G$;H$;H$;G$;G$;G$;G$;G$;G$\NEXT X 772 RETURN 780 FOR X=1 TO A\PRINT #1:TAB(8*L+S);G$;G$\NEXT X 782 RETURN 790 FOR X=1 TO A\PRINT#1:TAB(4*L+S);G$;G$;G$;G$;G$;G$\NEXT X 792 RETURN 800 FOR X=1 TO A\PRINT#1:TAB(S);G$;G$;G$;G$;G$;G$\NEXT X 805 RETURN 810 FOR X=1 TO C/2 811 PRINT #1:TAB(S); 812 FOR Y=1 TO 2 813 FOR Z=1 TO (5*L)-X