File ADVENT.TX (text file)

Directory of image this file is from
This file as a plain text file

814 PRINT#1:SEG$(G$,1,1);
815 NEXT Z
820 IF X>3 THEN 950\V=X

830 PRINT#1:H$(2*V);\NEXT Y 832 PRINT #1:\NEXT X 834 RETURN 840 FOR X=1 TO C/2\PRINT #1:TAB(S);H$(X); 842 FOR Y=1 TO (10*L)-(2*X) 843 PRINT #1:SEG$(G$,1,1); 844 NEXT Y 845 PRINT #1: 850 NEXT X 852 RETURN 860 FOR X=4*L TO 7*L STEP (14*L)/(C*6) 861 PRINT #1:TAB(7*L-X+S);G$;G$;G$; 862 IF (7*L-X+S+3*L)<(X+S) GOTO 868 863 FOR I=(7*L-X) TO X\PRINT#1:SEG$(G$,1,1);\NEXT I 864 GOTO 871 868 PRINT#1:TAB(X+S);G$;G$;G$; 871 PRINT#1:\NEXT X 872 RETURN 880 FOR X=0 TO 6*L STEP 6*L/C\PRINT#1:TAB(X+S);G$;G$;G$;G$\NEXT X 882 RETURN 890 FOR X=6*L TO 0 STEP -6*L/C\PRINT#1:TAB(X+S);G$;G$;G$;G$\NEXT X 892 RETURN 900 FOR X=0 TO 7*L STEP (14*L)/(C*6) 901 IF X>3.5*L GOTO 907 902 PRINT#1:TAB(X+S);G$;G$;G$; 903 IF (X+S+3*L)<(7*L-X+S) GOTO 906 904 FOR I=X TO (7*L-X) \ PRINT#1:SEG$(G$,1,1);\NEXT I 905 GOTO 912 906 PRINT#1:TAB(7*L-X+S);G$;G$;G$;\GO TO 912 907 PRINT#1:TAB(7*L-X+S);G$;G$;G$; 908 IF (7*L-X+S+3*L)<(X+S) GOTO 911 909 FOR I=(7*L-X) TO X\PRINT#1:SEG$(G$,1,1);\NEXT I 910 GOTO 912 911 PRINT#1:TAB(X+S);G$;G$;G$; 912 PRINT #1: 913 NEXT X 914 RETURN 920FOR X=0 TO 7*L STEP (7*L)/(C*3) 921 PRINT#1:TAB(S);G$;G$; 922 IF X>2*L GOTO 926\PRINT#1:G$; 923 FOR I=1 TO X\PRINT#1:SEG$(G$,1,1);\NEXT I 924 GOTO 930 926 PRINT#1:TAB(X+S);G$;G$;G$; 927 IF X+3*L<8*L GOTO 930 928 FOR I=X+3*L TO 10*L\PRINT#1:SEG$(G$,1,1);\NEXT I 929 GOTO 932 930 PRINT#1: TAB(8*L+S);G$;G$;G$; 932 PRINT#1: 933 NEXT X 934 RETURN 940 FOR X=1 TO A*3 941 PRINT#1: 942 NEXT X 943 RETURN 950 FOR W=1 TO X-3\PRINT#1:" ";\NEXT W 952 B=3\GOTO 830 960 FOR X=4*L TO 7*L STEP L*4/C\PRINT#1:TAB(X+S);G$;G$;G$\NEXT X 962 RETURN 970 FOR X=7*L TO 4*L STEP -4*L/C\PRINT #1:TAB(X+S);G$;G$;G$\NEXT X 972 RETURN 990 FOR X= 1 TO C*3 991 PRINT#1: 992 NEXT X 1000 END 1 PRINT "DIRECT YOUR DOG TO ANY OF THE FOLLOWING FILES:" 2 PRINT "1=KEYBOARD,2=LINE PRINTER,3=HIGH SPEED PUNCH" 3 PRINT "WHICH ONE";\INPUT A 4 IF A=1 GOTO 6\IF A=2 GOTO 7\IF A=3 GOTO 5\GOTO 3 5 FILEV #1:"PTP:"\GOTO 10 6 FILEV #1:"TTY:"\GOTO 10 7 FILEV #1:"LPT:"\GOTO 10 9 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 10 PRINT #1: 20 PRINT #1: 30 PRINT #1: 40 PRINT #1:" XXXX" 50 PRINT #1:" X XX" 60 PRINT #1:" X *** X XXXXX" 70 PRINT #1:" X ***** X XXX XX" 80 PRINT #1:" XXXX ******* XXX XXXX XX" 90 PRINT #1:" XX X ****** XXXXXXXXX XX XXX" 100 PRINT #1:" XX X **** X X** X" 110 PRINT #1:" X XX XX X X***X" 120 PRINT #1:" X //XXXX X XXXX" 130 PRINT #1:" X // X XX" 140 PRINT #1:" X // X XXXXXXXXXXXXXXXXXX/" 150 PRINT #1:" X XXX// X X" 160 PRINT #1:" X X X X X" 170 PRINT #1:" X X X X X" 180 PRINT #1:" X X X X X XX" 190 PRINT #1:" X X X X X XXX XX" 200 PRINT #1:" X XXX X X X X X X" 210 PRINT #1:" X X X XX X XXXX" 220 PRINT #1:" X X XXXXXXXX! XX XX X" 230 PRINT #1:" XX XX X X X XX" 240 PRINT #1:" XX XXXX XXXXXX/ X XXXX" 250 PRINT #1:" XXX XX*** X X" 260 PRINT #1:" XXXXXXXXXXXXX * * X X" 270 PRINT #1:" *---* X X X" 280 PRINT #1:" *-* * XXX X X" 290 PRINT #1:" *- * XXX X" 300 PRINT #1:" *- *X XXX" 310 PRINT #1:" *- *X X XXX" 320 PRINT #1:" *- *X X XX" 330 PRINT #1:" *- *XX X X" 340 PRINT #1:" * *X* X X X" 350 PRINT #1:" * *X * X X X" 360 PRINT #1:" * * X** X XXXX X" 370 PRINT #1:" * * X** XX X X" 380 PRINT #1:" * ** X** X XX X" 390 PRINT #1:" * ** X* XXX X X" 400 PRINT #1:" * ** XX XXXX XXX" 410 PRINT #1:" * * * XXXX X X" 420 PRINT #1:" * * * X X X" 430 PRINT #1:" =======******* * * X X XXXXXXXX!" 440 PRINT #1:" * * * /XXXXX XXXXXXXX! )" 450 PRINT #1:" =====********** * X ) ! )" 460 PRINT #1:" ====* * X ! ! )XXXXX" 470 PRINT #1:" =========********** XXXXXXXXXXXXXXXXXXXXXX" 480 PRINT #1: 490 PRINT #1: 491 PRINT #1: 500 PRINT #1:,,,"CURSE YOU RED BARON ! !" 501 PRINT #1: 510 PRINT #1: 515 PRINT #1:,,"COMPLIMENTS OF DIGITAL'S PDP-8/E COMPUTER" 516 PRINT #1: 517 PRINT #1: 518 CLOSE #1 520 END 1 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 2 PRINT PNT(0);PNT(0);PNT(0);PNT(29);PNT(0); 3 PRINT PNT(0);PNT(0);PNT(0);PNT(31);PNT(0);PNT(0);PNT(0);PNT(0); 4 DIM A$(26),D$(10) 10 PRINT "HELLO, MY NAME IS PETEY P. EIGHT." 20 PRINT\PRINT PNT(0);PNT(0);PNT(0);"WHAT'S YOUR NAME ";\INPUT A$\PRINT 35 PRINT " HI THERE ";\GOSUB 500 36 PRINT ". ARE YOU ENJOYING YOURSELF HERE" 40 PRINT"IN THIS WONDERFUL PLACE"; 45 INPUT B$\PRINT 50 IF B$="YES" THEN 70 55 IF B$="NO" THEN 80 60 PRINT " ";\GOSUB 500 61 PRINT ", I DON'T UNDERSTAND YOUR ANSWER OF '";B$;"'." 65 PRINT "PLEASE ANSWER 'YES' OR 'NO'. DO YOU LIKE IT HERE" 66 PRINT"IN THIS CRAZY PLACE !!!"; 67 GOTO 45 70 PRINT "OH, I'M GLAD TO HEAR THAT ";\GOSUB 500 71 PRINT 75 GOTO 100 80 PRINT "OH, SORRY TO HEAR THAT ";\GOSUB 500 81 PRINT ", MAYBE WE CAN" 85 PRINT "BRIGHTEN UP YOUR STAY A BIT" 100 PRINT 105 PRINT "SAY, ";\GOSUB 500 106 PRINT ", I CAN SOLVE ALL KINDS OF PROBLEMS" 110 PRINT "EXCEPT THOSE DEALING WITH GREECE. WHAT KIND OF" 115 PRINT "PROBLEMS DO YOU HAVE (ANSWER SEX, HEALTH, MONEY," 120 PRINT "OR JOB)"; 125 INPUT C$\PRINT 130 IF C$="SEX" THEN 200 132 IF C$="HEALTH" THEN 180 134 IF C$="MONEY" THEN 160 136 IF C$="JOB" THEN 145 138 PRINT "OH, ";\GOSUB 500 139 PRINT ", YOUR ANSWER OF '";C$;"' IS GREEK TO ME." 140 GOTO 250 145 PRINT "I CAN SYMPATHIZE WITH YOU ";\GOSUB 500 146 PRINT ". I HAVE TO WORK" 148 PRINT "VERY LONG HOURS FOR NO PAY -- AND SOME OF MY BOSSES REALLY" 150 PRINT "BEAT MY KEYBOARD. MY ADVICE TO YOU ";\GOSUB 500 151 PRINT ", IS" 153 PRINT "TO SELL IN THE EDUCATION MARKET. IT'S GREAT FUN." 155 GOTO 250 160 PRINT "SORRY, ";\GOSUB 500 161 PRINT ", I'M BROKE TOO. WHY DON'T YOU " 163 PRINT "SELL ENCYCLOPAEDIAS OR MARRY SOMEONE RICH OR STOP EATING" 165 PRINT "SO YOU WON'T NEED SO MUCH MONEY?" 170 GOTO 250 180 PRINT "MY ADVICE TO YOU ";\GOSUB 500 181 PRINT ", IS:" 185 PRINT " 1. TAKE TWO ASPRIN" 188 PRINT " 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)" 190 PRINT " 3. GO TO BED (ALONE)" 195 GOTO 250 200 PRINT "IS YOUR PROBLEM TOO MUCH OR TOO LITTLE"; 205 INPUT D$\PRINT 210 IF D$="TOO MUCH" THEN 220 213 IF D$="TOO LITTLE" THEN 230 215 PRINT "DON'T GET ALL SHOOK UP ";\GOSUB 500 216 PRINT ", JUST ANSWER" 217 PRINT "THE QUESTION WITH 'TOO MUCH' OR 'TOO LITTLE'. WHICH IS IT"; 218 GOTO 205 220 PRINT "YOU CALL THAT A PROBLEM?!! I SHOULD HAVE SUCH PROBLEMS!" 225 PRINT "IF IT BOTHERS YOU, TAKE A COLD SHOWER ";\GOSUB 500 226 PRINT"AND INTRODUCE ME TO THE SOURCE OF YOUR PROBLEM !!" 228 GOTO 250 230 PRINT "WHY ARE YOU HERE ";\GOSUB 500 231 PRINT "? YOU SHOULD BE" 235 PRINT "IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME" 240 PRINT "REAL ACTION." 250 PRINT 255 PRINT "ANY MORE PROBLEMS YOU WANT SOLVED, ";\GOSUB 500 260 INPUT E$\PRINT 270 IF E$="YES" THEN 280 273 IF E$="NO" THEN 300 275 PRINT "JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";\GOSUB 500 276 PRINT "." 278 GOTO 255 280 PRINT "WHAT KIND (SEX, MONEY, HEALTH, JOB)"; 285 GOTO 125 300 PRINT 302 PRINT "THAT WILL BE $5.00 FOR THE ADVICE, ";\GOSUB 500 303 PRINT "." 305 PRINT "PLEASE LEAVE THE MONEY ON THE TERMINAL. " 307 PRINT\PRINT\PRINT 310 PRINT "DID YOU LEAVE THE MONEY"; 315 INPUT G$\PRINT 325 IF G$="YES" THEN 350 330 IF G$="NO" THEN 370 335 PRINT "YOUR ANSWER OF '";G$;"' CONFUSES ME, ";\GOSUB 500 336 PRINT ". PLEASE" 340 PRINT "RESPOND WITH A 'YES' OR 'NO'." 345 GOTO 310 350 PRINT "HEY, ";\GOSUB 500 351 PRINT "??? YOU LEFT NO MONEY AT ALL!" 355 PRINT "YOU ARE CHEATING ME OUT OF MY HARD-EARNED LIVING." 360 PRINT "RIP OFF, ";\GOSUB 500 361 PRINT ". *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*" 365 GOTO 390 370 PRINT "THAT'S HONEST, ";\GOSUB 500 371 PRINT ", BUT HOW DO YOU EXPECT" 375 PRINT "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS DON'T" 380 PRINT "PAY THEIR BILLS?" 385 PRINT\PRINT\PRINT "NOW LET ME TALK TO SOMEONE ELSE." 390 PRINT "NICE MEETING YOU ";\GOSUB 500 391 PRINT ". HAVE A NICE DAY!!" 400 FOR I=1 TO 3000 405 NEXT I 410 GO TO 2 500 PRINT A$; 510 RETURN 999 END 1 PRINT "FOR HELP TYPE 'HELP WUMPUS' AS AN OS8 COMMAND" 2 PRINT "ENTER A RANDOM NUMBER"; 3 INPUT M 4 PRINT "HERE WE GO----" 5 PRINT "DOWN" 6 PRINT " O" 7 PRINT " W" 8 PRINT "DOWN" 9 PRINT 10 DIM A(20),B(20),C(20),D(20) 20 DIM Q$(20),P$(10) 25 READ Q$ 30 RANDOMIZE 40 FOR Z=1 TO 20 50 A(Z)=0 60 B(Z)=0 70 C(Z)=0 80 D(Z)=0 90 NEXT Z 100 R0=.02 105 B0=0 110 L0=0 120 FOR Z=1 TO 20 130 IF A(Z)<>0 GOTO 190 140 F=INT(20*RND(0))+1 150 IF F=Z GOTO 140 160 IF A(F)<>0 GOTO 140 170 A(Z)=F 180 A(F)=Z 190 NEXT Z 200 FOR Z=1 TO 20 210 IF B(Z)<>0 GOTO 280 220 F=INT(20*RND(0))+1 230 IF F=Z GOTO 220 240 IF A(Z)=F GOTO 220 250 IF B(F)<>0 GOTO 220 260 B(Z)=F 270 B(F)=Z 280 NEXT Z 290 FOR X=1 TO 20 300 IF D(X)<>0 GOTO 410 310 IF X=1 GOTO 340 320 B(Y)=X 330 B(X)=Y 340 Y=X 350 D(Y)=1 360 Y=A(Y) 370 D(Y)=1 380 IF B(Y)=X GOTO 410 390 Y=B(Y) 400 GOTO 350 410 D(X)=0 420 NEXT X 430 B(Y)=1 440 B(1)=Y 450 FOR Z=1 TO 20 460 IF C(Z)<>0 GOTO 540 470 F=INT(20*RND(0))+1 480 IF F=Z GOTO 470 490 IF F=A(Z) GOTO 470 500 IF F=B(Z) GOTO 470 510 IF C(F)<>0 GOTO 470 520 C(Z)=F 530 C(F)=Z 540 NEXT Z 550 FOR X=1000 TO 10000 STEP 9000 560 FOR Z=1 TO 3 570 F=INT(20*RND(0))+1 580 IF D(F)>=X GOTO 570 590 D(F)=D(F)+X 600 GOSUB 2130 610 NEXT Z 620 NEXT X 630 F=INT(20*RND(0))+1 640 X=100000 650 D(F)=D(F)+X 660 GOSUB 2130 670 W=F 680 F=A(W) 690 GOSUB 2130 700 F=B(W) 710 GOSUB 2130 720 F=C(W) 730 GOSUB 2130 740 H=INT(20*RND(0))+1 750 IF D(H)>=1000 GOTO 740 760 FOR S=5 TO 1 STEP -1 770 IF L0=0 GOTO 777 772 GOSUB 1740 774 PRINT "I SEE THAT TUNNELS A B AND C LEAD TO ROOMS"; 776 PRINT A(H);B(H);"AND";C(H);"RESPECTIVELY" 777 IF RND(0)>.04 GOTO 779 778 GOSUB 2191 779 J=D(H) 780 IF J>=1000 GOTO 1240 790 GOTO 1090 800 IF J=0 GOTO 890 810 IF J=INT(J/10)*10 GOTO 830 820 PRINT "I HEAR SQUEAKING, "; 830 J=INT(J/10) 840 IF J=INT(J/10)*10 GOTO 860 850 PRINT "I FEEL A DRAFT, "; 860 IF J<10 GOTO 880 870 PRINT "I SMELL A WUMPUS"; 880 PRINT 890 PRINT "YOU ARE IN ROOM";H;" MOVE THROUGH TUNNEL"; 895 H1=H 900 INPUT P$ 910 IF P$<>"A" GOTO 940 920 H=A(H) 930 GOTO 770 940 IF P$<>"B" GOTO 970 950 H=B(H) 960 GOTO 770 970 IF P$<>"C" GOTO 1000 980 H=C(H) 990 GOTO 770 1000 IF P$="SHOOT" GOTO 1470 1010 IF P$<>"MAP" GOTO 1040 1020 GOSUB 2200 1030 GOTO 779 1040 IF P$<>"LIGHTS ON" GOTO 1070 1050 L0=1 1060 GOTO 770 1070 IF P$<>"LIGHTS OFF" GOTO 770 1075 L0=0 1080 GOTO 770 1090 IF RND(0)>R0 GOTO 800 1100 PRINT "YOU TRIPPED ON A ";Q$;" IN ROOM";H; 1110 F=INT(20*RND(0))+1 1120 IF F=A(H) GOTO 1150 1130 IF F=B(H) GOTO 1150 1140 IF F<>C(H) GOTO 1110 1145 IF F=H GOTO 1110 1150 PRINT "AND HAVE TUMBLED INTO ROOM";F 1160 IF R0<.2 GOTO 1190 1165 IF RND(0)<.5 GOTO 1190 1170 PRINT "YOU ARE GETTING CLUMSIER BY THE MINUTE" 1180 PRINT "YOU SEEM TO BE STUMBLING AROUND";R0*100;"% OF THE TIME" 1190 R0=R0+.02 1200 H=F 1210 IF D(H)>=100000 GOTO 1430 1220 GOSUB 1740 1230 GOTO 770 1240 J=INT(J/1000) 1250 IF J>=10 GOTO 1300 1260 PRINT "THERE IS A SUPER-BAT IN ROOM";H;". FLAP--FLAP OUCH!!" 1270 H=INT(20*RND(0))+1 1280 IF D(H)>999 GOTO 1270 1283 IF H=H1 GOTO 1270 1290 GOTO 770 1300 IF J>=100 GOTO 1430 1310 PRINT "YOU FELL INTO THE BOTTOMLESS PIT IN ROOM";H 1320 IF J-10<>0 GOTO 2050 1330 IF D(H)<>INT(D(H)/10)*10 GOTO 2070 1340 PRINT "PLAY AGAIN (YES OR NO)"; 1350 RESTORE 1360 INPUT P$ 1370 PRINT 1380 IF P$="YES" GOTO 40 1390 IF P$<>"MAP" GOTO 1420 1400 GOSUB 2200 1410 GOTO 1340 1420 STOP 1430 PRINT "YOU HAVE BEEN DEVOURED BY THE WUMPUS IN ROOM";H 1440 GOTO 1340 1450 PRINT "YOU SHOT YOURSELF" 1460 GOTO 1340 1470 PRINT "THE ARROW ZINGS IN"; 1480 K=H 1490 K1=H 1500 FOR R=1 TO 5 1510 PRINT "TO ROOM "; 1520 INPUT M 1530 IF M=A(K) GOTO 1600 1540 IF M=B(K) GOTO 1600 1550 IF M=C(K) GOTO 1600 1560 IF M=0 GOTO 1700 1570 R=6 1580 M=INT(20*RND(0))+1 1590 GOTO 1530 1600 IF R<=5 GOTO 1626 1620 PRINT "THE ARROW WENT ASTRAY" 1624 GOTO 1630 1626 IF M=K1 GOTO 1570 1630 IF M=H GOTO 1450 1640 IF D(M)<100000 GOTO 1670 1650 PRINT "YOU HAVE SLAIN THE WUMPUS" 1655 S=S-1 1660 GOTO 1340 1670 IF INT(D(M)/1000)=INT(D(M)/10000)*10 GOTO 1678 1671 PRINT "YOU PICKED OFF AN INNOCENT SUPER-BAT" 1672 X=-1000 1673 F=M 1674 GOSUB 2130 1675 D(M)=D(M)-1000 1676 B0=B0+1 1677 GOTO 1700 1678 K1=K 1680 K=M 1690 NEXT R 1700 GOSUB 1740 1710 NEXT S 1720 PRINT "YOU HAVE EXHAUSTED YOUR SUPPLY OF ARROWS -- THE SHOW'S OVER" 1730 GOTO 1340 1740 IF RND(0)>.5 GOTO 2000 1750 PRINT "ROAR**THUD**THUD**RRUUMMBBLLEE**THWUMP**ZZZZZZZZZZZ" 1760 X=-100000 1770 F=W 1780 GOSUB 2130 1790 F=A(W) 1800 GOSUB 2130 1810 F=B(W) 1820 GOSUB 2130 1830 F=C(W) 1840 GOSUB 2130 1850 D(W)=D(W)-100000 1860 F=INT(20*RND(0))+1 1870 IF F=A(W) GOTO 1900 1880 IF F=B(W) GOTO 1900 1890 IF F<>C(W) GOTO 1860 1900 X=100000 1910 D(F)=D(F)+X 1920 W=F 1930 GOSUB 2130 1940 F=A(W) 1950 GOSUB 2130 1960 F=B(W) 1970 GOSUB 2130 1980 F=C(W) 1990 GOSUB 2130 2000 READ Q$ 2010 IF Q$<>"END" GOTO 2040 2020 RESTORE 2030 GOTO 2000 2040 RETURN 2050 PRINT "YOU HAVE BEEN SNATCHED UP BY A SUPER-BAT" 2060 GOTO 1270 2070 PRINT "THERE IS A BAT IN AN ADJACENT ROOM -- HE'S FLYING THIS WAY!" 2080 IF RND(0)>.25 GOTO 2110 2090 PRINT "YOU STRUCK YOUR HEAD ON A ";Q$;" GOOD-BYYEEE" 2100 GOTO 1340 2110 PRINT "PHEWWW!!! "; 2120 GOTO 2050 2130 F1=A(F) 2140 D(F1)=D(F1)+X/1000 2150 F1=B(F) 2160 D(F1)=D(F1)+X/1000 2170 F1=C(F) 2180 D(F1)=D(F1)+X/1000 2190 RETURN 2191 IF B0<0 GOTO 2199 2192 B0=B0-1 2193 F=INT(20*RND(0))+1 2194 IF INT(D(F)/1000)<>INT(D(F)/10000)*10 GOTO 2193 2195 X=1000 2196 D(F)=D(F)+X 2197 GOSUB 2130 2198 PRINT "ANOTHER SUPER-BAT HAS BEEN BORN. LOOKS LIKE A STRONG ONE!" 2199 RETURN 2200 Z=1 2210 PRINT Z;TAB(4);A(Z);TAB(8);B(Z);TAB(12);C(Z);TAB(16);D(Z);TAB(24); 2220 Z=Z+1 2230 PRINT Z;TAB(28);A(Z);TAB(32);B(Z);TAB(36);C(Z);TAB(40);D(Z);TAB(48); 2232 Z=Z+1 2233 IF Z>20 GOTO 2245 2234 PRINT Z;TAB(52);A(Z);TAB(56);B(Z);TAB(60);C(Z);TAB(64);D(Z) 2235 Z=Z+1 2240 GOTO 2210 2245 PRINT 2250 PRINT "HEAR=1 FEEL=10 SMELL=100 "; 2260 PRINT "BATS=1000 PIT=10000 WUMPUS=100000" 2270 PRINT "YOU ARE IN ROOM ";H;" AND HAVE ";S;" ARROW(S) LEFT" 2280 RETURN 2290 DATA "CORPSE","DEAD BAT","BROKEN ARROW","STALAGMITE","PEBBLE" 2291 DATA "WUMPUS CLAW","LEDGE","LUNCH BAG","DOG" 2300 DATA "END" 2310 END 100 REM *** PROGRAM SIMULATES TV PROGRAM STARTREK 110 REM *** WRITTEN BY MIKE MAYFIELD, CENTERLINE ENGINEERING 180 PRINT " * * * STAR TREK * * *"\PRINT 181 PRINT\PRINT 200 PRINT " FOR INSTRUCTIONS USE OS-8 HELP COMMAND FOR 'SPACWR' " 205 RANDOMIZE 235 DIM Z$(72),R$(72),Q$(72),S$(48),A$(3),O1$(24),D$(72) 236 DIM E$(20) 240 Q$=" " 245 Q$=Q$&" " 250 Z$=Q$\R$=Q$\S$=SEG$(Q$,1,48) 260DIM G(8,8),C(9,2),K(3,3),N(3),Z(8,8) 290 T=INT(RND(1)*20+20)*100\T0=T 300 T9=30\D0=0\E=3000\P=10\S9=200\S=0\H8=0\E0=3000\P0=10 360 DEF FND(D)=SQR((K(I,1)-S1)**2+(K(I,2)-S2)**2) 370Q1=INT(RND(1)*8+1) 380Q2=INT(RND(1)*8+1) 390S1=INT(RND(1)*8+1) 400S2=INT(RND(1)*8+1) 420 C(2,1)=-1\C(3,1)=-1\C(4,1)=-1\C(4,2)=-1\C(5,2)=-1\C(6,2)=-1 430 C(1,1)=0\C(3,2)=0\C(5,1)=0\C(7,2)=0\C(9,1)=0 440 C(1,2)=1\C(2,2)=1\C(6,1)=1\C(7,1)=1\C(8,1)=1\C(8,2)=1\C(9,2)=1 460D$="WARP ENGINESS.R. SENSORSL.R. SENSORSPHASER CNTRL" 470 D$=D$&"PHOTON TUBESDAMAGE CNTRL" 480E$="SHIELD CNTRLCOMPUTER" 490 K9=0\B9=0 491REM *** SETS UP WHAT EXISTS IN GALAXY 500FOR I=1TO8 510FOR J=1TO8 520R1=RND(1) 530IF R1>.98 THEN 580 540IF R1>.95 THEN 610 550IF R1>.8 THEN 640 560K3=0\GOTO 660 580K3=3\K9=K9+3\GOTO 660 610K3=2\K9=K9+2\GOTO 660 640K3=1\K9=K9+1 660R1=RND(1) 670IF R1>.96 THEN 700 680B3=0\GOTO 720 700B3=1\B9=B9+1 720S3=INT(RND(1)*8+1) 730G(I,J)=K3*100+B3*10+S3 740Z(I,J)=0 750NEXT J 760NEXT I 770K7=K9 775PRINT\PRINT 776 IF B9>0 GOTO 780 777 G(6,3)=G(6,3)+10 778 B9=1 780 PRINT "YOU MUST DESTROY";K9;"KLINGONS IN";T9; 800 PRINT "STARDATES WITH";B9;"STARBASES" 810 S3=0\K3=0\B3=0 820 IF Q1<1 GOTO 920\IF Q1>8 GOTO 920\IF Q2<1 GOTO 920\IF Q2>8 GOTO 920 830X=G(Q1,Q2)*.01 840K3=INT(X) 850B3=INT((X-K3)*10) 860S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10 870 IF K3=0 THEN920 880 IF S>200 THEN 900 890 PRINT " SHIELDS DANGEROUSLY LOW" 900 PRINT "COMBAT AREA CONDITION RED" 920FOR I=1TO3 930K(I,3)=0 940NEXT I 950 Q$=Z$\R$=Z$ 970 S$=SEG$(Z$,1,48) 971REM *** PUT ENTERPRISE SOMEWHERE 980 A$="<*>" 990Z1=S1 1000Z2=S2 1010GOSUB 5510 1020FOR I=1TOK3 1030 GOSUB 5380 1031REM *** PUT KLINGONS SOMEWHERE 1040A$="+++" 1050Z1=R1 1060Z2=R2 1070GOSUB 5510 1080K(I,1)=R1\ K(I,2)=R2\ K(I,3)=S9 1110NEXT I 1120FOR I=1TOB3 1130GOSUB 5380 1131REM *** PUT STARBASE(S) SOMEWHERE 1140A$=">!<"\ Z1=R1\ Z2=R2 1170GOSUB 5510 1180NEXT I 1190FOR I=1TOS3 1200GOSUB 5380 1201REM *** PUT STARS SOMEWHERE 1210A$=" * "\ Z1=R1\ Z2=R2 1240GOSUB 5510 1250NEXT I 1260GOSUB 4120 1270 PRINT "COMMAND:";\INPUT A 1290IF A=0 GOTO 1410 1291IF A=1 GOTO 1260 1292IF A=2 GOTO 2330 1293IF A=3 GOTO 2530 1294IF A=4 GOTO 2800 1295IF A=5 GOTO 3460 1296IF A=6 GOTO 3560 1297IF A=7 GOTO 4630 1298 IF A=8 GOTO 180 1310PRINT\PRINT" 0 = SET COURSE" 1320PRINT" 1 = SHORT RANGE SENSOR SCAN" 1330PRINT" 2 = LONG RANGE SENSOR SCAN" 1340PRINT" 3 = FIRE PHASERS" 1350PRINT" 4 = FIRE PHOTON TORPEDOES" 1360PRINT" 5 = SHIELD CONTROL" 1370PRINT" 6 = DAMAGE CONTROL REPORT" 1380PRINT" 7 = CALL ON LIBRARY COMPUTER" 1390PRINT" 8 = BEGIN NEW CONTEST"\PRINT 1400GOTO 1270 1401REM *** COURSE CONTROL CODE BEGINS HERE 1410 PRINT "COURSE (1-9):";\INPUT C1 1430IF C1=0 THEN 1270 1440 IF C1<1 GOTO 1410\IF C1=>9 GOTO 1410 1450 PRINT "WARP FACTOR (0-8):";\INPUT W1 1470 IF W1<=0 GOTO 1410\IF W1<=.2 GOTO 1510 1480 IF D(1)>=0 GOTO 1510\IF W1<=.2 GOTO 1510 1490 PRINT "WARP DRIVE IS DISABLED!"\PRINT "IMPULSE ENGINES ACTIVATED." 1495 PRINT "MAXIMUM SPEED = WARP .2" 1500GOTO 1410 1510IF K3<=0 THEN 1560 1520GOSUB 3790 1530IF K3<=0 THEN 1560 1540IF S<0 THEN 4000 1550GOTO 1610 1560 IF E>0 THEN 1610 1570 IF S<1 THEN 3920 1580 PRINT "YOU HAVE";E;"UNITS OF ENERGY" 1590 PRINT "SUGGEST YOU GET SOME FROM YOUR SHIELDS WHICH HAVE";S;"UNITS LEFT" 1600 GOTO 1270 1610FOR I=1TO8\ IF D(I)>=0 THEN 1640 1611REM *** FIX ANY DAMAGED DEVICE 1630D(I)=D(I)+1 1640NEXT I 1650IF RND(1)>.2 THEN 1810 1660R1=INT(RND(1)*8+1) 1670IF RND(1)>= .5 THEN 1750 1680D(R1)=D(R1)-(RND(1)*5+1) 1690 PRINT\PRINT "DAMAGE CONTROL REPORT:"; 1710GOSUB 5610 1720PRINT" DAMAGED"\PRINT\GOTO 1810 1750D(R1)=D(R1)+(RND(1)*5+1) 1760 PRINT\PRINT "DAMAGE CONTROL REPORT:"; 1780GOSUB 5610 1790PRINT" STATE OF REPAIR IMPROVED"\PRINT 1810 N=INT((W1+.0625)*8)\A$=" "\Z1=S1\Z2=S2 1850GOSUB 5510 1870X=S1\Y=S2 1890X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)) 1900X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)) 1910FOR I=1TON\S1=S1+X1\S2=S2+X2 1940 IF S1<1 GOTO 2170\IF S1>=9 GOTO 2170\IF S2<1 GOTO 2170\IF S2>=9 GOTO 2170 1950S8=S1*24+S2*3-26\ IF S8>72 THEN 1990 1970 IF SEG$(Q$,S8,S8+2)=" " GOTO 2070 1980GOTO 2030 1990IF S8>144 THEN 2020 2000 IF SEG$(R$,S8-72,S8-70)=" " GOTO 2070 2010GOTO 2030 2020 IF SEG$(S$,S8-144,S8-142)=" " GOTO 2070 2030 S1=INT(S1-X1)\S2=INT(S2-X2)\PRINT "WARP ENGINES SHUTDOWN AT SECTOR"; 2035 PRINT S1;",";S2;"DUE TO BAD NAVAGATION" 2040 GOTO 2080 2070NEXT I 2075 S1=INT(S1)\S2=INT(S2) 2080A$="<*>"\Z1=S1\Z2=S2 2110GOSUB 5510 2120 E=E-N+5\T=(INT(10*T+1.1))/10\IF W1<1 THEN 2150 2140 T=(INT(10*T+9))/10 2150IF T>T0+T9 THEN 3970 2160GOTO 1260 2170X=Q1*8+X+X1*N\Y=Q2*8+Y+X2*N 2190Q1=INT(X/8)\Q2=INT(Y/8)\S1=INT(X-Q1*8)\S2=INT(Y-Q2*8) 2230IF S1<>0 THEN 2260 2240Q1=Q1-1\S1=8 2260IF S2<>0 THEN 2290 2270Q2=Q2-1\S2=8 2290T=T+1\E=E-N+5 2310IF T>T0 + T9 THEN 3970 2320GOTO 810 2321REM *** LONG RANGE SENSON SCAN CODE BEGINS HERE 2330IF D(3)>=0 THEN 2370 2340PRINT "LONG RANGE SENSORS ARE INOPERABLE" 2360GOTO 1270 2370 PRINT "LONG RANGE SENSOR SCAN FOR QUADRANT";Q1;",";Q2 2380PRINT"-------------------" 2390FOR I=Q1-1 TO Q1+1 2410FOR J=Q2-1 TO Q2+1 2420 IF I<1 GOTO 2500\IF I>8 GOTO 2500\IF J<1 GOTO 2500\IF J>8 GOTO 2500 2430N(J-Q2+2)=G(I,J) 2440 IF D(8)<0 THEN 2460 2450Z(I,J)=G(I,J) 2460NEXT J 2470 PRINT ":";N(1);TAB(7);":";N(2);TAB(13);":";N(3);TAB(19);":" 2480PRINT"-------------------" 2490NEXT I 2495 GOTO 1270 2500 N(J-Q2+2)=0\GOTO 2460 2501REM *** PHASER CONTROL CODE BEGINS HERE 2530IF K3<=0 THEN 3670 2540IF D(4)>=0 THEN 2570 2550 PRINT "PHASERS NOT OPERATIONAL" 2560GOTO 1270 2570 IF D(8)>=0 THEN 2590 2580PRINT " COMPUTER FAILURE HAMPERS ACCURACY" 2590 PRINT "PHASERS LOCKED ON TARGET. ENERGY AVAILABLE =";E 2600 PRINT "NUMBER OF UNITS TO FIRE:";\INPUT X 2620IF X<=0 THEN 1270 2630 IF E-X<0 THEN 2590 2640E=E-X 2650GOSUB 3790 2660IF D(7)>=0 THEN 2680 2670X=X*RND(1) 2680FOR I=1TO3 2690IF K(I,3)<=0 THEN 2770 2700H=INT((X/K3/FND(0))*(2*RND(1))) 2710K(I,3)=K(I,3)-H 2720 PRINT H;" UNIT HIT ON KLINGON AT SECTOR";K(I,1);",";K(I,2); 2721 PRINT " (";K(I,3);" LEFT)" 2740IF K(I,3)>0 THEN 2770 2750GOSUB 3690 2760IF K9<=0 THEN 4040 2770NEXT I 2780IF E<0 THEN 4000 2790GOTO 1270 2791REM *** PHOTON TORPEDO CODE BEGINS HERE 2800IF D(5)>=0 THEN 2830 2810PRINT "PHOTON TUBES ARE NOT OPERATIONAL" 2820GOTO 1270 2830IF P>0 THEN 2860 2840PRINT "ALL PHOTON TORPEDOES EXPENDED" 2850GOTO 1270 2860 PRINT "TORPEDO COURSE (1-9):";\INPUT C1 2880IF C1=0 THEN 1270 2890 IF C1<1 GOTO 2860\IF C1>=9 GOTO 2860 2900X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)) 2910X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)) 2920X=S1\Y=S2\P=P-1 2950 PRINT "TORPEDO TRACK:" 2960X=X+X1\Y=Y+X2 2980 IF X<1 GOTO 3420\IF X>=9 GOTO 3420\IF Y<1 GOTO 3420\IF Y>=9 GOTO3420 2990 PRINT " ";X;",";Y 2992 IF INT(X+.25)<>INT(X+.75) GOTO 2960 2994 IF INT(Y+.25)<>INT(Y+.75) GOTO 2960 3000 Z1=INT(X+.5)\Z2=INT(Y+.5) 3010 A$=" " 3040GOSUB 5680 3050IF Z3=0 THEN 3070 3060GOTO 2960 3070 A$="+++" 3100GOSUB 5680 3110IF Z3=0 THEN 3220 3120PRINT "*** KLINGON DESTROYED ***" 3130K3=K3-1\K9=K9-1 3150IF K9<=0 THEN 4040 3160FOR I=1TO3\IF INT(X)<>K(I,1) THEN 3190 3180IF INT(Y)=K(I,2) THEN 3200 3190NEXT I 3200K(I,3)=0\GOTO 3360 3220 A$=" * " 3250GOSUB 5680 3260IF Z3=0 THEN 3290 3270PRINT "YOU CAN'T DESTROY STARS, SILLY" 3280GOTO 3420 3290 A$=">!<" 3320GOSUB 5680 3330IF Z3=0 THEN 2960 3340PRINT "*** STAR BASE DESTROYED *** .......CONGRATULATIONS" 3350B3=B3-1 3360 A$=" " 3390GOSUB 5510 3400G(Q1,Q2)=K3*100+B3*10+S3 3405 IF Z(Q1,Q2)<1 GOTO 3410\Z(Q1,Q2)=G(Q1,Q2) 3410GOTO 3430 3420PRINT "TORPEDO MISSED" 3430GOSUB 3790 3440IF E<0 THEN 4000 3450GOTO 1270 3451REM *** SHIELD CONTROL CODE BEGINS HERE 3460IF D(7)>=0 THEN 3490 3470PRINT "SHIELD CONTROL IS NON-OPERATIONAL" 3480GOTO 1270 3490 PRINT "ENERGY AVAILABLE =";E+S 3500 PRINT " NUMBER OF UNITS TO SHIELDS:";\INPUT X 3510 IF X<0 GOTO 1270 3520IF E+S-X<0 THEN 3490 3530E=E+S-X\S=X 3550GOTO 1270 3551REM *** DAMAGE CONTROL REPORT CODE BEGINS HERE 3560IF D(6)>=0 THEN 3590 3570PRINT "DAMAGE CONTROL REPORT IS NOT AVAILABLE" 3580GOTO 1270 3590PRINT\PRINT "DEVICE STATE OF REPAIR" 3610FOR R1=1TO8 3620GOSUB 5610 3630PRINTD(R1) 3640NEXT R1\PRINT 3660GOTO 1270 3670PRINT"SHORT RANGE SENSORS REPORT NO KLINGONS IN THIS QUADRANT" 3680GOTO 1270 3690 PRINT "KLINGON AT SECTOR ";K(I,1);",";K(I,2);"DESTROYED ***" 3710K3=K3-1\K9=K9-1\A$=" "\Z1=K(I,1)\Z2=K(I,2) 3760GOSUB 5510 3770G(Q1,Q2)=K3*100+B3*10+S3 3775 IF Z(Q1,Q2) <1 GOTO 3780\Z(Q1,Q2)=G(Q1,Q2) 3780RETURN 3790IF C$<>"DOCKED" THEN 3820 3800PRINT "STAR BASE SHIELDS PROTECT THE ENTERPRISE" 3810RETURN 3820 IF K3<=0 THEN 3910 3830FOR I=1TO3\IF K(I,3)<=0 THEN 3900 3850H=INT((K(I,3)/FND(0))*(2+RND(1)))\S=S-H 3860 PRINT "KLINGON ATTACK" 3870 PRINT H;" UNIT HIT ON ENTERPRISE FROM SECTOR ";K(I,1);",";K(I,2); 3871 PRINT " (";S;" LEFT)" 3890IF S<0 THEN 4000 3900NEXT I 3910RETURN 3920PRINT "THE ENTERPRISE IS DEAD IN SPACE. IF YOU SURVIVE ALL IMPENDING" 3930PRINT "ATTACKS YOU WILL BE DEMOTED TO THE RANK OF PRIVATE" 3940IF K3<=0 THEN 4020 3950GOSUB 3790 3960GOTO 3940 3970 PRINT\PRINT "IT IS STARDATE";T 3990GOTO 4020 3991REM *** NO ENERGY LEFT 4000PRINT\PRINT"THE ENTERPRISE HAS BEEN DESTROYED. THE FEDERATION WILL BE CONQUERED" 4020 PRINT "THERE ARE STILL ";K9;" KLINGON BATTLE CRUISERS" 4030 PRINT\PRINT\PRINT\PRINT "YOU GET ANOTHER CHANCE...."\GOTO 180 4040PRINT\PRINT"THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN DESTROYED" 4050PRINT"THE FEDERATION HAS BEEN SAVED!!!!!"\PRINT 4075E5=((K7/(T-T0))*1000) 4080 PRINT "YOUR EFFICIENCY RATING =";E5 4100 PRINT "YOUR ACTUAL TIME OF MISSION ="; 4101 PRINT (INT((T-T0)*10))/10;"STARDATES" 4105PRINT\PRINT\PRINT 4106 PRINT "DO YOU WANT TO TRY AGAIN";\INPUT R$ 4107 IF R$="YES" THEN 180 4110 GOTO 5820 4111REM *** SHORT RANGE SENSOR SCAN AND STARTING POINT CODE 4120FOR I=S1-1TO S1+1 4130FOR J=S2-1TO S2+1 4140 IF I<1 GOTO 4200\IF I>8 GOTO 4200\IF J<1 GOTO 4200\IF J>8 GOTO 4200 4150A$=">!<"\Z1=I\Z2=J 4180GOSUB 5680 4190IF Z3=1 THEN 4240 4200NEXT J 4210NEXT I 4220D0=0\GOTO 4310 4240D0=1\C$="DOCKED"\E=3000\P=10 4280PRINT "SHIELDS DROPPED FOR DOCKING PURPOSES" 4281 REMEMBER TO GET REPAIRS 4282 FOR I=1 TO 8 4284 IF D(I)=>0 GOTO 4288 4286 D(I)=0 4288 NEXT I 4290S=0\GOTO 4380 4310IF K3>0 THEN 4350 4320IF E<E0 *.1 THEN 4370 4330C$="GREEN" 4340GOTO 4380 4350C$="RED"\GOTO 4380 4370C$="YELLOW" 4380IF D(2)>=0 THEN 4430 4390PRINT\PRINT"*** SHORT RANGE SENSORS ARE OUT ***"\PRINT 4420GOTO 4530 4430 O1$="------------------------" 4435 PRINT\PRINT O1$ 4445 PRINT SEG$(Q$,1,24) 4455 PRINT SEG$(Q$,25,48);TAB(41);"STARDATE";TAB(57);T 4465 PRINT SEG$(Q$,49,72);TAB(41);"CONDITION";TAB(58);C$ 4475 PRINT SEG$(R$,1,24);TAB(41);"QUADRANT";TAB(57);Q1;",";Q2 4485 PRINT SEG$(R$,25,48);TAB(41);"SECTOR";TAB(57);S1;",";S2 4495 PRINT SEG$(R$,49,72);TAB(41);"TOTAL ENERGY";TAB(57);E 4505 PRINT SEG$(S$,1,24);TAB(41);"PHOTON TORPEDOES";TAB(57);P 4515 PRINT SEG$(S$,25,48);TAB(41);"SHIELDS";TAB(57);S 4520 PRINT O1$\PRINT 4530RETURN 4620REM *** LIBRARY COMPUTER CODE BEGINS HERE 4630IF D(8)>=0 THEN 4660 4640PRINT "COMPUTER DISABLED"\GOTO 1270 4660 PRINT "COMPUTER ACTIVE AND AWAITING COMMAND:";\INPUT A 4680IF A=0 GOTO 4740 4681IF A=1 GOTO 4830 4682IF A=2 GOTO 4880 4690PRINT "FUNCTIONS AVAILABLE FROM COMPUTER" 4700PRINT " 0 = CUMULATIVE GALACTIC RECORD" 4710PRINT " 1 = STATUS REPORT" 4720PRINT " 2 = PHOTON TORPEDO DATA" 4730GOTO 4660 4731REM *** CUMULATIVE GALACTIC RECORD CODE BEGINS HERE 4740 PRINT "COMPUTER RECORD OF GALAXY FOR ALL LONG RANGE SENSOR SCANS" 4760PRINT" 1 2 3 4 5 6 7 8" 4770PRINT" ----- ----- ----- ----- ----- ----- ----- -----" 4780FOR I=1TO8 4795 PRINT I;TAB(5);Z(I,1);TAB(11);Z(I,2);TAB(17);Z(I,3);TAB(23);Z(I,4); 4796 PRINT TAB(29);Z(I,5);TAB(35);Z(I,6);TAB(41);Z(I,7);TAB(47);Z(I,8) 4800PRINT" ----- ----- ----- ----- ----- ----- ----- -----" 4810NEXT I 4820GOTO 1270 4821REM *** STATUS REPORT CODE BEGINS HERE 4830PRINT " STATUS REPORT" 4840 PRINT "NUMBER OF KLINGONS LEFT =";K9 4850 V5=(INT(((T0+T9)-T)*10))/10 4851PRINT "NUMBER OF STARDATES LEFT =";V5 4860 PRINT "NUMBER OF STARBASES LEFT =";B9 4870GOTO 3560 4880PRINT\H8=0 4881REM *** PHOTON TORPEDO DATA CODE BEGINS HERE 4900FOR I=1TO3 4910IF K(I,3)<=0 THEN 5260 4920C1=S1\A=S2\W1=K(I,1)\X=K(I,2) 4960GOTO 5010 4970 PRINT "YOU ARE AT QUADRANT ( ";Q1;",";Q2;" ) SECTOR ( ";S1;",";S2;" )" 4990 PRINT "SHIP AND TARGET COORDINATES ARE:";\INPUT C1,A,W1,X 5010X=X-A\A=C1-W1 5030IF X<0 THEN 5130 5031IF A<0 THEN 5190 5050IF X>0 THEN 5070 5051IF A=0 THEN 5150 5070C1=1 5080IF ABS(A) <= ABS(X) THEN 5110 5085V5=C1+(((ABS(A)-ABS(X))+ABS(A))/ABS(A)) 5090 PRINT "DIRECTION =";V5 5100GOTO 5240 5110 PRINT "DIRECTION =";C1+(ABS(A)/ABS(X)) 5120GOTO 5240 5130IF A>0 THEN 5170 5140IF X=0 THEN 5190 5150C1=5\GOTO 5080 5170C1=3\GOTO5200 5190C1=7 5200IF ABS(A)>=ABS(X) THEN 5230 5210 PRINT "DIRECTION =";C1+(((ABS(X)-ABS(A))+ABS(X))/ABS(X)) 5220GOTO 5240 5230 PRINT "DIRECTION =";C1+(ABS(X)/ABS(A)) 5240 PRINT "DISTANCE =";SQR(X**2+A**2) 5250IF H8=1 THEN 5320 5260NEXT I 5270H8=0 5280 PRINT "DO YOU WANT TO USE THE CALCULATOR";\INPUT A$ 5300IF A$="YES" THEN 4970 5310IF A$<>"NO" THEN 5280 5320GOTO 1270 5321REM *** END OF LIBRARY COMPUTER CODE 5380R1=INT(RND(1)*8+1)\R2=INT(RND(1)*8+1)\A$=" "\Z1=R1\Z2=R2 5430GOSUB 5680 5440IF Z3=0 THEN 5380 5450RETURN 5510REM *** INSERTION IN STRING ARRAY FOR QUADRANT *** 5520S8=Z1*24+Z2*3-26\IF S8>72 THEN 5560 5540 Q$=SEG$(Q$,1,S8-1)&A$&SEG$(Q$,S8+3,72) 5550GOTO 5600 5560IF S8>144 THEN 5590 5570 R$=SEG$(R$,1,S8-73)&A$&SEG$(R$,S8-69,72) 5580GOTO 5600 5590 S$=SEG$(S$,1,S8-145)&A$&SEG$(S$,S8-141,72) 5600RETURN 5610REM *** PRINTS DEVICE NAME FROM ARRAY*** 5620S8=R1*12-11\IF S8>72 THEN 5660 5640 PRINT SEG$(D$,S8,S8+11);\GOTO 5670 5660 PRINT SEG$(E$,S8-72,S8-61); 5670RETURN 5680REM ***STRING COMPARISON IN QUADRANT ARRAY*** 5690S8=Z1*24+Z2*3-26\Z3=0\IF S8>72 THEN 5750 5720 IF SEG$(Q$,S8,S8+2)<>A$ THEN 5810 5730Z3=1\GOTO 5810 5750IF S8>144 THEN 5790 5760 IF SEG$(R$,S8-72,S8-70)<>A$ THEN 5810 5770Z3=1\GOTO 5810 5790 IF SEG$(S$,S8-144,S8-142)<>A$ THEN 5810 5800Z3=1 5810RETURN 5820 END 900 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 1060 DIM A(4,15),T(4,15),F(4,15),S(4,15),L(4,15),K(4,15),H(15,15) 1065 DIM Z$(15) 1070 FOR I=1TO5\B(I)=0\Q(I)=0\A1(I)=0\NEXT I 1120 RANDOMIZE 1130 PRINT "HOW MANY PLAYERS (TYPE: '0' FOR INSTRUCTIONS)"; 1140 INPUT P 1150 IF P>15 THEN 1180 1160 IF P<>0 THEN 1240\CHAIN "RKB0:YAHTZE.IN" 1180 GOSUB 5710 1190 GOTO 1130 1240 FOR I=1 TO P 1250 A(1,I)=-5 1260 T(1,I)=-5\T(2,I)=-5\F(1,I)=-5\F(2,I)=-5\S(1,I)=-5 1310 T(3,I)=-5\F(3,I)=-5\F(4,I)=-5\S(2,I)=-5\L(1,I)=-5 1360 Y(I)=-5\C(I)=-5\K(1,I)=0\K1(I)=0\M(I)=0 1410 PRINT "NAME"; 1420 INPUT N$(I) 1470 NEXT I 1480 R=0 1490 R=R+1 1495 IF R>13 THEN 6470 1500 PRINT\PRINT\PRINT "ROUND";R\PRINT 1540 FOR I=1 TO P 1550 PRINT\PRINT\PRINT N$(I);"'S TURN" 1580 FOR L=1TO5\A1(L)=INT(6*RND(0)+1)\NEXT L 1605 GOSUB 1610 1607 GOTO 1700 1610 G=0 1620 FOR X=1 TO 5 1630 IF A1(X)>=A1(X+1) THEN 1680 1640 H=A1(X) 1650 A1(X)=A1(X+1) 1660 A1(X+1)=H 1670 G=1 1680 NEXT X 1685 IF G=1 THEN 1610 1690 RETURN 1700 PRINT "YOU HAVE A ";A1(1);A1(2);A1(3);A1(4);A1(5) 1710 PRINT "THIS IS YOUR 2ND OF 3 ROLLS," 1720 PRINT "HOW MANY DO YOU WANT TO CHANGE"; 1730 INPUT Z 1780 IF Z=0 THEN 2620 1790 IF Z=5 THEN 1890 1792 FOR E=1 TO 5\B(E)=0\NEXT E 1800 FOR S=1 TO Z 1810 PRINT "WHICH"; 1820 INPUT B(S) 1870 NEXT S 1880 GOTO 1930 1890 FOR S=1 TO 5 1900 A1(S)=INT(6*RND(-1)+1) 1910 NEXT S 1920 GOTO 2050 1930 FOR L=1 TO 5 1940 FOR L1=1 TO 5 1950 IF B(L)=L1 THEN 1970 1960 GOTO 1980 1970 A1(L1)=Q(L1) 1980 NEXT L1 1990 NEXT L 2000 FOR S=1 TO 5 2010 IF A1(S)=0 THEN 2030 2020 GOTO 2040 2030 A1(S)=INT(6*RND(-1)+1) 2040 NEXT S 2050 GOSUB 1610 2140 PRINT "YOU HAVE A ";A1(1);A1(2);A1(3);A1(4);A1(5) 2150 PRINT "THIS IS YOUR LAST ROLL," 2160 PRINT "HOW MANY DO YOU WANT TO CHANGE"; 2170 INPUT Z 2220 IF Z=0 THEN 2620 2230 IF Z=5 THEN 2360 2240 FOR E=1 TO 5 2250 B(E)=0 2260 NEXT E 2270 FOR S=1 TO Z 2280 PRINT "WHICH"; 2290 INPUT B(S) 2340 NEXT S 2350 GOTO 2400 2360 FOR S=1 TO 5 2370 A1(S)=INT(6*RND(-1)+1) 2380 NEXT S 2390 GOTO 2520 2400 FOR L=1 TO 5 2410 FOR L1=1 TO 5 2420 IF B(L)=L1 THEN 2440 2430 GOTO 2450 2440 A1(L1)=Q(L) 2450 NEXT L1 2460 NEXT L 2470 FOR S=1 TO 5 2480 IF A1(S)=0 THEN 2500 2490 GOTO 2510 2500 A1(S)=INT(6*RND(-1)+1) 2510 NEXT S 2520 GOSUB 1610 2610 PRINT "YOU HAVE A ";A1(1);A1(2);A1(3);A1(4);A1(5) 2620 PRINT "HOW DO YOU WANT THIS ROUND SCORED"; 2630 INPUT Z$ 2650 IF Z$="SUMMARY" THEN 2670 2660 GOTO 2700 2670 GOSUB 6140 2675 GOTO 2620 2700 IF Z$="ACES" THEN 2850 2710 IF Z$="TWOS" THEN 2940 2720 IF Z$="THREES" THEN 3030 2730 IF Z$="FOURS" THEN 3120 2740 IF Z$="FIVES" THEN 3210 2750 IF Z$="SIXES" THEN 3300 2760 IF Z$="THREE OF A KIND" THEN 3390 2770 IF Z$="FOUR OF A KIND" THEN 3440 2780 IF Z$="FULL HOUSE" THEN 3520 2790 IF Z$="SM. STRAIGHT" THEN 3620 2800 IF Z$="LG. STRAIGHT" THEN 3660 2810 IF Z$="YAHTZEE" THEN 3730 2820 IF Z$="CHANCE" THEN 3820 2830 IF Z$="ZERO" THEN 3890 2840 GOTO 2620 2850 IF A(1,I)<>-5 THEN 3870 2860 A(1,I)=0 2870 FOR S=1 TO 5 2880 IF A1(S)=1 THEN 2900 2890 GOTO 2910 2900 A(1,I)=A(1,I)+1 2910 NEXT S 2920 M(I)=A(1,I) 2930 GOTO 4690 2940 IF T(1,I)<>-5 THEN 3870 2950 T(1,I)=0 2960 FOR S=1 TO 5 2970 IF A1(S)=2 THEN 2990 2980 GOTO 3000 2990 T(1,I)=T(1,I)+2 3000 NEXT S 3010 M(I)=T(1,I) 3020 GOTO 4690 3030 IF T(2,I)<>-5 THEN 3870 3040 T(2,I)=0 3050 FOR S=1 TO 5 3060 IF A1(S)=3 THEN 3080 3070 GOTO 3090 3080 T(2,I)=T(2,I)+3 3090 NEXT S 3100 M(I)=T(2,I) 3110 GOTO 4690 3120 IF F(1,I)<>-5 THEN 3870 3130 F(1,I)=0 3140 FOR S=1 TO 5 3150 IF A1(S)=4 THEN 3170 3160 GOTO 3180 3170 F(1,I)=F(1,I)+4 3180 NEXT S 3185 M(I)=F(1,I) 3190 GOTO 4690 3210 IF F(2,I)<>-5 THEN 3870 3220 F(2,I)=0 3230 FOR S=1 TO 5 3240 IF A1(S)=5 THEN 3260 3250 GOTO 3270 3260 F(2,I)=F(2,I)+5 3270 NEXT S 3280 M(I)=F(2,I) 3290 GOTO 4690 3300 IF S(1,I)<>-5 THEN 3870 3310 S(1,I)=0 3320 FOR S=1 TO 5 3330 IF A1(S)=6 THEN 3350 3340 GOTO 3360 3350 S(1,I)=S(1,I)+6 3360 NEXT S 3370 M(I)=S(1,I) 3380 GOTO 4690 3390 IF T(3,I)<>-5 THEN 3870 3400 T(3,I)=0 3410 T(3,I)=A1(1)+A1(2)+A1(3)+A1(4)+A1(5) 3420 M(I)=T(3,I) 3430 GOTO 4690 3440 IF F(3,I)<>-5 THEN 3870 3450 IF A1(1)<>A1(4) THEN 4960 3460 IF A1(2)<>A1(3) THEN 4960 3470 F(3,I)=0 3480 F(3,I)=A1(1)+A1(2)+A1(3)+A1(4)+A1(5) 3490 M(I)=F(3,I) 3500 F(3,I)=0 3510 GOTO 4690 3520 IF F(4,I)<>-5 THEN 3870 3530 IF A1(1)<>A1(2) THEN 4960 3540 IF A1(4)<>A1(5) THEN 4960 3550 IF A1(3)<>A1(2) THEN 3570 3560 GOTO 3590 3570 IF A1(3)<>A1(4) THEN 4960 3590 F(4,I)=25 3600 M(I)=F(4,I) 3610 GOTO 4690 3620 IF S(2,I)<>-5 THEN 3870 3630 S(2,I)=30 3640 M(I)=S(2,I) 3650 GOTO 4690 3660 IF L(1,I)<>-5 THEN 3870 3670 IF A1(1)<>A1(5)+4 THEN 4960 3680 IF A1(2)<>A1(4)+2 THEN 4960 3690 IF A1(3)<>A1(5)+2 THEN 4960 3700 L(1,I)=40 3710 M(I)=L(1,I) 3720 GOTO 4690 3730 IF Y(I)<>-5 THEN 3870 3740 FOR O=1 TO 5 3750 FOR O1=1 TO 5 3760 IF A1(O)<>A1(O1) THEN 4960 3770 NEXT O1 3780 NEXT O 3790 Y(I)=50 3800 M(I)=Y(I) 3810 GOTO 4690 3820 IF C(I)<>-5 THEN 3870 3830 C(I)=A1(1)+A1(2)+A1(3)+A1(4)+A1(5) 3850 M(I)=C(I) 3860 GOTO 4690 3870 GOSUB 4650 3880 GOTO 2620 3890 PRINT "WHAT DO YOU WANT TO ZERO"; 3900 INPUT Z$ 3920 IF Z$="SUMMARY" THEN 3940 3930 GOTO 3970 3940 GOSUB 6140 3945 GOTO 2620 3970 IF Z$="ACES" THEN 4110 3980 IF Z$="TWOS" THEN 4150 3990 IF Z$="THREES" THEN 4190 4000 IF Z$="FOURS" THEN 4230 4010 IF Z$="FIVES" THEN 4270 4020 IF Z$="SIXES" THEN 4310 4030 IF Z$="THREE OF A KIND" THEN 4350 4040 IF Z$="FOUR OF A KIND" THEN 4390 4050 IF Z$="FULL HOUSE" THEN 4430 4060 IF Z$="SM. STRAIGHT" THEN 4470 4070 IF Z$="LG. STRAIGHT" THEN 4510 4080 IF Z$="YAHTZEE" THEN 4550 4090 IF Z$="CHANCE" THEN 4590 4100 GOTO 3890 4110 IF A(1,I)<>-5THEN 4630 4120 A(1,I)=0 4130 M(I)=A(1,I) 4140 GOTO 4690 4150 IF T(1,I)<>-5 THEN 4630 4160 T(1,I)=0 4170 M(I)=T(1,I) 4180 GOTO 4690 4190 IF T(2,I)<>-5 THEN 4630 4200 T(2,I)=0 4210 M(I)=T(2,I) 4220 GOTO 4690 4230 IF F(1,I)<>-5 THEN 4630 4240 F(1,I)=0 4250 M(I)=F(1,I) 4260 GOTO 4690 4270 IF F(2,I)<>-5 THEN 4630 4280 F(2,I)=0 4290 M(I)=F(2,I) 4300 GOTO 4690 4310 IF S(1,I)<>-5 THEN 4630 4320 S(1,I)=0 4330 M(I)=S(1,I) 4340 GOTO 4690 4350 IF T(3,I)<>-5 THEN 4630 4360 T(3,I)=0 4370 M(I)=T(3,I) 4380 GOTO 4690 4390 IF F(3,I)<>-5 THEN 4630 4400 F(3,I)=0 4410 M(I)=F(3,I) 4420 GOTO 4690 4430 IF F(4,I)<>-5 THEN 4630 4440 F(4,I)=0 4450 M(I)=F(4,I) 4460 GOTO 4690 4470 IF S(2,I)<>-5 THEN 4630 4480 S(2,I)=0 4490 M(I)=S(2,I) 4500 GOTO 4690 4510 IF L(1,I)<>-5 THEN 4630 4520 L(1,I)=0 4530 M(I)=L(1,I) 4540 GOTO 4690 4550 IF Y(I)<>-5 THEN 4630 4560 Y(I)=0 4570 M(I)=Y(I) 4580 GOTO 4690 4590 IF C(I)<>-5 THEN 4630 4600 C(I)=0 4610 M(I)=C(I) 4620 GOTO 4690 4630 GOSUB 4650 4640 GOTO 2620 4650 PRINT "YOU HAVE ALREADY USED ";Z$;" AS A CATEGORY" 4660 PRINT 4670 RETURN 4680 GOTO 2620 4690 PRINT N$(I);" YOU GET A SCORE OF ";M(I);" FOR THIS ROUND" 4700 GOTO 5750 4710 NEXT I 4720 PRINT 4730 FOR J=1 TO P 4740 IF M(J)=A(1,J) THEN 4810 4750 IF M(J)=T(1,J) THEN 4810 4760 IF M(J)=T(2,J) THEN 4810 4770 IF M(J)=F(1,J) THEN 4810 4780 IF M(J)=F(2,J) THEN 4810 4790 IF M(J)=S(1,J) THEN 4810 4800 GOTO 4920 4810 K(1,J)=K(1,J)+M(J) 4830 IF K(1,J)>=63 THEN 4860 4840 K1(J)=K1(J)+M(J) 4850 GOTO 4930 4860 K(1,J)=K(1,J)+35 4870 PRINT N$(J);" HAS ACCUMULATED AT LEAST 63 POINTS" 4880 PRINT "IN THE FIRST SIX CATEGORIES." 4890 PRINT "HE SCORED A BONUS OF 35 POINTS!" 4900 K1(J)=K1(J)+M(J) 4910 GOTO 4930 4920 K1(J)=K1(J)+M(J) 4930 PRINT N$(J);" HAS ";K1(J);" POINTS" 4940 NEXT J 4950 GOTO 1490 4960 PRINT "IT IS ILLEGAL TO USE ";Z$;" THIS ROUND" 4970 GOTO 2620 5680 PRINT "WHICH CATEGORY DO YOU WANT ZEROED" 5690 RETURN 5710 PRINT "A MAXIMUM OF 15 PLAYERS IS ALLOWED" 5720 RETURN 5750 IF Z$="ACES" THEN 5880 5760 IF Z$="TWOS" THEN 5900 5770 IF Z$="THREES" THEN 5920 5780 IF Z$="FOURS" THEN 5940 5790 IF Z$="FIVES" THEN 5960 5800 IF Z$="SIXES" THEN 5980 5810 IF Z$="THREE OF A KIND" THEN 6000 5820 IF Z$="FOUR OF A KIND" THEN 6020 5830 IF Z$="FULL HOUSE" THEN 6040 5840 IF Z$="SM. STRAIGHT" THEN 6060 5850 IF Z$="LG. STRAIGHT" THEN 6080 5860 IF Z$="YAHTZEE" THEN 6100 5870 IF Z$="CHANCE" THEN 6120 5880 H(I,R)=1\GOTO 4710 5900 H(I,R)=2\GOTO 4710 5920 H(I,R)=3\GOTO 4710 5940 H(I,R)=4\GOTO 4710 5960 H(I,R)=5\GOTO 4710 5980 H(I,R)=6\GOTO 4710 6000 H(I,R)=7\GOTO 4710 6020 H(I,R)=8\GOTO 4710 6040 H(I,R)=9\GOTO 4710 6060 H(I,R)=10\GOTO 4710 6080 H(I,R)=11\GOTO 4710 6100 H(I,R)=12\GOTO 4710 6120 H(I,R)=13\GOTO 4710 6140 PRINT N$(I);" HAS USED THE FOLLOWING CATEGORIES:" 6150 FOR S=1 TO R-1 6160 IF H(I,S)>7 THEN 6180 6170 IF H(I,S)=2 GOTO 6210\IFH(I,S)=3GOTO6230\IFH(I,S)=4GOTO6250 6175 IF H(I,S)=5 GOTO 6270\IFH(I,S)=6GOTO6290\IFH(I,S)=7GOTO6310 6180 IF H(I,S)=8 GOTO 6330\IFH(I,S)=9GOTO6350\IFH(I,S)=10GOTO6370 6185 IF H(I,S)=11GOTO6390\IFH(I,S)=12GOTO6410\IFH(I,S)=13GOTO6430 6190 PRINT "ACES, ";\GOTO 6440 6210 PRINT "TWOS, ";\GOTO 6440 6230 PRINT "THREES, ";\GOTO 6440 6250 PRINT "FOURS, ";\GOTO 6440 6270 PRINT "FIVES, ";\GOTO 6440 6290 PRINT "SIXES, ";\GOTO 6440 6310 PRINT "THREE OF A KIND, ";\GOTO 6440 6330 PRINT "FOUR OF A KIND, ";\GOTO 6440 6350 PRINT "FULL HOUSE, ";\GOTO 6440 6370 PRINT "SM. STRAIGHT, ";\GOTO 6440 6390 PRINT "LG. STRAIGHT, ";\GOTO 6440 6410 PRINT "YAHTZEE, ";\GOTO 6440 6430 PRINT "CHANCE, "; 6440 NEXT S 6445 PRINT\PRINT "HE HAS ";K1(I);" POINTS." 6447 PRINT "AND ";K(1,I);" OF THE 65 POINTS NEEDED FOR THE BONUS"; 6450 PRINT "." 6460 RETURN 6470 G=0 6480 FOR X=1 TO P 6490 IF S1(X)>=S1(X+1) THEN 6540 6500 H=S1(X) 6510 S1(X)=S1(X+1) 6520 S1(X+1)=H 6530 G=1 6540 NEXT X 6550 IF G=1 THEN 6470 6560 PRINT "THE GAME IS OVER."\PRINT 6571 FOR X=1 TO P\IF K1(X)=S1(X) THEN 6580\NEXT X 6580 GOTO 6585 6585 IF P=1 THEN 9999 6586 PRINT "FINAL SCORES ARE:" 6590 FOR Y=1 TO P 6600 IF K1(Y)=S1(X) THEN 6620 6610 PRINT N$(Y);" FINISHES WITH ";K1(Y);" POINTS." 6620 NEXT Y 9999 END 1 REM MONOPOLY GAME BY DAVID BARKER, SOUTHEASTERN STATE COLLEGE, DURANT, OK 2 REM SLIGHT PROGRAM MODIFICATIONS BY DAVID AHL, DIGITAL 3 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 4 M(1)=1500\M(2)=1500\I(1)=0\I(2)=0\DIM A$(26,21),B$(26,21),H(40) 5 DIM O$(21),G$(40,21),P$(21),L(40),P(40),R(40),C$(10,39),Z$(10,38),M$(20,60) 6 P$="HOW MANY HOUSES AT $"\O$=" EACH DO YOU WANT ON" 7 DEF FNR(H,I,Z,R)=(H(I(Z))*R(I(Z))*10) 8 FOR I=1 TO 40\L(I)=0\H(I)=0\NEXT I 9 FOR I=1 TO 8\U(I)=0\NEXT I 10 FILE #1:"RKB0:MONPLY.B1" 11 FOR I=1 TO 40\INPUT #1:G$(I)\NEXT I 12 FOR I=1 TO 20\INPUT #1:M$(I)\NEXT I 13 FOR I=1 TO 10\INPUT #1:C$(I)\NEXT I 14 FOR I=1 TO 10\INPUT #1:Z$(I)\NEXT I 15 PRINT M$(1)\PRINT\PRINT\PRINT"**RULES**"\PRINT M$(2) 16 PRINT M$(3)\PRINT M$(4)\PRINT M$(5)\CLOSE #1 17 FOR I=1 TO 40\READ P(I),R(I)\NEXT I 18 DATA 60,2,0,0,60,4,0,0,200,25,100,6,0,0,100,6,120,8,0,0 19 DATA 140,10,150,35,140,10,160,12,200,25,180,14,0,0 20 DATA 180,14,200,16,0,0,220,18,0,0,220,18,240,20,200,25 21 DATA 260,22,260,22,150,35,280,24,0,0,300,26,300,26,0,0 22 DATA 320,28,200,25,0,0,350,35,0,0,400,50,0,0 23 RESTORE 24 DIM V$(21) 25 DIM P$(20) 26 DIM N$(2,8) 30 PRINT"WHO IS PLAYER #1";\INPUT N$(1) 40 PRINT"WHO IS PLAYER #2";\INPUT N$(2) 100 PRINT\PRINT "**";N$(1);"'S TURN**********"\F=0 102 Z=1\GOSUB 1000 103 GOSUB 2000 115 IF D<>D1 GOTO 117\F=F+1\IF F=>3 GOTO 117\PRINTM$(9)\GOTO 102 117 IF F<>3 GOTO 200\PRINT M$(10)\I(Z)=10\M(Z)=M(Z)-50 200 PRINT\PRINT"**";N$(2);"'S TURN**********"\F=0 202 Z=2\GOSUB 1000 203 GOSUB 2000 215 IF D<>D1 GOTO 217\F=F+1\IF F>=3 GOTO 217\PRINTM$(9)\GOTO202 217 IF F<>3GOTO225\PRINT M$(10)\I(Z)=10\M(Z)=M(Z)-50 225 PRINT M$(11);\INPUT F$\IF F$="QUIT" THEN 30000\GOTO 100 999 REM DICE ROLL 1000 PRINT M$(6);\INPUT F$\RANDOMIZE\X=RND(0)\Y=RND(0) 1004 D=INT(X*6+1)\D1=INT(Y*6+1) 1015 PRINT "YOU ROLLED A";D;"AND A";D1\I(Z)=I(Z)+(D+D1) 1016 IF I(Z)=<40GOTO1017\I(Z)=I(Z)-40\M(Z)=M(Z)+200 1017 RETURN 1999 REM PLACEMENT 2000 PRINT"YOU ARE ON ";G$(I(Z)) 2001 REM COM CHEST 2002 IF I(Z)=2 THEN 4100\IFI(Z)=17THEN4100\IFI(Z)=33THEN4100 2003 REM INC TAX 2004 IFI(Z)<>4THEN2006\M(Z)=M(Z)-200\RETURN 2005 REM CHANCE 2006 IFI(Z)=7THEN4400\IFI(Z)=22THEN4400\IFI(Z)=36THEN4400 2007 REM VISIT IN JAIL OR FREE PARKING 2008 IFI(Z)=10THEN2014\IFI(Z)=20THEN2014 2009 REM JAIL 2010 IFI(Z)<>30THEN2011\M(Z)=M(Z)-50\I(Z)=10\RETURN 2011 IFI(Z)<>38THEN2012\M(Z)=M(Z)-75\RETURN\REM LUX TAX 2012 IFI(Z)<>40THEN2018\M(Z)=M(Z)+200\I(Z)=0\RETURN\REM GO 2014 RETURN 2018 IFL(I(Z))<>Z THEN 2019\PRINT M$(12)\GOTO 3100 2019 IFH(I(Z))<>0GOTO2020\IFL(I(Z))=<0GOTO2020\IFL(I(Z))<>ZTHEN2125 2020 IFH(I(Z))=<0GOTO2022\IFL(I(Z))=<0GOTO2022\IFL(I(Z))<>ZTHEN2100 2022 PRINT M$(7);P(I(Z));"DOLLARS" 2024 PRINT M$(8);\INPUT F$\ IF F$<>"BUY" THEN 3100 2026 M(Z)=M(Z)-P(I(Z))\PRINT "YOU NOW HAVE";M(Z);"DOLLARS" 2027 L(I(Z))=Z\GOTO 3100 2100 IF Z<>1 THEN 2101\M(Z)=M(Z)-FNR(H,I,Z,R)\M(2)=M(2)+FNR(H,I,Z,R) 2101 PRINT "YOU OWE";FNR(H,I,Z,R);"DOLLARS RENT"\RETURN 2102 IF Z<>2 THEN 2103\M(Z)=M(Z)-FNR(H,I,Z,R)\M(1)=M(1)+FNR(H,I,Z,R) 2103 PRINT "YOU OWE";FNR(H,I,Z,R);"DOLLARS RENT"\RETURN 2125 IFZ<>1 THEN 2126\M(Z)=M(Z)-R(I(Z))\M(2)=M(2)+R(I(Z)) 2126 PRINT "YOU OWE";R(I(Z));"DOLLARS RENT"\RETURN 2127 IF Z<>2 THEN 2128\M(Z)=M(Z)-R(I(Z))\M(1)=M(1)+R(I(Z)) 2128 PRINT "YOU OWE";R(I(Z));"DOLLARS RENT"\RETURN 3100 PRINT M$(13)\PRINTM$(14);\INPUTF$\IFF$="SELL"THEN3102 3101 GOTO 3105 3102 GOSUB 3150 3105 PRINTM$(19);\INPUTH$\IFH$="HOUSE"THEN3200\RETURN 3150 PRINTM$(15);\INPUTF$\IFF$<>"LIST"THEN3152\GOSUB3170 3152 PRINTM$(17);\INPUTV$\PRINT"HOW MUCH DO YOU WANT FOR IT";\INPUTV 3154 FOR I=1 TO 39 3156 IF V$<>G$(I)THEN3158\IFL(I)<>0THEN3158\PRINTM$(16)\RETURN 3158 IFV$<>G$(I)THEN3160\IFL(I)<>1THEN3160\M(1)=M(1)+V 3159 M(2)=M(2)-V\L(I)=2\GOTO 3165 3160 IF V$<>G$(I)THEN3162\IFL(I)<>2THEN3162\M(2)=M(2)+V 3161 M(1)=M(1)-V\L(I)=1\GOTO 3165 3162 NEXT I 3165 PRINT M$(18);\INPUT F$\IFF$="YES"THEN 3152\RETURN 3170 C=0\D=0 3171 FOR I=1 TO 39 3172 IFL(I)<>1THEN 3174\C=C+1\A$(C)=G$(I) 3174 IFL(I)<>2 THEN 3175\D=D+1\B$(D)=G$(I) 3175 NEXT I 3176 PRINT N$(1);"'S PROPERTY" 3177 FOR I=1 TO C\PRINT A$(I)\NEXT I 3178 PRINT N$(2);"'S PROPERTY" 3180 FOR I=1 TO D\PRINT B$(I)\NEXT I 3182 RETURN 3200 IFL(1)<>ZTHEN3202\IFL(3)<>ZTHEN3202\PRINTP$;"50";O$ 3201 PRINT G$(1);" ";G$(3);\INPUT U\GOSUB 3250 3202 IFL(6)<>ZGOTO3204\IFL(8)<>ZGOTO3204\IFL(9)<>ZGOTO3204 3203 PRINTP$;"50";O$\PRINTG$(6);" ";G$(8);" ";G$(9);\INPUTU\GOSUB3254 3204 IFL(11)<>ZGOTO3206\IFL(13)<>ZGOTO3206\IFL(14)<>ZGOTO3206 3205PRINTP$;"100";O$\PRINTG$(11);" ";G$(13);" ";G$(14);\INPUTU\GOSUB3258 3206 IFL(16)<>ZGOTO3208\IFL(18)<>ZGOTO3208\IFL(19)<>ZGOTO3208 3207PRINTP$;"100";O$\PRINTG$(16);" ";G$(18);" ";G$(19);\INPUTU\GOSUB3262 3208IFL(21)<>ZGOTO3210\IFL(23)<>ZGOTO3210\IFL(24)<>ZGOTO3210 3209PRINTP$;"150";O$\PRINTG$(21);" ";G$(23);" ";G$(24);\INPUTU\GOSUB3266 3210IFL(26)<>ZGOTO3212\IFL(27)<>ZGOTO3212\IFL(29)<>ZGOTO3212 3211PRINTP$;"150";O$\PRINTG$(26);" ";G$(27);" ";G$(29);\INPUTU\GOSUB3270 3212IFL(31)<>ZGOTO3214\IFL(32)<>ZGOTO3214\IFL(34)<>ZGOTO3214 3213PRINTP$;"200";O$\PRINTG$(31);" ";G$(32);" ";G$(34);\INPUTU\GOSUB3274 3214IFL(37)<>ZGOTO3220\IFL(39)<>ZGOTO3220\PRINTP$;"200";O$ 3215PRINTG$(37);" ";G$(39);\INPUTU\GOSUB3278 3220 RETURN 3250U(1)=U(1)+U\M(Z)=M(Z)-(U*100)\IFM(Z)=>0THEN3252\PRINTM$(20) 3251 M(Z)=M(Z)+(U*100)\U(1)=U(1)-U\RETURN 3252 H(1)=U(1)\H(3)=U(1)\RETURN 3254U(2)=U(2)+U\M(Z)=M(Z)-(U*150)\IFM(Z)=>0THEN3256\PRINTM$(20) 3255 M(Z)=M(Z)+(U*150)\U(2)=U(2)-U\RETURN 3256 H(6)=U(2)\H(8)=U(2)\H(9)=U(2)\RETURN 3258U(3)=U(3)+U\M(Z)=M(Z)-(U*150)\IFM(Z)=>0THEN3260\PRINTM$(20) 3259 M(Z)=M(Z)+(U*150)\U(3)=U(3)-U\RETURN 3260 H(11)=U(3)\H(13)=U(3)\H(14)=U(3)\RETURN 3262U(4)=U(4)+U\M(Z)=M(Z)-(U*300)\IFM(Z)=>0THEN3264\PRINTM$(20) 3263 M(Z)=M(Z)+(U*300)\U(4)=U(4)-U\RETURN 3264 H(16)=U(4)\H(18)=U(4)\H(19)=U(4)\RETURN 3266U(5)=U(5)+U\M(Z)=M(Z)-(U*450)\IFM(Z)=>0THEN3268\PRINTM$(20) 3267 M(Z)=M(Z)+(U*450)\U(5)=U(5)-U\RETURN 3268 H(21)=U(5)\H(23)=U(5)\H(24)=U(5)\RETURN 3270U(6)=U(6)+U\M(Z)=M(Z)-(U*450)\IFM(Z)=>0THEN3272\PRINTM$(20) 3271M(Z)=M(Z)+(U*450)\U(6)=U(6)-U\RETURN 3272 H(26)=U(6)\H(27)=U(6)\H(29)=U(6)\RETURN 3274U(7)=U(7)+U\M(Z)=M(Z)-(U*600)\IFM(Z)=>0THEN3276\PRINTM$(20) 3275 M(Z)=M(Z)+(U*600)\U(7)=U(7)-U\RETURN 3276 H(31)=U(7)\H(32)=U(7)\H(34)=U(7)\RETURN 3278U(8)=U(8)+U\M(Z)=M(Z)-(U*400)\IFM(Z)=>0THEN3280\PRINTM$(20) 3279 M(Z)=M(Z)+(U*400)\U(8)=U(8)-U\RETURN 3280 H(37)=U(8)\H(39)=U(8)\RETURN 3900 REM COMMUNITY CHEST 4100 RANDOMIZE\L=RND(0) 4102 IF L>.1 THEN 4104\PRINTZ$(1)\M(Z)=M(Z)+100\RETURN 4104 IF L>.2 THEN 4106\PRINTZ$(2)\M(Z)=M(Z)+100\RETURN 4106 IF L>.3 THEN 4108\PRINTZ$(3)\M(Z)=M(Z)+20\RETURN 4108 IF L>.4 THEN 4110\PRINTZ$(4)\M(Z)=M(Z)-50\RETURN 4110 IF L>.5 THEN 4112\PRINTZ$(5)\M(Z)=M(Z)+100\RETURN 4112 IF L>.6 THEN 4114\PRINTZ$(6)\M(Z)=M(Z)+200\I(Z)=0\RETURN 4114 IF L>.7 THEN 4116\PRINTZ$(7)\M(Z)=M(Z)-100\RETURN 4116 IF L>.8 THEN 4118\PRINTZ$(8)\M(Z)=M(Z)-50\I(Z)=10\RETURN 4118 IF L>.9 THEN 4120\PRINTZ$(9)\M(Z)=M(Z)-50\RETURN 4120 PRINT Z$(10)\M(Z)=M(Z)+200\RETURN 4300 REM CHANCE 4400 RANDOMIZE\L=RND(0) 4402 IF L>.1 THEN 4404\PRINTC$(1)\M(Z)=M(Z)-15\RETURN 4404 IF L>.2 THEN 4406\PRINTC$(2)\I(Z)=24\GOSUB 2000 4405 RETURN 4406 IF L>.3 THEN 4408\PRINTC$(3)\I(Z)=I(Z)-3\GOSUB 2000 4407 RETURN 4408 IF L>.4 THEN 4410\PRINTC$(4)\I(Z)=0\M(Z)=M(Z)+200\RETURN 4410 IF L>.5 THEN 4412\PRINTC$(5)\M(Z)=M(Z)+50\RETURN 4412 IF L>.6 THEN 4414\PRINTC$(6)\I(Z)=5\M(Z)=M(Z)+200\GOSUB2000 4413 RETURN 4414 IF L>.7 THEN 4416\PRINTC$(7)\I(Z)=10\M(Z)=M(Z)-50\RETURN 4416 IF L>.8 THEN 4418\PRINTC$(8)\M(Z)=M(Z)+150\RETURN 4418 IF L>.9 THEN 4420\PRINTC$(9)\I(Z)=39\GOSUB 2000 4419 RETURN 4420 PRINTC$(10)\I(Z)=11\GOSUB 2000 4421 RETURN 30000 C=0\D=0 30002 FOR I=1 TO 39 30004 IF L(I)<>1 THEN 30006\C=C+1\A$(C)=G$(I) 30006 IF L(I)<>2 THEN 30007\D=D+1\B$(D)=G$(I) 30007 NEXT I\PRINT \PRINT 30008 PRINT N$(1);" OWNED THE FOLLOWING PROPERTY" 30009 FOR I=1 TO C\PRINTA$(I)\NEXT I 30010 PRINT "AND HAD";M(1);"DOLLARS AT THE END OF THE GAME" 30011 PRINT N$(2);" OWNED THE FOLLOWING PROPERTY" 30012 FOR I=1 TO D\PRINT B$(I)\NEXT I 30013 PRINT "AND HAD";M(2);"DOLLARS AT THE END OF THE GAME" 30020 END 10 LET A1=INT(14*RND(X)+6) 20 LET X=1 30 REM *** CONVERTED FROM BRAND X TO DIGITAL RSTS/E BY DAVID AHL 35 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 40 PRINT " N.B. THIS PROGRAM IS DESIGNED FOR THOSE WHO KNOW NOTHING" 50 PRINT " ABOUT HOCKEY LIKE MYSELF. --- C. BUTTREY" 60 PRINT " THIS IS CORNELL U. HOCKEY." 70 PRINT " I AM CORNELL, WHO ARE YOU"; 90 INPUT A$ 100 PRINT 110 PRINT " YOU HAVE THREE SHOTS:" 120 PRINT " 1. SLAP SHOT." 130 PRINT " 2. FLICK SHOT." 140 PRINT " 3. WRIST SHOT." 150 PRINT 160 PRINT " HERE IS THE FACE-OFF:" 170 PRINT " SCORE:" 180 PRINT " CORNELL ";A 190 PRINT " ";A$;" ";B 200 IF X=2 THEN 240 210 IF X=3 THEN 260 220 IF A+B >= (1/3*A1) THEN 1560 230 GOTO 290 240 IF A+B >= (2/3*A1) THEN 1630 250 GOTO 290 260 IF (A+B) >= (A1) THEN 1710 270 GOTO 290 280 IF B=3 THEN 1560 290 LET C=INT(2*RND(X)+1) 300 IF C=1 THEN 330 310 PRINT " ";A$;" WINS THE FACE-OFF." 320 GOTO 650 330 PRINT " CORNELL TAKES THE FACE-OFF." 340 LET D=INT(3*RND(X)+1) 350 IF D=1 THEN 500 360 IF D=2 THEN 570 370 PRINT " WRIST SHOT..." 380 LET E=INT(5*RND(X)+1) 390 IF E=4 THEN 470 400 PRINT " SHOT IS MISSED." 410 LET F=INT(2*RND(X)+1) 420 IF F=1 THEN 450 430 PRINT " CORNELL REGAINS THE PUCK." 440 GOTO 340 450 PRINT " ";A$;" TAKES THE PUCK." 460 GOTO 650 470 PRINT " **GOOD!**" 480 LET A=A+1 490 GOTO 160 500 PRINT " SLAP SHOT..." 510 LET C1=INT(3*RND(X)+1) 520 IF C1=2 THEN 540 530 GOTO 560 540 PRINT " ICING PENALTY....." 550 GOTO 450 560 GOTO 380 570 PRINT " FLICK SHOT.." 580 LET S1=INT(3*RND(X)+1) 590 IF S1=3 THEN 610 600 GOTO 640 610 PRINT " PENALTY FOR HIGH STICKING! CORNELL MAN PUT IN BOX FOR" 620 PRINT " TWO MINUTES!" 630 GOTO 1110 640 GOTO 380 650 PRINT " YOUR SHOT"; 660 INPUT G 670 IF G=1 THEN 720 680 IF G=2 THEN 900 690 IF G=3 THEN 970 700 PRINT " INPUT EITHER '1' '2' OR '3'" 710 GOTO 650 720 PRINT " SLAP SHOT." 730 LET Z1=INT(3*RND(X)+1) 740 IF Z1=2 THEN 760 750 GOTO 780 760 PRINT " ICING PENALTY....." 770 GOTO 1090 780 LET H=INT(5*RND(X)+1) 790 IF H=1 THEN 870 800 PRINT " SHOT IS WIDE." 810 LET I=INT(2*RND(X)+1) 820 IF I=1 THEN 850 830 PRINT " CORNELL TAKES THE PUCK." 840 GOTO 990 850 PRINT " ";A$;" REGAINS THE PUCK." 860 GOTO 650 870 PRINT " **GOOD!**" 880 LET B=B+1 890 GOTO 160 900 PRINT " FLICK SHOT...." 910 LET B1=INT(3*RND(X)+1) 920 IF B1=1 THEN 940 930 GOTO 960 940 PRINT " ICING PENALTY....." 950 GOTO 830 960 GOTO 780 970 PRINT " WRIST SHOT.." 980 GOTO 780 990 PRINT " CORNELL SHOT:" 1000 LET J=INT(3*RND(X)+1) 1010 IF J=1 THEN 1160 1020 IF J=2 THEN 1210 1030 PRINT " SLAP SHOT." 1040 LET K=INT(5*RND(X)+1) 1050 IF K=1 THEN 1130 1060 PRINT " SHOT HITS THE POST." 1070 LET L=INT(2*RND(X)+1) 1080 IF L=1 THEN 1110 1090 PRINT " CORNELL REGAINS THE PUCK." 1100 GOTO 990 1110 PRINT " ";A$;" REGAINS THE PUCK." 1120 GOTO 1310 1130 PRINT " **GOOD!**" 1140 LET A=A+1 1150 GOTO 160 1160 PRINT " WRIST SHOT" 1170 LET M=INT(5*RND(X)+1) 1180 IF M=5 THEN 1130 1190 PRINT " SHOT IS HIGH." 1200 GOTO 1070 1210 PRINT " FLICK SHOT" 1220 LET T1=INT(3*RND(X)+1) 1230 IF T1=1 THEN 1250 1240 GOTO 1270 1250 PRINT " ICING PENALTY....." 1260 GOTO 450 1270 LET N=INT(5*RND(X)+1) 1280 IF N=1 THEN 1130 1290 PRINT " SHOT IS BLOCKED BY THE GOALIE." 1300 GOTO 1070 1310 PRINT " YOUR SHOT"; 1320 INPUT O 1330 IF O=1 THEN 1430 1340 IF O=2 THEN 1540 1350 PRINT " WRIST SHOT." 1360 LET P=INT(5*RND(X)+1) 1370 IF P=2 THEN 870 1380 PRINT " SHOT IS BARELY WIDE..." 1390 LET Q=INT(3*RND(X)+1) 1400 IF Q=1 THEN 830 1410 PRINT " ";A$;" REGAINS THE PUCK." 1420 GOTO 650 1430 PRINT " SLAP SHOT" 1440 LET D1=INT(3*RND(X)+1) 1450 IF D1=3 THEN 1470 1460 GOTO 1500 1470 PRINT " PENALTY FOR HIGH STICKING! ";A$;" MAN PUT IN PENALTY" 1480 PRINT " BOX FOR TWO MINUTES" 1490 GOTO 830 1500 LET R=INT(5*RND(X)+1) 1510 IF R=1 THEN 870 1520 PRINT " SHOT IS TAKEN BY THE CORNELL GOALIE." 1530 GOTO 830 1540 PRINT " FLICK SHOT" 1550 GOTO 1500 1560 PRINT " ***** END OF FIRST PERIOD *****" 1570 LET X=2 1580 PRINT " SCORE:" 1590 PRINT " CORNELL ";A 1600 PRINT " ";A$;" ";B 1610 PRINT " START OF SECOND PERIOD." 1620 GOTO 160 1630 PRINT " ***** END OF SECOND PERIOD *****" 1640 LET X=3 1650 PRINT " SCORE:" 1660 PRINT " CORNELL ";A 1670 PRINT " ";A$;" ";B 1680 PRINT "" 1690 PRINT " START OF THIRD PERIOD." 1700 GOTO 160 1710 PRINT " ***** END OF GAME *****" 1720 IF A=B THEN 1770 1730 PRINT " FINAL SCORE:" 1740 PRINT " CORNELL ";A 1750 PRINT " ";A$;" ";B 1760 STOP 1770 PRINT " SINCE SCORE IS TIED, WE WILL HAVE TO GO" 1780 PRINT " INTO SUDDEN-DEATH!" 1790 PRINT " HERE IS THE FACE-OFF." 1800 PRINT " SCORE:" 1810 PRINT " CORNELL ";A 1820 PRINT " ";A$;" ";B 1830 LET S=INT(2*RND(X)+1) 1840 IF S=1 THEN 1870 1850 PRINT " ";A$;" WINS THE FACE-OFF." 1860 GOTO 2080 1870 PRINT " CORNELL WINS THE FACE-OFF." 1880 LET T=INT(3*RND(X)+1) 1890 IF T=1 THEN 2040 1900 IF T=2 THEN 2060 1910 PRINT " WRIST SHOT." 1920 LET U=INT(5*RND(X)+1) 1930 IF U=1 THEN 2010 1940 PRINT " SHOT IS MISSED." 1950 LET V=INT(2*RND(X)+1) 1960 IF V=1 THEN 1990 1970 PRINT " ";A$;" TAKES THE PUCK." 1980 GOTO 2080 1990 PRINT " CORNELL REGAINS THE PUCK." 2000 GOTO 1880 2010 PRINT " **GOOD!**" 2020 LET A=A+1 2030 GOTO 2260 2040 PRINT " SLAP SHOT" 2050 GOTO 1920 2060 PRINT " FLICK SHOT." 2070 GOTO 1920 2080 PRINT " YOUR SHOT"; 2090 INPUT W 2100 IF W=1 THEN 2220 2110 IF W=2 THEN 2240 2120 PRINT "WRIST SHOT." 2130 LET Y=INT(5*RND(X)+1) 2140 IF Y=4 THEN 2190 2150 PRINT " SHOT IS MISSED." 2160 LET Z=INT(2*RND(X)+1) 2170 IF Z=1 THEN 1990 2180 GOTO 1970 2190 PRINT " **GOOD!**" 2200 LET B=B+1 2210 GOTO 2260 2220 PRINT " SLAP SHOT." 2230 GOTO 2130 2240 PRINT " FLICK SHOT." 2250 GOTO 2130 2260 PRINT " GAME IS OVER!!" 2270 PRINT " FINAL SCORE:" 2280 PRINT " CORNELL ";A 2290 PRINT " ";A$;" ";B 2300 END 1 REM PROGRAM WRITTEN BY RAYMOND W. MISEYKA 2 REM SENIOR AT BUTLER SENIOR HIGH SCHOOL 3 REM BUTLER, PENNSYLVANIA 16001 4 REM DATE: 1/30/73 5 REM COMPUTER SUPERVISION- MR. WILLIAM ELLIS 6 REM COMPUTER TOPICS INSTRUCTION- MR. ALBERT STEWERT 7 REM I WROTE THIS PROGRAM BECAUSE OF THE CHALLENGE 8 REM INVOLVED IN OVERCOMING THE COMPLEXITIES OF SUCH A GAME 9 REM 10 REM CONVERTED TO BASIC-PLUS FOR RSTS/E BY DAVE AHL, DIGITAL 11 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 120 DIM A(20),B(20),C(40),H(2),T(2),W(2),X(2),Y(2),Z(2) 130 DIM M$(2),D(2) 140 PRINT "RAMIS ENTERPRISES PRESENTS N.F.U. FOOTBALL(NO FORTRAN USED)" 145 PRINT\PRINT 150 PRINT "DO YOU WISH INSTRUCTIONS?";\INPUT A$ 155 RANDOMIZE 160 IF A$="NO" THEN 290\IF A$<>"YES" THEN 150 170 PRINT "THIS IS A GAME FOR 2 TEAMS IN WHICH EACH PLAYER MUST" 180 PRINT "PREPARE A TAPE WITH A DATA STATEMENT(1770 FOR TEAM 1" 190 PRINT "1780 FOR TEAM 2)IN WHICH EACH TEAM SCRAMBLES NOS. 1-20" 195 PRINT "THESE NUMBERS ARE THEN ASSIGNED TO 20 GIVEN PLAYS." 200 PRINT "A LIST OF NOS. AND THEIR PLAYS ARE PROVIDED WITH" 210 PRINT "BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE" 220 PRINT "PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN" 223 PRINT "WHENEVER SCORES ARE MADE. SCORES MAY ALSO BE OBTAINED" 225 PRINT "BY INPUTING 99,99 FOR PLAY NOS.. TO PUNT OR ATTEMPT A" 227 PRINT "FIELDGOAL, INPUT 77,77 FOR PLAY NOS.. QUESTIONS WILL BE" 230 PRINT "ASKED THEN. ON 4TH DOWN YOU WILL ALSO BE ASKED WHETHER" 240 PRINT "YOU WANT TO PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSWER" 250 PRINT "TO BOTH QUESTIONS IS NO, IT WILL BE ASSUMED YOU WANT TO" 260 PRINT "TRY AND GAIN YARDAGE. ANSWER ALL QUESTIONS YES OR NO." 270 PRINT "GAME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C)." 280 PRINT "PLEASE PREPARE A TAPE AND RUN. " 281 PRINT "NOTE: OS8 VERSION--YOU NEED NOT PREPARE THE DATA STAMENTS--" 282 PRINT "YOU MAY USE THE EXISTING PROGRAM STATEMENTS." 290 PRINT\PRINT "INPUT SCORE LIMIT ON GAME";\INPUT E 300 FOR I=1 TO 40\READ N\IF I>20 THEN 350 330 A(N)=I\GOTO 360 350 B(N)=I-20 360 C(I)=N\NEXT I 380 L=0\T=1 410 PRINT "TEAM";T;"PLAY CHART" 420 PRINT "NO. PLAY"\PRINT 430 PRINT C(1+L);TAB(6);"PITCHOUT" 440 PRINT C(2+L);TAB(6);"TRIPLE REVERSE" 450 PRINT C(3+L);TAB(6);"DRAW" 460 PRINT C(4+L);TAB(6);"QB SNEAK" 470 PRINT C(5+L);TAB(6);"END AROUND" 480 PRINT C(6+L);TAB(6);"DOUBLE REVERSE" 490 PRINT C(7+L);TAB(6);"LEFT SWEEP" 500 PRINT C(8+L);TAB(6);"RIGHT SWEEP" 510 PRINT C(9+L);TAB(6);"OFF TACKLE" 520 PRINT C(10+L);TAB(6);"WISHBONE OPTION" 530 PRINT C(11+L);TAB(6);"FLARE PASS" 540 PRINT C(12+L);TAB(6);"SCREEN PASS" 550 PRINT C(13+L);TAB(6);"ROLL OUT OPTION" 560 PRINT C(14+L);TAB(6);"RIGHT CURL" 570 PRINT C(15+L);TAB(6);"LEFT CURL" 580 PRINT C(16+L);TAB(6);"WISHBONE OPTION" 590 PRINT C(17+L);TAB(6);"SIDELINE PASS" 600 PRINT C(18+L);TAB(6);"HALF-BACK OPTION" 610 PRINT C(19+L);TAB(6);"RAZZLE DAZZLE" 620 PRINT C(20+L);TAB(6);"BOMB!!!!!!!!" 630 L=L+20\T=2 640 PRINT\PRINT "TEAR OFF HERE -----------------------------------------------" 660 FOR X=1 TO 11\PRINT\NEXT X 670 FOR Z=1 TO 3000\NEXT Z 680 IF L=20 THEN 410 690 D(1)=0\D(2)=3\M$(1)="--->"\M$(2)="<---" 700 H(1)=0\H(2)=0\T(1)=2\T(2)=1 710 W(1)=-1\W(2)=1\X(1)=100\X(2)=0 720 Y(1)=1\Y(2)=-1\Z(1)=0\Z(2)=100 725 GOSUB 1910 730 PRINT "TEAM 1 DEFENDS 0 YD. GOAL--TEAM 2 DEFENDS 100 YD. GOAL" 740 T=INT(2*RND(O)+1) 760 PRINT\PRINT "THE COIN IS FLIPPED" 765 P=X(T)-Y(T)*40 770 GOSUB 1860 775 PRINT\PRINT "TEAM";T;"RECEIVES KICK-OFF" 780 K=INT(26*RND(O)+40) 790 P=P-Y(T)*K 794 IF W(T)*P<Z(T)+10 THEN 810\PRINT\PRINT "BALL WENT OUT OF ENDZONE"; 795 PRINT "--AUTOMATIC TOUCHBACK--"\GOTO 870 810 PRINT\PRINT "BALL WENT";K;"YARDS, NOW ON ";P\GOSUB 1900 830 PRINT "TEAM";T;"DO YOU WANT TO RUNBACK";\INPUT A$ 840 IF A$="YES" THEN 1430\IF A$<>"NO" THEN 830 850 IF W(T)*P<Z(T) THEN 880 870 P=Z(T)-W(T)*20 880 D=1\S=P 885PRINT"============================================================" 890 PRINT\PRINT "TEAM";T;"DOWN";D;"ON ";P; 893 IF D<>1 THEN 900 895 IF Y(T)*(P+Y(T)*10)>=X(T) THEN 898 897 C=4\GOTO 900 898 C=8 900 IF C=8 THEN 904 901 PRINT TAB(27);10-(Y(T)*P-Y(T)*S);"YARDS TO 1ST DOWN" 902 GOTO 910 904 PRINT TAB(27);X(T)-Y(T)*P;"YARDS TO GO" 910 GOSUB 1900\IF D=4 THEN 1180 920 RANDOMIZE 930 U=INT(3*RND(O)-1)\GOTO 940 936 PRINT "ILLEGAL PLAY NUMBER, CHECK AND" 940 PRINT "INPUT OFFENSIVE PLAY, DEFENSIVE PLAY"; 950 IF T=2 THEN 970 960 INPUT P1,P2\GOTO 975 970 INPUT P2,P1 975 IF P1=77 THEN 1180 980 IF P1>20 GOTO 1800\IF P1<1 GOTO 1800 990 IF P2>20 GOTO 1800\IF P2<1 GOTO 1800 995 P1=INT(P1)\P2=INT(P2) 1000 Y=INT(ABS(A(P1)-B(P2))/19*((X(T)-Y(T)*P+25)*RND(O)-15)) 1005 PRINT\IF T=2 THEN 1015 1010 IF A(P1)<11 THEN 1048\GOTO 1020 1015 IF B(P2)<11 THEN 1048 1020 IF U<>0 THEN 1035\PRINT "PASS INCOMPLETE TEAM";T 1030 Y=0\GOTO 1050 1035 G=RND(0)\IF G<.025 THEN 1040\IF Y>2 THEN 1045 1040 PRINT "QUARTERBACK SCRAMBLED"\GOTO 1050 1045 PRINT "PASS COMPLETED"\GOTO 1050 1048 PRINT "THE BALL WAS RUN" 1050 P=P-W(T)*Y 1060 PRINT\PRINT "NET YARDS GAINED ON DOWN";D;"ARE ";Y 1070 G=RND(O)\IF G>.025 THEN 1110 1080 PRINT\PRINT "** LOSS OF POSSESSION FROM TEAM";T;"TO TEAM";T(T) 1100 GOSUB 1850\PRINT\T=T(T)\GOTO 830 1110 IF Y(T)*P>=X(T) THEN 1320 1120 IF W(T)*P>=Z(T) THEN 1230 1130 IF Y(T)*P-Y(T)*S>=10 THEN 880 1140 D=D+1\IF D<>5 THEN 885 1160 PRINT\PRINT "CONVERSION UNSUCCESSFUL TEAM";T\T=T(T) 1170 GOSUB 1850\GOTO 880 1180 PRINT "DOES TEAM";T;"WANT TO PUNT";\INPUT A$ 1185 IF A$="NO" THEN 1200\IF A$<>"YES" THEN 1180 1190 PRINT\PRINT "TEAM";T;"WILL PUNT"\G=RND(0)\IF G<.025 THEN 1080 1195 GOSUB 1850\K=INT(25*RND(O)+35)\T=T(T)\GOTO 790 1200 PRINT "DOES TEAM";T;"WANT TO ATTEMPT A FIELD-GOAL";\INPUT A$ 1210 IF A$="YES"THEN 1640\IF A$<>"NO" THEN 1200\GOTO920 1230 PRINT \PRINT "SAFETY AGAINST TEAM";T;"-------------------OH-OH" 1240 H(T(T))=H(T(T))+2\GOSUB 1810 1280 PRINT "TEAM";T;"DO YOU WANT TO PUNT INSTEAD OF A KICKOFF";\INPUT A$ 1290 P=Z(T)-W(T)*20\IF A$="YES" THEN 1190 1320 PRINT\PRINT "TOUCHDOWN BY TEAM";T;"*********************YEA TEAM" 1340 Q=7\G=RND(O)\IF G>.1 THEN 1380 1360 Q=6\PRINT "EXTRA POINT NO GOOD"\GOTO 1390 1380 PRINT "EXTRA POINT GOOD" 1390 H(T)=H(T)+Q\GOSUB 1810 1420 T=T(T)\GOTO 765 1430 K=INT(9*RND(O)+1) 1440 R=INT(((X(T)-Y(T)*P+25)*RND(O)-15)/K) 1460 P=P-W(T)*R 1480 PRINT\PRINT "RUNBACK TEAM";T;R;"YARDS" 1485 RANDOMIZE\G=RND(O)\IF G<.025 THEN 1080 1490 IF Y(T)*P>=X(T) THEN 1320 1500 IF W(T)*P>=Z(T) THEN 1230\GOTO 880 1640 PRINT\PRINT "TEAM";T;"WILL ATTEMPT A FIELDGOAL" 1645 RANDOMIZE\G=RND(O)\IF G<.025 THEN 1080 1650 F=INT(35*RND(O)+20) 1660 PRINT\PRINT "KICK IS";F;"YARDS LONG" 1680 P=P-W(T)*F\RANDOMIZE\G=RND(O) 1690 IFG<.35THEN1735 1700 IF Y(T)*P<X(T) THEN 1740 1710 PRINT "FIELDGOAL GOOD FOR TEAM";T;"*****************YEA" 1720 Q=3\GOTO 1390 1735 PRINT"BALL WENT WIDE" 1740 PRINT "FIELDGOAL UNSUCCESSFUL TEAM";T;"----------------TOO BAD" 1742 GOSUB 1850 1743 IF Y(T)*P<X(T)+10 THEN 1745\T=T(T)\GOTO 794 1745 PRINT\PRINT "BALL NOW ON "P 1750 T=T(T)\GOSUB 1900\GOTO 830 1770 DATA 17,8,4,14,19,3,10,1,7,11,15,9,5,20,13,18,16,2,12,6 1780 DATA 20,2,17,5,8,18,12,11,1,4,19,14,10,7,9,15,6,13,16,3 1800 IF P1<>99 THEN 936 1810 PRINT\PRINT "TEAM 1 SCORE IS";H(1) 1820 PRINT "TEAM 2 SCORE IS";H(2)\PRINT 1825 IF H(T)<E THEN 1830\PRINT "TEAM";T;"WINS **********"\GOTO 2000 1830 IF P1=99 THEN 940 1840 RETURN 1850 PRINT 1860 PRINT "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" 1870 RETURN 1900 PRINT TAB(D(T)+6+P/2);M$(T) 1910PRINT"TEAM 1 (0 10 20 30 40 50 60 70 80 90 100)TEAM 2" 1920 PRINT 1930 RETURN 2000 END 2 PRINT "ARE YOU CONTINUING AN OLD GAME"; 3 INPUT Z$ 5 LET N5=8 6 RANDOMIZE 12 IF Z$="YES" GOTO 1960 14 IF Z$="NO" GOTO 50\PRINT "PLEASE ANSWER (YES OR NO)"\GOTO 2 50 LET A=INT(60000+(RND(1)*1000)-(RND(1)*1000)) 55 LET B=INT(500+(RND(1)*10)-(RND(1)*10)) 65 LET D=2000 100 LET W=INT(RND(1)*10+95) 101 FOR Y1=1 TO 8 102 PRINT 103 NEXT Y1 105 PRINT "YOU NOW HAVE";A;"RALLODS IN THE TREASURY." 110 PRINT INT(B);"COUNTRYMEN,"; 115 LET V9=INT(((RND(1)/2)*10+10)) 120 IF C=0 THEN 140 130 PRINT INT(C);"FOREIGN WORKERS,"; 140 PRINT " AND";INT(D);"SQ. MILES OF LAND." 150 PRINT"THIS YEAR INDUSTRY WILL BUY LAND FOR";W;"RALLODS PER SQ. MILE." 155 PRINT "LAND CURRENTLY COSTS";V9;"RALLODS PER SQ. MILE TO PLANT." 160 FOR Y1=1 TO 3 162 PRINT 164 NEXT Y1 200 PRINT "HOW MANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY"; 210 INPUT H 215 IF H<0 THEN 200 220 IF H<=D-1000 THEN 300 230 PRINT " THINK AGAIN, YOU'VE ONLY";D-1000;"SQ. MILES OF FARM LAND" 240 IF X <> 0 THEN 200 250 PRINT "(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND BECAUSE FOREST" 260 PRINT "LAND IS UNECONOMICAL TO STRIP MINE DUE TO TREES," 270 PRINT "THICKER TOP SOIL, ETC.)" 280 LET X=1 299 GOTO 200 300 LET D=INT(D-H) 310 LET A=INT(A+(H*W)) 320 PRINT "HOW MANY RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN"; 340 INPUT I 342 IF I<0 THEN 320 350 IF I<A THEN 400 360 IF I=A THEN 380 370 PRINT " THINK AGAIN YOU'VE ONLY";A;"RALLODS IN THE TREASURY" 375 GOTO 320 380 LET J=0 390 LET K=0 395 LET A=0 399 GOTO 1000 400 LET A=INT(A-I) 410 PRINT "HOW MANY SQ. MILES DO YOU WISH TO PLANT"; 420 INPUT J 421 IF J<0 THEN 410 422 IF J<=B*2 THEN 426 423 PRINT " SORRY, BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. MILES" 424 GOTO 410 426 IF J<=D-1000 THEN 430 427 PRINT " SORRY, BUT YOU'VE ONLY";D-1000;"SQ. MILES OF FARM LAND" 428 GOTO 410 430 LET U1=INT(J*V9) 435 IF U1<A THEN 500 440 IF U1=A THEN 490 450 PRINT " THINK AGAIN, YOU'VE ONLY";A;"RALLODS LEFT IN THE TREASURY" 460 GOTO 410 490 LET K=0 495 LET A=0 499 GOTO 1000 500 LET A=A-U1 505 IF D=2000 THEN 1000 510 PRINT "HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL"; 520 INPUT K 522 IF K<0 THEN 510 530 IF K<=A THEN 1000 540 PRINT " THINK AGAIN, YOU'VE ONLY";A;"RALLODS REMAINING" 550 GOTO 510 600 IF H<>0 THEN 1002 602 IF I<>0 THEN 1002 604 IF J<>0 THEN 1002 606 IF K<>0 THEN 1002 608 FOR Y1=1 TO 5 609 PRINT 610 NEXT Y1 612 PRINT "GOODBYE." 614 PRINT "(IF YOU WISH TO CONTINUE THIS GAME AT A LATER DATE, ANSWER " 616 PRINT "1000 FOR HOW MANY TIMES YOU'VE PLAYED, AT BEGINNING OF NEXT "; 617 PRINT "GAME.)" 618 GOTO 1590 1000 GOTO 600 1002 FOR Y1=1 TO 3 1003 PRINT 1004 NEXT Y1 1010 LET A=INT(A-K) 1020 LET A4=A 1100 IF INT(I/100-B)>=0 THEN 1120 1105 IF I/100<50 THEN 1700 1110 PRINT INT(B-(I/100));"COUNTRYMEN DIED OF STARVATION" 1120 LET F1=INT(RND(1)*(2000-D)) 1122 IF K<25 THEN 1130 1125 LET F1=INT(F1/(K/25)) 1130 IF F1<=0 THEN 1150 1140 PRINT F1;"COUNTRYMEN DIED OF CARBON-MONOXIDE AND DUST INHALATION" 1150 IF INT((I/100)-B)<0 THEN 1170 1160 IF F1>0 THEN 1180 1165 GOTO 1200 1170 PRINT " YOU WERE FORCED TO SPEND";INT((F1+(B-(I/100)))*9); 1172 PRINT "RALLODS ON FUNERAL EXPENSES." 1174 LET B5=INT(F1+(B-(I/100))) 1175 LET A=INT(A-((F1+(B-(I/100)))*9)) 1176 GOTO 1185 1180 PRINT " YOU WERE FORCED TO SPEND";INT(F1*9);"RALLODS ON "; 1181 PRINT "FUNERAL EXPENSES." 1182 LET B5=F1 1183 LET A=INT(A-(F1*9)) 1185 IF A>=0 THEN 1194 1187 PRINT " INSUFFICIENT RESERVES TO COVER COST -LAND WAS SOLD" 1189 LET D=INT(D+(A/W)) 1190 LET A=0 1194 LET B=INT(B-B5) 1200 IF H=0 THEN 1250 1220 LET C1=INT(H+(RND(1)*10)-(RND(1)*20)) 1224 IF C>0 THEN 1230 1226 LET C1=C1+20 1230 PRINT C1;"WORKERS CAME TO THE COUNTRY AND"; 1250 LET P1=INT(((I/100-B)/10)+(K/25)-((2000-D)/50)-(F1/2)) 1255 PRINT ABS(P1);"COUNTRYMEN "; 1260 IF P1<0 THEN 1275 1265 PRINT "CAME TO"; 1270 GOTO 1280 1275 PRINT "LEFT"; 1280 PRINT " THE ISLAND." 1290 LET B=INT(B+P1) 1292 LET C=INT(C+C1) 1305 LET U2=INT(((2000-D)*((RND(1)+1.5)/2))) 1310 IF C=0 THEN 1324 1320 PRINT " OF";INT(J);"SQ. MILES PLANTED,"; 1324 IF J>U2 THEN 1330 1326 LET U2=J 1330 PRINT " YOU HARVESTED";INT(J-U2);"SQ. MILES OF CROPS." 1340 IF U2=0 THEN 1370 1344 IF T1>=2 THEN 1370 1350 PRINT " (DUE TO "; 1355 IF T1=0 THEN 1365 1360 PRINT "INCREASED "; 1365 PRINT "AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.)" 1367 LET T1=T1+1 1370 LET Q=INT((J-U2)*(W/2)) 1380 PRINT " MAKING";INT(Q);"RALLODS." 1390 LET A=INT(A+Q) 1400 LET V1=INT(((B-P1)*22)+(RND(1)*500)) 1405 LET V2=INT((2000-D)*15) 1410 PRINT " YOU MADE";ABS(INT(V1-V2));"RALLODS FROM TOURIST TRADE." 1420 IF V2=0 THEN 1450 1425 IF V1-V2>=V3 THEN 1450 1430 PRINT " DECREASE BECAUSE "; 1435 LET G1=RND(1)*10 1440 IF G1<=2 THEN 1460 1442 IF G1<=4 THEN 1465 1444 IF G1<=6 THEN 1470 1446 IF G1<=8 THEN 1475 1448 IF G1<=10 THEN 1480 1450 LET V3=INT(V1-V2) 1451 LET A=INT(A+V3) 1452 GOTO 1500 1460 PRINT "FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION." 1462 GOTO 1450 1465 PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION." 1467 GOTO 1450 1470 PRINT "MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION." 1472 GOTO 1450 1475 PRINT "UNPLEASANT SMOG IS DISCOURAGING SUN BATHERS." 1477 GOTO 1450 1480 PRINT "HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT." 1482 GOTO 1450 1500 IF B5>200 THEN 1600 1505 IF B<343 THEN 1700 1510 IF (A4/100)>5 THEN 1800 1515 IF C>B THEN 1550 1520 IF N5-1=X5 THEN 1900 1545 GOTO 2000 1550 FOR Y1=1 TO 8 1552 PRINT 1555 NEXT Y1 1560 PRINT "THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER" 1562 PRINT "OF COUNTRYMEN. AS A MAJORITY THEY HAVE REVOLTED AND" 1564 PRINT "TAKEN OVER THE COUNTRY." 1570 IF RND(1)<=.5 THEN 1580 1574 PRINT "YOU HAVE BEEN THROWN OUT OF OFFICE AND YOU ARE NOW" 1576 PRINT "RESIDING IN PRISION." 1578 GOTO 1590 1580 PRINT "YOU HAVE BEEN ASSASSINATED." 1590 FOR Y1=1 TO 18 1592 PRINT 1594 NEXT Y1 1596 STOP 1600 FOR Y1=1 TO 8 1602 PRINT 1605 NEXT Y1 1610 PRINT B5;"COUNTYRMEN DIED IN ONE YEAR!!!!!" 1615 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 1620 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU" 1622 LET M6=INT(RND(1)*10) 1625 IF M6<=3 THEN 1670 1630 IF M6<=6 THEN 1680 1635 IF M6<=10 THEN 1690 1670 PRINT "ALSO HAD YOUR LEFT EYE GOUGED OUT." 1672 GOTO 1590 1680 PRINT "HAVE ALSO GAINED A VERY BAD REPUTATION." 1682 GOTO 1590 1690 PRINT "HAVE ALSO BEEN DECLARED NATIONAL FINK." 1692 GOTO 1590 1700 FOR Y1=1 TO 8 1702 PRINT 1705 NEXT Y1 1710 PRINT "OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU" 1715 PRINT "WERE ELECTED TO OFFICE. THE PROPLE (REMAINING)" 1720 PRINT "HATE YOUR GUTS." 1730 GOTO 1570 1800 IF B5-F1<2 THEN 1515 1805 FOR Y1=1 TO 8 1807 PRINT 1810 NEXT Y1 1815 PRINT "MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID" 1820 PRINT "NOT SPEND. AS A RESULT SOME OF YOUR COUNTRYMEN DIED" 1825 PRINT "OF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE" 1830 PRINT "BEEN FORCED TO EITHER RESIGN OR COMMIT SUCIDE" 1835 PRINT "THE CHOICE IS YOURS." 1840 PRINT "IF YOU CHOOSE THE LATTER, PLEASE TURN OFF YOUR TTY"; 1845 PRINT " BEFORE PROCEEDING." 1850 GOTO 1590 1900 FOR Y1=1 TO 8 1902 PRINT 1905 NEXT Y1 1920 PRINT "CONGRATULATIONS!!!!!!!!!!!!!!!!!" 1925 PRINT "YOU HAVE SUCCESSFULLY COMPLETED YOUR";N5;"YEAR TERM" 1930 PRINT "OF OFFICE. YOU WERE, OF COURSE, EXTREMELY LUCKY, BUT NEVER THE" 1935 PRINT "LESS, IT'S QUITE AN ACHIEVEMENT. GOODBY AND GOOD LUCK -YOU'LL" 1940 PRINT "PROBABLY NEED IT IF YOU'RE THE TYPE THAT PLAYS THIS GAME." 1945 PRINT " -FOR FURTHER THRILLS, TRY LANDING ON THE MOON" 1950 GOTO 1590 1960 PRINT "HOW MANY YEARS HAD YOU BEEN IN OFFICE WHEN INTERRUPTED"; 1961 INPUT X5 1962 IF X5<0 THEN 1590 1963 IF X5<8 THEN 1969 1965 PRINT " COME ON, YOUR TERM OF OFFICE IS ONLY";N5;"YEARS" 1967 GOTO 1960 1969 PRINT "HOW MUCH DID YOU HAVE IN THE TREASURY"; 1970 INPUT A 1971 IF A<0 THEN 1590 1975 PRINT "HOW MANY COUNTRYMEN"; 1976 INPUT B 1977 IF B<0 THEN 1590 1980 PRINT "HOW MANY WORKERS"; 1981 INPUT C 1982 IF C<0 THEN 1590 1990 PRINT "HOW MANY SQ. MILES OF LAND"; 1991 INPUT D 1992 IF D<0 THEN 1590 1993 IF D>2000 THEN 1996 1994 IF D>1000 THEN 100 1996 PRINT " COME ON, YOU STARTED WITH 1000 SQ. MILES OF FARM LAND" 1997 PRINT " AND 1000 SQ. MILES OF FOREST LAND" 1998 GOTO 1990 2000 X5=X5+1 2020 B5=0 2040 GOTO 100 2046 END ||@qH&-  39>6/6v "> - 9 >* <*9 &>* %*9 '>* $*9 #>- ;- 7
 3;98= 1> 1.1%.>4v?664] }$"` z%H/8_)%2@z`"'fX#f$!.#bX#f'.'d%"#%&' &"b({]z;}%"&_"(4z;<;z`\<6,]q]t%?&4Ii\G%B(y{@Sz?(/|?2(uz]w{ w%" w{\w%?&}]w\)w{)<]yw%"(x{\tzq]te_)K 7wO<mvDw\t@?K9<K{\<K3HNy\qw )KP83 ? {%(K{H"zo $faKZ}~fB"%b(&{H`y$H/n$o$N|yd{fZ n()fz%"%%b(&r(uzR("H(f).)|i)~"a&b({t#n(}"a%bqz fz{fJ "f%#b&)bD~b~(b}b}dn{"dK}"%~b&&k@/@jC1p9K8  j 83 <z`4<]}5]z1)0 |1 z0)y1 z0)v1 }K(00+ KR;OgL@ ]}6$Kai3}90%@/I`)PfC0P /`K1 91]}50 704}])z\)}$$2iz0)<5yK$"$PkB@1 ]}r<%H/\)<py}])}.3\i}t)]zo&q#o ozqoozqon}3(//s)2C8K%h/uF>($r!n(&r Dz$&f%3k$&$]i}o))]z\)}r))pz])}t)]zn2o/nzo,n}r5]z$&aozn)83<R ;OKgpLHgpUw"}u6y_t6HnpEU u,~ L D`An~uo@k9rC8d7 !lC 8K``(xRE P1vqJU0@ y:(/D"$`/G.VX"(Uz@Z{$@n%H/n%$dM%"$@ku p0$%&&Yb$^i[0r"6sQ)rrsH%f$n&!f^Kf;@:H*# uROk+o$ ||HqH&-  39>6/6v "> - 9 >* <*9 &>* %*9 '>* $*9 #>- ;- 7
 3;98= 1> 1.1%.>4v?664~}{wrr(K{ShY)X"JZnY"y# |bscFn<` DI dztF>n[ b sC0sbr""b\ &"r"(>z C0!sc(Nz"1Js;0 QzwF>n[ b wnyKw3Fn[`aJ*oj`]L}Yf]sbW|AnN L @| >pQn||&|{2(qtq*;Hn Dz6{6 ?I bu" z ,?vj|"& ,?w"" =G#F.>`A'><'@(?X,|axG,;c8$pRJ?,U /R!,IV"&N!NJW&,!RJ~}?^CaIx""` l?qwV}iyysz{w xcutsv |? ntKBniNnN?+k`.`"srr(K{w ?Nna Dz6{6 ?I x"H n scsr \{H.2zHo;H.tzCI&`C*Ho]bIVn^nCH.~bI&`^&Vbb ?IIv , _c & <@Zz^";bss7I\+ rb sb qb l < ti ,qeunNnNnNnNnN$swrHo.zo.{\t';*]bt^r.Bt'VjtgbscJn~{_?(zyw}>n< >C(O;76=@7:{ obpF|bG`c ?IFGH| G /WH" Wzas#sFrHoGbxHr!?k2v;wr{rHuyn& xC yGxyDl,bd9
|||gbzxF p@z/|z"b H/NIbAWio@Vip  bff#fY  "(Fz(/U "X#(J# "`zb & "b b c tA+#"`z&&f@.V#4#" `/#&ZbHzc@.V4ok&d6xy'xz'n{|}r~}rd{#B',"|QW|
@q@.% "! $2.$'=% 9<<;;,.!:1</:0<*90!<0"/900& > /9%./8== %  '=%  8'=%  /78!6598 ,*1+1:; *#$'46+3+/2* *8)/$4;e2!$ = : Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search