IMD 1.15: 16/05/2007 7:59:37 fog gam 004         GRANPRIXBAS6%&'(LIFE BAS)*-FOG/GAM004DISK DOC+DISK DOC,1 CLEAR 250:DEFINT A-Z:GOTO 4 2 Z9=0:FOR R=1 TO 50:IF V1$=N$(R) AND (N(R)=LO OR N(R)=-1) THEN Z9=1:RETURN 3 NEXT:PRINT "I DON'T SEE THAT HERE.":Z9=2:RETURN 4 PRINT CHR$(23);" C.I.A ADVENTURE" 5 DIM N1$(50),N$(50),N(50),V$(18),LO(30,4),LO$(30):FL=1:DR=0:DG=-1:T=0:EL=0:BU=0:DO=0:CA=0:BA=0:TE=0:GL=0 6 PA=0:RO=0:FOR R=1 TO 5:R1=INT(9*RND(9)):CO$=CO$+STR$(R1):NEXT:LO=1:A9$=">"+STRING$(62,"-")+"<" 7 R=LEN(CO$):CO$=RIGHT$(CO$,R-1) 10 FOR R=1 TO 50:READ N1$(R),N$(R),N(R):NEXT 11 FOR R=1 TO 30:READ LCIA BAS}QUEST BASQ STARLANEBASDYAHTZEE BAS/STARLAN4BAS1CIVILW BAS@DSPACE BAS: !"FIGHTER BAS#$  0,350,400,450,500,550,600,650,700,750,800,850,900,950 100 IF V1$="NOR" AND LO(LO,1)>0 THEN LO=LO(LO,1):GOTO 20 101 IF V1$="SOU" AND LO(LO,2)>0 THEN LO=LO(LO,2):GOTO 20 102 IF V1$="EAS" AND LO(LO,3)>0 THEN LO=LO(LO,3):GOTO 20 103 IF V1$="WES" AND LO(LO, PRINT"WE COULD EASILY GO: ";:IF LO(LO,1)>0 THEN PRINT"NORTH "; 42 IF LO(LO,2)>0 THEN PRINT"SOUTH "; 43 IF LO(LO,3)>0 THEN PRINT"EAST "; 44 IF LO(LO,4)>0 THEN PRINT"WEST "; 45 PRINT:PRINT A9$ 50 T=T+1:IF DG>0 THEN DG=DG-1 53 IF T=1 THEN INPUT"ENT4)>0 THEN LO=LO(LO,4):GOTO 20 104 IF V1$="NOR" OR V1$="SOU" OR V1$="EAS" OR V1$="WES"THEN 135 105 GOSUB 2:IF Z9=2 THEN 50 110 IF R=8 THEN LO=5:GOTO 20 112 IF R=37 AND RO=1 AND LO=20 THEN LO=21:GOTO 20 115 IF R=10 THEN LO=11:GOTO 20 120 IF R=14 THEN LER YOUR NAME PARTNER";NA$ 55 GOTO 2000 56 N=0:FOR R=1 TO 46:IF N(R)=-1 THEN N=N+1 57 NEXT 60 PRINT:INPUT"WHAT DO YOU THINK WE SHOULD DO";A$ 65 GOSUB 3000:V$=LEFT$(A$,3):GOSUB 3010:FOR R=1 TO 18:IF V$=V$(R) THEN 69 ELSE NEXT 66 IF V$="ORD" THEN 5000 O=13:GOTO 20 125 IF R=33 THEN LO=3:GOTO 20 130 IF R=34 AND DO=1 THEN LO=9:GOTO 20 135 PRINT"I CAN'T GO THAT WAY AT THE MOMENT.":GOTO 50 150 GOSUB 2:IF Z9=2 THEN 50 155 IF R=2 OR R=3 OR R=4 OR R=6 OR R=15 OR R=16 OR R=20 OR R=21 OR R=22 OR R=23 OR R=2567 PRINT"I DON'T KNOW HOW TO DO THAT.":GOTO 60 69 IF V$="QUI" THEN 850 70 V=R:FOR R=1 TO LEN(A$):IF MID$(A$,R,1)=" " THEN 75 ELSE NEXT 71 IF V$="LOO" THEN 20 72 IF V$="BON" THEN 900 73 IF V$="INV" THEN 950 74 PRINT"PLEASE USE 2 WORD COMMANDS SO I CAN OR R=26 OR R=27 OR R=28 OR R=30 OR R=31 OR R=37 OR R=39 OR R=40 OR R=42 OR R=44 OR R=45 OR R=46 THEN 160 157 PRINT"I CAN'T CARRY THAT!":GOTO 50 160 IF N(R)=-1 THEN PRINT"I ALREADY HAVE IT.":GOTO 50 163 IF N>=5 THEN PRINT"I CAN'T CARRY ANYMORE.":GOTO 50 UNDERSTAND YOU.":GOTO 60 75 V1$=MID$(A$,R+1,3):FOR R=1 TO 49:IF V1$=N$(R) THEN 80 ELSE NEXT 76 IF V1$="NOR" OR V1$="SOU" OR V1$="EAS" OR V1$="WES" THEN 80 77 PRINT"I DON'T KNOW WHAT IT IS YOU ARE TALKING ABOUT.":GOTO 60 80 ON V GOTO 100,150,200,250,30 165 PRINT"O.K.":N(R)=-1 170 IF V1$="PAI" AND PA=0 THEN PRINT"SOMETHING FELL FROM THE FRAME!":N(31)=LO:PA=1 173 IF V1$="TEL" THEN TE=0 175 GOTO 50 200 FOR R=1 TO 46:IF V1$=N$(R) AND N(R)=-1 THEN 205 ELSE NEXT 201 PRINT"I DON'T SEEM TO BE CARRYING IT.O$(R),LO(R,1),LO(R,2),LO(R,3),LO(R,4):NEXT 12 FOR R=1 TO 18:READ V$(R):NEXT 20 REM 25 PRINT "WE ARE ";LO$(LO);"." 30 FOR R=1 TO 46:IF N(R)=LO THEN PRINT"I CAN SEE ";N1$(R);"." 35 NEXT:B=0:FOR R=1 TO 4:IF LO(LO,R)>0 THEN B=1 40 NEXT:IF B=0 THEN 45 41   IF R=18 AND GL<>1 THEN PRINT"THE LEVER HAS ELECTRICITY COURSING THRU IT!":PRINT"I'M BEING ELECTROCUTED!":GOTO 10000 310 IF R=18 AND EL=0 THEN PRINT"THE LEVER GOES ALL THE WAY UP AND CLICKS.":PRINT"SOMETHING SEEMS DIFFERENT NOW.":EL=1:GOTO 50 315 PRINT"NFEE!":N(31)=0:DR=1:GOTO 50 210 PRINT"O.K. I DROPPED IT.":N(R)=LO:GOTO 50 250 IF V1$="BUT" AND LO=3 AND DO=0 THEN PRINT"THE DOORS OPEN WITH A WHOOSH!":DO=1:GOTO 50 251 IF N(46)=-1 AND V1$="BUT" THEN PRINT"I PUSH THE BUTTON ON THE BOX AND":GOTO 268 252 GOTHING HAPPENS.":GOTO 50 350 REM 352 IF V1$="DRA" AND LO=5 THEN PRINT"IT LOOKS FRAGILE.":GOTO 50 353 GOSUB 2:IF Z9=2 THEN 50 355 IF R=1 AND BA<>1 THEN PRINT"THERE'S NO POWER FOR IT.":GOTO 50 356 IF R=1 AND TE<>1 THEN PRINT"THERE'S NO T.V. TO WATCH ON.OSUB 2 255 IF Z9=2 THEN 50 256 IF R=17 AND GL<>1 THEN PRINT"THERE'S ELECTRICITY COURSING THRU THE SQUARE!":PRINT"I'M BEING ELECTROCUTED!":GOTO 10000 260 IF R=35 AND BU=0 THEN PRINT"THE BUTTON ON THE WALL GOES IN .....":PRINT"CLICK! SOMETHING SEEMS DIFFF":GOTO 50 360 IF R=6 THEN PRINT"IT LOOKS HEAVY.":GOTO 50 362 IF R=7 THEN PRINT"IT'S LOCKED.":GOTO 50 364 IF R=13 THEN PRINT"IT'S A VERY STRONG BAG.":GOTO 50 366 IF R=19 THEN PRINT"I CAN SEE A LOCKED DRAWER IN IT.":GOTO 50 368 IF R=22 OR R=27 THEN PRINERENT NOW.":BU=1:GOTO 50 265 IF R=47 AND FL<>1 THEN LO(9,1)=3:FL=1:GOTO 280 266 IF R=48 AND FL<>2 THEN LO(9,1)=8:FL=2:GOTO 280 267 IF R=49 AND FL<>3 THEN LO(9,1)=10:FL=3:GOTO 280 268 IF N(46)=-1 AND (LO=6 OR LO=29)THEN PRINT"THERE IS A BLINDING FLASH..T"THERE'S WRITING ON IT.":GOTO 50 369 IF R=34 AND DO=1 THEN PRINT"THE DOORS ARE OPEN.":GOTO 50 370 IF R=24 THEN PRINT"I CAN SEE A GLEAMING STONE IN IT.":GOTO 50 371 IF R=9 THEN PRINT"THERE IS A SMALL SLIT NEAR THE DOOR.":GOTO 50 372 IF R=34 THEN PRINT"..":FO R R=1 TO 3000:NEXT:LO=1:FL=1:LO(9,1)=3:GOTO 20 270 PRINT"NOTHING HAPPENS.":GOTO 50 280 PRINT"THE DOORS CLOSE AND I FEEL AS IF THE ROOM IS MOVING.":PRINT"SUDDENLY THE DOORS OPEN AGAIN.":FOR R=1 TO 5000:NEXT:GOTO 20 300 GOSUB 2:IF Z9=2 THEN 50 305THERE'S A BUTTON NEAR THE DOORS.":GOTO 50 373 IF R=41 AND BU=1 THEN PRINT"THE SCREEN IS DARK.":GOTO 50 374 IF R=41 THEN PRINT"I SEE A METAL PIT 1000'S OF FEET DEEP ON ONE MONITOR.":PRINT"ON THE OTHER SIDE OF THE PIT,I SEE A LARGE HOOK.":GOTO 50 375 IF R":GOTO 50 205 IF R=30 THEN PRINT"I DROPPED THE CUP BUT IT BROKE INTO SMALL PIECES.":PRINT"THE COFFEE SOAKED INTO THE GROUND.":N(30)=0:DR=0:GOTO 50 207 IF R=45 THEN GL=0 208 IF R=31 AND N(30)=-1 THEN PRINT"O.K. I DROPPED IT.":PRINT"BUT IT FELL IN THE COF  5 IF R=9 THEN PRINT"I CAN'T. IT DOESN'T WORK.":GOTO 50 470 IF R=13 AND N(16)=-1 THEN PRINT"O.K. THE CLOSET IS OPENED.":N(13)=0:N(14)=14:GOTO 50 475 IF R=15 THEN PRINT"I CAN'T. IT'S TOO STRONG.":GOTO 50 480 IF R=23 THEN PRINT"IT'S STUCK.":GOTO 50 482 IFOSUB 2:IF Z9=2 THEN 50 405 IF R<>3 AND R<>2 AND R<>4 AND R<>28 THEN PRINT"I CAN'T INSERT THAT!":GOTO 50 410 INPUT"TELL ME, IN ONE WORD, INTO WHAT";A3$:A3$=LEFT$(A3$,3) 415 R1=R:V1$=A3$:GOSUB 2:IF Z9=2 THEN 50 420 IF R1=3 AND R=1 THEN PRINT"O.K.":BA=1:N R=32 AND N(28)=0 AND N(4)=0 AND SC=1 THEN PRINT "I OPEN THE SCULPTURE.":PRINT"SOMETHING FALLS OUT.":N(28)=LO:N(4)=LO:GOTO 50 485 IF R<>5 THEN 495 490 INPUT"WHAT'S THE COMBINATION";C$ 491 IF C$=CO$ THEN PRINT"THE DOOR IS SLOWLY OPENING.":N(5)=0:N(9)=0:N(3)=0:BA=1:GOTO 50 423 IF R1=4 AND R=50 AND DG<=0 THEN PRINT"THE GUARD WON'T LET ME!":GOTO 50 425 IF R1=2 AND R=1 THEN PRINT"O.K. THE TAPE IS IN THE RECORDER.":N(2)=0:TA=1:GOTO 50 430 IF R1=4 AND R=50 THEN PRINT"POP! A SECTION OF THE WALL OPENS.....":PR(10)=10:GOTO 50 493 PRINT"YOU MUST HAVE THE WRONG COMBINATION OR YOU ARE NOT":PRINT"SAYING IT RIGHT.":GOTO 50 495 PRINT"I CAN'T DO THAT......YET!":GOTO 50 500 IF V1$="GLO" AND N(45)=-1 THEN PRINT"O.K. I'M NOW WEARING THE GLOVES.":GL=1:GOTO 50 505 PRINTINT"REVEALING SOMETHING VERY INTERESTING.":N(4)=0:N(5)=LO:GOTO 50 435 IF R1=28 AND R=29 THEN PRINT"POP! A CUP OF COFFEE COMES OUT OF THE MACHINE.":N(28)=0:N(30)=LO:GOTO 50 440 PRINT"NOTHING HAPPENED.":GOTO 50 450 REM 452 IF V1$="DRA" AND LO=5 AND N(23)"I CAN'T WEAR THAT!":GOTO 50 550 IF V1$<>"SIG" AND V1$<>"NOT" THEN PRINT"I CAN'T READ THAT.":GOTO50 555 GOSUB 2:IF Z9=2 THEN 50 560 IF R=22 THEN PRINT"IT SAYS:":PRINT NA$;",":PRINT" WE HAVE DISCOVERED ONE OF CHAOSES SECRET WORDS.":PRINT"IT IS: BOND-007=0 THEN PRINT"IT'S STUCK.":GOTO 50 454 GOSUB 2:IF Z9=2 THEN 50 455 IF R=7 OR R=9 OR R=13 OR R=15 OR R=23 OR R=32 OR R=5 THEN 460 456 PRINT"I CAN'T OPEN THAT!":GOTO 50 460 IF R=7 AND N(16)=-1 THEN PRINT"O.K. I OPENED THE DOOR.":N(7)=0:N(8)=4:GOTO 50 46- .TO BE USED IN A -TASTEFUL- SITUATION.":GOTO 50 565 IF R=27 THEN PRINT"IT SAYS: WATCH OUT! DANGEROUS!":GOTO 50 600 IF V1$<>"REC" THEN PRINT"I CAN'T START THAT.":GOTO 50 605 GOSUB 2:IF Z9=2 THEN 50 610 IF BA<>1 OR TE<>1 OR TA<>1 THEN 620 612 PRINT"TH=43 AND BU=1 THEN PRINT"THE SCREEN IS DARK.":GOTO 50 376 IF R=43 THEN PRINT"I SEE A ROOM WITH A CASE ON A PEDESTAL IN IT.":GOTO 50 378 IF R=44 THEN PRINT"I SEE A PICTURE OF A GRINNING JACKAL.":GOTO 50 380 PRINT"I SEE NOTHING OF INTEREST.":GOTO 50 400 G  GED ON THE HOOK.":RO=1:N(37)=LO:GOTO 50 800 IF V1$<>"TEL" THEN PRINT"I CAN'T CONNECT THAT.":GOTO 50 803 IF N(40)<>LO THEN PRINT"I DON'T SEE THE TELEVISION HERE.":GOTO 50 805 IF TE=1 THEN PRINT"I DID THAT ALREADY.":GOTO 50 810 IF LO<>2 THEN PRINT"I CAN'C=1:GOTO 50 620 PRINT"NOTHING HAPPENED.":GOTO 50 650 IF V1$<>"DRA" THEN PRINT"I'M TRYING TO BREAK IT, BUT I CAN'T.":GOTO 50 653 IF N(6)<>-1 THEN PRINT"I CAN'T DO THAT YET.":GOTO 50 655 IF LO=5 THEN PRINT"IT'S HARD....BUT I GOT IT. TWO THINGS FELL OUT."T DO THAT....YET!":GOTO 50 815 PRINT"O.K. THE T.V. IS CONNECTED.":TE=1:GOTO 50 850 PRINT"WHAT? YOU WOULD LEAVE ME HERE TO DIE ALONE?" 855 PRINT"JUST FOR THAT, I'M GOING TO DESTROY THE GAME.":PRINT:PRINT:PRINT:PRINT"BOOOOOOOOOOOOM!":FOR R=1 TO 5000:NEXT::N(3)=LO:N(22)=LO:N(23)=LO:GOTO 50 660 PRINT"NOTHING HAPPENS.":GOTO 50 700 GOSUB 2:IF Z9=2 THEN 50 705 IF R<>15 AND R<>24 THEN PRINT"I'M TRYING. IT DOESN'T WORK.":GOTO 50 710 IF N(25)<>-1 THEN PRINT"I CAN'T DO THAT YET.":GOTO 50 715 IF R=15 THEN PRINTGOTO 22222 900 IF LO=14 THEN PRINT"WHOOPS! A TRAP DOOR OPENED UNDERNEATH ME AND":PRINT"I FIND MYSELF FALLING.":FOR R=1 TO 4000:NEXT:LO=17:GOTO 20 905 PRINT"NOTHING HAPPENED.":GOTO 50 950 Z8=0:PRINT"WE ARE PRESENTLY CARRYING:":FOR R=1 TO 46 955 IF N(R)<"RIP! THE BAG GOES TO PIECES, AND SOMETHING FALLS OUT!":N(15)=0:N(2)=LO:GOTO 50 720 IF R=24 THEN PRINT"I CUT THE CASE AND REACH IN TO PULL SOMETHING OUT.":N(26)=-1:GOTO 50 750 IF V1$<>"ROP" THEN PRINT"I CAN'T THROW THAT.":GOTO 50 752 IF N(37)<>-1 THEN P>-1 THEN 965 960 PRINT N1$(R);:IF R=45 AND GL=1 THEN PRINT". WHICH I'M WEARING."ELSE PRINT" " 963 Z8=1 965 NEXT 970 IF Z8=0 THEN PRINT"NOTHING" 975 GOTO 50 2000 IF LO=3 AND N(39)=-1 THEN PRINT"THE DOOR MAN LOOKS AT MY BADGE AND THEN THROWS ME OUT.":FRINT"I CAN'T DO THAT YET.":GOTO 50 755 INPUT"TELL ME,IN ONE WORD,AT WHAT";A3$:A3$=LEFT$(A3$,3) 760 IF A3$<>"HOO" THEN PRINT"O.K. I THREW IT.":N(37)=LO:GOTO 50 765 IF LO<>20 THEN PRINT"I CAN'T DO THAT YET.":GOTO 50 770 PRINT"I THREW THE ROPE AND IT SNAGOR R=1 TO 5000:NEXT:LO=1:GOTO 20 2005 IF LO=10 AND N(42)<>-1 THEN PRINT"THE GUARD LOOKS AT ME SUSPICIOUSLY, THEN THROWS ME BACK.":FOR R=1 TO 4000:NEXT:LO=9:GOTO 20 2010 IF LO=6 AND BU<>1 THEN PRINT"SIRENS GO OFF ALL AROUND ME!":PRINT"GUARDS RUN IN AND SHE RECORDER STARTS UP AND PRESENTS A SHORT MESSAGE:" 613 PRINT NA$;"," 614 PRINT"WE HAVE UNCOVERED A NUMBER THAT MAY HELP YOU." 615 PRINT"THAT NUMBER IS:";CO$;". PLEASE WATCH OUT FOR HIDDEN TRAPS." 616 PRINT"ALSO, THERE IS SOMETHING IN THE SCULPTURE.":S   THEN V$="GET":RETURN 3014 IF V$="LEA" THEN V$="DRO":RETURN 3016 IF V$="PRE" THEN V$="PUS":RETURN 3018 IF V$="EXA" THEN V$="LOO":RETURN 3020 IF V$="PUT" THEN V$="INS":RETURN 3022 IF V$="UNL" THEN V$="OPE":RETURN 3024 IF V$="PLA" THEN V$="STA":RETURN ":DG=5+INT(10*RND(10)):N(11)=0:N(12)=10:DR=0:N(30)=0:GOTO 56 2025 IF DG=0 THEN PRINT"I HEAR A NOISE LIKE SOMEONE IS YAWNING.":N(11)=10:N(12)=0:GU=-2:DG=-1:GOTO 56 2030 IF LO=1 AND N(26)=-1 THEN PRINT"HURRAY! YOU'VE RECOVERED THE RUBY!":PRINT"YOU WIN!":GO 3026 IF V$="SMA" THEN V$="BRE":RETURN 3028 IF V$="ATT" THEN V$="CON":RETURN 3030 IF V$="LIS" THEN V$="INV":RETURN 3032 RETURN 4000 DATA A VIDEO CASSETTE RECORDER,REC,2,A VIDEO TAPE,TAP,0,A LARGE BATTERY,BAT,0,A BLANK CREDIT CARD,CAR,0,AN ELECTRONIC LOTO 10020 2035 IF T>375 THEN PRINT"I THINK THEY ARE ON TO ME....I HEAR NOISES." 2040 IF T=400 THEN PRINT"OH NO! THEY CAUGHT UP TO ME! HELP! THEY'RE PULLING OUT GUNS!":GOTO 10000 2045 IF T=1 THEN PRINT"WRITING ON THE WALL SAYS:":PRINT"IF YOU WANT INSTRUCTCK,LOC,0,AN ELABORATE PAPER WEIGHT,WEI,5,A LOCKED WOODEN DOOR,DOO,4,AN OPEN WOODEN DOOR,DOO,0,A SOLID LOOKING DOOR,DOO,10 4010 DATA AN OPEN DOOR,DOO,0,AN ALERT SECURITY GUARD,GUA,10,A SLEEPING SECURITY GUARD,GUA,0,A LOCKED MAINTENANCE CLOSET,CLO,14,A MAINIONS TYPE:ORDERS PLEASE" 2046 IF LO=6 AND LO(6,2)<>0 THEN PRINT"A SECRET DOOR SLAMS DOWN BEHIND ME!":LO(6,2)=0:GOTO 56 2047 IF LO=10 AND GU=-2 THEN PRINT"THE GUARD DRAWS HIS GUN AND SHOOTS ME!":GOTO 10000 2050 GOTO 56 3000 IF A$="N"THEN A$="GO NORTH":RTENANCE CLOSET,CLO,0,A PLASTIC BAG,BAG,13,AN OLDE FASHIONED KEY,KEY,9,A SMALL METAL SQUARE ON THE WALL,SQU,16 4015 DATA A LEVER ON THE SQUARE,LEV,16,AN OLD MAHOGANY DESK,DES,5,A BROOM,BRO,13,A DUSTPAN,DUS,13,A SPIRAL NOTEBOOK,NOT,0,A MAHOGANY DRAWER,DRA,0ETURN 3002 IF A$="S"THEN A$="GO SOUTH":RETURN 3004 IF A$="E"THEN A$="GO EAST":RETURN 3006 IF A$="W"THEN A$="GO WEST":RETURN 3007 IF A$="I"THEN A$="INV":RETURN 3008 RETURN 3010 IF V$="WAL" OR V$="RUN" THEN V$="GO ":RETURN 3012 IF V$="TAK" OR V$="CAR",A GLASS CASE ON A PEDESTAL,CAS,6,A RAZOR BLADE,BLA,27,A VERY LARGE RUBY,RUB,0,A SIGN ON THE SQUARE 4020 DATA SIG,16,A QUARTER,QUA,0,A COFFEE MACHINE,MAC,8,A CUP OF STEAMING HOT COFFEE,CUP,0,A SMALL CAPSULE,CAP,0,A LARGE SCULPTURE,SCU,3,A TALL OFFICE BUILOOT ME TO DEATH!":GOTO 10000 2015 IF LO=11 AND EL<>1 THEN PRINT"THE FLOOR IS WIRED WITH ELECDRICITY!":PRINT"I'M BEING ELECTROCUTED!":GOTO 10000 2020 IF LO=10 AND N(30)=-1 AND DR=1 THEN PRINT"THE GUARD TAKES MY COFFEE":PRINT"AND FALLS TO SLEEP RIGHT AWAY.  IT,0,0,22,0,IN A LONG CORRIDOR,0,25,23,21,IN A LARGE ROOM,0,26,0,22,IN A SECRET LABORATORY,0,0,25,0 4050 DATA IN A NARROW CROSS CORRIDOR,22,0,0,24,IN A CROSS EXAMINATION ROOM,23,28,0,0,IN A SMALL BATHROOM,0,0,28,0,IN THE OFFICE OF THE CHIEF OF CHAOS,26,30E TELEVISION,TEL,7 4026 DATA A BANK OF MONITORS,MON,7,A CHAOS I.D. CARD 4030 DATA CAR,30,A BANK OF MONITORS,MON,19,A SMALL PAINTING,PAI,23,A PAIR OF RUBBER GLOVES,GLO,13,A BOX WITH A BUTTON ON IT,BOX,24,ONE,ONE,9,TWO,TWO,9,THREE,THR,9,SLIT,SLI,10,ON A BU,0,27,IN THE CHAOS CONTROL ROOM,0,0,30,0,NEAR THE END OF THE COMPLEX,28,0,0,29 4055 DATA "GO ",GET,DRO,PUS,PUL,LOO,INS,OPE,WEA,REA,STA,BRE,CUT,THR,CON,QUI,BON,INV 5000 PRINT"YOUR MISSION,";NA$;",IS TO RECOVER A RUBY THAT IS BEING" 5010 PRINT"USED IN TOPSY STREET,0,0,0,0,IN A VISITOR'S ROOM,0,0,3,0 4031 DATA IN THE LOBBY OF THE BUILDING,1,0,4,2,IN A DINGY ANTE ROOM,0,0,0,3 4035 DATA IN THE COMPANY PRESIDENT'S OFFICE,0,0,0,4,IN A SMALL SOUND PROOFED CUBICLE,0,12,0,0,IN A SECURITY OFFICE,0,0,8,0,IN A SMAL SECRET GOVERNMENT PROJECTS AS A PART IN A" 5020 PRINT"LASER PROJECTOR." 5030 PRINT" YOU WILL HAVE A PARTNER WHO IS NOT TOO BRIGHT AND NEEDS" 5040 PRINT"YOU TO TELL HIM WHAT TO DO. USE TWO WORD COMMANDS LIKE:" 5050 PRINT:PRINT" GET NOTEBOOK GL HALLWAY,0,14,9,7,IN A SMALL ROOM,3,0,0,0,IN A SHORT CORRIDOR,0,15,0,9,IN A HALLWAY MADE OF METAL,0,0,12,10 4037 DATA IN A SMALL PLAIN ROOM,6,0,0,11 4040 DATA IN A MAINTENANCE CLOSET,0,0,14,0,IN A CAFETERIA,8,0,0,0,IN A SIDE CORRIDOR,10,0,16,0,IN A POWEO WEST LOOK DOOR" 5060 PRINT:PRINT"SOME COMMANDS USE ONLY ONE WORD. EXAMPLE: INVENTORY" 5070 PRINT" IF YOU WANT TO SEE CHANGES IN YOUR SURROUNDINGS TYPE: LOOK" 5080 PRINT"THE RUBY HAS BEEN CAPTURED BY A SECRET SPY RING KNOWN AS" 5090 PRINT"CHAOS. WE R GENERATOR ROOM,0,0,0,15,IN A SUB-BASEMENT BELOW THE CHUTE,0,0,18,0,IN THE ENTRANCE TO THE SECRET COMPLEX,0,20,19,17 4045 DATA IN A SECRET MONITORING ROOM,0,0,0,18,ON A LEDGE IN FRONT OF A METAL PIT 1000'S OF FEET DEEP,18,0,0,0,ON THE OTHER SIDE OF THE PSUSPECT THEY ARE UNDER COVER SOMEWHERE IN THIS" 5100 PRINT"NEIGHBORHOOD. GOOD LUCK!" 5110 GOTO 56 10000 FOR R=1 TO 5000:NEXT:PRINT"I'M DEAD!" 10010 PRINT"YOU DIDN'T WIN." 10020 INPUT"WOULD YOU LIKE TO TRY AGAIN (Y/N)";Z$ 10030 IF LEFT$(Z$,1)="Y" THENDING,BUI,1,A PAIR OF SLIDING DOORS,DOO,3,A LARGE BUTTON ON THE WALL 4025 DATA BUT,29,A PANEL OF BUTTONS NUMBERED ONE THRU THREE,PAN,9,A STRONG NYLON ROPE,ROP,17,A LARGE HOOK WITH A ROPE HANGING FROM IT,HOO,21,A C.I.A. IDENTIFICATION BADGE,BAD,-1,A PORTABL  LOOK AT ONLY 906 PRINT"THE FIRST LETTER, ALTHOUGH YOU CAN TYPE IN 907 PRINT"THE WHOLE WORD IF YOU WANT TOO. 920 GOSUB 7500 1000 REM 1010 N=5 1020 M0=0 1030 M6=0 1040 T=T1 1050 P=0 1060 P1=0 1070 FOR J=1 TO M9 1080 W(J)=0 1090 NEXT J 1100 PRINT 1120 GOSUB 8000 1400 REM 1420 M0=M0+1 1440 GOSUB 6000 1460 GOSUB 2000 1480 GOSUB 4000 1500 IF T>0 THEN 1400 1510 IF N<>5 THEN 1400 1710 GOSUB 3000 1720 PRINT 1730 PRINT" CONGRATULATIONS!! YOU GOT THE TREASURE 1740 PRINT"OUT IN";M0; 1750 PR120 PRINT"************* Q U E S T ******************* 130 PRINT:PRINT:PRINT 140 PRINT" YOU WERE WALKING THROUGH THE WOODS ONE DAY AND YOU 150 PRINT"CAME ACROSS THE ENTRANCE OF A CAVE, COVERED WITH BRUSH. 160 PRINT 170 PRINT" PEOPLE SAY THAT MANY YINT"MOVES AND YOU GOT"S+10"POINTS!" 1760 PRINT"WANT TO HUNT AGAIN?"; 1770 A$="YN" 1771 A2=2 1780 GOSUB 5000 1790 ON A1 GOTO 1000,9999,1760 2000 REM 2100 IF T<>N THEN RETURN 2110 IF T<0 THEN RETURN 2120 IF M6+5>M0 THEN RETURN 2200 PRINT" DO YOU WEARS AGO A PIRATE HID HIS 180 PRINT"TREASURE IN THESE WOODS, BUT NO ONE HAS EVER FOUND IT. 190 PRINT"IT MAY STILL BE HERE, FOR ALL I KNOW. 200 REM THIS PROGRAM WAS TAKEN FROM THE JULY 1979 BYTE MAG. 210 REM BY LEE DUSBABEK FOR THE FAMOUS SKIP HANSON ANT TO TAKE IT WITH YOU"; 2210 A$="YN" 2220 A2=2 2230 GOSUB 5000 2240 ON A1 GOTO 2300,2400 2250 PRINT"WELL?....." 2260 GOTO 2210 2300 T=-1 2310 PRINT 2320 PRINT"OK, LETS GET OUT OF HERE!" 2330 RETURN 2400 PRINT 2410 PRINT"WE'LL LEAVE IT HERE AN(WB6YMH) 400 READ M9,T1,T2 500 DIM W(42),M(6,42) 520 FOR I=1 TO M9 530 READ N 540 IF I=N THEN 570 550 PRINT"DATABASE PROBLEM"I,N 560 STOP 570 FOR J=1 TO 6 580 READ M(J,I) 590 NEXT J 600 NEXT I 900 PRINT 905 PRINT"WHEN YOU ANSWER A QUESTION, I D YOU CAN EXPLORE SOME MORE." 2430 M6=M0 2440 RETURN 3000 REM 3020 S=0 3030 IF T=-1 THEN S=S+5 3040 IF P=1 THEN S=S+10 3050 FOR J=2 TO M9 3060 S=S+W(J) 3070 NEXT J 3080 RETURN 4000 REM 4020 IF N=T2 THEN RETURN 4030 IF P=1 THEN RETURN 4040 IF  RUN 22222 END 10010 PRINT"YOU DIDN'T WIN." 10020 INPUT"WOULD YOU LIKE TO TRY AGAIN (Y/N)";Z$ 10030 IF LEFT$(Z$,1)="Y" THENPRINT"I'M DEAD!" 10010 PRINT"YOU DIDN'T WIN." 10020 INPUT"WOULD YOU LIKE TO TRY AGAIN (Y/N)";Z$ 10030 IF LEFT$(Z$,1)="Y" THEN  00 6660 I=M(6,N) 6670 J=-1 6680 IF M(4,N)>100*RND(0) THEN I=M(5,N) 6690 J=-1 6700 IF M(2,N)>100*RND(0) THEN I=M(3,N) 6710 IF D<>0 THEN PRINT" DEBUG BOUNCE TO";I 6730 GOTO 6200 6800 RETURN 7000 REM 7100 PRINT 7110 PRINT" WH YOU! 4160 PRINT"'HAH!', HE SHOUTS, 'YOU FOUND MY 4170 PRINT"TREASURE, DID YOU?! WELL, I'LL HIDE 4180 PRINT"IT BETTER THIS TIME!'" 4190 PRINT"AND HE DISAPPEARS INTO THE DARKNESS 4200 PRINT"WITH THE TREASURE. 4210 P=1 4220 T=T2 4230 RETURN 5000 RICH WAY"; 7120 A$="NEUDWSP" 7130 A2=7 7140 GOSUB 5000 7150 IF A1<8 THEN 7300 7160 PRINT"WHICH WAY PO YOU WANT TO GO?" 7180 GOSUB 7500 7200 GOSUB 8000 7210 GOTO 7100 7300 IF A1<7 THEN 7400 7320 GOSUB 3000 7330 PRINT"YOU HAVE"S"POINTS!" 7350 GOTOEM 5070 INPUT Q$ 5090 Q$=LEFT$(Q$,1) 5120 FOR A1=1 TO A2 5121 IF Q$=MID$(A$,A1,1) THEN RETURN 5140 NEXT A1 5150 A1=A2+1 5160 RETURN 6000 REM 6030 N9=N 6050 N8=0 6070 GOSUB 7000 6090 IF N=1 THEN 6120 6100 N0=N 6110 A0=A1 6120 PRINT 6130 I=M( 7100 7400 RETURN 7500 REM 7520 PRINT 7530 PRINT"TYPE N,S,E,W, U OR D FOR NORTH, SOUTH," 7550 PRINT"EAST, WEST, UP OR DOWN. TYPE P FOR SCORE" 7560 PRINT 7570 RETURN 8000 REM 8050 I=INT(N/5) 8060 J=N-5*I+1 8100 ON I+1 GOTO 8200,8210,8220,8230A1,N) 6200 IF I=-2 THEN I=N9 6210 IF D<>0 THEN PRINT"DEBUG";N;"TO";I 6220 IF I<500 THEN 6300 6240 I=I-500 6250 FOR J=0 TO 100 6260 NEXT J 6270 GOTO 6200 6300 ON I/100 GOTO 6340,6370 6320 N=I 6330 GOTO 6400 6340 REM 6350 N=I-100 6355 IF T=-1 TH,8240,8250,8260,8270,8280,8290 8200 ON J GOTO 9000,9010,9020,9030,9040 8210 ON J GOTO 9050,9060,9070,9080,9090 8220 ON J GOTO 9100,9110,9120,9130,9140 8230 ON J GOTO 9150,9160,9170,9180,9190 8240 ON J GOTO 9200,9210,9220,9230,9240 8250 ON J GOTO 9250EN N=N+1 6360 GOTO 6400 6370 REM 6380 N=I-200 6390 IF T=-1 THEN N=N+P 6400 IF N<>1 THEN 6500 6420 FOR J=1 TO 6 6430 M(J,N)=2 6440 NEXT J 6450 M(7-A0,N)=N0 6500 REM 6510 IF N8<>2 THEN GOSUB 8000 6530 W(N)=1 6540 N8=N 6600 IF M(1,N)<>-2 THEN 68,9260,9270,9280,9290 8260 ON J GOTO 9300,9310,9320,9330,9340 8270 ON J GOTO 9350,9360,9370,9380,9390 8280 ON J GOTO 9400,9410,9420,9430,9440 8290 ON J GOTO 9450,9460,9470,9480,9490 8400 IF T<>N THEN 8500 8410 PRINT 8420 PRINT" THE TREASURE IS HERE!T1=T2 THEN RETURN 4050 IF T<>-1 THEN RETURN 4070 IF N=16 THEN P=160 4090 IF P1>0 THEN P1=P1+1 4100 IF N=3 THEN P1=P1+1 4120 IF P1<15 THEN RETURN 4130 PRINT 4140 PRINT"SUDDENLY THE PIRATE LEAPS OUT OF THE 4150 PRINT"GLOOM AND GRABS THE TREASURE FROM  10 DATA 11,1,13,4,2,1,2 9111 PRINT"YOU'RE AT THE BOTTOM OF A PIT. A LITTLE 9112 PRINT"STREAM FLOWS OVER THE ROCKS HERE. 9113 GOTO 8400 9120 DATA 12,36,2,1,2,1,2 9121 PRINT"YOU'RE AT A DEAD END! 9122 GOTO 8400 9130 DATA 13,2,37,2,1,11,14 9131 PRINT",0,0,0,0,0,0 9011 PRINT"YOU'RE AT A DEAD END!" 9012 GOTO 8400 9020 DATA 2,-2,101,-2,0,0,0 9021 PRINT"YOU CAN'T GO IN THAT DIRECTION" 9022 PRINT 9023 GOTO 8400 9030 DATA 3,33,2,1,10,106,4 9031 PRINT"A TUNNEL GOES NORTH-SOUTH." 9032 PRINT"THERE IS AYOU'RE AT A WIDE SPOT. THERE IS A SOOTY PATCH 9132 PRINT"WHERE SOMEBODY HAS RESTED A TORCH AGAINST THE WALL. 9133 PRINT"THERE ARE JAGGED ROCKS ABOVE YOU. 9134 GOTO 8400 9140 DATA 14,13,1,19,2,31,31 9142 PRINT"YOU'RE IN A CANYON. HIGH ON THE WALL ABON OPENING TO THE WEST. 9037 GOTO 8400 9040 DATA 4,3,30,2,11,2,1 9041 PRINT"YOU'RE ON THE BRINK OF A PIT. 9047 GOTO 8400 9050 DATA 5,8,8,15,10,8,16 9051 PRINT"YOU'RE OUTSIDE THE CAVE. 9052 PRINT"GO SOUTH TO ENTER. 9053 GOTO 8400 9060 DATA 6,16,3,2,VE YOU 9144 PRINT"IS SCRATCHED THE MESSAGE 'BILBO WAS HERE' 9146 GOTO 8400 9150 DATA 15,-2,101,-2,0,0,0 9152 PRINT"YOU'RE NOT A BIRD. YOU CAN'T FLY! 9154 PRINT 9156 GOTO 8400 9160 DATA 16,5,33,2,10,1,106 9162 PRINT"YOU'RE IN A LOW CHAMBER. A T10,2,2 9061 PRINT"YOU'RE AT THE HOME OF THE GNOME-KING. 9062 PRINT"FORTUNATELY, HE'S GONE FOR THE DAY. 9067 GOTO 8400 9070 DATA 7,-2,101,-2,0,0,0 9071 PRINT"THE GNOME KING IS HERE! 9072 PRINT"YOU'D BETTER GET OUT! 9073 PRINT 9077 GOTO 8400 9080 DAIGHT TUNNEL GOES 9164 PRINT"EAST, AND YOU CAN WALK TO THE SOUTH OR WEST. 9166 PRINT"THERE IS LIGHT TO THE NORTH. 9168 GOTO 8400 9170 DATA 17,-2,101,-2,0,0,0 9172 PRINT"IT'S A TIGHT SQUEEZE. YOU CAN'T GET PAST 9174 PRINT"WITH THE TREASURE. 9176 PRINTA 8,18,18,15,10,18,9 9081 PRINT"YOU'RE LOST IN THE WOODS. 9087 GOTO 8400 9090 DATA 9,-2,33,5,1,0,-2 9097 GOTO 8400 9100 DATA 10,-2,101,-2,0,0,0 9101 PRINT"YOU'RE NOT GOING TO GET FAR, DIGGING 9102 PRINT"THROUGH ROCK. 9103 PRINT 9104 GOTO 8400 91T 9178 GOTO 8400 9180 DATA 18,-2,101,8,0,0,0 9182 PRINT"I DON'T THINK YOU CAN FIND THE CAVE. 9184 GOTO 8400 9190 DATA 19,224,2,2,14,1,42 9192 PRINT"YOU'RE AT THE TOP OF A CLIMB. 9194 PRINT"BELOW YOU A MESSAGE SAYS 9196 PRINT" 'BILBO WAS HERE' !!!" 8500 IF T<>T2 THEN 8600 8510 IF T1=T2 THEN 8600 8520 IF T1<>N THEN 8600 8530 PRINT 8540 PRINT"A NOTE ON THE WALL SAYS PIRATES NEVER LEAVE 8550 PRINT"THEIR TREASURE TWICE IN THE SAME PLACE!" 8600 RETURN 9000 REM 9003 DATA 42,23,12 9010 DATA 1  NT STALACTITE. 9294 PRINT"YOU COULD SLIDE DOWN, BUT YOU COULDN'T 9296 PRINT"CLIMB BACK UP. 9298 GOTO 8400 9300 DATA 30,34,34,2,1,4,2 9302 PRINT"YOU'RE IN A LITTLE GROTTO. THERE IS A 9304 PRINT"BOOK HERE CALLED JANE'S FIGHTING SHIPS, 9306 PRINT"DATEU'RE IN XANADU. BELOW YOU ALPH, THE SACRED 9214 PRINT"RIVER RUNS THROUGH CAVERNS MEASURELESS TO MAN, 9216 PRINT"DOWN TO A SUNLESS SEA. 9218 GOTO 8400 9220 DATA 22,-2,33,13,50,29,30 9222 GOTO 8500 9230 DATA 23,2,1,2,31,2,2 9232 PRINT"YOU'RE ON THE D 1763. 9308 GOTO 8400 9310 DATA 31,14,14,23,2,1,2 9312 PRINT"YOU'RE IN THE GUILLOTINE ROOM. A SHARP 9314 PRINT"ROCK BALANCES PRECARIOUSLY ON THE 9316 PRINT"LEDGE ABOVE YOU. 9318 GOTO 8400 9320 DATA 32,-2,101,516,0,0,0 9322 PRINT"YOU'RE IN A CHUTELEDGE ABOVE THE GUILLOTINE ROOM. 9234 GOTO 8400 9240 DATA 24,-2,101,19,0,0,0 9242 PRINT"I HEAR THE GIANT THERE!!! 9244 PRINT"YOU'D BETTER GO BACK! 9246 PRINT 9248 GOTO 8400 9250 DATA 25,21,20,2,2,1,19 9252 PRINT"YOU'RE IN THE GIANT'S CAVERN. BETTE, SCRAMBLING DOWN THE 9324 PRINT"ROCKS! NO WAY TO STOP!!! HANG ON! 9326 PRINT 9328 GOTO 8400 9330 DATA 33,2,1,2,1,116,3 9332 PRINT"THE TIGHT TUNNEL TURNS A CORNER. 9334 GOTO 8400 9340 DATA 34,1,35,2,1,30,30 9342 PRINT"YOU'RE IN A LITTLE TWISTY R 9254 PRINT"NOT BE HERE WHEN THE GIANT COMES! 9256 GOTO 8400 9260 DATA 26,-2,65,-2,50,11,14 9262 PRINT"YOU'RE IN THE QUEST RESEARCH AND DEVELOPMENT AREA. 9264 PRINT 9266 PRINT"I'M SORRY BUT VISITORS ARE NOT ALLOWED. YOU'LL HAVE 9268 PRINT"TO LEAVEMAZE 9344 GOTO 8400 9350 DATA 35,2,1,2,37,34,36 9352 PRINT"YOU'RE IN A LITTLE TWISTING MAZE. 9354 GOTO 8400 9360 DATA 36,35,2,1,37,34,12 9362 PRINT"YOU'RE IN A TWISTING LITTLE MAZE. 9364 GOTO 8400 9370 DATA 37,2,1,35,2,13,2 9372 PRINT"YOU'RE IN A .":PRINT:GOTO 8400 9270 DATA 27,2,40,2,2,21,20 9272 PRINT"YOU'RE IN THE CRYSTAL PALACE. THE WALLS RESONATE 9274 PRINT"WTH AWESOME MUSIC. 9280 DATA 28,-2,60,221,50,14,19 9282 GOTO 8400 9290 DATA 29,2,42,2,13,1,1 9292 PRINT"YOU'RE AT THE TOP OF A GIATWISTY LITTLE MAZE. 9374 GOTO 8400 9380 DATA 38,2,21,2,116,1,2 9381 PRINT"YOU'RE IN A PREHISTORIC DWELLING. ON 9382 PRINT"THE WALL ARE DRAWINGS OF BISON DONE IN 9383 PRINT"RED CLAY. THE FLOOR IS STREWN WITH 9384 PRINT"BONES, THE REMAINS OF ANCIENT 9198 GOTO 8400 9200 DATA 20,226,1,2,2,25,2 9202 PRINT"YOU'RE AT THE NORTH SIDE OF A CHASM, 9204 PRINT"TOO WIDE TO JUMP. RINGING ECHOES FROM 9206 PRINT"BELOW ARE THE ONLY INDICATION OF DEPTH. 9208 GOTO 8400 9210 DATA 21,1,226,2,2,38,25 9212 PRINT"YO  E IN THE LABYRINTHE. 9404 GOTO 8400 9410 DATA 41,40,40,40,2,40,39 9412 PRINT"YOU'RE IN THE LABYRINTHE. 9414 PRINT"IT'S VERY DARK IN HERE. 9416 GOTO 8400 9420 DATA 42,28,28,28,28,28,28 9422 PRINT"YOU'RE IN THE ASHRAM. INCENSE IS HEAVY 9424 PRINT"IN THE AIR, AND ALL DIRECTIONS 9426 PRINT"SEEM THE SAME. 9428 GOTO 8400 9999 END THE ASHRAM. INCENSE IS HEAVY 9424 PRINT"INDARK IN HERE. 9416 GOTO 8400 9420 DATA 42,28,28,28,28,28,28 9422 PRINT"YOU'RE IN THE ASHRAM. INCENSE IS HEAVY 9424 PRINT"INRITUALS. 9385 PRINT"A SMALL TUNNEL GOES THROUGH THE FLOOR. 9387 GOTO 8400 9390 DATA 39,2,40,2,32,21,26 9392 PRINT"YOU'RE IN A BLACK HOLE. THE 9394 PRINT"FORCE OF GRAVITY IS OVERWHELMING. 9396 GOTO 8400 9400 DATA 40,40,40,2,2,40,41 9402 PRINT"YOU'R  R(I),C(I)):A2M(R(I),C(I))f,A3M(R(I),C(I)):A4M(R(I),C(I))g6 A1 A2 A3 A4 Ag; A2 A1 A3 A4 gg@ A3 A1 A2 A4 gE A4 A1 A2 A3 gJ A1 A2 A3 A4 )"ERIDANI EXPEDITERS": I : J :S(I,J)cKD1(I):S1(I)d:Q(I):B(I)p: J,IHcPM$()"CAPELLA FREIGHT CO.":M$()"DENEBOLA SHIPPERS"~cZM$()"ALTAIR STARWAYS":M$()"BEETLEJUICE, LTD."c_cdL$".+*ABCDE":M$"ABCDEFGHIJKL": I  gO A2 A1 A3 A4 gP A3 A1 A2 A4 hT I: : hY IP  Zh^ P$(P); ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN:"hh I : R(I);(M$,C(I),);"/";: I: hr "WHAT IS YOUR MOVE";R$hs  : J  cn (()) M(I,J): cxM(I,J)d J,I: "HOW MANY PLAYERS (2-4)";P1Id "DOES ANY PLAYER NEED INSTRUCTIONS";R$jd (R$,)"Y" IP: @d I P1: "PLAYER";I;: "WHAT IS YOUR NAME";P$(I)d I: :(R$,)"M" MP: :MP: ^ht (R$,)"S" : ^iwR((R$,))=i|C((R$,))@: I : RR(I) CC(I) zi I: "THAT SPACE WAS NOT INCLUDED IN THE LIST...": riA1M(R,C):A2M(R,C):A3M(R,C):A4M(R,C) "NOW I WILL DECIDE WHO GOES FIRST...": eI(P1()): P$(I);" IS THE FIRST PLAYER TO MOVE"+e II : II9ePI: neSUM: I :SUMSUMQ(I): I: SUMF %ePP: PP1 Pe I eR(I)(()):C(i A1 A2 A3 A4 M(R,C):  j A1 A2 A1A2 $)j A1 A3 A1A3 $Lj A1 A4 A1A4 $oj A2 A3 A3A2 $j A2 A4 A2A4 $j A3 A4 A3A4 I)( ())e I1I  : R(I)R(I1) C(I)C(I1) f I1: M(R(I),C(I))  8f I1 : Q(I1)  Tqf I1: M(R(I),C(I))  M(R(I),C(I))  Tf M(R(I),C(I))  M(R(I),C(I))  Tf"A1M( $j A1 A2 A3 A4 j M(R,C)  k A1 IA1k A2 IA2,k A3 IA3@k A4 IA4pkQ(I)Q(I):S1(I)S1(I)d:M(R,C)I: k I : Q(I) k I: M(R,C) M(R,C): a THE GAME OF STAR LANES - AN INTERSTELLAR COMMERCE GAMEb FOR 2-4 PLAYERSbbA$()b A$Nb( ( ): : :  )"* S * T * A * R **";Yb- B()ub2 "L * A * N * E * S *"b< M( , ),S(,),N$(),D1(),S1(),Q(),R()bFM$(   I J K L"p R2 : )R2;: C2  : " ";q (L$,M(R2,C2),);" ";: C2:: R2!q  MP Uq  MP R2 : )R2;: C2  : " ";~q  (L$,M(R2,C2),);" ";: C2:: R2q:qq$F1A1: F1 F1q%F2A S1(I)S1(I)d:Q(I)Q(I):M(R,C)I m A2 S1(I)S1(I)d:Q(I)Q(I):M(R,C)IAm A3 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Ivm A4 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Im  S1(I) T1I: xmM(R,C)Im  I 2: F2 F2q&F3A3: F3 F3q'F4A4: F4 F4$r)TQ(F1):T1F1: Q(F2)Q(F1) TQ(F2):T1F2Br. Q(F3)T TQ(F3):T1F3`r8 Q(F4)T TQ(F4):T1F4yrB F1T1 A1 VrLXF1: rV F2T1 A2 jr`XF2:  :B(P)B(P)(L|S(I,P)S1(I)): Im* I : Q(I)  n/ IP  :IP1n4 "YOUR CURRENT CASH EQUALS $";B(P)ln> "BUY HOW MANY SHARES OF ";M$(I);" AT $";S1(I): );nH "YOU NOW OWN";S(I,P);" YOU CAN BUY ";(B(P)S1(I));" SHARErj F3T1 A3 ~rtXF3: r~ F4T1 A4 sXF4: s8s : M$(X);" HAS JUST BEEN MERGED INTO " ;us M$(T1);"!": "PLEASE NOTE THE FOLLOWING TRANSACTIONS."s : )"OLD STOCK = ";M$(X);" NEW STOCK = ";s MS."nR R3$: (R3$,)"M" R3$"":MP: : >oW (R3$,)"S" R3$"": : >'oXR3(R3$):R3$""Bo\ R3S1(I)B(P) prof "YOU ONLY HAVE $";B(P);"-TRY AGAIN": >op R3 ozS(I,P)S(I,P)R3:B(P)B(P)(R3S1(I))$(T1): s "PLAYER"; )"OLD STOCK";)"NEW STOCK";");t "TOTAL HOLDINGS";5)"BONUS PAID"JtTS: I1 P1:TSTSS(X,I1): I1: TS TSt I P1:NS((S(X,I))):THS(T1,I)NS:BO( ((S(X,I)TS)S1(X)))t P$(I);o I: o A$: )"MAP OF THE GALAXY" p MP :: )"MAP OF THE GALAXY")p )"*******************"Rp MP )"*******************"p  )" A B C D E F G H I J K L"p MP  )" A B C D E F G H  )S(X,I);)NS;")TH;5)" $";BOtS(T1,I)TH:B(I)B(I)BOt I,u I : J  : M(I,J)X M(I,J)T16u# J,I_u(Q(T1)Q(T1)Q(X):S1(T1)S1(T1)S1(X)u<S1(X)d:Q(X): I P1:S(X,I): IuF : : : : uPM(R,C)T1 k : "A NEW SHIPPING COMPANY HAS BEEN FORMED"l "ITS NAME IS ";M$(I):S(I,P)S(I,P):Q(I).l : : : : : Kl A1 S1(I)S1(I)hl A2 S1(I)S1(I)l A3 S1(I)S1(I)l A4 S1(I)S1(I)l A1   "YOU START WITH A BANKROLL OF $6000. EACH TURN YOU"{ "MAY BUY SHARES IN ANY ACTIVE COMPANY (IF YOU CAN"3{ "AFFORD THEM).":l{ "EACH ROUND, EACH COMPANY DECLARES A 5% CASH DIV-"}{ "IDEND.":{ "WHEN TWO COMPANIES COME INTO CONTACT (HORISTOCK";)"PRICE PER SHARE";2)"YOUR HOLDINGS"w "STOCK";)"PRICE PER SHARE";2)"YOUR HOLDINGS"9w I3 : S1(I3)d ]w M$(I3);)S1(I3);2)S(I3,P)w M$(I3);)S1(I3);2)S(I3,P)w I3:::::w (): )"SPECIAZONTALLY"{ "OR VERTICALLY), A MERGER OCCURS. THE COMPANY WITH"*| "THE LARGEST TERRITORY ABSORBS THE SMALLER. EACH"e| "STOCKHOLDER IN THE ABSORBED COMPANY RECEIVES STOCK"|& "IN THE SURVIVING COMPANY IN THE RATIO OF ONE NEW"|0 "FOR TWO OL ANNOUNCEMENT!!": wx@ (): "OK, HERE IS A DESCRIPTION OF 'STARLANES':":>xJ "YOU ARE COMPETING IN INTERSTELLAR COMMERCE. YOU"sxT "WILL SEE A MAP OF THE GALAXY CONTAINING ROWS"x^ "1 THRU 9 AND COLUMNS A THRU L. EACH POSITION WILL"LD, PLUS A CASH BONUS BASED ON HIS HOLDING.":}: "THERE IS A MAXIMUM OF FIVE COMPANIES. WHEN ALL ARE"S}D "ACTIVE, NO NEW COMPANY CAN BE FORMED UNTIL AFTER A"e}N "MERGER.":}X "AFTER A MERGER, THE PRICE OF THE SURVIVOR'S STOCK"}b "IS THE Sxh "BE EITHER A '.', INDICATING SPACE, OR A '*',"yr "INDICATING A STAR. THE STARS ARE RANDOMLY PLACED"Sy| "ACCORDING TO WHAT SEED YOU ENTER FOR THE RANDOM"y "NUMBER GENERATOR. ENTERING THE SAME SEED WILL"y "PRODUCE THE SAME MAP.":yUM OF THE TWO PRIOR PRICES. IF A STOCK'S"~l "VALUE EXCEEDS $3000, A STOCK SPLIT OCCURS.":: %V~v (): "IF YOU MOVE TO AN EMPTY SPACE, YOU WILL SEE A '+'"~ "AT THAT LOCATION. IF YOU LAND NEXT TO A '+', A NEW"~ "COMPANY WILL BE FORMED "EACH TURN YOU MUST CHOOSE A MOVE FROM A SET OF"y "FIVE CHOICES.":-z "IF YOU LAND NEXT TO A STAR, A NEW COMPANY IS"hz "FORMED. YOU WILL SEE THE COMPANY'S INITIAL IN THAT"z "SPACE WHEN THE MAP IS DISPLAYED AGAIN.":: %z ():  WITH A LOW INITIAL STOCK"~ "PRICE.": "THE OBJECT OF THE GAME IS TO INCREASE YOUR NET"G "WORTH. THE GAME ENDS WHEN 70 POSITIONS ARE IN"m "THE POSESSION OF COMPANIES.": "I WILL GIVE YOU SOME ADDITIONAL INSTRUCTIONS" "DURIN:Q(T1)Q(T1): %uU S1(T1) xuZux : "THE STOCK OF ";?v M$(T1);" HAS SPLIT 2 FOR 1!":S1(T1)((S1(T1)))Nv : : :xv I1 P1:S(T1,I1)S(T1,I1): I1v %vvv::"PLAYER ";P$(P)v "   "IF YOUR PRINTER IS READY, YOU GET HARD COPY.":% : "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS"Z%:: "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS"b!%:&% "PLAYER"; )"CASH VALUE OF STOCK";!)"CASH ON HAND ";݁+% "PLAYER"; )"CASH VALUE OF STOCK";!)"CASH ON HAND";0% 2)"NET WORTH": 5% 2)"NET WORTH":J:% I P1: J :D1(I)D1(I)(S1(J)S(J,I)): J,I~D% I P1: P$(I); )"$";D1(I);!)"$";B(I);N% 2)"$";D1(I)B(I): I΂S% I P1: P$(I); )"$";D1(I);!)"$";B(I);T% 2)"$";D1(I)B(I): IU% ( )%X% "ANOTHER GAME";R$: (R$,)"Y" F+]%R% "HIT 'RETURN' TO CONTINUE ",Z$:2)"$";D1(I)B(I): IU% ( )%X% "ANOTHER GAME";R$: (R$,)"Y" F+]%RG THE FIRST ROUND - AFTER THAT, YOU'RE ON" "YOUR OWN - GOOD LUCK!":: %: ():A "IF YOU WISH A LIST OF YOUR STOCK HOLDINGS, YOU"s "MAY ANSWER THE NEXT QUESTION WITH AN 'S'." "IF YOU WISH TO REDISPLAY THE MAP, ANSWER 'M'."    F2 : F(F2) fC(F(F2))(())f F2f ng A$(A);" -- SCOREBOARD NUMBER";#g I6g I  Fg : Vg I ogI(I): I g "CONFIRM";: B$g (B$,)"N" g (B$,)"): (): ()b "THIS IS THE GAME OF YAHTZEE. DO YOU WANT COMMENTS";c B$: (B$,)"N" -2c! (B$,)"Y" (Cc# : Mc( mc-: "HOW MANY PLAYERS";: N}c2 N -c5 N Kc7 "THE MAXIMUM NUMBER OF PLAY" g : g K(I,A)  h A$(A);", YOU HAVE ALREADY USED ROW #";I; "THREES---------";(K(,A9))rC "FOURS----------";(K(: lm0 G1 :m5K(I,A)(: lm:K(I,A)L: ln] ***CHANCEnbY16ng Y :Y1C(Y)Y1: Y:K( ,A)Y1xnl A$(A);", YOU NOW HAVE";(K(I,A));"POINTS IN ROW #";I;", ";nq "(";nv I n{ I ,,,,,A9))rH "FIVES----------";(K(,A9))rM "SIXES----------";(K(,A9)) sR "3 OF A KIND----";(K(,A9))DsW "4 OF A KIND----";(K(,A9))hs\ "FULL HOUSE-----";(K(,A9))sa "SM. STRAIGHT---";(K( ,A9))sf "LG. STRAIGHT---";(K( ,A,n I ,,,,,,n "(1)ACES";:  o "(2)TWOS";: $o "(3)THREES";:  ": YN$xI WILL DECIDE WHO GOES FIRST...": eI(P1()): P$(I);" IS THE FIRST PLAYER TO MOVE"ePI: QeSUM: I :SUMSUMQ(I): I: SUMX %jePP: PP1 Pxe I eR(I)(()):C(I)( ())e I1I (YN$,)"Y" -x (YN$,)"N" $x : x$x ():x: "ANOTHER GAME?===> ": YN$x(I,A) vFx  Rx " ";gx  () 2 zx  I:::I0:x ():x: "ANOTHER GAME?===> ": YN$x  : R(I)R(I1) C(I)C(I1) e I1: M(R(I),C(I))  f I1 : Q(I1)  TTf I1: M(R(I),C(I))  M(R(I),C(I))  Tf M(R(I),C(I))  M(R(I),C(I))  Tf"A1M(R(I),C(I)):A2M(R(I),C(I)a THE GAME OF STAR LANES - AN INTERSTELLAR COMMERCE GAMEb FOR 2-4 PLAYERSbbA$()b A$Mb( ( ): : :  )"* S * T * A * R **";Xb- B()tb2 "L * A * N * E * S *"b< M( , ),S(,),N$(),D1(),S1(),Q(),R()bFM$()f,A3M(R(I),C(I)):A4M(R(I),C(I))f6 A1 A2 A3 A4 $g; A2 A1 A3 A4 Jg@ A3 A1 A2 A4 pgE A4 A1 A2 A3 gJ A1 A2 A3 A4 gO A2 A1 A35**FIVES": : "6**SIXES": v "7**3 OF A KIND": : "8**4 OF A KIND": >v "9**FULL HOUSE": : "10**SM. STRAIGHT": sv "11**LG. STRAIGHT": : "12**YAHTZEE": v "13**CHANCE": v E1 :: E1: (): "   A2 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Im A3 S1(I)S1(I)d:Q(I)Q(I):M(R,C)IHm A4 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Ifm  S1(I) T1I: xumM(R,C)Im  I :B(P)B(P)(L|S(I,P)S1(I)): Im* ,)"S" : ^hwR((R$,))i|C((R$,))@: I : RR(I) CC(I) Li I: "THAT SPACE WAS NOT INCLUDED IN THE LIST...": riA1M(R,C):A2M(R,C):A3M(R,C):A4M(R,C)i A1 A2 A3 A4 M(R,C)I : Q(I) m4 "YOUR CURRENT CASH EQUALS $";B(P)(n> "BUY HOW MANY SHARES OF ";M$(I);" AT $";S1(I): );jnH "YOU NOW OWN";S(I,P);" YOU CAN BUY ";B(P)S1(I);" SHARES."nR R3$: (R3$,)"M" R3$"": : >nW (R3$,)"S" :  i A1 A2 A1A2 $i A1 A3 A1A3 $j A1 A4 A1A4 $Aj A2 A3 A3A2 $dj A2 A4 A2A4 $j A3 A4 A3A4 $j A1 A2 A3 A4  R3$"": : >nXR3(R3$):R3$""n\ R3S1(I)B(P) p$of "YOU ONLY HAVE $";B(P);"-TRY AGAIN": >5op R3 _ozS(I,P)S(I,P)R3:B(P)B(P)(R3S1(I))mo I: o A$: )"MAP OF THE GALAXY"o MP :: )"MAP OFj M(R,C)  j A1 IA1j A2 IA2j A3 IA3k A4 IA4BkQ(I)Q(I):S1(I)S1(I)d:M(R,C)I: _k I : Q(I) k I: M(R,C) M(R,C):  k : "A NEW SHIPPING COMPANY HAS BEE THE GALAXY"o )"*******************"p MP )"*******************"4p  )" A B C D E F G H I J K L"mp MP  )" A B C D E F G H I J K L"p R2 : )R2;: C2  : " ";p (L$,M(R2,C2),N FORMED"k "ITS NAME IS ";M$(I):S(I,P)S(I,P):Q(I)l : : : : : l A1 S1(I)S1(I):l A2 S1(I)S1(I)Wl A3 S1(I)S1(I)tl A4 S1(I)S1(I)l A1 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Il);" ";: C2:: R2p  MP q  MP R2 : )R2;: C2  : " ";0q  (L$,M(R2,C2),);" ";: C2:: R28q:>qXq$F1A1: F1 F1rq%F2A2: F2 F2q&F3A3: F3 F3q'F4A4: F4 F4q)TQ( A4 gP A3 A1 A2 A4 gT I: :,h^ P$(P); ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN:"[hh I : R(I);(M$,C(I),);"/";: I: xhr "WHAT IS YOUR MOVE";R$hs (R$,)"M" MP: :MP: ^ht (R$  PRICE PER SHARE";2)"YOUR HOLDINGS"v I3 : S1(I3)d w M$(I3);)S1(I3);2)S(I3,P)=w M$(I3);)S1(I3);2)S(I3,P)Pw I3:::::vw )"SPECIAL ANNOUNCEMENT!!": |ww@ "NO INSTRUCTIONS YET": R3$:w% : "Trr : M$(X);" HAS JUST BEEN MERGED INTO " ;'s M$(T1);"!": "PLEASE NOTE THE FOLLOWING TRANSACTIONS."Ys : )"OLD STOCK = ";M$(X);" NEW STOCK = ";is M$(T1): s "PLAYER"; )"OLD STOCK";)"NEW STOCK";");s "TOTAL HOLHE GAME IS OVER - HERE ARE THE FINAL STANDINGS"x%:: "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS""x!%:`x&% "PLAYER"; )"CASH VALUE OF STOCK";!)"CASH ON HAND ";x+% "PLAYER"; )"CASH VALUE OF STOCK";!)"CASH ON HAND";x0% 2)"NET WODINGS";5)"BONUS PAID"sTS: I1 P1:TSTSS(X,I1): I1: TS TSSt I P1:NS((S(X,I))):THS(T1,I)NS:BO( ((S(X,I)TS)S1(X)))t P$(I); )S(X,I);)NS;")TH;5)" $";BOtS(T1,I)TH:B(I)B(I)BOt It RTH": x5% 2)"NET WORTH": y:% I P1: J :D1(I)D1(I)(S1(J)S(J,I)): J,I>yD% I P1: P$(I); )"$";D1(I);!)"$";B(I);[yN% 2)"$";D1(I)B(I): IyS% I P1: P$(I); )"$";D1(I);!)"$";B(I);yT% 2)"$";D1(I)B(I): IyU I : J  : M(I,J)X M(I,J)T1t# J,Iu(Q(T1)Q(T1)Q(X):S1(T1)S1(T1)S1(X)>u<S1(X)d:Q(X): I P1:S(X,I): IQuF : : : : uuPM(R,C)T1:Q(T1)Q(T1): %uU S1(T1) xuZux : "THE STOCK OF % ( )yX% "ANOTHER GAME";R$: (R$,)"Y" Fy]%z% "HIT 'RETURN' TO CONTINUE ",Z$:2)"$";D1(I)B(I): IyU);!)"$";B(I);[yN% 2)"$";D1(I)B(I): IyS% I P1: P$(I); )"$";D1(I);!)"$";B(I);yT% 2)"$";D1(I)B(I): IyU";u M$(T1);" HAS SPLIT 2 FOR 1!":S1(T1)((S1(T1)))v : : :*v I1 P1:S(T1,I1)S(T1,I1): I14v %:vJv ( ): cv::"PLAYER ";P$(P)v "STOCK";)"PRICE PER SHARE";2)"YOUR HOLDINGS"v "STOCK";)"F1):T1F1: Q(F2)Q(F1) TQ(F2):T1F2q. Q(F3)T TQ(F3):T1F3r8 Q(F4)T TQ(F4):T1F4+rB F1T1 A1 V:rLXF1: SrV F2T1 A2 jbr`XF2: {rj F3T1 A3 ~rtXF3: r~ F4T1 A4 rXF4:   1 L=0:W=0:R1=0:P1=0 2 Q1=0:M3=0:M4=0 3 P2=0:T1=0:T2=0 5 REM ARKABLE PROGRAM BY L. CRAM , L. GOODIE , AND D. HIBBARD 6 PRINT "DO YOU WANT DESCRIPTIONS (1=YES, 0=NO)"; 7 INPUT Z 8 REM ARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 9 FOR U=1 TO 6 10 PRINT 11 NEXT U 13 IF Z=0 THEN 100 15 PRINT "THIS IS A CIVIL WAR SIMULATION." 20 PRINT "TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS." 30 PRINT "REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR" 35 PRINT "RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE" 40 PRINT "BASED ON THE ACTUAL OCCURENCE. MOST BATTLES TEND TO RESULT" 45 PRINT "AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU!!" 50 PRINT 51 PRINT "THE OBJECT OF THE GAME IS TO WIN AS MANY BATTLES AS POSSIBLE" 52 PRINT 55 PRINT "YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:" 60 PRINT " (1) ARTILLERY ATTACK" 65 PRINT " (2) FORTIFICATION AGAINST FRONTAL ATTACK" 70 PRINT " (3) FORTIFICATION AGAINST FLANKING MANUEVERS" 75 PRINT "   +S^2)/F1^2+1) 235 IF O<10 THEN 260 240 PRINT "MORALE IS HIGH" 250 GOTO 300 260 IF O<5 THEN 290 270 PRINT "MORALE IS FAIR" 280 GOTO 300 290 PRINT "MORALE IS POOR" 300 IF M<>3 THEN 330 310 PRINT "YOU ARE ON THE OFFENSIVE" 320 GOTO 370 33 BY TYPING A '5' FOR YOUR STRATEGY." 98 PRINT 99 PRINT "YOU ARE THE CONFEDERACY. GOOD LUCK!" 100 READ M1,M2,C1,C2,M,A,U 101 LET I1=10+(L-W)*2 102 LET I2=10+(W-L)*2 103 LET D1=100*INT((M1*(100-I1)/2000)*(1+(R1-Q1)/(R1+1))+0.5) 104 LET D2=100*0 IF M<>1 THEN 360 340 PRINT "YOU ARE ON THE DEFENSIVE" 350 GOTO 370 360 PRINT "BOTH SIDES ARE ON THE OFFENSIVE" 370 PRINT 380 PRINT "YOUR STRATEGY"; 390 INPUT Y 391 IF Y=5 THEN 1487 392 IF ABS(Y-3)<3 THEN 395 393 PRINT "YOU JERK! USE THE OTINT(M2*(100-I2)/2000+0.5) 105 LET F1=5*M1/6 106 LET A1=Z 107 FOR U=1 TO 4 108 PRINT 109 NEXT U 110 PRINT "THIS IS THE BATTLE OF "; 115 GOSUB 800 120 PRINT " ","CONFEDERACY"," UNION" 130 PRINT "MEN"," ";INT(M1*(1+(P1-T1)/(M3+1)))," "; 131 PRIHER SET OF STRATEGIES!!" 394 GOTO 370 395 PRINT 400 PRINT " ","CONFEDERACY","UNION" 410 LET C5=(2*C1/5)*(1+1/(2*(ABS(INT(4*RND+1)-Y)+1))) 412 LET C5=INT(C5*(1+1/O)*(1.28+F1/(B+1))+0.5) 414 IF C5+100/O=0 THEN 439 435 PRINT "YOUR CASUALTIES  SALARIES"; 200 INPUT S 205 IF S<0 THEN 750 210 PRINT "HOW MUCH DO YOU WISH TO SPEND FOR AMMUNITION"; 220 INPUT B 221 IF B<0 THEN 750 222 PRINT 224 IF F+S+B<=D1 THEN 230 226 PRINT "THINK AGAIN! YOU HAVE ONLY $";D1 228 GOTO 160 230 LET O=((2*F^2WERE ";INT(100*(C1-C5)/C1+0.5);"% LESS THAN " 437 GOTO 441 439 PRINT "YOUR CASUALTIES WERE ";INT(100*(C5-C1)/C1+0.5);"% MORE THAN " 441 PRINT "THE ACTUAL CASUALITIES AT "; 443 LET A1=1 445 GOSUB 800 450 IF U=1 THEN 470 460 IF C5+E<17*C2*C1/(C5*20)(4) FALLING BACK" 80 PRINT "YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:" 85 PRINT " (1) ARTILLERY ATTACK" 90 PRINT " (2) FRONTAL ATTACK" 95 PRINT " (3) FLANKING MANUEVERS" 96 PRINT " (4) ENCIRCLEMENT" 97 PRINT "YOU MAY SURRENDER  ATTLE AT BULL" 834 PRINT"RUN. GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK." 840 GO TO 1480 850 IF A<>2 THEN 900 860 PRINT "SHILOH" 870 IF A1=1 THEN 1480 880 PRINT"APRIL 6-7,1862 THE CONFEDERATE SURPRISE ATTACK AT SHILOH" 882 PRINT"FAILED (F+S+B) 630 LET R1=R1+M1*(100-I1)/20 635 LET M3=M3+M1 637 LET M4=M4+M2 650 IF A=14 THEN 1500 660 GOTO 100 670 DATA 18000,18500,1967,2708,1,1,0 672 DATA 40000,44894,10699,13047,3,2,0 674 DATA 95000,115000,20614,15849,3,3,0 676 DATA 54000,63000DUE TO POOR ORGANIZATION." 890 GO TO 1480 900 IF A<>3 THEN 950 910 PRINT "SEVEN DAYS" 920 IF A1=1 THEN 1480 930 PRINT"JUNE 25-JULY 1,1862 GENERAL LEE (CSA) UPHELD THE OFFENSIVE" 932 PRINT"THROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN AND THE,10000,14000,2,4,0 678 DATA 40000,50000,10000,12000,3,5,0 680 DATA 75000,120000,5377,12653,1,6,0 682 DATA 38000,45000,11000,12000,1,7,0 684 DATA 32000,90000,13000,17197,2,8,0 686 DATA 50000,70000,12000,19000,1,9,0 688 DATA 72500,85000,20000,230 UNION" 934 PRINT"FORCES AWAY FROM RICHMOND." 940 GO TO 1480 950 IF A<>4 THEN 1000 960 PRINT "THE SECOND BULL RUN" 970 IF A1=1 THEN 1480 980 PRINT"AUG 29-30,1862 THE COMBINED CONFEDERATE FORCES UNDER LEE AND" 982 PRINT"JACKSON DROVE THE UNION F00,3,10,0 690 DATA 66000,60000,18000,16000,2,11,0 692 DATA 37000,60000,6700,5800,2,12,0 694 DATA 62000,110000,17723,18000,2,13,0 696 DATA 65000,100000,8500,3700,1,14,0 750 PRINT "GO TO JAIL." 752 PRINT "GO DIRECTLY TO JAIL." 754 PRINT "DO NOT PASORCES BACK INTO WASHINGTON." 990 GO TO 1480 1000 IF A<>5 THEN 1050 1010 PRINT "ANTIETAM" 1020 IF A1=1 THEN 1480 1030 PRINT"SEPT 17,1862 THE SOUTH FAILED TO INCORPORATE MARYLAND INTO" 1032 PRINT"THE CONFEDERACY." 1040 GO TO 1480 1050 IF A<>6S GO." 756 PRINT "DO NOT COLLECT $200" 758 GOTO 107 800 IF A<>1 THEN 850 810 PRINT "BULL RUN" 820 IF A1=1 THEN 1480 830 PRINT"JULY 21,1861 GEN. BEAUREGARD COMMANDING THE SOUTH MET THE" 832 PRINT"UNION FORCES WITH GEN MCDOWELL IN A PREMATURE B THEN 1100 1060 PRINT "FREDERICKSBURG" 1070 IF A1=1 THEN 1480 1080 PRINT"DEC 13,1862 THE CONFEDERACY UNDER LEE SUCESSFULLY REPULSED" 1082 PRINT"AN ATTACK BY THE UNION UNDER GEN. BURNSIDE." 1090 GOTO 1480 1100 IF A <>7 THEN 1150 1110 PRINT "MURFRE+5*O THEN 490 470 PRINT "YOU LOSE "; 471 LET L=L+1 480 GOTO 555 490 PRINT "YOU WIN "; 491 LET W=W+1 555 GOSUB 800 556 IF W=8 THEN 1490 580 LET T1=T1+C5+E 590 LET T2=T2+17*C2*C1/(C5*20)+5*O 600 LET P1=P1+C1 610 LET P2=P2+C2 620 LET Q1=Q1+  50 1410 PRINT "SPOTSYLVANIA" 1420 IF A1=1 THEN 1480 1430 PRINT"MAY 5,1864 GRANT'S PLAN TO KEEP LEE ISOLATED BEGAN TO FAIL" 1432 PRINT"HERE, AND CONTINUED AT COLD HARBOR AND PETERSBURG." 1440 GOTO 1480 1450 PRINT "ATLANTA" 1460 IF A1=1 THEN 148ICTORY AND LOST ONE" 1182 PRINT"OF THEIR OUTSTANDING GENERALS, 'STONEWALL' JACKSON." 1190 GOTO 1480 1200 IF A<>9 THEN 1250 1210 PRINT "VICKSBURG" 1220 IF A1=1 THEN 1480 1230 PRINT"JULY 4,1863 VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTH" 1232 PRI0 1470 PRINT"AUGUST, 1864 SHERMAN AND THREE VETERAN ARMIES CONVERGED ON" 1472 PRINT"ATLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERACY." 1480 PRINT 1485 RETURN 1487 PRINT "THE CONFEDERACY HAS SURRENDERED" 1488 GOTO 1500 1490 PRINT "THE UNION HNT"BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI." 1240 GOTO 1480 1250 IF A<>10 THEN 1300 1260 PRINT "GETTYSBURG" 1270 IF A1=1 THEN 1480 1280 PRINT"JUNE 30,1863 A SOUTHERN MISTAKE BY GEN. LEE AT GETTYSBURG" 1282 PRINT"COST THEM ONE OF THAS SURRENDERED" 1500 PRINT 1510 PRINT "YOU HAVE WON ";W;"BATTLES AND LOST ";L;"BATTLES." 1515 IF Y=5 THEN 1550 1520 IF W<=L THEN 1550 1530 PRINT "THE CONFIDERACY HAS WON THE WAR" 1540 STOP 1550 PRINT "THE UNION HAS WON THE WAR" 1560 END E MOST CRUCIAL BATTLES OF THR WAR." 1290 GOTO 1480 1300 IF A<>11 THEN 1350 1310 PRINT "CHICKAMAUGA" 1320 IF A1=1 THEN 1480 1330 PRINT"NOV 25,1863 AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS'" 1332 PRINT"ARMY FOR THREE MONTHS, GEN. GRANT BROKE THE100 PRINT CHR$(26);TAB(24);"DEEPSPACE" 110 PRINT TAB(20);"CREATIVE COMPUTING" 120 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 130 PRINT:PRINT 150 PRINT "THIS IS DEEPSPACE, A TACTICAL SIMULATION OF SHIP TO SHIP" 160 PRINT "COMBAT IN DEEP SPACE." 165 PRINT  SIEGE." 1340 GOTO 1480 1350 IF A<>12 THEN 1400 1360 PRINT "CHATTANOOGA" 1370 IF A1=1 THEN 1480 1380 PRINT"SEPT 15,1863 CONFUSION IN A FOREST NEAR CHICKAMAUGA LED" 1382 PRINT"TO A COSTLY SOUTHERN VICTORY." 1390 GOTO 1480 1400 IF A<>13 THEN 14 170 PRINT "DO YOU WISH INSTRUCTIONS";:INPUT I$ 180 IF LEFT$(I$,1)="N" THEN 610 190 PRINT CHR$(26) 200 PRINT "YOU ARE ONE OF A GROUP OF CAPTAINS ASSIGNED TO PATROL A" 210 PRINT "SECTION OF YOUR STAR EMPIRE'S BORDER AGAINST HOSTILE" 220 PRINT "ALIENS. ESBORO" 1120 IF A1=1 THEN 1480 1130 PRINT"DEC 31,1862 THE SOUTH UNDER GEN. BRAGG WON A CLOSE BATTLE" 1140 GOTO 1480 1150 IF A<>8 THEN 1200 1160 PRINT "CHANCELLORSVILLE" 1170 IF A1=1 THEN 1480 1180 PRINT"MAY 1-6,1863 THE SOUTH HAD A COSTLY V   2 10" 450 PRINT "5- HYPERON NEUTRALIZATION FIELD 20 6" 470 PRINT:PRINT "WEAPONS #1 & #5 CAN BE FIRED 100 TIMES EACH; ALL OTHERS CAN" 480 PRINT "BE FIRED ONCE FOR EACH ON BOARD." 485 PRINT 490 PRINT "A TYPICAL LOAD FOR A65 PRINT " ------","-----","-----------","----------" 270 PRINT "1- SCOUT"," 10X"," 16"," 1" 280 PRINT "2- CRUISER"," 4X"," 24"," 2" 290 PRINT "3- BATTLESHIP"," 2X"," 30"," 5" 310 PRINT:PRINT "SPEED IS GIVEN RELATIVE TO THE OTH CRUISER MIGHT CONSIST OF:" 500 PRINT " 1-#1 PHASER BANK = 12" 510 PRINT " 2-#3 HYPERSPACE LANCES = 8" 520 PRINT " 2-#4 PHOTON TORPEDOES = 4" 530 PRINT " ---------" 540 PRINER SHIPS." 320 PRINT "CARGO SPACE IS IN UNITS OF SPACE ABOARD SHIP WHICH CAN BE" 330 PRINT "FILLED WITH WEAPONS." 340 PRINT "PROTECTION IS THE RELATIVE STRENGTH OF THE SHIP'S ARMOR" 350 PRINT "AND FORCE FIELDS." 360 GOSUB 10000 370 PRINT:PRINT "ONCE T " 24 UNITS OF CARGO" 545 GOSUB 10000 550 PRINT " A WORD OF CAUTION: FIRING HIGH YIELD WEAPONS AT CLOSE (<100)" 560 PRINT "RANGE CAN BE DANGEROUS TO YOUR SHIP AND MINIMAL DAMAGE CAN" 570 PRINT "OCCUR AS FAR OUT AS 200 IN SA SHIP HAS BEEN SELECTED, YOU WILL BE INSTRUCTED TO ARM" 380 PRINT "IT WITH WEAPONRY FROM THE FOLLOWING LIST:" 390 PRINT 400 PRINT " TYPE CARGO SPACE REL. STRENGTH" 405 PRINT " ------ ----------- ------OME CIRCUMSTANCES." 590 PRINT:PRINT "RANGE IS GIVEN IN THOUSANDS OF KILOMETERS." 600 GOTO 640 610 PRINT "DO YOU WISH A MANEUVER CHART";:INPUT M$ 620 IF LEFT$(M$,1)="N" THEN 770 640 PRINT 650 PRINT " MANEUVER CHART":PRINT " --------------" 67-------" 410 PRINT "1- PHASER BANKS 12 4" 420 PRINT "2- ANTI-MATTER MISSILE 4 20" 430 PRINT "3- HYPERSPACE LANCE 4 16" 440 PRINT "4- PHOTON TORPEDO 0 PRINT " 1 FIRE PHASERS" 680 PRINT " 2 FIRE ANTI-MATTER MISSILE" 690 PRINT " 3 FIRE HYPERSPACE LANCE" 700 PRINT " 4 FIRE PHOTON TORPEDO" 710 PRINT " 5 ACTIVE HYPERON NEUTRALIZATION FIELD" 720 PRINT " 6 SELF-DESTRUCT" 73ALL YOUR ENCOUNTERS HERE WILL BE AGAINST HOSTILE" 230 PRINT "VESSELS. YOU WILL FIRST BE REQUIRED TO SELECT A VESSEL" 240 PRINT "FROM ONE OF THREE TYPES, EACH WITH ITS OWN CHARACTERISTICS:" 260 PRINT:PRINT " TYPE","SPEED","CARGO SPACE","PROTECTION" 2  PUT S2 1400 IF (S1+S2)>S0 THEN 2550 1410 S1=S1+S2 1420 GOTO 1180 1430 F0=P1*(Z/R)^1.5 1440 REM 1450 D0=(2*F0+3*F0*RND(0))/5 1460 D=D+D0 1470 PRINT "SCANNERS REPORT ENEMY DAMAGE NOW:";D 1480 IF D>99 THEN 2720 1490 GOTO 1510 1500 D0=0 1510 REM 1EM (1-3)";:INPUT S9 820 IF S9=1 THEN 2380 830 IF S9=2 THEN 2430 840 GOTO 2480 850 D0=0 860 D1=0 870 N1=0 880 N2=0 890 N3=0 900 N4=0 910 D=0 920 PRINT "WHICH SPACECRAFT WOULD YOU LIKE (1-3)";:INPUT S 930 ON S GOTO 1790,1830,1870 960 GOTO 920 9520 K=E1+E2*RND(0) 1530 REM 1540 E=E3+E4*RND(0)+5/P0*RND(0) 1550 REM 1560 F3=E*(K/R)^1.85 1570 D2=(3*F3+3*F3*RND(0))/5.5 1580 D1=D1+D2 1590 IF (Z*D0)/(R*500)>2.2 THEN 1620 1600 D3=D0*2/(R^2*P0) 1610 D1=D1+D3 1620 PRINT "DAMAGE CONTROL REPORTS YOU70 C=C0 980 PRINT "YOU HAVE";C;"UNITS OF CARGO SPACE TO FILL WITH WEAPONRY." 990 PRINT "CHOOSE A WEAPON AND THE AMOUNT YOU WISH";:INPUT W,N 1000 ON W GOTO 1910,2010,2100,2190,2280 1050 GOTO 980 1060 IF N*C1>C THEN 2530 1070 C=C-N*C1 1080 ON W GOTO 1R VESSEL DAMAGE AT:";D1 1630 IF D1>99 THEN 2740 1640 IF D>99 THEN 2760 1650 GOTO 1300 1660 PRINT "SELF DESTRUCT FAILSAFE ACTIVATED!!" 1670 PRINT "INPUT 1 TO RELEASE FAILSAFE";:INPUT U 1680 IF U=1 THEN 1700 1690 GOTO 1290 1700 PRINT "SELF DESTRU990,2080,2170,2260 1120 GOTO 2360 1130 IF C>1 THEN 980 1140 REM 1150 S1=S0*RND(0) 1160 R=(3*RND(0)+5)*100 1180 PRINT:PRINT "RANGE TO TARGET:";R 1190 PRINT "RELATIVE VELOCITY:";S1 1200 PRINT "ACTION";:INPUT M 1210 ON M GOTO 1940,2030,2120,2210,2310CT ACCOMPLISHED." 1710 IF R>60 THEN 1740 1720 PRINT "ENEMY VESSEL ALSO DESTROYED." 1730 GOTO 2760 1740 D4=3200/R 1750 D=D+D4 1760 IF D>99 THEN 1720 1770 PRINT "ENEMY VESSEL SURVIVES WITH";D;"DAMAGE." 1780 GOTO 2760 1790 S0=10 1800 C0=16 1810 P0=,1660,1390,2760 1290 IF R<500 THEN 1500 1300 IF S1>0 THEN 1330 1310 R=R+(S1*8.3)^1.25 1320 GOTO 1340 1330 R=R-(S1*8.3)^1.25 1340 IF R>1500 THEN 2590 1350 IF R>0 THEN 1370 1360 R=-R 1370 PRINT 1380 GOTO 1180 1390 PRINT "CHANGE TO BE EFFECTED";:IN1 1820 GOTO 970 1830 S0=4 1840 C0=24 1850 P0=2 1860 GOTO 970 1870 S0=2 1880 C0=30 1890 P0=5 1900 GOTO 970 1910 C1=12 1930 GOTO 1060 1940 P1=4 1950 IF N1=0 THEN 2160 1960 N1=N1-1 1970 Z=200 1980 GOTO 1430 1990 N1=N1+N 2000 GOTO 1130 2010 0 PRINT " 7 CHANGE VELOCITY" 740 PRINT " 8 DISENGAGE" 750 PRINT " 9 PROCEED" 770 PRINT:PRINT "YOU HAVE A CHOICE OF THREE SYSTEMS TO PATROL." 780 PRINT "1 - ORION" 790 PRINT "2 - DENEB" 800 PRINT "3 - ARCTURUS" 810 PRINT "SELECT A SYST  RON NEUTRALIZATION FIELD DRAINED." 2710 GOTO 2620 2720 PRINT "ENEMY VESSEL DESTROYED!" 2730 GOTO 1510 2740 PRINT "YOUR VESSEL HAS BEEN DESTROYED!" 2760 PRINT "ANOTHER BATTLE";:INPUT R$ 2770 IF LEFT$(R$,1)="Y" THEN 810 2780 PRINT:PRINT "TRY AGAIN LATTO 1130 2190 C1=2 2200 GOTO 1060 2210 P1=10 2220 IF N4=O THEN 2680 2230 N4=N4-1 2240 Z=400 2250 GOTO 1430 2260 N4=N4+N 2270 GOTO 1130 2280 C1=.2 2290 N=100 2300 GOTO 1060 2310 P1=6 2320 IF N5=0 THEN 2700 2330 N5=N5-1 2340 Z=250 2350 GOTO 1ER!":PRINT 2790 GOTO 65000 10000 PRINT:LINE INPUT "ENTER 'RETURN' TO CONTINUE. ";XX$ 10010 PRINT CHR$(26) 10020 RETURN 65000 END NT 2790 GOTO 65000 10000 PRINT:LINE INPUT "ENTER 'RETURN' TO CONTINUE. ";XX$ 10010 PRINT CHR$(26) 10020 RETURN 6500430 2360 N5=N5+N 2370 GOTO 1130 2380 E1=150 2390 E2=500 2400 E3=3 2410 E4=4 2420 GOTO 850 2430 E1=200 2440 E2=350 2450 E3=4 2460 E4=3 2470 GOTO 850 2480 E1=150 2490 E2=400 2500 E3=5 2510 E4=2 2520 GOTO 850 2530 PRINT "NOT ENOUGH SPACE. RESELECT." 2540 GOTO 980 2550 PRINT "CHANGE BEYOND MAXIMUM POSSIBLE." 2560 PRINT "INCREASING TO MAXIMUM." 2570 S1=S0 2580 GOTO 1300 2590 PRINT "OUT OF SENSOR RANGE. AUTOMATIC DISENGAGE." 2600 GOTO 2760 2610 PRINT "PHASER BANKS DRAINED." 2620 PRINT "SELECT ANOTHER COURSE OF ACTION." 2630 GOTO 1200 2640 PRINT " ALL ANTI-MATTER MISSLES EXPENDED." 2650 GOTO 2620 2660 PRINT "ALL HYPERSPACE LANCES EXPENDED." 2670 GOTO 2620 2680 PRINT "ALL PHOTON TORPEDO TUBES EMPTY." 2690 GOTO 2620 2700 PRINT "HYPEC1=4 2020 GOTO 1060 2030 P1=20 2040 IF N2=0 THEN 2640 2050 N2=N2-1 2060 Z=500 2070 GOTO 1430 2080 N2=N2+N 2090 GOTO 1130 2100 C1=4 2110 GOTO 1060 2120 P1=16 2130 IF N3=0 THEN 2660 2140 N3=N3-1 2150 Z=550 2160 GOTO 1430 2170 N3=N3+N 2180 GO  cZ$fh 8fmfrD((Z$) )f| f D X5X5 g D X5X5!g D Y5Y56g D Y5Y5Gg D ~g D PX5:QY5:Y5:X5: : :X5P:Y5Qg g @g " -CENTER OF YOUR GUNSIGHT IN"bF "ORDER TO DESTROY HIM."cP: "THE AIMING IS DONE AS FOLLOWS:"McZ "HIT THE ARROW KEYS TO MOVE YOUR SIGHTS.FOR EXAMPLE,"|cd "TO MOVE THE GUNSIGHT UP (TARGET DOWN),"cn "HIT THE UP ARROW. HIT RETURN TO FIRE AND ES---------------------"g " |"h " |"@h " |"}h " | |"h& " | | | CAPE"cx "TO REDRAW THE GUNSIGHT."c}d "IF YOU FINISH WITH A RATING OVER 75%, YOU WILL"Kd "NOTICE THE TIME BETWEEN TARGET-MOVES SPEEDING UP."d "ALSO, IF YOUR RATING IS 50% OR LESS, THE TIME"d "WILL DECREASE. AS YOU GET BETTER, YOUR |"h0 " |----------| |----------|"4i: " | | | |"qiD " | |"iN " |"iX "  RATING"d "WILL ALSO IMPROVE. GOOD LUCK!!!!!!"d N : Nd:3e "TYPE N FOR NOVICE PILOT, E FOR EXPERIENCED,"Le "OR A FOR ACE"; V$ge V$"E" V8: e V$"N" V8^: e V$ "A" V8d: e e |"ib " |"jl " ---------------------"$jv2j "I-0-I"@jPY5:QX5Fjlj ()"="( Y5)( X5);rjj ()"="( )( )jj Y5 j ()eY5 :X5 : f "GOOD LUCK ON YOUR MISSION --- ON INTO BATTLE!!!"f N : N0fD2:D1: ():f tTf"Y5:X5: : gf,Y5( ){f6X5()f@ fJ fT f^Z$"": Z$""f pj @j X5 j pj @kY5 :X5: : " POW "#k  N d: ();: N6k N d: NOk  : BLANK$()bk* N d: Nwk4Y5:X5: k> "M A Y T H E F O R C E B E W I T H Y O a ()a TaBLANK$" "aY5: "b "YOU HAVE BEEN ASKED TO GO ON A MISSION TO DESTROY"Xb( "FIVE ENEMY CRAFT THAT THREATEN THE GALAXY...."b2 "YOU MUST POSITION YOUR CRAFT SO THAT THE ENEMY"b< "IS IN A POSITION IN THE   ASE HAS BEEN SAVED-CONGRATULATIONS" m "YOUR MISSION RECORD: ";(D2)d;"% PERFORMANCE"oeX5:Y5: : :V8V82: iot V8d Q$"RATING=ACE PILOT": o~ V8 ^ Q$"RATING=NOVICE PILOT": oQ$"RATING=EXPERI)cp Q(T)H(C(T))H(B(T))cq R(T)TR(TR)ctc~ Dc #d "WELCOME TO THE PUC GRAN PRIX"*d 0dZd "DO YOU WANT A COURSE DESCRIPTION";cd A$}d (A$,)"Y" vd "MAKE SURE YOUR PRINTER IS READY."d ENCED PILOT"oY5:X5: o Q$oo ()p I d: (): I5p: " C O N G R A T U L A T I O N S !!!!"Xp: " YOU BEAT THE COMPUTER!!"^p ()p I d: (): I5p: " C O N G R A T U L A T I O N S"ENTER 'RETURN' TO BEGIN PRINTING. ";XX$d: "--- PRINTING ---": e( );"2";B);"1"Je2 );"CC0XPXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX0CC"pe<  );"85-100 CC (800)";E);"C"eF );"C";F);"C"eP );"3 0";);"PUC GRAN PRIX RU !!"kHY5:X5: kR "ENEMY DESTROYED=";D1k\D1D1la D1  lf ,)lpPY5:QX5:Y5:X5: Llz "NUMBER MISSED =";D2:D2D2`lY5P:X5Q: fl|lY5:X5 : lD2D2lY5:X5: l "THE HOME B!  THE FINAL STRAIGHTAWAY OF 400 YARDS"k " IT ENTERS THE LAST CURVE AT 2800 YARDS"6k "8 TO 9 IS THE FINAL CURVE OF 400 YARDS"mk " THE BREAKAWAY SPEED RANGE IS 50 TO 70 MPH"zk ( )k: "THE TOTAL LENGTH OF ONE LAP IS 3200 YARDS" );"X (1900)0 6 90-110"f  );"X X"f );"X X"; g );"DISTANCES IN YARDS, EG. ";9g "(800) = 800 YDS."gg );"X X";);"SPEEDS IN MPH, ";g "EG. 85 TO 100 MPH."g " P X"g " X kk "DURING THE STRAIGHTAWAYS YOU WILL BE ABLE TO CONTROL THE"7l& "ACCELERATION AND BRAKING OF THE CAR. THE CURVES WILL BE";Fl+ " TAKEN"pl0 "AT WHATEVER SPEED YOU ENTER THEM."l2 "BELOW THE BREAKAWAY SPEED, THE CURVES MAY BE TAKEN WITHX"g " X X"g " X X"g " 4 0(1500) X"h " H X"h " H X",h "20-H 0 5"=h " 35 H H"Mh " HH"Th [h h "1 TO 2 IS A STRAIGHTAWAY 800 YARDS LONG"h" "2 TO 3 IS A CURVE 200 YARDS  ";l4 "NO DIFFICULTY."m: "ABOVE THE FASTEST SPEED INDICATED, YOU WILL CRASH!!"HmD "WITHIN THE SPEED RANGE, THERE IS THE POSSIBILITY THAT YOU";WmI " MIGHT"mN "LOSE TIME OR SPEED BY SWINGING WIDE OR BY SPINNING OUT."mX "THE FASTER YOU TLONG"h, " THE BREAKAWAY SPEED RANGE IS 85 TO 100 MPH"i6 "3 TO 4 IS A STRAIGHTAWAY 500 YARDS LONG"Wi@ " IT ENDS AT POSITION 1500 YARDS FROM STARTING";eiE " GRID"iJ "4 TO 5 IS A HAIRPIN CURVE 100 YARDS LONG"iT " THE BREAKAWAAKE THE CURVES, THE GREATER THE RISKS--"mb "AND THE LESS THE TIME!!!!"mqnrGns "YOUR TASK IS TO TRANSVERSE THE TRACK IN A MINIMUM OF TIME"cnt "WITHOUT CRASHING!!!"inunv: "YOUR CAR MAY BE ONE OF THE FOLLOWING:"nw "1. PORSCHE"nY SPEED RANGE IS 20 TO 35 MPH"j^ "5 TO 6 IS ANOTHER STRAIGHTAWAY 300 YARDS LONG"=jh " IT ENDS AT POSITION 1900 YARDS FROM THE GRID"rjr "6 TO 7 IS A SET OF 'S' CURVES 500 YARDS LONG"j| " THE SPEED RANGE IS 90-110 MPH"j "7 TO 8 IS x "2. FERRARI"ny "3. MASERATI"nz "4. LOTUS FORD" o{: "WHICH CAR WOULD YOU LIKE";o| Z:1o} Z ,,,po~ "WE DON'T HAVE THAT CAR IN STOCK, PLEASE CHOOSE AGAIN.";zo |oMo Bo oM oBoACE";F);"C"eZ );"X";E);"C"e_ );"X";C);"CC"fd );"X";&);"SS";;);"(2800) C 50-"Vfn  );"X";);"SSSSSSS SSS SSSOXXXXXXXXXXXXXXXX";jfs "XPXXOC 70"fx  );"X SS SSSSSSS 7";f} @);"8"f "    t " ";T(T)," ";A(S)," ";(X)," FINISH"," ";t A1u AA1u A1 ,u A1B  Tu "MAXIMUM BRAKING IS ";B;"MPH/SEC"^u  lu T1SA}u T1D  u X1XST1AT1T1u X1P(J) H  "2. 1970 BEAT PONTIAC GTO"p "3. 1966 WELL USED FORD MUSTANG" q "4. LOTUS FORD""q "5. 1974 FERRARA"Zq "6. THE PHYSICS SUPERCHARGED LIGHTBEAM SPECIAL":q "CHOOSE ONE OPPONENT BY ENTERING NUMBER";q R1q R1 R1 qu "YOU STOPPED";(P(J)X1);"YARDS FROM POINT";Ju Su XX1v* TTT1v4  #vH YP(J)X4vJ A R BvL TTYSLvN p cvR S1(SSAY)vv\ TT(SS1)Avf SS1vp JJvz @v X1XSDADD R1 q "WHICH CAR DID YOU SAY";q q RR1q  r R(kn+r R(ZR)d()d2r 8r Yr BEGIN THE RACE!!_r ir Jr "ELAPSED-TIME SPEED POSITION OPPONENT'S"r " SECONDS MPv X1P(J) H v TTDv SSADv XX1v  w A1 M t3w "MAXIMUM ACCELERATION IS";M;"MPH/SEC"=w$  Twt X1XSDADDjw~ X1P(J) H tw  w@ *** SUB CURVE ***wJwT I(J)w^ T1(P(H YARDS POSITION ACCELERATION"s "----------- ----- -------- ---------- ------------"s 1s X:S:T:T9:X9 7s Gs J  Ms: sX "COMPLETED LAP";",ELAPSED TIME";T(T);"SEC."s^ "YOUR OPPONENT FINISHED IN";PR;"SECONDJ)P(J))Swh S1G(I)(F(I)G(I))()wr SS1 xw "CURVE";J;J;", SPEED";A(S);"MPH"$x| JJ1x XP(J)>x TTT1Hx  ex SS1(F(I)S1)  }x T2T1()Lx "SPEED IN CURVE";A(S);"MPH, TOOK CURVE WIDS"s_ K1T(T)PRs` K1 c ta "CONGRATULATIONS, YOU WON BY";K1;"SECONDS"tb !:tc "SORRY, YOU LOST BY";K1;"SECONDS"Dtd !Zt P(T)  t " ###.# ### #### #### "; T(T);A(S);(X);P(T);tE, LOST";x T(T2);"SEC."x T1T1T2x |x SF(I) l y S2SS()fff"y T1T1SS2Wy& "SPUN OUT AT";A(S);"MPH, LOST SPEED AND TIME"by0 SS2ly: |yl "LOST CONTROL AT";A(S);"MPH. YOUR CAR CRASHED!!"yq "YO oM oBo oMoB!p "YOUR CAR HAS A MAXIMUM ACCELERATION OF";M;"MPH/SEC."Pp "AND A MAXIMUM BRAKING OF ";B;"MPH/SEC."p: "YOU WILL RACE AGAINST ONE OF THE FOLLOWING:"p "1. U.S. POSTAL DELIVERY TRUCK"p#  120,156,196,244,293,351,410{x# 479,550,625,700,758,800,847,894,942,990,1030,1080:{# 1135,1200,1260,1330,1382,1425,1470,1490,1505,1519r{# 1539,1548,1563,1578,1512,1610,1632,1658,1683,1718{# 1758,1800,1850,1890,1943,1997,2050,2104,2057,2210{# 2294,2317,2370,2420,2480,2535,2600,2670,2725,2768,2799,2830.|# 2861,2892,2920,2951,2982,3013,3044,3075,3106,3137,3168,3199:|# 100000,2420,2480,2535,2600,2670,2725,2768,2799,2830.|# 2861,2892,2920,2951,2982,3013,3044,3075,3106,3137,3168,3199a (): AZ: :L94: S(L9,L9),M$(H)-bY:A:S: "DO YOU WANT INSTRUCTIONS";J$: (J$,)"N" "`b ();"THIS IS JOHN CONWAY'S GAME OF LIFE."fb(b2"THE GAME INVOLVES CELLULAR GENERATION GROWTH. EACH CELL IS"b<"ONE PRINTED CHARACTER. A CELL IS SURROUNDED BY EIGHT OTHER"+cF"CELLS, IN THREE DIRECTIONS: DIAGONALLY, HORIZONTALLY, AND"dcP"VERTICALLY. IN EACH GENERATION CELLS DIE AND GROW"{cZ"SIMULTANEOUSLY."cdcn"A CELL DIES FROM OVERPOPULATION IF IT IUR OPPONENT FINISHED IN";RR;"SECONDS!"y y!z! "DO YOU WISH TO TRY AGAIN";z! A$'z! (A$,)"Y" v-z(#\z2# 0,800,1000,1500,1600,1900,2400,2800,3200iz<# 85,100uzF# 20,35zP# 90,110zZ# 50,70zd#zn# 0,1,3,9,21,39,62,87,$  A(R)h hh X(L9,L9)h Y &h h& X i0 X(L9,L9)i:V:G'iDYM:N1MUiN ();"GENERATION = 0 POPULATION =";A_iX iibGGuilA:Viv M N1i R SiJi ML9 RL9 TO CONTINUE, TYPE RETURN";A$: ()e"YOU WILL BE ASKED TO ENTER THE FIRST, LAST, AND THE INTERVAL"Fe"BETWEEN THE GENERATIONS TO BE PRINTED."Lee"ENTER YOUR PATTERN - A LINE AT A TIME - A '*' WHERE"e"YOU WANT A LIVE CELL AND A ' ' (SZi X(M,R) RS iJJj X(M,R) MN1 RS  jJJ*j X(M,R) MN1 4jJJKj MN1 R ej X(M,R) ojJJj R j X(M,R) j JJj M RPACE) FOR AN EMPTY ONE."e"MAXIMUM BOARD SIZE IS 52 BY 52."e)f"WHEN YOU'RE FINISHED, TYPE IN THE WORD 'DONE'"Cf"AS YOUR LAST LINE."Iff"NOTE: IF THE LIMITS ARE REACHED, IT WILL TERMINATE."f:: "TO CONTINUE , TYPE RETURN";A$ 4j  X(M,R) 4j*JJj4 M Rk> X(M,R) R kHJJ#kR M RS p=k\ X(M,R) pGkfJJWkp J tkz J X(M,R) kS(M,R)kAAk Rk Mk A <kf" ()f,"WHICH GENERATION SHALL THE PRINTING START WITH";Tg6"AND THE LAST GENERATION";R19g@"ALSO, HOW MANY SHALL I SKIP";OCgJOOZgT "ENTER PATTERN:"ig^ M L9tgh M$gr M$"DONE" g| (M$)L9 g"NO MOR GR1 k (GT) (GT)O((GT)O)  l ();"GEN=";G;);"POP=";Al lV%l /l b=lJ2:A2IlC:DXl M N1kl RS  l$ S(M,R) jl. MJ JMl8 RA ARlB MC CE THAN "L9;" CELLS PER LINE": hg R (M$)g (M$,R,)" " h (M$,R,)"*" (hS(M,R)2hAABh RS SRJh RRh M\h h"'";(M$,R,);"' IS NEITHER A ' ' NOR A '*'";h"--TYPE THE LINE AGAIN":AMlL RD DRlV V jl` R);()"g"()()"G"( )mj Rmt V m~%m M6m GR1 FBmCCJNmDDA[mX(,)cm Xvm X(L9,L9)m M N1m R Sm S(M,R) mXS SURROUNDED BY MORE"dx"THAN THREE LIVING CELLS. IT WILL ALSO DIE OF ISOLATION IF IT"Hd"HAS LESS THAN TWO CELLS SURROUNDING IT. NEW CELLS CAN BE"d"FORMED IN EMPTY POSITIONS ONLY; IF AND ONLY IF IT HAS THREE"d"CELLS AROUND IT."::d "%  X, & LIFE were on -FOG.019. The source of STARLAN4, which is similar to STARLANE, is unknown. To run these games, place MBASIC in drive A and this disk in drive B. At the A> prompt, type B: At the B> prompt, type A:MBASIC FollowinY:A:Sn Sn S(L9,L9)n (J$,)"Y" :L94: "nERMINATE."ndnn "ANOTHER RUN";J$nx* END OF RUN ***"JnP dnZ "CELL HAS REACHED LIMITS OF PROGRAM. PROGRAM MUST TERMINATE."ndnn "ANOTHER RUN";J$nxg the Ok prompt, type RUN "filename" where filename represents the name of one of these games. The quotation marks are required. Jim Woolley FOG Disk Librarian August, 1982  620 370 PRINT "THREE "; 380 GOTO 620 390 PRINT "FOUR "; 400 GOTO 620 410 PRINT "FIVE "; 420 GOTO 620 430 PRINT "SIX "; 440 GOTO 620 450 PRINT "SEVEN "; 460 GOTO 620 470 PRINT "EIGHT "; 480 GOTO 620 490 PRINT "NINE "; 500 GOTO 620 510 PRINT "TEN "; 520 C(B)=0 530 GOTO 620 540 PRINT "JACK "; 550 C(B)=0 560 GOTO 620 570 PRINT "QUEEN "; 580 C(B)=0 590 GOTO 620 600 PRINT "KING "; 610 C(B)=0 620 IF INT(A(B)/13)<>A(B)/13 THEN 6 DISK.DOC -FOG/GAM.004 First Osborne Group (FOG) Games Disk This disk contains MBASIC games. CIA, QUEST, STARLANE, & YAHTZEE were previously found on -FOG.015. CIVILW, DSPACE, FIGHTER, GRANPRI40 630 ON A(B)/13 GOTO 660,680,700,720 640 IF INT(A(B)/13)=0 THEN 660 650 ON INT(A(B)/13)GOTO 680,700,720 660 PRINT "OF CLUBS" 670 RETURN 680 PRINT "OF DIAMONDS" 690 RETURN 700 PRINT "OF SPADES" 710 RETURN 720 PRINT "OF HEARTS" (MJ,RA)m Rm Mm  Sm S(L9,L9)mN1Cm(SDn2%n< "NO MORE LIFE IN GENERATION";G@nF "*** END OF RUN ***"JnP dnZ "CELL HAS REACHED LIMITS OF PROGRAM. PROGRAM MUST TERMINATE."ndnn "ANOTHER RUN";J$nx&   1300 GOTO 1250 1310 D=D+C(B) 1320 B=B+1 1330 RETURN 1340 E=E+C(B) 1350 B=B+1 1360 RETURN 1370 PRINT "HOUSE LIMIT IS $100000" 1380 GOTO190 1390 STOP 1400 PRINT "DO YOU WANT THE RULES OF THE GAME"; 1410 INPUT I$ 1420 IF I$0 840 D=D+C(B) 850 B=B+1 860 GOTO 900 870 PRINT "THE CARD IS A "; 880 GOSUB 290 890 GOSUB 1310 900 PRINT "MY FIRST CARD IS A "; 910 GOSUB 290 920 GOSUB 1340 930 PRINT "MY NEXT CARD IS A "; 940 GOSUB 290 950 GOSUB 1340 960 I="NO" OR I$="N" THEN RETURN 1430 PRINT "* OFFICIAL RULES FOR THE GAME OF BACCARAT *" 1440 PRINT "THE COMPUTER IS SHUFFLING SIX DECKS OF CARDS" 1450 PRINT "TOGETHER. THE RULES ARE AS FOLLOWS: THE OBJECT" 1460 PRINT "IS TO BE AS CLOSE TO POSSIBLE  DISK.DOC -FOG/GAM.004 First Osborne Group (FOG) Games Disk Thi dis contain MBASI games CIA QUEST STARLANE YAHTZE wer previousl foun o -FOG.015 CIVILW DSPACE FIGHTER GRANPRITO NINE IN TWO" 1470 PRINT "OR THREE CARDS, FACE CARDS AND TENS COUNT ZERO" 1480 PRINT "ACES COUNT AS ONE EACH,ALL OTHER CARDS COUNT" 1490 PRINT "THEIR INDEX VALUE. WHEN THE TOTAL IS OVER TEN" 1500 PRINT "THE TENS UNIT IS DROPPED. EXAMPLE: A X LIF wer o -FOG.019 Th sourc o STARLAN4 whic i simila t STARLANE i unknown. T ru thes games plac MBASI i driv an thi disk in drive B. At the A> prompt, type B: At the B> prompt, type A:MBASIC FollowinSEVEN AND" 1510 PRINT "A SIX TOTALING THIRTEEN COUNT AS THREE. THE" 1520 PRINT "PLAYER WITH THE HIGHER TOTAL WINS. IN CASE OF" 1530 PRINT "A TIE THE COMPUTER WINS. " 1540 PRINT "DO YOU UNDERSTAND THE RULES"; 1550 INPUT O$ 1560 IF O$="YEg the Ok prompt, type RUN "filename" wher filenam represent th nam o on o thes games. The quotation marks are required. Jim Woolley FOG Disk Librarian August, 1982 S" OR O$="Y" THEN RETURN 1570 PRINT "TOUGH LUCK" 1580 RETURN 1590 PRINT "IT IS A TIE. THE COMPUTER WINS!" 1600 GOTO 1170 1610 PRINT "YOU ARE EVEN-UP !!" 1620 GOTO1250 1630 END N 1590 PRINT "IT IS A TIE. THE COMPUTER WINS!" 1600 GOTO 1170 730 RETURN 740 PRINT "YOUR FIRST CARD IS A "; 750 GOSUB 290 760 GOSUB 1310 770 PRINT "YOUR NEXT CARD IS A "; 780 GOSUB 290 790 GOSUB 1310 800 PRINT "DO YOU WANT A CARD"; 810 INPUT J$ 820 IF J$="YES" OR J$="Y" THEN 870 830 C(3)='