x(@P I4 P ND MpX.A,B ND AD.A,C ND PD.A,DI?87 P W XALL p ; DEFINE X($NAME,$PROC,$POI0NT,$DEFLT,$MAX,$FPLAGS),< EXP SIpXBIT /$NAME/ >  AN: SWTCHS AL0==.-AN ; PIF2,< DEFINE X($pNAME,$PROC,$POINT ,$DEFLT,$MAX,$FLA 0GS),< ..TEMP==0  P IRP $POINT,<  p IFE ..TEMP-1,<   $POINT ;$NAME 0 > IFE  P..TEMP-2,< POIN pT 36,$POINT,35 ;$ NAME >  0IFIDN <$POINT><*P P>,<..TEMP==1> ;  p IFIDN <$POINT ><*F>,<..TEMP==2> 0 ; > IFB <$PO PINT>,< Z ;$NA pME ..TEMP==1> I FE ..TEMP,< IFN  0<$POINT>_-^D24,<  P ..TEMP==$POINT  p ..TEMP ;$NAME  > IFE ..TEMP,< 0 POINT 36,$POINTP,35 ;$NAME > >p>> AP: SWTCHS  ; ; MX.0==0 DEFINE X($NAPME,$PROC,$POINT,$pDEFLT,$MAX,$FLAGS),< IF2,< IFE <0$FLAGS>&FS.LRG,-377777,p> >P ..TEMP==1 IFN p<$FLAGS>&FS.LRG,<IFN <$MAX>,<..TEM0P==0>> IFN ..TEMPP,< XWD $MAX,$PpROC ;$NAME > IFE ..TEMP,< XWD 0[$MAX],$PROC ;$NAPME > > AM: SWpTCHS ; PD.==0 DEFINE X($NA0ME,$PROC,$POINT,$PDEFLT,$MAX,$FLAGSp),< IF2,< IFL <$DEFLT>,+1,> IFE <$FLAGS>0&FS.LRG,-777777,> > IFBP <$FLAGS>,<..TEMRp==0> IFNB <$FLAGS>,<..TEMR==($FLA0GS)> ..TEMP==1 PIFN <$FLAGS>&FS.LpRG,,<..TEMP==0>> IFN0 ..TEMP,< XWD .P.TEMR,$DEFLT ;$NApME > IFE ..TEMP,< XWD ..TEMR,[0$DEFLT] ;$NAME >P > AD: SWTCHS p PURGE ..TEMP,..TEMR SALL MLuvQ MLuLSQ MLuZ7P"MLu[zP$MLuhvQ MLuiYQ @MLukyQ MLum2Q MLux[Q MLvlXQ M`tI7P pM`tI\Q M`tJ9Q M`uiQ @M`ukvQ M`um6Q M`v9P M`v Q M`v WP M`v ZQ M`v=Q M`v=8Q M`vLVQ `U_9hwP U_9iVP U_9lP WN0 0 m A.L==0 P A.T: IRP (B)<pEXP SIXBIT /B/  A.L==A.L+1 0 ..TEMP==0 P IRPC (B)<*>,<..TEMP==1> STOPI> 0 IFE ..TEMP,<APB==A.L> > PURGE ..TEMP Z:42  0  EXT .FM PSGD PJSP T1,.FM pSGD XLIST ASC!IZ \A\ LIST Z:43 "p  EXT .FM#SGF PJSP T1,.FM#0SGF XLIST ASC#PIZ \A\ LIST Z:46  u EXT .FM0SG PJSP T1,.FMSPG XLIST ASCIZ \A\ LIST Z:47   EXT .FM0SGN PJSP T1,.FMPSGN XLIST ASCpIZ \A\ LIST Z:47 !P  EXT .FM!pSGO PJSP T1,.FM"SGO XLIST ASC"0IZ \A\ LIST g0 8 X A,CX.T-1,<B>,D,-C.L,E g8 8- X A,0,X<B>,0,0,FS.NOS!C g@ # X A,C8,<B>,PD.D,MX.D,E gL x' X A,0,<B>,C,0,D iLtLQP iLtLXP iLtL[P ;VQ "DP DRP D[sQ D[vQ DlVP EXP ELzP EkzP ExUP E|@P E}:P F}{woP