) (T )> 100>> > ) (QNUMS ,QNUMS)) #DECL ((PLAYER) TIME (PROGRESS QNUM) FIX (TQUES) (ANS) (TVA) ASYLUM (TVS) SPACE (QNUMS) ) > >>> .PROGRESS>) () ( >> .PLAYER> > 1 .QNUM> T)>)>> ) (TVA ,TVASS)(TVS ,QSPACE)) #DECL ((PLAYER) TIME (IDX PROGRESS START) FIX (TVA) ASYLUM (TVS) SPACE) >> ) FIX>>> ) (>> ) (T <&1 .ANS> )>) ( >> )>>> )) #DECL ((CHECK?) (OUTCHAN) ) ZORK> (TVA) ASYLUM) (PROGRESS) FIX (PLAYER) TIME (IDX) FIX) >> > > <6PRINC .PLAYER> >> )> >>)>>> >> <==? UVECTOR> <==? 15>>) ( )>) ( )>> >> <==? 15> > .QASKED>>) ( )>) ( )>> ) (TVA ,TVASS) (TVS ,QSPACE)) #DECL ((PLAYER) TIME (IDX) FIX (PROGRESS) > (START) FIX (TVA) ASYLUM (TVS) SPACE) ) FIX>>> ) (>> >) (T <&1 .MAIL> >)>) ( >> )>>> )) #DECL ((MAIL) (PROGRESS) WORD (TP) ANY) TIME> WORD> STRING> >> .PROGRESS) (T )>>