94 lines
2.8 KiB
Plaintext
94 lines
2.8 KiB
Plaintext
|
|
|
|
.FUNCT CAPITAL-NOUN?,WRD
|
|
EQUAL? WRD,W?DOC,W?TIP,W?RANDALL /TRUE
|
|
EQUAL? WRD,W?DOC'S,W?TIP'S,W?BILL'S /TRUE
|
|
EQUAL? WRD,W?KEMP'S,W?ZOE'S,W?MARV'S /TRUE
|
|
EQUAL? WRD,W?SHARON,W?KEMP,W?ZOE /TRUE
|
|
EQUAL? WRD,W?BLY'S,W?AMY'S,W?FROBTON /TRUE
|
|
EQUAL? WRD,W?BLY,W?AMY,W?LOWELL /TRUE
|
|
EQUAL? WRD,W?MICK'S,W?WALT'S /TRUE
|
|
EQUAL? WRD,W?MICK,W?ANTRIM,W?WALT /TRUE
|
|
EQUAL? WRD,W?DOCTOR,W?DR,W?MARV /TRUE
|
|
EQUAL? WRD,W?SIEGEL,W?BILL,W?GREENUP /TRUE
|
|
EQUAL? WRD,W?HORVAK,W?JEROME,W?THORPE /TRUE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT BUZZER-WORD?,WORD
|
|
CALL QUESTION-WORD?,WORD
|
|
ZERO? STACK \TRUE
|
|
CALL NUMBER-WORD?,WORD
|
|
ZERO? STACK \TRUE
|
|
CALL NAUGHTY-WORD?,WORD
|
|
ZERO? STACK \TRUE
|
|
EQUAL? WORD,W?ALL,W?AGAIN,W?G \FALSE
|
|
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."")"
|
|
|
|
|
|
.FUNCT NAUGHTY-WORD?,WORD
|
|
EQUAL? WORD,W?CURSE,W?CURSES,W?CUSS /?THN6
|
|
EQUAL? WORD,W?DAMN,W?SHIT,W?FUCK /?THN6
|
|
EQUAL? WORD,W?FUDGE,W?PISS,W?PEE /?THN6
|
|
EQUAL? WORD,W?SUCK /?THN6
|
|
EQUAL? WORD,W?POO,W?SNOT,W?BASTARD \FALSE
|
|
?THN6: PRINTC 40
|
|
CALL PICK-ONE,OFFENDED
|
|
PRINT STACK
|
|
PRINTC 41
|
|
CRLF
|
|
RTRUE
|
|
|
|
.ENDI
|