"MISC for THE HITCHHIKER'S GUIDE TO THE GALAXY (c) 1984 by Infocom, Inc. All Rights Reserved." ;"former MACROS.ZIL stuff" ;> > ) ( .RTN> > ) (T )>)> >>> ;> > ) ( .RTN> > <0? >> ) (T )>)> >>> > > ) ( .RTN> > <0? >> > ) (T )>)> >>> ) (> >)> > "CRLF"> <=? .P "CR">> >) ( ) (ELSE > > > "DESC"> <=? .P "D"> <=? .P "OBJ"> <=? .P "O">> >) ( <=? .P "N">> >) ( <=? .P "CHR"> <=? .P "C">> >) (ELSE >>)>)>) ( >) ( >) (ELSE )>>>>> > > > > ) ( ) (ELSE )>>)> )> >
>>) (ELSE .ATM)>>) (ELSE .ATM)> !.L)> > 3> )>> !.L>)>>> >> > > > ) ( ) (ELSE )>>)> > > .ATM) (ELSE )>> !.O)>>> >> >>> >>> > > ;"former MAIN.ZIL stuff" > > ;"put interrupts on clock chain" > > > ;"set up and go" > > > > > > > > .ICNT> ) (T ,IT> )>)>> > .OCNT> ) (T ,IT> )>)>>)> )> .OCNT) ( >) (T >)> .OCNT) ( > > .ICNT) (T 1)>> <1? .ICNT>> >)> >) (<0? .NUM> ,P-SONUMS>> > >) ( ) (T > ) ( >) (T >)> > )>) (T > )> > > .NUM> > )> > )> > ) (T )> ) ( )> ) (T >) (T >)> > > 0> ,W?ALL>> > ) ( ,WINNER ,HERE ,PRSI>> ,SURFACEBIT>>> > >>>> ) ( ,PRSI >> ) ( > ;"next frob semied by JW" ;>> ) ( ,PRSI <==? ,PRSO ,PRSI>> ) ( > ) (> ) (T ) ( )> )>)>)> > )>)>>)> > T) (T ,P?ACTION> ,M-END>>)>)> T) (,P-OFLAG T) (T )> ) (T >)> ) (T >)> >)>) (T >)> T) ( >> T) ( ,DONT-FLAG> T) ( ,L-DONT-FLAG> T) (T >)> > > >) ( 3> ,EARTH-DEMOLISHED > >)>>> > >> >>> ;"failed" )> > ) (T >>)> >> > > 0> ) (T >)>>> > > > > > > > )> > ) (<0? > >) (T > )> > > > ) (I <>) "AUX" V OA OO OI) ; % ') (T ' 1>>>)> >> )>)> ) (T )> )> > >> )> ;> >) (T )> )> > >> > .V) (T >> .V) (>> .V) ( ,P?ACTION> ,M-BEG>> .V) (>> .V) (>>> .V) ;(> ,P?CONTFCN> ,P?CONTFCN>>>> .V) (> >>> .V) ( >> .V)>)> .V> ) "AUX" RES) <>) (T ; " CR>) (T ">)>)> ) (T )>> ; ) ( ) (T )>)> .RES)>> ;"former CLOCK.ZIL stuff" > ') (T ')>> > ,C-TICK .TICK> .CINT> > > > > ) ( .RTN> )> >>> )) > )> >> > > ) (>> > ) (T > > >> )>)>)> >>>