PRINTI "(Sorry, but in this story you can't use the word """
PRINTB WORD
PRINTR """.)"
.FUNCT QUESTION-WORD?,WORD
EQUAL? WORD,W?WHERE \?ELS5
PRINTI "(To locate something, use the command: FIND "
PRINTD SOMETHING
PRINTR ".)"
?ELS5: EQUAL? WORD,W?WHAT,W?WHAT'S /?THN10
EQUAL? WORD,W?WHO,W?WHO'S \?ELS9
?THN10: PRINTI "(To ask about something, use the command: TELL ME ABOUT "
PRINTD SOMETHING
PRINTR ".)"
?ELS9: EQUAL? WORD,W?THAT'S,W?IT'S /?THN16
EQUAL? WORD,W?WHY,W?HOW,W?WHEN /?THN16
EQUAL? WORD,W?IS,W?DID,W?ARE /?THN16
EQUAL? WORD,W?DO,W?HAVE,W?ANY /?THN16
EQUAL? WORD,W?AM,W?I'M,W?WE'RE /?THN16
EQUAL? WORD,W?WILL,W?WAS,W?WERE /?THN16
EQUAL? WORD,W?I'LL,W?CAN,W?WHICH /?THN16
EQUAL? WORD,W?I'VE,W?WON'T,W?HAS /?THN16
EQUAL? WORD,W?YOU'RE,W?HE'S,W?SHE'S /?THN16
EQUAL? WORD,W?SHOULD,W?WOULD,W?WHEN'S /?THN16
EQUAL? WORD,W?THEY'RE,W?COULD,W?SHALL \FALSE
?THN16: PRINTI "(Please use commands"
INC 'QUESTION-WORD-COUNT
GRTR? QUESTION-WORD-COUNT,9 \?ELS22
SET 'QUESTION-WORD-COUNT,0
PRINTR "! Your commands tell the computer what you want to do in the story. You can give commands to other people in the story, too. Here are examples of commands:
TURN ON THE LAMP
LOOK UNDER THE RUG
SHARON, GIVE THE BOOK TO TIP
BILL, HELP ME
Now you can try again.)"
?ELS22: PRINTR ", not statements or questions.)"
.FUNCT NUMBER-WORD?,WRD
EQUAL? WRD,W?ZERO /?THN6
EQUAL? WRD,W?TWO,W?THREE,W?FOUR /?THN6
EQUAL? WRD,W?FIVE,W?SIX,W?SEVEN /?THN6
EQUAL? WRD,W?EIGHT,W?NINE,W?TEN /?THN6
EQUAL? WRD,W?ELEVEN,W?TWELVE,W?THIRTE /?THN6
EQUAL? WRD,W?FOURTE,W?FIFTEE,W?SIXTEE /?THN6
EQUAL? WRD,W?SEVENT,W?EIGHTE,W?NINETE /?THN6
EQUAL? WRD,W?TWENTY,W?THIRTY,W?FORTY /?THN6
EQUAL? WRD,W?FIFTY,W?SIXTY,W?EIGHTY /?THN6
EQUAL? WRD,W?NINETY,W?HUNDRE,W?THOUSA /?THN6
EQUAL? WRD,W?MILLIO,W?BILLIO,W?ONE \FALSE
?THN6: PRINTR "(Use numerals for numbers, for example ""10."")"