'MODULE 0 MAIN    ******FARMTOWN*******9-2-90
'GAMEDTA.BAS CHANGED TO FARMSAV.BAS ON 1-24-91
'ALSO FIXED ENDING WITH WIN NO MATTER WHETHER
'CHANGE SAW RIDDLE AND MAKE STEW 6MAR92
'CHANGED TIMER AND STRT  2-3-94
'CHANGED SAVE GAME TIME$DATE$ CARROTS 2ND FLARE HINT 7-30-95
'changed snips 1-3-96
'added report 3-5-96  FARMDATA.TXT 10-24-96
    CLS
    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$(305)
   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 21,RABBIT'S WARREN,STREAM,CORNFIELD,PASTURE,PIG STY
    DATA STORAGE SHED,BARN,POND,GARDEN,BARNYARD
    DATA FARMHOUSE,HIGHWAY,HIGHWAY,HIGHWAY,HIGHWAY
    DATA HIGHWAY,HIGHWAY,RECYCLING CENTER,STREET,GAS STATION
    DATA CAR PARKED ON SOUTH SIDE OF HIGHWAY

    FOR I=1 TO NUMBERROOMS
       LET DESCRIBEFLAG(I)=0
    NEXT I
    FOR I=1 TO NUMBERROOMS
       READ ROOMDESCRIBE$(I)
       READ ROOMDES2$(I)
    NEXT I
    DATA "The eyes of the rabbit sitting outside his warren are more"
    DATA "orange than pink.  Too much vitamin A!"
    DATA "Though the gurgle is friendly enough,"
    DATA "STICK'S STREAM is more dangerous than it looks."
    DATA "Here at KELLOG'S CORNFIELD,"
    DATA "You see plenty of pig food."
    DATA "Here at PIZENSIGH'S PASTURE, we see the dangers of over-"
    DATA "grazing.  The grass is too short to eat."
    DATA "Here at the INNAH PIG STY, The scene reminds you of your"
    DATA "school cafeteria on a rainy day."
    DATA "There are tools and fruit in the MAGICAL STORAGE SHED,"
    DATA "but you have to ask for them by name.  Weird."
    DATA "The BARN smells, well, like a barn.  No wonder people"
    DATA "held barn dances out of door whenever possible."
    DATA "If the DUCKS weren't so grouchy, this POND"
    DATA "would be a good place to spend some time."
    DATA "Some vandalous animal has dug up and stolen all of the"
    DATA "CARROTS, but you may still find some POTATOES."
    DATA "Watch your step!"
    DATA "This has been a very active BARNYARD."
    DATA "What we have here in the FARMHOUSE is a very crabby FARMER"
    DATA "who seems to be waiting for someone to fix supper."
    DATA "HIGHWAY"," ","HIGHWAY"," ","HIGHWAY"," ","HIGHWAY"," "
    DATA "HIGHWAY"," "
    DATA "The sound of the trucks barreling by on the narrow"
    DATA "HIGHWAY is quite deafening.  "
    DATA "Here at the SAVE OUR GLASS RECYCLING CENTER,"
    DATA "nothing is wasted."
    DATA "MAIN STREET could just as easily"
    DATA "have been called ONLY STREET."
    DATA "The semi-automated GAS STATION"
    DATA "is quite deserted."
    DATA "You are out of gas and money, parked along the SOUTH SIDE OF"
    DATA "A busy HIGHWAY.  You recall passing a town a little way back."

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,2,0,0,0,0,1,4,0,0,0,0
    DATA 0,0,4,0,0,0,2,7,5,3,0,0
    DATA 0,0,0,4,0,0,0,0,7,0,0,0
    DATA 4,10,8,6,0,0,0,0,0,7,0,0
    DATA 0,0,10,0,0,0,7,14,11,9,0,0

    DATA 0,0,0,10,0,0,0,0,13,12,0,0
    DATA 0,0,14,12,0,0,10,19,15,13,0,0
    DATA 0,0,16,14,0,0,0,21,17,15,0,0
    DATA 0,0,17,16,0,0,0,0,19,0,0,0
    DATA 14,0,20,18,0,0,0,0,0,19,0,0
    DATA 16,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
END SUB

'MODULE 1.5 OTHERS
SUB OTHERS
    SHARED GAMESTATE$,ROOM,TURNNUMBER,ROOMOBJECT$(),THING$,INVENTORY$(),_
        FLAG(),OBJ$(),OBJ2$(),CONVERTNUM
    LET ROOM = 21              'START IN CAR
    LET TURNNUMBER =0
    DANGEROUS=1
    LET THING$=""
    DIM FLAG(30)
    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   TREE NOT SAWED
          'FOR 1, 1 MEANS GAME WON -1 GAME LOST 2 MEANS GAME QUIT
          ' 3      PIGS* NOT FED       4   HAY NOT GOTTEN
          ' 5      DUCKS* NOT FED      6   COWS* NOT FED
          ' 7      PEARS NOT REVEALED  8   HOE NOT REVEALED
          ' 9      POTATOES NOT GOTTEN 10  FARMER NOT ASLEEP
          '11      FLARE NOT DROPPED   12  5 BOTTLES NOT DROPPED
          '13      GAS NOT GOTTEN      14  USED IN DESCRIBE
          '14 IS USED TO EXIT TURN BUT NOT EXIT THE GAME
          '15      SAW NOT REVEALED    16  FLARE NOT REVEALED
          '17      CAR SITUATION NOT DESCRIBED
          '18      FLARE HINT NOT GIVEN
          '19 2ND FLARE HINT NOT GIVEN

    LET ROOMOBJECT$(1,1)="SIGN*"         'STARTING LOCATIONS FOR OBJECTS
    LET ROOMOBJECT$(1,2)="RABBIT*"
    LET ROOMOBJECT$(1,3)="CARROTS"
    LET ROOMOBJECT$(2,1)="EMPTYTREE-BRIDGE*"
    LET ROOMOBJECT$(3,1)="SIGN*"
    LET ROOMOBJECT$(3,2)="CORN"
    LET ROOMOBJECT$(4,1)="TREE*"
    LET ROOMOBJECT$(4,2)="COWS*"
    LET ROOMOBJECT$(4,3)="EMPTYBOTTLE"
    LET ROOMOBJECT$(4,4)="EMPTYBOTTLE"
    LET ROOMOBJECT$(5,1)="PIGS*"
    LET ROOMOBJECT$(5,2)="EMPTYBOTTLE"
    LET ROOMOBJECT$(6,1)="FRUIT*"
    LET ROOMOBJECT$(6,2)="TOOLS*"
    LET ROOMOBJECT$(6,3)="SIGN*"
    LET ROOMOBJECT$(6,4)="EMPTYPEARS"
    LET ROOMOBJECT$(6,5)="EMPTYHOE"
    LET ROOMBOJECT$(6,6)="EMPTYSAW"
    LET ROOMOBJECT$(7,1)="HAY"
    LET ROOMOBJECT$(7,2)="PITCHFORK"
    LET ROOMOBJECT$(7,3)="MEAT"
    LET ROOMOBJECT$(7,4)="EMPTYBOTTLE"
    LET ROOMOBJECT$(8,1)="DUCKS*"
    LET ROOMOBJECT$(8,2)="EMPTYBOTTLE"
    LET ROOMOBJECT$(9,1)="SIGN*"
    LET ROOMOBJECT$(9,2)="EMPTYPOTATOES"
    LET ROOMOBJECT$(10,1)="SIGN*"
    LET ROOMOBJECT$(11,1)="SIGN*"
    LET ROOMOBJECT$(11,2)="FARMER*"
    LET ROOMOBJECT$(11,3)="STOVE*"
    LET ROOMOBJECT$(11,4)="POT*"
    LET ROOMOBJECT$(11,5)="GAS-CAN"
    LET ROOMOBJECT$(11,6)="BREAD"
    LET ROOMOBJECT$(18,1)="SIGN*"
    LET ROOMOBJECT$(18,2)="EMPTYDOLLAR"
    LET ROOMOBJECT$(19,1)="SIGN*"
    LET ROOMOBJECT$(20,1)="SIGN*"
    LET ROOMOBJECT$(21,1)="SIGN*"
    LET ROOMOBJECT$(21,2)="EMPTYFLARE"

    READ CONVERTNUM
    DIM OBJ$(CONVERTNUM),OBJ2$(CONVERTNUM)
    FOR I=1 TO CONVERTNUM           'READ IN WORD!* CONVERSIONS
        READ OBJ$(I),OBJ2$(I)
    NEXT I
    DATA 19,SIGN,SIGN*,RABBIT,RABBIT*,TREE-BRIDGE,TREE-BRIDGE*
    DATA BRIDGE,TREE-BRIDGE*,TREE,TREE*,STUMP,STUMP*,COWS,COWS*
    DATA PIGS,PIGS*,FRUIT,FRUIT*,TOOLS,TOOLS*,DUCKS,DUCKS*
    DATA FARMER,FARMER*,STOVE,STOVE*,POT,POT*,CAN,GAS-CAN,PEAR,PEARS
    DATA CARROT,CARROTS,PAIR,PEARS,FLAIR,FLARE
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 "FARMTOWN (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$()

    IF TURNNUMBER=1 THEN CALL GAMESTARTER   'MODULE 2.1.1
  SELECT CASE DESCRIBEFLAG(ROOM)
   CASE 0
    PRINT ROOMDESCRIBE$(ROOM)
    PRINT ROOMDES2$(ROOM)
    DESCRIBEFLAG(ROOM)=1:EXIT SELECT
  CASE 1
    SELECT CASE DESCRIPTION$(ROOM)
        CASE "HIGHWAY"
           PRINT "You find yourself on the SOUTH side of a HIGHWAY"
        CASE "STREET","BARN","FARMHOUSE"
           PRINT "You find yourself in the ";DESCRIPTION$(ROOM)
        CASE ELSE
           PRINT "You find yourself at the ";DESCRIPTION$(ROOM)
    END SELECT
  END SELECT


    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


            'PUT DOLLAR IN 18 IF 5 BOTTLES ARE PRESENT
    IF ROOM=18 AND FNFIVEBOTTLES=1 AND FLAG(12)=0 THEN _
       ROOMOBJECT$(18,2)="DOLLAR":FLAG(12)=1

    IF ROOM=2 AND FLAG(2)=0 THEN PRINT "The narrow streem is too deep to cross":_
        FLAG(14)=1:ROOM=4:EXIT SUB
    IF ROOM=10 AND FLAG(11)=0 THEN ROOM=14:CLS:PRINT:PRINT:_
        PRINT "The blast of air of a big truck going by blows you back to":_
        PRINT "the SOUTH SIDE OF THE HIGHWAY.  They should slow down!":_
        FLAG(14)=1:EXIT SUB
    IF FLAG(18)=0 AND TURNNUMBER>30 THEN FLAG(18)=1:_
       PRINT "An outrageously dressed passerby tells you your outfit lacks flair"
    IF FLAG(19)=0 AND FLAG(11)=0 AND TURNNUMBER>50 AND ROOM=14 THEN FLAG(19)=1:_
       PRINT "Maybe I should DROP the REVEALed FLARE here."
    PRINT
END SUB

'MODULE 2.1.1 GAME STARTER -- PRINT OUT INTRODUCTORY REMARKS
SUB GAMESTARTER
     CLS
     PRINT
     PRINT "                WELCOME TO FARMTOWN"
     PRINT
     PRINT "Stop vegetating and come away with me on an exciting adventure "
     PRINT "to FARMTOWN, home of the rutabaga!  You'll DIG the rural life "
     PRINT "along a dangerous HIGHWAY.  Cope with the widl hare!"
     PRINT "MAKE STEW!  GET GAS!"
     PRINT
     PRINT "Give COMMANDs as verb then object, such as GO NORTH,"
     PRINT "SAVE GAME, RESTORE GAME, READ SIGN, DIG POTATOES,"
     PRINT "AND REVEAL APPLES (REVEALed OBJECTS will show up where you"
     PRINT "would expect that OBJECT to be, not where you typed  REVEAL )"
     PRINT
     PRINT "Exceptions to this tow-word sentence rule are single-letter"
     PRINT "COMMANDs such as N to GO NORTH, U to GO UP, D to GO DOWN"
     PRINT
     PRINT "P.S. Don't try to get objects ending in an *, e.g., TREE*,"
     PRINT "as they are quite unobtainable-- you get my drift?"
     PRINT
     PRINT "And if you get stuck, keep trying different things because"
     PRINT "after a certain number of turns, a hint will show up."
     PRINT "Happy Adventuring!"
     PRINT "If done taking notes, press ENTER to begin"
     DO WHILE LEN(INKEY$)=0:LOOP
     CLS
END SUB

'MODULE 2.1.2 ERASER ERASES ONE LINE OF TEXT
SUB ERASER
   REM FOR I=1 TO 12:PRINT "          ";:NEXT I
END SUB

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

    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 C$=UCASE$(C$)

    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 19                          '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 "One space (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()
    IF FLAG(1)<>0 THEN EXIT SUB
    IF FLAG(14)=1 THEN EXIT SUB
    SELECT CASE VERB$
        CASE "QUIT"
            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 "FARMSAV.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
            CLOSE #1
            PRINT "OK
            EXIT SELECT
        CASE "RESTORE", "LOAD"
            IF OBJECT$<> "GAME" THEN PRINT "RESTORE GAME":EXIT SELECT
            OPEN "FARMSAV.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

            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 MOVEMENTTABLE (ROOM,DIRECTION) = 0 THEN _
                PRINT "You can't GO that way" ELSE _
                LET ROOM = MOVEMENTTABLE (ROOM,DIRECTION)
            EXIT SELECT

        CASE "GET","TAKE","ACQUIRE"

            HOLDING$=OBJECT$
               IF ROOM<>1 AND OBJECT$="CARROTS"  THEN PRINT "They aren't here":_
                  EXIT SELECT
               OBJECT$="PEARS":IF ROOM=1 AND FNPRESENT=0 THEN _
                  PRINT "The RABBIT won't let me":EXIT SELECT
            OBJECT$=HOLDING$

            IF ROOM=6 AND OBJECT$="FRUIT*" THEN PRINT "READ SIGN*":EXIT SELECT
            IF ROOM=6 AND OBJECT$="TOOL*" THEN PRINT "READ SIGN*":EXIT SELECT

            THING$="PITCHFORK":IF OBJECT$="HAY" AND FNCARRY=0 THEN _
               PRINT "You'll need the PITCHFORK":EXIT SELECT
            IF FNCARRY=1 AND ROOM=7 AND FLAG(4)=0 AND FNINVENTORYSPACE=1 _
               THEN PRINT "Moving the HAY REVEALs a BOTTLE":_
               ROOMOBJECT$(7,4)="BOTTLE":FLAG(4)=1

            IF OBJECT$="POTATOES" AND FLAG(9)=0 THEN _
               PRINT "DIG them up first":EXIT SELECT

            IF OBJECT$="GAS-CAN"AND FLAG(10)=0 THEN _
               PRINT "The FARMER won't let you":EXIT SELECT
            IF OBJECT$="GAS" THEN PRINT "Try  FILL GAS-CAN ":EXIT SELECT
            IF OBJECT$="CARROTS" THEN PRINT "DROP only at FARMHOUSE!"

            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!"
        CASE "PUT","DROP","GIVE","LEAVE"

            THING$="HAY":IF ROOM=4 AND FNCARRY=1 AND FNDROPABLESPOT=1 AND _
               FLAG(6)=0 AND OBJECT$="HAY" THEN _
               PRINT "As the COWS move to the HAY, you see a BOTTLE":_
               ROOMOBJECT$(4,3)="BOTTLE":FLAG(6)=1

            THING$="CORN":IF ROOM=5 AND FNCARRY=1 AND FNDROPABLESPOT=1 AND _
               FLAG(3)=0 THEN PRINT "As the PIGS come over you see a BOTTLE":_
               ROOMOBJECT$(5,2)="BOTTLE":FLAG(3)=1

            THING$="BREAD":IF ROOM=8 AND OBJECT$="BREAD" AND FNCARRY=1 AND _
               FNDROPABLESPOT=1 AND FLAG(5)=0 THEN _
               PRINT "As the DUCKS move, you see a BOTTLE":ROOMOBJECT$(8,2)="BOTTLE":_
               FLAG(5)=1

            IF OBJECT$="FLARE" AND ROOM<>14 THEN PRINT "Not here":EXIT SELECT
            IF OBJECT$="CARROTS" AND ROOM<>11 THEN PRINT "Not here":EXIT SELECT

            THING$="FLARE":IF ROOM=14 AND OBJECT$="FLARE" AND FNCARRY=1 AND _
               FNDROPABLESPOT=1 AND FLAG(11)=0 THEN FLAG(11)=1:_
               PRINT "Traffic has slowed.  You can now GO NORTH "
            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 "LOOK","EXAMINE","INSPECT"
            IF OBJECT$="SIGN*" THEN PRINT "Try READ SIGN* ":EXIT SELECT
            PRINT "I don't see anything unexpected":EXIT SELECT
        CASE "READ"
            IF OBJECT$<>"SIGN*" THEN PRINT "I only READ SIGNS*":EXIT SELECT
            PRINT "It says:"
            IF ROOM=1 THEN _
               PRINT "I'm so sick of CARROTS,":_
               PRINT "They're all that I eat;":_
               PRINT "A nice piece of fresh fruit,":_
               PRINT "Would sure be a treat."
            IF ROOM=3 THEN _
               PRINT "Santa,s last word,":_
               PRINT "Or is it a greeting?":_
               PRINT "GET this good tool,":_
               PRINT "And STEW you'll be eating."
            IF ROOM=6 THEN _
               PRINT "You need to ask for something specific like ":_
               PRINT "REVEAL APPLES or REVEAL SHOVEL"
            IF ROOM=9 THEN _
               PRINT "A fruit named for two,":_
               PRINT "Like shoes, socks and aces;":_
               PRINT "Whose shape is unique,":_
               PRINT "And curvy in places."
            IF ROOM=10 THEN _
               PRINT "Hundreds of teeth,":_
               PRINT "Of steel not enamel;":_
               PRINT "When you don't push,":_
               PRINT "You pull on my handle."
            IF ROOM=11 THEN _
               PRINT "Recipe for FARMER's STEW:":_
               PRINT "DROP MEAT, POTATOES and CARROTS here,":_
               PRINT "And type MAKE STEW "
            IF ROOM=18 THEN _
               PRINT "Leave 5 BOTTLES here and GET a DOLLAR"
            IF ROOM=19 THEN _
               PRINT "My red glow of caution,":_
               PRINT "You start with a scratch;":_
               PRINT "Or a way of doing,":_
               PRINT "With style and panache."
            IF ROOM=20 THEN _
               PRINT "DROP a DOLLAR and FILL your GAS-CAN with":_
               PRINT "a gallon of gas to win the game."
            IF ROOM=21 THEN _
               PRINT "An object in this car,":_
               PRINT "Will help you with your chores;":_
               PRINT "So come back when you know,":_
               PRINT "Say its name and it's yours."
            PRINT
            EXIT SELECT


       CASE "DRINK","EAT"
          PRINT "This is not the time to worry about your stomach":EXIT SELECT
      CASE "CLIMB"
          IF OBJECT$="TREE*" THEN PRINT "Easy Tarzan!":EXIT SELECT
          PRINT "Come down from there!":EXIT SELECT

      CASE "MILK"
          PRINT "Oh, leave them alone!":EXIT SELECT
      CASE "KILL"
          PRINT "Mellow out, it's only a game!":EXIT SELECT

     CASE "DIG","HOE"
         IF OBJECT$<>"POTATOES" THEN PRINT "Try  DIG POTATOES ":EXIT SELECT
         THING$="HOE":IF FNCARRY=1 AND ROOM=9 AND FLAG(9)=0 THEN _
            PRINT "THERE THEY ARE!":ROOMOBJECT$(9,2)="POTATOES":_
            FLAG(9)=1:EXIT SELECT
         PRINT "You'll need the right tool":EXIT SELECT


         PRINT "The substrate is too hard here to dig":EXIT SELECT
     CASE "MAKE","PREPARE"
         IF OBJECT$<>"STEW" THEN PRINT "Try  MAKE STEW ":EXIT SELECT
         OBJECT$="MEAT":IF FNPRESENT=0 THEN PRINT "Where's the MEAT?":EXIT SELECT
         OBJECT$="POTATOES":IF FNPRESENT=0 THEN PRINT "Where're the POTATOES?":EXIT SELECT
         OBJECT$="CARROTS":IF FNPRESENT=0 THEN PRINT "Where're the CARROTS?":EXIT SELECT
         IF FLAG(10)=0 THEN PRINT "The FARMER ate all of your delicious STEW and fell asleep":_
            ROOMOBJECT$(11,2)="SLEEPING-FARMER*":FLAG(10)=1:EXIT SELECT
         PRINT "Not again":EXIT SELECT

     CASE "CROSS"
         IF OBJECT$="HIGHWAY" THEN PRINT "Try  N  or GO NORTH ":EXIT SELECT
         PRINT "Don't be CROSS!":EXIT SELECT

     CASE "ENTER"
         PRINT "No go, sorry":EXIT SELECT

     CASE "SAY"
         PRINT "Just type the word you were going to say":EXIT SELECT

     CASE "SAW"
        THING$="SAW":IF OBJECT$="TREE*" AND FNCARRY=1 AND FLAG(2)=0 THEN _
           PRINT "Timber!  I see a BOTTLE in the hollow STUMP*":FLAG(2)=1 :_
           ROOMOBJECT$(2,1)="TREE-BRIDGE*":ROOMOBJECT$(4,1)="STUMP*":_
           ROOMOBJECT$(4,4)="BOTTLE":EXIT SELECT
        PRINT "You need a SAW and a TREE":EXIT SELECT

     CASE "FEED"
        PRINT "Try  GIVE CORN  or GIVE BREAD  or  GIVE HAY":EXIT SELECT

     CASE "NO"
        PRINT "Fascinating":EXIT SELECT
     CASE "FILL"
        IF OBJECT$="TANK" THEN _
           PRINT "Just  PUT GAS-CAN  in the car":EXIT SELECT
        IF OBJECT$="POT*" THEN _
           PRINT "Just  PUT the ingredients in the FARMHOUSE":EXIT SELECT
        IF OBJECT$<>"GAS-CAN" THEN _
           PRINT "Are you sure it isn't full already?":EXIT SELECT
        IF FLAG(13)=1 THEN PRINT "You did that!":EXIT SELECT
        IF ROOM<>20 THEN PRINT "GO to the GAS STATION":EXIT SELECT
        IF FNPRESENT=0 THEN PRINT "PUT GAS-CAN here":EXIT SELECT
        OBJECT$="DOLLAR":IF FNPRESENT=0 THEN PRINT " PUT DOLLAR  here":_
           EXIT SELECT
        PRINT "With the gas, you are able to drive home,":_
           PRINT "Happy in the knowledge that you are awesome!":_
           PRINT "You've won FARMTOWN; now on to HANGTOWN!":_
           ROOMOBJECT$(20,ITEMNUMBER)="EMPTY":FLAG(1)=1:_
           FLAG(13)=1:EXIT SELECT
     CASE "START","DRIVE"
         IF OBJECT$<>"CAR" THEN PRINT "Try  DRIVE CAR ":EXIT SELECT
         OBJECT$="GAS-CAN":IF FNPRESENT=0 OR FLAG(13)=0 THEN _
            PRINT "PUT the GAS-CAN in the car when it is full":EXIT SELECT
         PRINT "As you drive home, you congratulate yourself on winning":_
            PRINT "the FARMTOWN ADVENTURE!  GOOD WORK!!":FLAG(1)=1:EXIT SELECT

     CASE "REVEAL"
        IF OBJECT$="PEARS" AND FLAG(7)=0 THEN PRINT "OK":_
           ROOMOBJECT$(6,4)="PEARS":FLAG(7)=1:EXIT SELECT
        IF OBJECT$="HOE" AND FLAG(8)=0 THEN PRINT "OK":_
           ROOMOBJECT$(6,5)="HOE":FLAG(8)=1:EXIT SELECT
        IF OBJECT$="FLARE" AND FLAG(16)=0 THEN FLAG(16)=1:_
           PRINT "The FLARE will light when DROPped.":_
           ROOMOBJECT$(21,2)="FLARE":FLAG(16)=1:EXIT SELECT
        IF OBJECT$="SAW" AND FLAG(15)=0 THEN PRINT "OK":_
           ROOMOBJECT$(6,6)="SAW":FLAG(15)=1:EXIT SELECT
        PRINT "Didn't work":EXIT SELECT
     CASE "FLARE","FLAIR"
        PRINT "Try  REVEAL FLARE ":EXIT SELECT
     CASE "LIGHT","IGNITE","STRIKE"
        IF OBJECT$="FLARE" THEN PRINT "OK":EXIT SELECT
        PRINT "That wouldn't be safe":EXIT SELECT

      CASE "USE"
        PRINT "To do what.  Be more specific.":EXIT SELECT
      CASE ELSE
            PRINT "I don't know that 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.3.3 DEFINE THE FUNCTION- IS THERE SPACE IN INVENTORY
DEF FNINVENTORYSPACE
   SHARED INVENTORY$()
   FNINVENTORYSPACE=0
   FOR I=1 TO 5
      IF INVENTORY$(I)="EMPTY" THEN FNINVENTORYSPACE=1:EXIT DEF
   NEXT I
END DEF

'MODULE 2.3.4 DEFINE THE FUNCTION- IS THERE SPACE HERE TO DROP SOMETHING
DEF FNDROPABLESPOT
   SHARED ROOMOBJECT$(),ROOM
      FOR J=1 TO 15
         IF ROOMOBJECT$(ROOM,J)="EMPTY" THEN FNDROPABLESPOT=1:EXIT DEF
      NEXT J
   FNDROPABLESPOT=0
END DEF

'MODULE 2.3.5 DEFINE THE FUNCTION- DO WE HAVE 5 BOTTLES YET
DEF FNFIVEBOTTLES
   SHARED ROOMOBJECT$(),ROOM
   TOTAL=0
   FOR J=1 TO 15
      IF ROOMOBJECT$(ROOM,J)="BOTTLE" THEN TOTAL=TOTAL+1
   NEXT J
   IF TOTAL=5 THEN FNFIVEBOTTLES=1 ELSE FNFIVEBOTTLES=0
END DEF

'MODULE 3 CLOSING


SUB CLOSING
    SHARED FLAG(),TURNNUMBER,ANSWER$(),STRT
    PRINT
    IF FLAG(1)= 1 THEN CLS:PRINT:PRINT:_
    PRINT "With the gas, you fill the tank and drive on!":_
    PRINT "You have conquered a most difficult adventure!  Good work!!"
    FOR I=1 TO 6:PRINT:NEXT I
    INPUT "Be sure that your disk is in the drive and press ENTER";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(10)=FLAG(1):LET DTA(35)=DTA(35)+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 "FARMDATA.TXT" FOR APPEND AS #2
    PRINT #2, DATE$,TIME$
    FOR I=0 TO TURNNUMBER
        IF INT(I/5)=I/5 THEN PRINT #2, ANSWER$(I) ELSE PRINT #2,ANSWER$(I),
    NEXT I
    PRINT #2,INT((STRT-TIMER)/6),


        PRINT #2,INT(1000*RND(0))

    CLOSE #2
    PRINT "This game is over.  Type FARMTOWN to play again."
END SUB

END 'PROGRAM