> ;"Control Z"> > > > > > > >)>

) (ELSE )>> ) (MS ,MAGIC-STRING) (ML ,MAGIC-LENGTH) (LC1 ,LAST-CHAR1) (LC2 ,LAST-CHAR2) (LC3 ,LAST-CHAR3) SL (WS ,WORD-STRING) WRD SETG-OK WORD-OK) #DECL ((CHAN) CHANNEL (WS MS B) STRING (WRD ML BL MAXL TOTAL-ACCESS SL) FIX (OBL) OBLIST (CHAR LC1 LC2 LC3) CHARACTER) ) (INDEX ()) NAMESTR NAME-ATOM) #DECL ((PL LEN) FIX (POS) (START) STRING) > > > > >>> ;"Foo! must back access" >> > ) (ELSE ;"Must be bogus char" > )>)> >>>> > >)> >)> .SETG-OK> .START .MS .WS> >> > )> > > )> > > <==? .CH !\!>> ) (ELSE .CH)>>>> >> > > > >)> >> 32> > )>> .LC2> )> > > >)> >> 32> > )>> .LC3> )> >) (ELSE > > )>> >> ! ()) (ELSE ())>) !.INDEX)> >) (ELSE >>)>) (.WORD-OK >> > )> > > )> > !\*> >) (ELSE )>) ( <- >>>)>>>)> ) (ELSE )>> )>>> ) (ECHAR ,LAST-CHAR3)) #DECL ((CHAN) CHANNEL (NAME) ATOM (MS) STRING (MAXL ML) FIX (MCHAR ECHAR) CHARACTER) .BL>)) #DECL ((B) STRING (LEN PL BL TOTAL-ACCESS) FIX (POS) ) > > > > >>> >> > ) (ELSE > )>)> >)> 1> > .MS> >> )> >> >)> > ) (<==? > ,NON-ATOM> )>) (> ) (ELSE >)>>> .FUDGE>>> ) (ELSE >)>) (ELSE )>> )>>> 1>>)) #DECL ((CHAR) CHARACTER (TRNS STATE) FIX) <==? .TRNS ,M$$R-EXCL>> ,NEED-MINUS) (<==? .STATE ,NEED-MINUS> ,IN-ATOM) (ELSE ,NON-ATOM)>) (<==? .STATE ,QUOTE-NEXT> ,IN-ATOM) (<==? .TRNS ,M$$R-BACKS> ,QUOTE-NEXT) ( <==? .TRNS ,M$$R-DIGIT> <==? .TRNS ,M$$R-PLUS> <==? .TRNS ,M$$R-E> <==? .TRNS ,M$$R-STAR>> ,IN-ATOM) (ELSE ,NON-ATOM)>>