loop.zabstr

<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>