64 lines
1.2 KiB
Plaintext
64 lines
1.2 KiB
Plaintext
"Z6 for
|
|
MAGE
|
|
(c) Copyright 1985 Infocom, Inc. All Rights Reserved."
|
|
|
|
<COND (<GASSIGNED? ZILCH>
|
|
<SETG ZDEBUGGING? <>>)
|
|
(ELSE
|
|
<SETG ZDEBUGGING? T>)>
|
|
|
|
<PRINC "
|
|
*** MAGE: Interactive Fantasy ***
|
|
">
|
|
|
|
ON!-INITIAL
|
|
OFF!-INITIAL
|
|
|
|
;<REPEAT (CHR)
|
|
<PRINC "Debugging? (Y or N): " ,OUTCHAN>
|
|
<SET CHR <TYI>>
|
|
<COND (<MEMQ .CHR "Yy ">
|
|
<PRINC " Debugging!
|
|
" ,OUTCHAN>
|
|
<RETURN <SETG ZDEBUGGING? T>>)
|
|
(<MEMQ .CHR "Nn">
|
|
<PRINC " No debugging!
|
|
" ,OUTCHAN>
|
|
<RETURN <SETG ZDEBUGGING? <>>>)
|
|
(ELSE
|
|
<PRINC " ??
|
|
" ,OUTCHAN>)>>
|
|
|
|
<DEFINE DEBUG-CODE ('X "OPTIONAL" ('Y T))
|
|
<COND (,ZDEBUGGING? .X)(ELSE .Y)>>
|
|
|
|
<SNAME "Z6">
|
|
|
|
<SET REDEFINE T>
|
|
|
|
<COND (<NOT <GASSIGNED? ZILCH>>
|
|
<SETG WBREAKS <STRING !\" !,WBREAKS>>)>
|
|
|
|
<COND (<GASSIGNED? ZILCH>
|
|
<ID 0>)>
|
|
|
|
<CONSTANT SERIAL 0>
|
|
|
|
<INSERT-FILE "MISC" T>
|
|
<INSERT-FILE "PARSER" T>
|
|
<INSERT-FILE "SYNTAX" T>
|
|
<INSERT-FILE "DEBUG" T>
|
|
<INSERT-FILE "RECORD" T>
|
|
<INSERT-FILE "INTERRUPTS" T>
|
|
<INSERT-FILE "VERBS" T>
|
|
<INSERT-FILE "MAGIC" T>
|
|
<INSERT-FILE "GLOBALS" T>
|
|
<INSERT-FILE "GUILD" T>
|
|
<INSERT-FILE "C1" T>
|
|
<INSERT-FILE "C2" T>
|
|
<INSERT-FILE "C3" T>
|
|
<INSERT-FILE "C4" T>
|
|
|
|
<PROPDEF SIZE 5>
|
|
<PROPDEF CAPACITY 0>
|