"ILIST, IVECTOR, IUVECTOR AND ISTRING." ) (K ) (NT ) (BYTSZ <>)) #DECL ((N NUM EL) NODE) <1 .K> <2 .K> > .BYTSZ>) (ELSE ) > >)> >> .N .W <==? .NT ,ISTRUC-CODE> <1 .K> <2 .K> > .BYTSZ>>)>> > >> > > >)> >> > >> >) (ELSE >)>> > > > > > > > > ]>> ]>> > > > ) START END TEM (ETY <>) ADS ACS ANAC ATAG DAT AC OFPT ELD TTEM) #DECL ((N NUMN EL) NODE (NT) FIX (DAT TEM) DATUM (AC) AC (OFPT) OFFPTR) >> >) (ELSE >)> > <==? ,QUOTE-CODE> <==? #LOSE *000000000000*>> .W>) ( > ,QUOTE-CODE> <==? .NT ,LVAL-CODE> <==? .NT ,FLVAL-CODE> <==? .NT ,FGVAL-CODE> <==? .NT ,GVAL-CODE>>> > .DAT> >>> >>) (ELSE )>>> >>>> `B >> > ,QUOTE-CODE> FIX> 0> >>) (ELSE >>>)> >> .TYP>> .OFPT>> AC> .TEM>> AC> .TEM>> >) (ELSE ]>> >)> > >> >) (.UV >> >)> ) (ELSE ,QUOTE-CODE> FIX> 0> >>) (ELSE >>>)> >> > > )> > > ,QUOTE-CODE> > >)> >> ,QUOTE-CODE> ) (ELSE 0)> `(B) >>)> > )> >> ) (.UV DONT-CARE) (ELSE )>> ) (ELSE )>> AC> .TEM>> AC> .TEM>> >>>> `(TP) >> > >> > >>)> ,QUOTE-CODE> ()>>) (ELSE >>> >> > >> )>>)> > > )>)> .TYP>> .OFPT>> ]) (ELSE '[<2 (2)>])>>> > > >) (ELSE ,AC-A)> ,AC-B>> AC>> -2 '`(TP) >> ]>> > ]>>)> > )>> .W>> ,ISTRING>) ELD TTEM (OT ) (NT ) (SIZ 7) SIZD) #DECL ((N NUMN EL) NODE (TN SIZ) FIX (RES DAT SIZD TEM) DATUM (TT) AC (NN) (BYTSZ) (BP)

>) ,QUOTE-CODE> >) (ELSE >>)>)> ,QUOTE-CODE> > > 0> > > > >> > > >) (ELSE -1> >>>)>) (ELSE > >> > > > 1>>> >>) (ELSE > > >> > > >)>)> > > > <==? ,QUOTE-CODE> >> > FIX>>> >>>> >> > > >> `B >> >>> [.NN]>> >> AC>>)>> > >)>) (ELSE >>>> > >) (ELSE >)> > >) (ELSE #WORD *000000440000*)>) (IDX)>>]>> ,ADD:STACK '(2 PSLOT PSLOT)> > > >> > >> ]>> > > > >>)>)> > )> >> >> > ) (ELSE )>> ) (ELSE )>> > >> >> )> >>> '`(TP) >> 1 > AC>> '`(P) >> .TEM> AC> .TEM>> > )> > > ]>> ]>> .RES>)> )>]>>) (ELSE > > >>)> > 12>> FIX>>>)> > .W>> ) (END ) NX NT TEM (NTEM ) (DOFLG <>) (ONEFLG <>) (SFLG ) ELD TTEM NW) #DECL ((NT) FIX (NTEM TEM) DATUM (START END) ATOM (NUMN N EL) NODE (DOFLG) ) FIX> > ,QUOTE-CODE> > 0> )>)> > ) ( <==? ,QUOTE-CODE> <==? #LOSE *000000000000*>> >>) (ELSE >> AC>>)>> > AC>>>> AC>> .END>> )> > > 2>>) (ELSE )> ) ( > ,QUOTE-CODE> <==? .NT ,LVAL-CODE> <==? .NT ,FLVAL-CODE> <==? .NT ,FGVAL-CODE> <==? .NT ,GVAL-CODE>>> AC>> |COMPER >>>)> >> )> ) (>>>)>) (ELSE AC>>>> AC>>>>)> AC>> .END>>)> AC>>>> AC>>>> > > )> ) ( > > > ) ('<`SOSE -1 `(P) >)>> >)> > ]>>> 2>>)>) (ELSE AC>>>> AC>>>>) (ELSE > >)> AC>> |COMPER >>> AC>> .END>> )> >)> > ) ( > >) (ELSE >)>> AC>>>> AC>>>> > )> )>)> >>) (ELSE > >)> >) (>>)> > .NW) (ELSE )>> ) (NUM )) #DECL ((SIZ VAL NUM M) FIX) .VAL> FIX>> > 0> >>>>