"GLOBALS for SORCERER (c) Copyright 1984 Infocom, Inc. All Rights Reserved." > > ;"global objects and associated routines" ;"Yes, this synonym for LOCAL-GLOBALS needs to exist... sigh" )) ;"This COND is game independent (except the TELL)" > ) ( ) (T >)> > > > )>) (T )>)>) (T > >> > > )>) (T )>)>)> ;"Here is the default 'cant see any' printer" ) ( > T) (T )> ) (T
)> > > > returns number of matches. If 1, then P-MOBY-FOUND is it. One may treat the 0 and >1 cases alike or different. It doesn't matter. Always return RFALSE (not handled) if you have resolved the problem." > ;)> ; ,P?GLOBAL>>> )> ;)> ) (T )> ) ( ) (T ,NOT-HERE-OBJECT)>> ;>)> > > ) (T )> > ) ( ) ( > ) ( > ) ( ) ( ) ( ) ( ) (,P-OFLAG )> )>) (.PRSO? <>>) (T <>>)>> ) ( > ) ( > ) ( )>> )>> )>> > ) ( > ) ( > ) ( > )>> ) ( ) ( )>) ( > ) ( )>> ) ( )>> ) (T )>) (> ) (T )>> ) ( ) ( ) (T )>) ( ) ( ) (T )> ) ( > ) ( ) ( ) ( )> > > > )> ) ( > ) ( ) ( )>) ( >> ) (T > ,LIT> )> )>) ( > ) (T )>) ( ) ( )>> )> ) ( ) ( ) ( )> ) (,LIT ) (T )>) ( )>> ) ( ) ( > ) ( >> ) ( ) ( ) ( ) ( ) ( ) ( ) ( )>) ( ) ( ) ( )>) ( )>> ) ( ) ( ) ( ) ( )>> ) ( )>)>> ) ( ) ( > ) ( ) ( >> ) ( ) ( > > >) ( ) ( > ) ( )>> > ) ( ) ( )>> ) ( )>> ) (T )>) ( ) ( ) ( ) ( ) ( ) ( )>) ( )>> ) ( ) ( ) (T )>)>> ) ( ) (T )>)>>