journey.zil

"JOURNEY for
		      		JOURNEY
	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."


<VERSION YZIP>

<ZIP-OPTIONS COLOR MOUSE DISPLAY MENU>
                                  
<FREQUENT-WORDS?>

<COMPILATION-FLAG DEBUGGING <>>

<DEFINE-SEGMENT LAVOS T DWARVES LAKE>
<DEFINE-SEGMENT DWARVES <> LAVOS>
<DEFINE-SEGMENT ORC-FIGHT <> DWARVES STAIR>
<DEFINE-SEGMENT FOREST <>>
<DEFINE-SEGMENT TANGLEWOOD <> FOREST>
<DEFINE-SEGMENT RIVER <> LAVOS FOREST>
<DEFINE-SEGMENT STAIR <> DWARVES LAKE>
<DEFINE-SEGMENT LAKE <> NYMPHS FOREST>
<DEFINE-SEGMENT NYMPHS <> LAKE FOREST>
<DEFINE-SEGMENT PART2 <> RIVER CAVERNS TANGLEWOOD>
<DEFINE-SEGMENT CAVERNS <> PART2 MINES>
<DEFINE-SEGMENT MINES <> CAVERNS TANGLEWOOD>
<DEFINE-SEGMENT CASTLE <> TANGLEWOOD MILL>
<DEFINE-SEGMENT MILL <> CASTLE>
<DEFINE-SEGMENT ZAN <> CASTLE MILL BOAT>
<DEFINE-SEGMENT BOAT <> ZAN>

<SET REDEFINE!- T>
<SET ZREDEFINE T>

<DIRECTIONS MOVE>

<GLOBAL BORDER-FLAG <>>  ;"If T, paint a border around the screen..."
<GLOBAL FONT3-FLAG T>    ;"If T, can use special character font 3..."
<GLOBAL FWC-FLAG T>      ;"If T, uses fixed-width font for commands..."
<GLOBAL BLACK-PICTURE-BORDER T>

<GLOBAL INTERPRETER 3>

<GLOBAL INIT-TEXT-LEFT 32>
<SETG INIT-TEXT-LEFT 32>

<GLOBAL COMMAND-START-LINE 20>

<GLOBAL COMMAND-WIDTH 16>
<SETG COMMAND-WIDTH 16>

<GLOBAL NAME-WIDTH 15>
<SETG NAME-WIDTH 15>

<GLOBAL TOP-SCREEN-LINE 1>

<GLOBAL PARTY-COMMAND-COLUMN 2>
<GLOBAL SCREEN-HEIGHT 0>
<GLOBAL SCREEN-WIDTH 0>
<GLOBAL NAME-COLUMN 0>
<GLOBAL CHR-COMMAND-COLUMN 0>
<GLOBAL COMMAND-OBJECT-COLUMN 0>

<GLOBAL RIGHT-COLUMN-LEFT-EDGE 0>
<GLOBAL RIGHT-COLUMN-WIDTH 1>
<SETG RIGHT-COLUMN-WIDTH 1>

<GLOBAL PARTY-MAX 4>
<GLOBAL GRAPHIC-WINDOW-X 0>
<GLOBAL GRAPHIC-WINDOW-Y 0>

<PROPDEF KBD <> (KBD X:FIX = 1 <BYTE .X>)>
<PROPDEF KBD2 <> (KBD2 X:FIX = 1 <BYTE .X>)>
<PROPDEF TRAVEL-COMMANDS <>
	 (TRAVEL-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
<PROPDEF PROVISION-COMMANDS <>
	 (PROVISION-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
<PROPDEF FIGHT-COMMANDS <>
	 (FIGHT-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
<PROPDEF OPTION-COMMANDS <>
	 (OPTION-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
<PROPDEF MODE-COMMANDS <>
	 (MODE-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
<PROPDEF MIX-COLOR <>
	 (MIX-COLOR "MANY" S:STRING = <> "MANY" <STRING .S>)>
<PROPDEF MIX-SPELL <>
	 (MIX-SPELL "MANY" O:OBJECT = <> "MANY" <OBJECT .O>)>
<PROPDEF ATTACK <> (ATTACK "MANY" NUM:FIX = <> "MANY" <BYTE .NUM>)>
<PROPDEF DEFEND <> (DEFEND "MANY" NUM:FIX = <> "MANY" <BYTE .NUM>)>
<PROPDEF CAST-LIMIT 1>

<DEFMAC IN-PARTY? ('FOO)
	<FORM FSET? .FOO ',IN-PARTY>>

<DEFMAC ACTION? (FOO)
	<FORM EQUAL?
	      ',ACTION
	      <FORM GVAL
		    <PARSE <STRING <SPNAME .FOO> "-COMMAND">>>>>

<DEFMAC OBJECT? (FOO)
	<FORM EQUAL?
	      ',ACTION-OBJECT
	      <FORM GVAL .FOO>>>

<DEFMAC PRSI? (FOO)
	<FORM EQUAL?
	      ',ACTION-PRSI
	      <FORM GVAL .FOO>>>

<DEFMAC SET-TEMP ('FOO)
        <FORM PUTP ',HERE ',P?TEMP .FOO>>

<DEFMAC GET-TEMP ()
        '<GETP ,HERE ,P?TEMP>>

<DEFMAC CLEAR-TEMP ()
        '<PUTP ,HERE ,P?TEMP 0>>

<DEFMAC O-COUNT ()
        '<GET ,O-TABLE 0>>

<DEFMAC CLEAR-O-TABLE ()
        '<PUT ,O-TABLE 0 0>>

<DEFMAC RFATAL ()
	'<PROG () <PUSH 8> <RSTACK>>>

<DEFMAC PROB ('BASE?)
	<FORM NOT <FORM L? .BASE? '<RANDOM 100>>>>

<DEFMAC CANCEL? ()
        '<EQUAL? ,ACTION-OBJECT ,CANCEL-OBJECT>>

<DEFMAC GDEF (NAM 'STR "OPT" ('NUM 0))
        <COND (<G? .NUM 0>
	       <FORM CONSTANT .NAM .NUM>)
	      (T
	       <FORM CONSTANT .NAM .STR>)>>

;"Common"

<INSERT-FILE "OUTPUT" T>
<INSERT-FILE "INPUT" T>
<INSERT-FILE "INTRO" T>
<INSERT-FILE "COMMANDS" T>
<INSERT-FILE "COMMON" T>
<INSERT-FILE "CONTROLS" T>
<INSERT-FILE "CHARACTERS" T>
<INSERT-FILE "OBJECTS" T>
<INSERT-FILE "SPELLS" T>
<INSERT-FILE "TALES" T>
<INSERT-FILE "COMBAT" T>

;"Part Ia"

<INSERT-FILE "LAVOS" T>

;"Part Ib"

<INSERT-FILE "DWARVES" T>
<INSERT-FILE "FOREST" T>
<INSERT-FILE "RIVER" T>
<INSERT-FILE "PRISON" T>
<INSERT-FILE "STAIR" T>
<INSERT-FILE "LAKE" T>
<INSERT-FILE "HERMIT" T>
<INSERT-FILE "ASTRIX" T>
	
;"Part II (a)"

<INSERT-FILE "PART2" T>
<INSERT-FILE "MINES" T>
<INSERT-FILE "FLUME" T>
<INSERT-FILE "TOMB" T>

;"Part II (b)"

<INSERT-FILE "FOG" T>
<INSERT-FILE "TRAP" T>

;"Part III"

<INSERT-FILE "ZAN" T>
<INSERT-FILE "WHARF" T>
<INSERT-FILE "VOYAGE" T>
<INSERT-FILE "ISLAND" T>

;"Hints"

<INSERT-FILE "HINTS" T>

;"Graphics"

<INSERT-FILE "GRAPHICS" T>