'MODULE 0 MAIN    ******BOARDWALK******10-17-95
'CONVERTED FROM CURSED (SEE NEXT 4 REMS)
'CHANGED GAMEDTA.BAS TO CURSAV.BAS ON 1-24-91
'CHANGED TURNNUMBER TO GYNTURN FOR GIANT TURNS 18FEB92
'CHANGED TIMER ON 2-3-94
'CHANGED SAVE GAME TIME$ DATE$ 7-30-95
'CHANGED ROOMOBJECT$ LIMIT TO 15 OBJECTS THROUGHOUT 10-24-95
'MANY CHANGES ON THE WEEK OF 10-24-95
'copyright 1995 by John H. Doolittle  All rights reserved.  Thank you.
'10-29-95 put spaces in logon name date time
'CONVERTED UPTOWN TO BOARDWALK STARTING 1-19-96
'changes through 1-28-96
'REPORT STUFF 3-5-96
' REFIXED ORANGE FLAG 5-7-96  BOARDATA.TXT 10-24-96

    CLS:DIM FLAG(30),OBJ$(30),OBJ2$(30),CLUE$(30),WURD$(30)
    STRT=TIMER
    CALL LOGON
    LOCATE 12,12:PRINT "ONE MOMENT PLEASE...."
    CALL SETUP              'MODULE 1 SET UP VARIABLES
    CALL TURN               'MODULE 2 RUN TURNS
    CALL CLOSING            'MODULE 3 END OF GAME STUFF
END

'MODULE 0.1 LOGON
SUB LOGON
   SHARED ANSWER$()
   DIM ANSWER$(205)
   INPUT "YOUR NAME-NUMBER PLEASE";ANSWER$(0)
   LET ANSWER$(0)=ANSWER$(0)+"  "+TIME$+"  "+DATE$
END SUB

'MODULE 1 SETUP
SUB SETUP
    CALL ROOMINFO           'MODULE 1.1 READ ROOM INFORMATION
    CALL ROOMOBJECTS        'MODULE 1.2 READ ROOM OBJECTS
    CALL MOVEMENTTABLE      'MODULE 1.3 READ MOVEMENT TABLE
    CALL INVENTORY          'MODULE 1.4 INITIALIZE INVENTORY ARRAY
                            '             TO AN EMPTY LIST
    CALL OTHERS             'MODULE 1.5 INITIALIZE OTHER VARIABLES
END SUB

'MODULE 1.1 ROOMINFO
SUB ROOMINFO
    SHARED DESCRIPTION$(),NUMBERROOMS,DESCRIBEFLAG(),ROOMDESCRIBE$(),ROOMDES2$()
    READ NUMBERROOMS
    DIM DESCRIPTION$(NUMBERROOMS),DESCRIBEFLAG(NUMBERROOMS),ROOMDESCRIBE$(NUMBERROOMS)
    DIM ROOMDES2$(NUMBERROOMS)
    FOR I = 1 TO NUMBERROOMS
        READ DESCRIPTION$(I)
    NEXT I
    DATA 33,BALLROOM,DRESS SHOP,JEWELRY STORE,BASKETBALL SHOOT,CRAFTS CENTER
    DATA SHOOTING GALLERY,ROLLER-COASTER,BOARDWALK,BOARDWALK,BOARDWALK
    DATA BOARDWALK,BOARDWALK,BOARDWALK,BOARDWALK,STORAGE ROOM
    DATA END OF BEACH,BEACH,WHARF,BEACH,BEACH
    DATA BEACH,TIDEPOOL,SURF,SURF,WHARF
    DATA SURF,SURF,SURF,WHARF,FISH MARKET
    DATA OCEAN FLOOR,END OF WHARF,SEAL ROCK

    FOR I=1 TO NUMBERROOMS
       LET DESCRIBEFLAG(I)=0
       READ ROOMDESCRIBE$(I),ROOMDES2$(I)
    NEXT I
 REM ROOM 1
    DATA "The music here in the BALLROOM, though melancholy, suggests that"
    DATA "love is in the air.  Get cracking, you matchmaker, you."

    DATA "Here in the DRESS SHOP is a beautiful ballroom GOWN that just been"
    DATA "marked down to $115 ---WOW!  Too bad you don't have that much, yet."

    DATA "The JEWELER* here in the JEWELRY STORE is eyeing you very closely."
    DATA "Andrea's getting jumpy, keeps shouting 'I'm not a thief!'"

    DATA "Here at the BASKETBALL SHOOT, you can SHOOT a BASKET  and win a "
    DATA "stuffed ANIMAL.  Cool!  Except that you hate stuffed animals."

    DATA "It's funny that you haven't notice some sort of SIGN*  here at "
    DATA "the CRAFTS CENTER.  Perhaps you should return later."
REM 6
    DATA "Here at the SHOOTING GALLERY is an unhappy SAILOR*.  He's trying"
    DATA "to win a stuffed ANIMAL for his date but can't SHOOT straight."

    DATA "Here at the ROLLER-COASTER, you can't tell who looks the most "
    DATA "pale - the people getting on or the people getting off."

    DATA "Here the BOARDWALK dead ends against the sheer wall of the sandstone"
    DATA "cliff.  "

    DATA "Lots of splinters in this section of the BOARDWALK  "
    DATA "  "

    DATA "Excuse me!  Isn't there a dress code on this BOARDWALK?  "
    DATA "  "
 REM 11

    DATA "A badly burned, portly gentleman just passed by on this section  "
    DATA "of the BOARDWALK.  Doesn't he teach at Sac State?  "

    DATA "On this section of the BOARDWALK, you can still hear the screams "
    DATA "coming from the folks enjoying the ROLLER-COASTER*  "

    DATA "All along the BOARDWALK are steps leading down to the BEACH  "
    DATA "  "

    DATA "This end of the BOARDWALK ends outside a STORAGE ROOM"
    DATA "  "

    DATA "The LOCKER in the STORAGE ROOM is probably full of good stuff,"
    DATA "too bad it's locked.  Andrea thinks you should find the key.  Duh!"
REM 16
    DATA "Here the BEACH dead ends against the cliff wall.  READ the SIGN*"
    DATA "and REVEAL something that you'll need."

    DATA "This is the section of BEACH, next to the WHARF that has the best"
    DATA "surf in the area.  The pilings are too close to 'shoot the pier.'"

    DATA "This is the beginning of the world-famous WHARF.  You wonder what"
    DATA "keeps the rotten-looking wooden structure up."

    DATA "An attractive, but poorly dressed WOMAN* sits here on the BEACH"
    DATA "gazing disconsolately out to sea.  Is she swaying?"

    DATA "As you enter this section of the BEACH you overhear someone "
    DATA "talking about a fraternity party.  Something about soap suds."
REM 21
    DATA "As you enter this section of the BEACH the STORAGE ROOM guy tells"
    DATA "Andrea that he has a hole in his pocket.  Andrea says, 'oh.'"

    DATA "At the end of the beach is a terrific TIDEPOOL, which is uncovered"
    DATA "right now revealing a STARFISH*.  He looks crabby."

    DATA "The SURF here near the cliff is too dangerous to surf."
    DATA "  "

   DATA "The waves here near the WHARF curl very nicely.  Ouch, some dude"
   DATA "just took a header off the end of his board. Ah, the taste of sand."

    DATA "A wharf GUARD* is taking things from people before letting them"
    DATA "GO SOUTH along the wharf.  Isn't that illegal?"


REM 26
    DATA "The SURF here is quite cold. "
    DATA "  "

    DATA "Andrea is complaining about the salt water of the SURF here  "
    DATA "  "

    DATA "The waves are smaller and less dangerous in this part of  "
    DATA "the surf "

    DATA "This middle section of WHARF is opposite the FISH MARKET."
    DATA "   "

    DATA "A somewhat downcast FISHMONGER* dominates the scene at the"
    DATA "FISH MARKET -- unless you count the smell."
 REM 31
    DATA "The water here on the OCEAN FLOOR is quite clear and pleasant."
    DATA " You see something that a STARFISH* could go for."

    DATA "Here at the end of the WHARF you can see SEAL ROCK to the south,"
    DATA "but you can't GO there until you MAKE a BRIDGE.  Is that a pelican?"

    DATA "Here on SEAL ROCK you see a most forlorn PELICAN* who is hope-"
    DATA "lessly tangled in some fishing LINE.  UNTANGLE him, please."

END SUB

'MODULE 1.2 ROOM OBJECT INFORMATION
SUB ROOMOBJECTS
    SHARED ROOMOBJECT$(),NUMBERROOMS
    DIM ROOMOBJECT$(NUMBERROOMS,15)
        FOR I=1 TO NUMBERROOMS
            FOR J=1 TO 15
                LET ROOMOBJECT$(I,J)="EMPTY"
            NEXT J
        NEXT I
END SUB

'MODULE 1.3 MOVEMENTTABLE
SUB MOVEMENTTABLE
    SHARED MOVEMENTTABLE(),NUMBERROOMS
    DIM MOVEMENTTABLE(NUMBERROOMS,6)
    FOR I=1 TO NUMBERROOMS
        FOR J = 1 TO 6
           READ MOVEMENTTABLE(I,J)
        NEXT J
    NEXT I
    DATA 0,8,0,0,0,0
    DATA 0,9,0,0,0,0
    DATA 0,10,0,0,0,0
    DATA 0,11,0,0,0,0
    DATA 0,12,0,0,0,0

    DATA 0,13,0,0,0,0
    DATA 0,14,0,0,0,0
    DATA 1,0,9,0,0,16
    DATA 2,0,10,8,1,17
    DATA 3,0,11,9,0,18

    DATA 4,0,12,10,0,19
    DATA 5,0,13,11,0,20
    DATA 6,0,14,12,0,21
    DATA 7,0,15,13,0,0
    DATA 0,0,0,14,0,0

    DATA 0,23,17,0,8,0
    DATA 0,24,18,16,9,0
    DATA 0,25,19,17,10,0
    DATA 0,26,20,18,11,0
    DATA 0,27,21,19,12,0

    DATA 0,28,22,20,13,0
    DATA 0,0,0,21,0,0
    DATA 16,0,0,0,0,0
    DATA 17,0,0,0,0,0
    DATA 18,29,0,0,0,0

    DATA 19,0,0,0,0,0
    DATA 20,0,0,0,0,0
    DATA 21,0,0,0,0,0
    DATA 25,32,30,0,0,0
    DATA 0,0,0,29,0,0

    DATA 0,0,0,0,29,0
    DATA 29,33,0,0,0,0
    DATA 32,0,0,0,0,0
END SUB

'MODULE 1.4 INVENTORY
SUB INVENTORY
    SHARED INVENTORY$()
    DIM INVENTORY$(5)
    FOR I=1 TO 5
        LET INVENTORY$(I)="EMPTY"
    NEXT I
    LET INVENTORY$(5)="SURFBOARD"
END SUB

'MODULE 1.5 OTHERS
SUB OTHERS
    SHARED GAMESTATE$,ROOM,TURNNUMBER,ROOMOBJECT$(),THING$,INVENTORY$(),_
        FLAG(),OBJ$(),OBJ2$(),DESCRIBEFLAG(),ROOMDESCRIBE$(),ROOMDES2$(),_
        GUESSNUMB,CLUE$(),WURD$(),NUMBERROOMS,LOGIC$,SLAMMER,TRYNUMB,TOTAL
    LET TURNNUMBER =0
    LET THING$=""
    FOR I=1 TO 30:LET FLAG(I)=0:NEXT I      'SET FLAGS TO 0
          'FLAG #  MEANING OF 0      FLAG# MEANING OF 0
          ' 1      GAME NOT OVER       2 SEAL ROCK BRIDGE NOT MADE
          'FOR 1, 1 MEANS GAME WON -1 GAME LOST 2 MEANS GAME QUIT
          '3 PELICAN NOT UNTANGLED     4 FISH NOT SWAPPED
          '5 BASKET NOT SHOT           6 ANIMAL NOT GIVEN
          '7 DRIFTWOOD NOT REVEALED    8 DANCER NOT REVEALED
          '9 LOCKER LOCKED            10 STARFISH NOT SEEN
          '11 HICCUPS NOT CURED       12 GUARD* NOT FED
          '13 DOOR NOT LOCKED         14 EXITS SUB TO REFRESH SCREEN
          '18 GUESS MEDAL             19 orange not revealed
          '20 GUESS CANS
          '29 GUESS OYSTERS
        LET FLAG(18)=1:REM NOT FIRST TO BE GUESSED
        LET FLAG(29)=1:REM NOT THIS ONE EITHER

    'SET UP WORD GUESSING DATA
     FOR I=1 TO NUMBERROOMS
       LET CLUE$(I)="":LET WURD$(I)=""
     NEXT I
     LET CLUE$(18)="OLYMPIC"
     LET WURD$(18)="MEDAL"
     LET CLUE$(20)="BEER"
     LET WURD$(20)="CANS"
     LET CLUE$(29)="CLAM"
     LET WURD$(29)="OYSTER"
    GUESSNUMB=0:'TOTAL NUMBER OF GUESSES AT WORDS
    TRYNUMB=0:'TOTAL # OF TRIES AT COMBO DOOR LOCK
    SLAMMER=0:'TOTAL # OF TRIES AT FINAL SOLUTION MATRIX
    LOGIC$="Logfal - "
    TOTAL=0

    FOR I=1 TO 39
      READ ROOM,J,ROOMOBJECT$(ROOM,J)
    NEXT I
    DATA 1,1,SIGN*,1,2,EMPTYMAN*,2,1,EMPTYGOWN
    DATA 3,1,JEWELER*,4,1,EMPTYBASKETBALL,5,1,EMPTYSIGN*
    DATA 6,1,SAILOR*,13,1,EMPTYSIGN*,13,2,EMPTYVENDING-MACHINE
    DATA 14,1,RECYCLER*,15,1,LOCKER*,15,2,EMPTYSCUBA
    DATA 15,3,EMPTYWETSUIT,15,4,EMPTYFIN,15,5,EMPTYSAWBUCK

    DATA 15,6,EMPTYC-NOTE,16,1,SIGN*,16,2,EMPTYDRIFTWOOD
    DATA 19,1,WOMAN*,20,1,EMPTYCANS,22,1,STARFISH*
    DATA 22,2,EMPTYSHELL*,29,1,EMPTYLADDER*,30,1,SIGN*
    DATA 30,2,FISHMONGER*,30,3,EMPTYFISH*,31,1,OYSTER
    DATA 31,2,LADDER*,33,1,PELICAN*,33,2,EMPTYFISH

    DATA 7,1,SIGN*,32,1,EMPTYBRIDGE*,33,3,BRIDGE*
    DATA 9,1,SIGN*,10,1,SIGN*,10,2,EMPTYORANGE
    DATA 25,1,GUARD*,15,7,EMPTYSIGN*,15,8,EMPTYKEY*

 'THE STARTING ROOM IS THE ENTRYWAY - 7 ROLLER COASTER
    ROOM=7


    FOR I=1 TO 17                       'READ IN WORD!* CONVERSION
        READ OBJ$(I),OBJ2$(I)
    NEXT I
    DATA SIGN,SIGN*,MAN,MAN*,JEWELER,JEWELER*
    DATA BALL,BASKETBALL,SAILOR,SAILOR*,MACHINE,VENDING-MACHINE*
    DATA RECYCLER,RECYCLER*,LOCKER,LOCKER*,WOOD,DRIFTWOOD
    DATA WOMAN,WOMAN*,CAN,CANS,STARFISH,STARFISH*
    DATA LADDER,LADDER*,FISHMONGER,FISHMONGER*,PELICAN,PELICAN*

    DATA GUARD,GUARD*,BOARD,SURFBOARD

END SUB

'MODULE 2 TURN
SUB TURN
    SHARED FLAG(),TURNNUMBER
    DO UNTIL FLAG(1) <> 0
        FLAG(14)=0
        TURNNUMBER = TURNNUMBER + 1
        IF TURNNUMBER=295 THEN BEEP 3:_
           PRINT "Type   SAVE GAME  and then  QUIT":_
           PRINT "You can then return to this spot by typing":_
           PRINT "BOARDWALK (at the DOS prompt) and later,":_
           PRINT "as a command, RESTORE GAME":_
           PRINT "Please forgive the necessary inconvenience."
        IF TURNNUMBER=300 THEN FLAG(1)=2
        CALL DESCRIBE      'MODULE 2.1 DESCRIBE THE ROOM
        CALL COMMANDS      'MODULE 2.2 INPUT THE COMMANDS
        CALL EVALUATE      'MODULE 2.3 EVALUATE COMMANDS
    LOOP
END SUB

'MODULE 2.1 DESCRIBE THE CURRENT ROOM
SUB DESCRIBE
    SHARED DESCRIPTION$(),ROOM,MOVEMENTTABLE(),ROOMOBJECT$(),FLAG(),_
        TURNNUMBER,INVENTORY$(),THING$,OBJECT$,DESCRIBEFLAG(),ROOMDESCRIBE$(),_
        ROOMDES2$(),CLUE$(),WURD$(),GUESSNUMB,TRYNUMB,LOGIC$,ITEMNUMBER
    PRINT:PRINT
    IF TURNNUMBER=1 THEN CALL GAMESTARTER   'MODULE 2.1.1

    IF DESCRIBEFLAG(ROOM)=1 THEN PRINT "You are at the  ";DESCRIPTION$(ROOM)
    IF DESCRIBEFLAG(ROOM)=0 THEN__
     PRINT ROOMDESCRIBE$(ROOM):PRINT ROOMDES2$(ROOM):DESCRIBEFLAG(ROOM)=1
    DELAY 0.3
    PRINT "The noticeable exits are: ";
    IF MOVEMENTTABLE(ROOM,1)<>0 THEN PRINT "NORTH ";
    IF MOVEMENTTABLE(ROOM,2)<>0 THEN PRINT "SOUTH ";
    IF MOVEMENTTABLE(ROOM,3)<>0 THEN PRINT "EAST ";
    IF MOVEMENTTABLE(ROOM,4)<>0 THEN PRINT "WEST ";
    IF MOVEMENTTABLE(ROOM,5)<>0 THEN PRINT "UP ";
    IF MOVEMENTTABLE(ROOM,6)<>0 THEN PRINT "DOWN ";
    PRINT
    DELAY 0.3
    PRINT "The noticeable objects are: ";
    COUNTER=0
    FOR I=1 TO 15
        LET STUFF$= ROOMOBJECT$(ROOM,I)
        IF LEFT$(STUFF$,5)<>"EMPTY" THEN PRINT "   ";ROOMOBJECT$(ROOM,I);_
          :COUNTER=COUNTER+1
    NEXT I
    IF COUNTER=0 THEN PRINT "noticeably absent!";
    PRINT
    DELAY 0.3
    PRINT "You are carrying: ";
            COUNTER=0
            FOR I= 1 TO 5
                IF INVENTORY$(I)<>"EMPTY" THEN COUNTER=COUNTER + 1:_
                    PRINT INVENTORY$(I);"   ";
            NEXT I
            IF COUNTER = 0 THEN PRINT "nothing at all."
     PRINT
     DELAY 0.3
     IF ROOM=18 OR ROOM=20 OR ROOM=29 THEN DELAY 0.3
     IF (ROOM=18 OR ROOM=20 OR ROOM=29) AND FLAG(ROOM)=0 THEN PRINT _
       "Andrea says that she's thinking of a ";LEN(WURD$(ROOM));_
        "-letter word":PRINT _
       "that has something to do with ";CLUE$(ROOM);".":DELAY 0.3:PRINT:PRINT _
       "If you would like to guess what the word is, type GUESS followed ":_
       PRINT "by your guess, for example,  GUESS COW ":DELAY 0.3

     THING$="ORANGE"
     IF ROOM=25 AND FNCARRY=1 THEN _
       LET INVENTORY$(ITEMNUMBER)="EMPTY":PRINT:FLAG(12)=1:_
       LET ROOMOBJECT$(ROOM,1)="EMPTY":FLAG(14)=1: PRINT _
       "The GUARD* takes the ORANGE and wanders off.  Creep."


     THING$="CANS"
     IF ROOM=14 AND FNCARRY=1 THEN _
       LET INVENTORY$(ITEMNUMBER)="BUCK":PRINT:PRINT _
       "The RECYCLER* glommed on to the CANS and slipped you a BUCK.  Cool!":_
       PRINT:LET ROOMOBJECT$(ROOM,1)="EMPTY":_
       LET FLAG(14)=1:REM EXITS SUB

     THING$="DETECTOR"
     IF ROOM=21 AND FNCARRY=1 THEN
       LET INVENTORY$(ITEMNUMBER)="KEY":PRINT:PRINT _
       "You detected and picked up a KEY.  Promising!":PRINT:PRINT _
       "Just then the rental guy came by and took back the overdue":PRINT _
       "DETECTOR.  Andrea says she doesn't remember anything about":PRINT _
       "a time limit.  Da noive a da guy!":LET FLAG(14)=1
     END IF


     THING$="OYSTER"
     IF ROOM=22 AND FNCARRY=1 THEN
       LET INVENTORY$(ITEMNUMBER)="PEARL":PRINT
       PRINT"You slip momentarily in the TIDEPOOL, dropping the OYSTER into the"
       PRINT "water.  In a flash, the STARFISH has it pried open and consumed,"
       PRINT "(that was disgusting), leaving you with only the PEARL.  Yes!"
       LET FLAG(14)=1
     END IF

     THING$="PEARL"
     IF ROOM=3 AND FNCARRY=1 THEN
       LET INVENTORY$(ITEMNUMBER)="C-NOTE"
       PRINT "The JEWELER's on you like cheese on a burger when he sees the"
       PRINT "PEARL.  Before you can react, he's taken the PEARL and given "
       PRINT "you $100.  Andrea asks if it's dress time.":LET FLAG(14)=1
     END IF

     THING$="GOWN"
     IF ROOM=19 AND FNCARRY=1 THEN
       FLAG(1)=1:INVENTORY$(ITEMNUMBER)="EMPTY"
       PRINT
       PRINT "The WOMAN*'s face lights up when she sees the GOWN that "
       PRINT "you and Andrea hand her.  After thanking you profusely,"
       PRINT "she sprints off in the direction of the changing room."
       Delay 5.5
       PRINT
       PRINT "#################################################"
       PRINT:PRINT
       PRINT "You follow the her to the BALLROOM in time to see the"
       PRINT "happy couple dancing the waltz.  Whatever the waltz is."
       PRINT "The MAN* turns out to be ex-surfing champ Blackjack Brown,"
       PRINT "who tosses you the wax you need to surf your best.  Dude."
       EXIT SUB
     END IF

     IF FLAG(11)=0 THEN PRINT _
       "Andrea has the hiccups -- wants to tell you something - but can't!"
  PRINT

END SUB

'MODULE 2.1.1 GAME STARTER -- PRINT OUT INTRODUCTORY REMARKS
SUB GAMESTARTER
     CLS
     PRINT "              WELCOME TO THE BOARDWALK!"
     PRINT
     PRINT "  Okay, here's the deal:  Your seriously bitchin' poem, "
     PRINT "'Surf's up, dude!' won the Surfer's Open Poetry Contest and"
     PRINT "now you have the first prize: King Kamehameha's original,"
     PRINT "humungously long, wooden surfboard.  Excellant!  Unfortunately,"
     PRINT "you can't try it out -- no wax!  Bummer!  "
     PRINT "  You'll just have to wander around the BOARDWALK doing good"
     PRINT "until virtue is rewarded and you happen upon some wax.  Hurry"
     PRINT "though -- that storm out in the Pacific has stirred up some"
     PRINT "kicker waves.  Tubular!"
     PRINT
     PRINT "    Give COMMANDs as VERB then OBJECT, Such as GO NORTH,"
     PRINT "READ SIGN, RIDE ROLLER-COASTER*, CLIMB LADDER*, SHOOT BASKET,"
     PRINT "UNTANGLE PELICAN*, GET SCUBA (Self-Contained Underwater Breathing"
     PRINT "Apparatus - if you must know), PAY SAWBUCK ($10), PAY FIN ($5)"
     PRINT "PAY C-NOTE ($100), MAKE BRIDGE, SWAP FISH, DEPOSIT BUCK ($1), etc."
     PRINT "    Exceptions to this two-word sentence rule are single-"
     PRINT "letter commands such as N to GO NORTH, and U to GO UP."
     PRINT "    P.S. Don't try to get objects ending in an *, e.g., SAFE*,"
     PRINT "as they are quite unobtainable.  "
     PRINT
     PRINT "If you're through taking notes, press the Enter key to begin"
     DO WHILE LEN(INKEY$)=0:LOOP
     CLS
END SUB

'MODULE 2.1.2 ERASER kept as dummy in case it's referenced somewhere
SUB ERASER
REM
END SUB
 'MODULE 2.1.3 MESSAGE  AFTER WORD GAME IS COMPLETED
SUB MESSAGE
  SHARED ROOM,ROOMOBJECT$(),FLAG()
  IF ROOM= 20 THEN
    LET ROOMOBJECT$(ROOM,1)="CANS"
    LET FLAG(18)=0:REM ENABLES YOU TO GET MEDAL CLUE
    PRINT "Andrea asks if you noticed how many CANS people strew about.  Strew?"
  END IF
  IF ROOM=18 THEN
    LET ROOMOBJECT$(13,1)="SIGN*"
    LET ROOMOBJECT$(13,2)="VENDING-MACHINE*"
    LET FLAG(29)=0:REM ENABLES YOU TO GET OYSTER CLUE
    PRINT "Andrea suggests you DEPOSIT the BUCK at the VENDING-MACHINE*"
    PRINT "and rent a metal DETECTOR"
  END IF
  IF ROOM=29 THEN
    LET ROOMOBJECT$(29,1)="LADDER*"
    PRINT "Andrea suggests you CLIMB LADDER* down to the OYSTER."
  END IF
END SUB

'MODULE 2.2 COMMANDS
SUB COMMANDS
    SHARED VERB$, OBJECT$,ROOM,DESCRIPTION$(),FLAG(),INVENTORY$(),_
        ROOMOBJECT$(),OBJ$(),OBJ2$(),C$,ANSWER$(),TURNNUMBER,_
        CLUE$(),WURD$(),GUESSNUMB,TOTAL

    IF FLAG(1)<>0 THEN EXIT SUB
    IF FLAG(14)=1 THEN EXIT SUB
    ' BE SURE THAT INPUT IS OK  DUMMY2=0
    DUMMY2=0
   DO UNTIL DUMMY2=1
    'C$=THE INPUTTED COMMAND SENTENCE - MAY BE MORE THAN 2 WORDS
    'BUT ONLY THE FIRST TWO WORDS ARE ACCEPTED
    ' THE FIRST IS CALLED VERB$ AND THE SECOND OBJECT$
    LET C$=""
    PRINT:PRINT
    PRINT "*****************************************************************"
    DO UNTIL C$<>""
        INPUT "COMMAND";C$                 'GET THE RAW SENTENCE
    LOOP

    REM SPACES TAKE OFF LEADING AND PERHAPS TRAINING CHR$(32)'S
    DO WHILE RIGHT$(C$,1)=CHR$(32)
      LET C$=LEFT$(C$,LEN(C$)-1)
    LOOP

    LET DUMMY$=""                          'CONVERT TO UPPERCASE
    FOR I=1 TO LEN (C$)
    IF ASC(MID$(C$,I,1))>96 AND ASC(MID$(C$,I,1))<123 THEN_
        LET DUMMY$=DUMMY$+CHR$(ASC(MID$(C$,I,1))-32)_
        ELSE LET DUMMY$=DUMMY$+MID$(C$,I,1)
    NEXT I
    LET C$=DUMMY$

    LET I=1                                'LETTER COUNTER

    DO WHILE NOT (ASC (MID$(C$,I,1)) = 32) AND NOT (I= LEN(C$))
                                           'LOOP TO LOOK FOR FIRST SPACE
        LET I = I + 1                      'WHICH SHOULD DENOTE END OF FIRST
    LOOP                                   'WORD

    LET VERB$=MID$(C$,1,I)                 'ASSIGN THOSE CHARACTERS TO VERB$

LET ANSWER$(TURNNUMBER)=C$

    LET OBJECT$ = MID$(C$,I+1,LEN(C$))     'ASSIGN REST OF SENTENCE TO OBJECT$


    IF LEN(OBJECT$)<>0 THEN VERB$=LEFT$(VERB$,LEN(VERB$)-1)
    FOR J=1 TO 20                          'CONVERT OBJECT$ LACKING * OR !
        IF OBJECT$=OBJ$(J) THEN LET OBJECT$=OBJ2$(J)
    NEXT J
    'CHECK FOR EXTRA WORDS
    COUNTER=0
    FOR J=1 TO LEN(OBJECT$)
      LET DUMMY$=MID$(OBJECT$,J,1)
      IF DUMMY$=CHR$(32) THEN COUNTER=COUNTER+1
    NEXT J
    IF COUNTER<>0 THEN PRINT "Two words only, please." _
      ELSE DUMMY2=1

 LOOP
END SUB

'MODULE 2.3 EVALUATE THE COMMANDS
SUB EVALUATE
    SHARED VERB$, OBJECT$,ROOM,DIRECTION,MOVEMENTTABLE(),NUMBERROOMS,_
        ROOMOBJECT$(),ITEMNUMBER,TURNNUMBER,THING$,INVENTORY$(),FLAG(),_
        GUESSNUMB,CLUE$(),WURD$(),LOGIC$,TRYNUMB,SLAMMER,TOTAL
    IF FLAG(1)<>0 THEN EXIT SUB
    IF FLAG(14)=1 THEN EXIT SUB
    SELECT CASE VERB$
        CASE "QUIT","Q"
            LET FLAG(1)=2   'GAME NOT WON(1) OR LOST(-1):EXIT SELECT
        CASE "SAVE"
            IF OBJECT$<>"GAME" THEN PRINT "SAVE GAME":EXIT SELECT
            OPEN "BOARDSAV.BAS" FOR OUTPUT AS #1
            WRITE #1,ROOM


            FOR I=1 TO 5
                LET DUMMY$=""
                FOR J=1 TO LEN(INVENTORY$(I))
                 LET DUMMY$=DUMMY$+CHR$(ASC(MID$(INVENTORY$(I),J,1))+4)
                NEXT J
                WRITE #1,DUMMY$
            NEXT I
            FOR I=1 TO NUMBERROOMS
               FOR J=1 TO 15
                LET DUMMY$=""
                FOR K=1 TO LEN (ROOMOBJECT$(I,J))
                 LET DUMMY$=DUMMY$+CHR$(ASC(MID$(ROOMOBJECT$(I,J),K,1))+4)
                NEXT K
                WRITE #1,DUMMY$
               NEXT J
            NEXT I
            FOR I=1 TO 30
                WRITE  #1,FLAG(I)
            NEXT I
            WRITE #1,GUESSNUMB,LOGIC$,SLAMMER,TRYNUMB,TOTAL
            CLOSE #1
            PRINT "OK
            EXIT SELECT
        CASE "RESTORE"
            IF OBJECT$<> "GAME" THEN PRINT "Try  RESTORE GAME":EXIT SELECT
            OPEN "BOARDSAV.BAS" FOR INPUT AS #1
            INPUT #1,ROOM


            FOR I=1 TO 5
              INPUT #1,DUMMY$
                LET INVENTORY$(I)=""
                FOR J=1 TO LEN(DUMMY$)
                 LET INVENTORY$(I)=INVENTORY$(I)+CHR$(ASC(MID$(DUMMY$,J,1))-4)
                NEXT J
            NEXT I
            FOR I=1 TO NUMBERROOMS
               FOR J=1 TO 15
                INPUT #1,DUMMY$
                LET ROOMOBJECT$(I,J)=""
                FOR K=1 TO LEN (DUMMY$)
                 LET ROOMOBJECT$(I,J)=ROOMOBJECT$(I,J)+CHR$(ASC(MID$(DUMMY$,K,1))-4)
                NEXT K
               NEXT J
            NEXT I


            FOR I=1 TO 30
                INPUT  #1,FLAG(I)
            NEXT I
            INPUT #1,GUESSNUMB,LOGIC$,SLAMMER,TRYNUMB,TOTAL
            CLOSE #1
            PRINT "OK"
            EXIT SELECT

        CASE "INVENTORY","I"
            COUNTER=0
            PRINT "   YOU CARRY: ";
            FOR I= 1 TO 5
                IF INVENTORY$(I)<>"EMPTY" THEN COUNTER=COUNTER + 1:_
                    PRINT INVENTORY$(I);"   ";
            NEXT I
            IF COUNTER = 0 THEN PRINT "NOTHING AT ALL" :EXIT SELECT
            PRINT:EXIT SELECT

        CASE "GO","MOVE","N","S","E","W","U","D"
            IF LEN (VERB$)=1 THEN OBJECT$=VERB$
            IF OBJECT$="NORTH" OR OBJECT$="N" THEN DIRECTION = 1
            IF OBJECT$="SOUTH" OR OBJECT$="S" THEN DIRECTION = 2
            IF OBJECT$="EAST"  OR OBJECT$="E" THEN DIRECTION = 3
            IF OBJECT$="WEST"  OR OBJECT$="W" THEN DIRECTION = 4
            IF OBJECT$="UP"    OR OBJECT$="U" THEN DIRECTION = 5
            IF OBJECT$="DOWN"  OR OBJECT$="D" THEN DIRECTION = 6
       IF DIRECTION=2 AND ROOM=32 AND FLAG(2)=0 THEN PRINT _
         "You'll need to MAKE a BRIDGE to GO SOUTH":EXIT SELECT
       IF DIRECTION=2 AND ROOM=25 AND FLAG(12)=0 THEN PRINT _
         "The GUARD* wants a piece of fruit first.  Shakedown.":EXIT SELECT
       IF DIRECTION=4 AND ROOM=15 AND FLAG(13)=1 THEN PRINT _
         "Can't the DOOR's locked.  Andrea says: Try - READ SIGN*":EXIT SELECT
       IF DIRECTION=2 AND ROOM=7 AND FLAG(11)=0 THEN PRINT _
         "Help Andrea with her hiccups before moving on.":EXIT SELECT

            IF MOVEMENTTABLE (ROOM,DIRECTION) = 0 THEN _
                PRINT "You can't go that way." ELSE _
                LET ROOM = MOVEMENTTABLE (ROOM,DIRECTION)
            EXIT SELECT

        CASE "GET","TAKE"
            IF OBJECT$="SURFBOARD" THEN PRINT _
              "Leave it here until you get some wax":EXIT SELECT

            IF  FNPRESENT = 0 THEN PRINT "I DON'T SEE  ";OBJECT$:EXIT SELECT
            IF RIGHT$(OBJECT$,1)="*" THEN PRINT "I CAN'T HANDLE IT":EXIT SELECT

            FOR I=1 TO 5
                IF INVENTORY$(I)="EMPTY" THEN INVENTORY$(I)=OBJECT$:_
                    PRINT "GOT IT":ROOMOBJECT$(ROOM,ITEMNUMBER)="EMPTY":_
                    EXIT SELECT
            NEXT I

            PRINT "You're carrying too much.  Drop something first."
            EXIT SELECT
        CASE "PUT","DROP","GIVE"
            IF OBJECT$="SURFBOARD" THEN PRINT_
             "Andrea thinks you'll need it.":EXIT SELECT
            IF OBJECT$="FISH" THEN PRINT "Try - SWAP FISH":EXIT SELECT
            IF OBJECT$="BASKETBALL" THEN PRINT _
              "Try - SHOOT BASKET":EXIT SELECT
            THING$="ANIMAL":IF OBJECT$="ANIMAL" AND ROOM=6 AND FNCARRY =1 _
              AND FLAG(6)=0 THEN LET INVENTORY$(ITEMNUMBER)="KNIFE":_
              LET FLAG(6)=1:LET ROOMOBJECT$(ROOM,1)="EMPTY": PRINT _
              "The grateful sailor runs off to find his date, but not"_
              "before giving you his swell pocket KNIFE!":EXIT SELECT
            IF OBJECT$="C-NOTE" OR OBJECT$="SAWBUCK" OR OBJECT$="FIN" THEN _
              PRINT "Try PAY -- Andrea fears you'll lose them.":_
              EXIT SELECT
            THING$=OBJECT$
            IF FNCARRY=0 THEN PRINT "You don't have the ";OBJECT$:EXIT SELECT


            FOR J=1 TO 15
                IF ROOMOBJECT$(ROOM,J)="EMPTY"THEN ROOMOBJECT$(ROOM,J)=OBJECT$_
                    :LET INVENTORY$(ITEMNUMBER)="EMPTY" :PRINT "OK":_
                    EXIT SELECT
            NEXT J
            PRINT "This room is full; take it elsewhere":EXIT SELECT

        CASE "READ"
            IF FNPRESENT=0 THEN PRINT _
             "I don't see the ";OBJECT$:EXIT SELECT
            IF ROOM=5 THEN PRINT _
             "It says: Bring DRIFTWOOD, LINE, and a KNIFE here and":PRINT _
             "type MAKE MOBILE.  We have buyers standing by!  Do it now!":_
             EXIT SELECT
            IF ROOM=7 AND FLAG(11)=0 THEN PRINT _
             "The sign says: To ride on the big dipper, type":PRINT_
             "RIDE ROLLER-COASTER*   The first ride is free.":EXIT SELECT
           IF ROOM=7 AND FLAG(11)=1 THEN PRINT _
             "It says:  Closed for cleaning.":EXIT SELECT
           IF ROOM=1 THEN PRINT _
             "It says: Solve the following riddle and REVEAL the object,":PRINT_
             "e.g., REVEAL ROMANCER.  Here's the riddle:":PRINT_
             "     I rhyme well with PRANCER,":PRINT_
             "     but don't rhyme well with CUPID;":PRINT _
             "     You move to the music,":PRINT_
             "     and try not to look stupid.":PRINT:EXIT SELECT
           IF ROOM=30 THEN PRINT _
             "It says: Will pay cash for FISH - 5 fins for a fin.":PRINT _
             "Bring FISH here and type SWAP FISH":EXIT SELECT
           IF ROOM=16 THEN PRINT _
            "It says: REVEAL something that is nine letters long and ":PRINT _
            "frequently found on ocean beaches.":EXIT SELECT
           IF ROOM=13 THEN PRINT _
             "It says: DEPOSIT BUCK here to rent a metal DETECTOR":EXIT SELECT
           IF ROOM=9 THEN PRINT _
             "It says: If you should REVEAL APPLE then the DRESS SHOP":PRINT_
             "is west of the JEWELRY STORE.":EXIT SELECT
           IF ROOM=10 THEN PRINT _
             "It says: If you should REVEAL ORANGE then the JEWELRY":PRINT_
             "STORE is east of the CRAFTS CENTER.":EXIT SELECT
           IF ROOM=15 THEN
             PRINT "It says: The door lock is a 5 switch (Up or Down) combination"
             PRINT "To open, try different combinations of U and D: e.g., "
             PRINT "TRY UDUDU or TRY DDDUD.  Then, listen closely to hear the"
             PRINT "number of clicks coming from the lock mechanism.  Five "
             PRINT "clicks and the door will swing open.  Good luck."
             EXIT SELECT
           END IF

            PRINT "Andrea says that we're in the wrong room for that."
            EXIT SELECT

       CASE ",DRINK","IMBIBE"
          PRINT "Andrea says that you are not thirsty.":EXIT SELECT
       CASE "GUESS"
        IF ROOM<>18 AND ROOM<>20 AND ROOM<>29 THEN PRINT _
         "Andrea says that this isn't the place for that.":EXIT SELECT
        IF FLAG(ROOM)=1 THEN PRINT _
         "Andrea says that you're done with this one.":EXIT SELECT
        IF LEN(OBJECT$)<>LEN(WURD$(ROOM)) THEN PRINT _
          "Andreas says that she's thinking of a ";LEN(WURD$(ROOM));_
          "-letter word.  Try again.":EXIT SELECT
        GUESSNUMB=GUESSNUMB+1
        IF OBJECT$=WURD$(ROOM) THEN FLAG(ROOM)=1:_
          CALL MESSAGE:EXIT SELECT
        HITS=0
        FOR I=1 TO LEN(OBJECT$)
         LET DUMMY$=MID$(OBJECT$,I,1)
         FOR J=1 TO LEN(WURD$(ROOM))
          IF DUMMY$=MID$(WURD$(ROOM),J,1) THEN _
           HITS=HITS+1:EXIT FOR
         NEXT J
        NEXT I
        PRINT "Andrea says that ";HITS;" letter(s) of your word ":PRINT _
              "are also found in her word.  Try again."
         EXIT SELECT
       CASE "PLAY"
         PRINT "Andrea warns that we have no time for such foolishness."
         EXIT SELECT
       CASE "OPEN"
         IF ROOM=15 THEN PRINT "Try  --- UNLOCK LOCKER":EXIT SELECT
         PRINT "Doesn't work. ":EXIT SELECT
       CASE "CLOSE"
        PRINT "Andrea thinks you should leave it open.":EXIT SELECT
       CASE "BREAK"
         PRINT "Andrea is sulking.  She hates violence."
         EXIT SELECT
       CASE "DIG"
         PRINT "It's hopeless.  This is a job for a metal DETECTOR."
         EXIT SELECT
       CASE "USE"
         PRINT "To do what?  Be more specific."
         EXIT SELECT
       CASE "UNLOCK"
         THING$="KEY"
         IF FNCARRY=0 THEN PRINT _
          "Get the key first.":EXIT SELECT
         IF ROOM<>15 THEN PRINT "Not here":EXIT SELECT
         IF FLAG(9)=1 THEN PRINT "Done that.":EXIT SELECT
         LET FLAG(9)=1:LET ROOMOBJECT$(ROOM,2)="SCUBA"
         LET ROOMOBJECT$(ROOM,3)="WETSUIT"
         LET INVENTORY$(ITEMNUMBER)="EMPTY":PRINT _
          "You see a WETSUIT and SCUBA in the LOCKER.  The KEY is stuck.":_
          DELAY 0.3:PRINT "Oh great, the door just slammed shut locking.":_
          PRINT "Andrea thinks you should READ the SIGN*."
          LET ROOMOBJECT$(ROOM,7)="SIGN*"
          LET ROOMOBJECT$(ROOM,8)="KEY*"
          LET FLAG(13)=1
         EXIT SELECT
       CASE "PICK"
          PRINT "Relax kid ---  Houdini you're not.":EXIT SELECT
       CASE "CLIMB"
         IF ROOM=31 THEN PRINT "Up you go!  Watch out for the bends.":_
           LET ROOM=29:EXIT SELECT
         IF ROOM<>29 THEN PRINT "Not here.":EXIT SELECT
         THING$="WETSUIT": IF FNCARRY=0 THEN PRINT _
          "The water is cold, GET a WETSUIT.":EXIT SELECT
         THING$="SCUBA":IF FNCARRY=0 THEN PRINT _
           "At this depth, you'll need diving equipment (SCUBA)":EXIT SELECT
         LET ROOM=31:PRINT "A little awkward -- but OK"
         EXIT SELECT

      CASE "DEPOSIT"
        IF OBJECT$<>"BUCK" THEN PRINT _
          "Andrea says that the only thing you DEPOSIT is the BUCK":EXIT SELECT
        IF ROOM<>13 THEN PRINT "Not here.":EXIT SELECT
        THING$="BUCK":IF FNCARRY<>1 THEN PRINT_
         "Andrea says you need to GET the BUCK first.":EXIT SELECT
        LET INVENTORY$(ITEMNUMBER)="DETECTOR"
        PRINT "You now carry a fine metal DETECTOR.  It says:"
        PRINT "For BEACH use only.":EXIT SELECT

     CASE "PAY"
       IF ROOM<>2 THEN PRINT "Not here.":EXIT SELECT
       DUMMY=0
       THING$=OBJECT$:IF FNCARRY=0 THEN PRINT _
        "You don't have the ";OBJECT$:EXIT SELECT
       IF OBJECT$="C-NOTE" THEN TOTAL=TOTAL+100:DUMMY=1
       IF OBJECT$="SAWBUCK" THEN TOTAL=TOTAL+10:DUMMY=1
       IF OBJECT$="FIN" THEN TOTAL=TOTAL+5:DUMMY=1
       INVENTORY$(ITEMNUMBER)="EMPTY"
       PRINT "The total paid so far is ";TOTAL;" dollars."
       PRINT "Additional needed for GOWN = ";115-TOTAL;" dollars."
       IF TOTAL=115 THEN LET INVENTORY$(ITEMNUMBER)="GOWN":_
        LET ROOMOBJECT$(ROOM,1)="EMPTY":PRINT:PRINT _
        "The shopkeeper takes the last of your money and":PRINT_
        "gives you the beautiful ballroom GOWN.":EXIT SELECT
       IF DUMMY=0 THEN PRINT "That's not for that."
       EXIT SELECT

     CASE "RIDE"
       IF ROOM<>7 THEN PRINT "Not here.":EXIT SELECT
       IF FLAG(11)=1 THEN PRINT _
         "The ROLLER-COASTER* is closed for cleaning.":EXIT SELECT
       LET FLAG(11)=1:LET ROOMOBJECT$(4,1)="BASKETBALL"
       PRINT "You and Andrea have never been so scared.  Andrea's hiccups are"
       PRINT "definitely gone.  She says she wants to see you SHOOT a BASKET."
       EXIT SELECT

    CASE "UNTANGLE"
      IF ROOM<>33 THEN PRINT "Not here.":EXIT SELECT
      IF FLAG(3)=1 THEN PRINT "Not again.":EXIT SELECT
      LET FLAG(3)=1:LET ROOMOBJECT$(ROOM,1)="LINE"
      LET ROOMOBJECT$(ROOM,2)="FISH":PRINT _
       "Ain't that the darndest thing -- the grateful PELICAN has gone ":PRINT_
       "off and returned with lots of smelly FISH.  Imagine your pleasure."
      EXIT SELECT

   CASE "IMAGINE"
     PRINT "Cute --- very cute.":EXIT SELECT

   CASE "SWAP"
     IF ROOM<>30 THEN PRINT "Not here.":EXIT SELECT
     IF FLAG(4)=1 THEN PRINT "Not again.":EXIT SELECT
     THING$="FISH":IF FNCARRY=0 THEN PRINT "GET the FISH first.":EXIT SELECT
     FLAG(4)=1:INVENTORY$(ITEMNUMBER)="FIN"
     ROOMOBJECT$(ROOM,2)="FISH*":PRINT _
       "The nice FISHMONGER has given you a FIN ($5) for the FISH."
     EXIT SELECT

   CASE "SHOOT"
     IF ROOM<>4 THEN PRINT "Not here.":EXIT SELECT
     IF FLAG(5)=1 THEN PRINT "Not again.":EXIT SELECT
     THING$="BASKETBALL":IF FNCARRY=0 THEN PRINT _
       "GET the BASKETBALL first.":EXIT SELECT
     PRINT "Nothing but net!  You coulda been a contenda!  Your reward is a "
     PRINT "nice stuffed ANIMAL.  Andrea turns away - she's allergic."
     LET INVENTORY$(ITEMNUMBER)="ANIMAL"
     EXIT SELECT

  CASE "REVEAL"
    IF ROOM<>1 AND ROOM<>9 AND ROOM<>10 AND ROOM<>16 THEN PRINT_
      "Not here.":EXIT SELECT
    IF ROOM=16 THEN
      IF FLAG(7)=1 THEN PRINT "Not again.":EXIT SELECT
      IF LEN(OBJECT$)<>9 THEN PRINT _
        "REVEAL a word 9 letters long, please.":EXIT SELECT
      IF OBJECT$<>"DRIFTWOOD" THEN PRINT "No, try again.":EXIT SELECT
      LET ROOMOBJECT$(ROOM,2)="DRIFTWOOD":LET FLAG(7)=1:PRINT _
        "Andrea wonders why you hadn't notice the DRIFTWOOD and ":PRINT_
        "bets that you could MAKE a swell MOBILE with it at the":PRINT_
        "CRAFTS CENTER.":LET ROOMOBJECT$(5,1)="SIGN*":_
        EXIT SELECT
    END IF
    IF ROOM=1 THEN
      IF FLAG(8)=1 THEN PRINT "Not again.":EXIT SELECT
      IF OBJECT$<>"DANCER" THEN PRINT "No, try again.":EXIT SELECT
      LET FLAG(8)=1:LET ROOMOBJECT$(ROOM,2)="MAN*"
      PRINT "Andrea notices the forlorn figure of a MAN* dancing alone."
    END IF
    IF ROOM=9 THEN
      IF OBJECT$<>"APPLE" THEN PRINT "I'm confused - READ SIGN*":EXIT SELECT
      PRINT "Andrea thinks you fell for an AFFIRMING THE CONSEQUENT "
      PRINT "fallacy.  Look over that section of the workbook.":_
      LET LOGIC$=LOGIC$+"..AFFIRM..":EXIT SELECT
    END IF
    IF ROOM=10 THEN
      IF FLAG(19)=1 THEN PRINT "Not again.":EXIT SELECT
      IF OBJECT$<>"ORANGE" THEN PRINT "I'm confused -- READ the SIGN*":EXIT SELECT
      LET ROOMOBJECT$(ROOM,2)="ORANGE":LET FLAG(19)=1
      PRINT "Andrea suggests we OFFER the ORANGE to the GUARD*":EXIT SELECT
    END IF
    EXIT SELECT

  CASE "MAKE"
    IF ROOM<>32 AND ROOM<>5 THEN PRINT "Not here.":EXIT SELECT
    IF ROOM=32 THEN
      IF FLAG(2)=1 THEN PRINT "It's been done.":EXIT SELECT
      LET ROOMOBJECT$(ROOM,1)="BRIDGE*"
      THING$="SURFBOARD":IF FNCARRY=1 THEN _
        LET INVENTORY$(ITEMNUMBER)="EMPTY" ELSE PRINT "WEIRD":EXIT SELECT
      PRINT "The huge SURFBOARD makes a nice BRIDGE and you can now GO SOUTH.":_
        LET FLAG(2)=1:EXIT SELECT
    END IF
    IF ROOM=5 THEN
      THING$="DRIFTWOOD":IF FNCARRY=0 AND FLAG(7)=0 THEN _
        PRINT "REVEAL object on BEACH first.":EXIT SELECT
      IF FNCARRY=0 THEN PRINT "GET the DRIFTWOOD.":EXIT SELECT
      THING$="LINE":IF FNCARRY=0 THEN PRINT _
       "GET some LINE first.":EXIT SELECT
      THING$="KNIFE":IF FNCARRY=0 THEN PRINT _
       "Andrea says you'll need a KNIFE.":EXIT SELECT
      THING$="DRIFTWOOD":LET INVENTORY$(ITEMNUMBER)="EMPTY"
      THING$="LINE":LET INVENTORY$(ITEMNUMBER)="EMPTY"
      THING$="KNIFE":LET INVENTORY$(ITEMNUMBER)="SAWBUCK"
      PRINT "The owner quickly sold your excellent MOBILE, giving you"
      PRINT "a sawbuck ($10).  Is there no end to your talent?  Don't speak."
    END IF
    EXIT SELECT
  CASE "OFFER"
    IF ROOM<>25 THEN PRINT "Not here":EXIT SELECT
    IF FLAG(12)=1 THEN PRINT "Not again":EXIT SELECT
    IF OBJECT$<>"ORANGE" THEN PRINT "Not that.":EXIT SELECT
    THING$="ORANGE":IF FNCARRY=0 THEN PRINT "You don't have it.":EXIT SELECT
    LET FLAG(12)=1
    LET ROOMOBJECT$(ROOM,1)="EMPTY"
    LET INVENTORY$(ITEMNUMBER)="EMPTY"
    PRINT "The GUARD* wanders off eating the ORANGE without saying thanks."
   EXIT SELECT
  CASE "TRY"
    IF ROOM<>15 THEN PRINT "Not here":EXIT SELECT
    IF FLAG(13)=0 THEN PRINT "No need":EXIT SELECT
    LET COMBO$="DUDDU"
    IF (LEN(OBJECT$)<>5)OR (LEFT$(OBJECT$,1)<>"U" AND LEFT$(OBJECT$,1)<>"D")_
      THEN PRINT "Try - TRY UDUDU or some such.":EXIT SELECT
    TRYNUMB=TRYNUMB+1
    IF COMBO$=OBJECT$ THEN
      LET FLAG(13)=0
      PRINT "The door swings gently open.  Andrea says --well done":EXIT SELECT
    END IF
    HITS=0
    FOR I=1 TO 5
     LET DUMMY$=MID$(OBJECT$,I,1)
     IF DUMMY$=MID$(COMBO$,I,1) THEN HITS=HITS+1
    NEXT I
    PRINT "You hear the lock mechanism whir and click ";HITS;" times."
   EXIT SELECT
   CASE "KILL","MURDER","RAPE","DESTROY","ASSAULT"
     PRINT "Your mom is right - you watch entirely too much tv."
    EXIT SELECT

      CASE ELSE
            PRINT "Andrea says to try another verb.":EXIT SELECT
    END  SELECT
END SUB

'MODULE 2.3.1 DEFINE THE FUNCTION- IS THE OBJECT PRESENT?
DEF FNPRESENT
    SHARED ROOMOBJECT$(),OBJECT$,ITEMNUMBER
         FOR J=1 TO 15
             IF ROOMOBJECT$(ROOM,J)=OBJECT$ THEN _
                 FNPRESENT=1:ITEMNUMBER=J:EXIT DEF
         NEXT J
         FNPRESENT=0
END DEF

'MODULE 2.3.2 DEFINE THE FUNCTION- IS IT BEING CARRIED?
DEF FNCARRY
    SHARED INVENTORY$(),THING$,ITEMNUMBER
    FOR I = 1 TO 5
        IF INVENTORY$(I)=THING$ THEN FNCARRY = 1: ITEMNUMBER = I: EXIT DEF
    NEXT I
    FNCARRY=0
END DEF

'MODULE 2.4 UPDATE DATA
SUB UPDATE
END SUB

'MODULE 3 CLOSING
SUB CLOSING
    SHARED FLAG(),TURNNUMBER,ANSWER$(),STRT,GUESSNUMB,LOGIC$,TRYNUMB,SLAMMER
    PRINT:PRINT
IF FLAG(1)=1 THEN PRINT " *****   HOORAY FOR YOU!!  YOU'VE WON THE GAME!!  ****"
    PRINT
   FOR I=1 TO 4:    PRINT:NEXT I
    INPUT "Be sure that your disk is in the drive and press ENTER. OK";DUMMY$

       DIM DTA(40),DTA$(10)
       OPEN "REPORT.DTA" FOR INPUT AS #1
         REM RETRIEVES OLD DATA FROM REPORT.DTA
         FOR I=1 TO 40
           INPUT #1,DTA(I)
         NEXT I
         FOR I=1 TO 10
           INPUT #1,DTA$(I)
         NEXT I
       CLOSE #1

    LET DTA(12)=FLAG(1):LET DTA(37)=DTA(37)+INT((TIMER-STRT)/6)
       OPEN "REPORT.DTA" FOR OUTPUT AS #1
         REM SENDS UPDATED DATA TO REPORT.DTA (WITH NAIME$)
         FOR I=1 TO 40
           WRITE #1,DTA(I)
         NEXT I
         FOR I=1 TO 10
           WRITE #1,DTA$(I)
         NEXT I
       CLOSE #1

    OPEN "BOARDATA.TXT" FOR APPEND AS #2
       PRINT #2,TIME$,GUESSNUMB,LOGIC$
       PRINT #2,TRYNUMB,SLAMMER,ANSWER$(0)
       FOR I=1 TO TURNNUMBER
         IF INT(I/5)=I/5 THEN PRINT #2,
         PRINT #2,ANSWER$(I),
       NEXT I
       PRINT #2,INT((STRT-TIMER)/6),INT(1000*RND(0))
    CLOSE #2
    PRINT "This game is over, type BOARDWALK  to play again."
END SUB

'END OF PROGRAM