62 lines
1.4 KiB
Plaintext
62 lines
1.4 KiB
Plaintext
"ZORK0 for
|
|
|
|
ZORK ZERO
|
|
(c) Copyright 1988 Infocom, Inc. All Rights Reserved."
|
|
|
|
<PRINC "
|
|
*** Zork Zero ***
|
|
">
|
|
|
|
ON!-INITIAL
|
|
OFF!-INITIAL ;"makes ZIL debugging possible -- pdl"
|
|
|
|
<VERSION YZIP>
|
|
<ZIP-OPTIONS UNDO BIG MOUSE ;"COLOR DISPLAY">
|
|
<FREQUENT-WORDS?>
|
|
<LONG-WORDS?>
|
|
<ORDER-OBJECTS? ROOMS-FIRST>
|
|
|
|
<DEFINE-SEGMENT STARTUP T CASTLE>
|
|
<DEFINE-SEGMENT CASTLE <> VILLAGE SECRET LOWER FENSHIRE>
|
|
<DEFINE-SEGMENT VILLAGE <> CASTLE LAKE>
|
|
<DEFINE-SEGMENT SECRET <> CASTLE ORACLE>
|
|
<DEFINE-SEGMENT LOWER <> CASTLE LAKE FOOZLE>
|
|
<DEFINE-SEGMENT LAKE <> VILLAGE LOWER ORACLE>
|
|
<DEFINE-SEGMENT FOOZLE <> LOWER>
|
|
<DEFINE-SEGMENT FENSHIRE <> CASTLE>
|
|
<DEFINE-SEGMENT ORACLE <> LAKE SECRET>
|
|
<DEFINE-SEGMENT HINTS <>>
|
|
<DEFINE-SEGMENT SOFT <>>
|
|
|
|
<SET REDEFINE T>
|
|
<SETG NEW-PARSER? T>
|
|
<SETG NEW-VOC? T>
|
|
<COMPILATION-FLAG ONE-BYTE-PARTS-OF-SPEECH T>
|
|
|
|
<SETG L-SEARCH-PATH (["P" ""] !,L-SEARCH-PATH)>
|
|
<INSERT-FILE "DEFS">
|
|
<XFLOAD "P:PARSER.ZORK0">
|
|
|
|
<INSERT-FILE "MISC">
|
|
<INSERT-FILE "INPUT">
|
|
<INSERT-FILE "SYNTAX">
|
|
<INSERT-FILE "VERBS">
|
|
;<PUT-PURE-HERE>
|
|
<INSERT-FILE "GLOBALS">
|
|
<INSERT-FILE "PIC">
|
|
<INSERT-FILE "PICDEF">
|
|
<INSERT-FILE "PROLOGUE">
|
|
<INSERT-FILE "CASTLE">
|
|
<INSERT-FILE "LIBRARY">
|
|
<INSERT-FILE "VILLAGE">
|
|
<INSERT-FILE "LAKE">
|
|
<INSERT-FILE "HIGHWAY">
|
|
<INSERT-FILE "ORACLE">
|
|
<INSERT-FILE "CHESS">
|
|
<INSERT-FILE "JESTER">
|
|
<INSERT-FILE "FENSHIRE">
|
|
<XFLOAD "<ZILLIB>CLUES.XFLOAD">
|
|
<INSERT-FILE "HINTS">
|
|
|
|
<PROPDEF SIZE 5>
|
|
<PROPDEF CAPACITY 5> |