19 lines
415 B
Plaintext
19 lines
415 B
Plaintext
|
|
||
|
|
<CONSTANT SERIAL 0>
|
||
|
|
<GLOBAL PLAYER <>>
|
||
|
|
<GLOBAL P-WON <>>
|
||
|
|
<CONSTANT M-FATAL 2>
|
||
|
|
<CONSTANT M-HANDLED 1>
|
||
|
|
<CONSTANT M-NOT-HANDLED <>>
|
||
|
|
<CONSTANT M-OBJECT <>>
|
||
|
|
<CONSTANT M-BEG 1>
|
||
|
|
<CONSTANT M-END 6>
|
||
|
|
<CONSTANT M-ENTER 2>
|
||
|
|
<CONSTANT M-LOOK 3>
|
||
|
|
<CONSTANT M-FLASH 4>
|
||
|
|
<CONSTANT M-OBJDESC 5>
|
||
|
|
<DEFINE-ROUTINE MAIN-LOOP>
|
||
|
|
<DEFINE-ROUTINE MAIN-LOOP-1>
|
||
|
|
<GLOBAL P-MULT <>>
|
||
|
|
<GLOBAL P-NOT-HERE 0>
|
||
|
|
<DEFINE-ROUTINE PERFORM>
|