DF'/FLD'
ED'/FLD'
IN0
         NLS
         DO          KOL2-KOL1       < NETTOYAGE DE LA ZONE COMMANDE...
XWOR%1:  VAL         KOLC=FMASK+KSP=FVAL?FCSTO=FCPUSH(K?KOL1=FCDO=FCPEXU
         IF          KOL2=FCGET-"&",,XEIF%,
XWOR%1:  VAL         KOLC=FMASK+"L"=FVAL?FCSTO=FCPUSH(K?KOL1+K+K=FCPEXU
XWOR%1:  VAL         KOLC=FMASK+"A"=FVAL?FCSTO=FCPUSH(K?KOL1+I+K=FCPEXU
         LST
       @@                            < IMPLANTATION DU 'LA' <ADR>...
         NLS
XWOR%1:  VAL         KOLC=FMASK+"B"=FVAL?FCSTO=FCPUSH(K?KOL1+I+K=FCPEXU
XWOR%1:  VAL         KOLC=FMASK+"D"=FVAL?FCSTO=FCPUSH(K?KOL2-I-I=FCPEXU
XWOR%1:  VAL         KOLC=FMASK+"+"=FVAL?FCSTO=FCPUSH(K?KOL2-I-K=FCPEXU
XEIF%:   VAL         ENDIF           < ERREUR SI INDIRECTION/INDEXATION...
         LST
       @@                            < IMPLANTATION DU 'LB' <ADR>+D...
:F
:F
< <<'/FLD'
DF'/FST'
ED'/FST'
IN0
         NLS
         DO          KOL2-KOL1       < NETTOYAGE DE LA ZONE COMMANDE...
XWOR%1:  VAL         KOLC=FMASK+KSP=FVAL?FCSTO=FCPUSH(K?KOL1=FCDO=FCPEXU
         IF          KOL2=FCGET-"&",,XEIF%,
XWOR%1:  VAL         KOLC=FMASK+"S"=FVAL?FCSTO=FCPUSH(K?KOL1+K+K=FCPEXU
XWOR%1:  VAL         KOLC=FMASK+"T"=FVAL?FCSTO=FCPUSH(K?KOL1+I+K=FCPEXU
XWOR%1:  VAL         KOLC=FMASK+"A"=FVAL?FCSTO=FCPUSH(K?KOL1+I+I=FCPEXU
         LST
       @@                            < IMPLANTATION DU 'STA' <ADR>...
         NLS
XWOR%1:  VAL         KOLC=FMASK+"B"=FVAL?FCSTO=FCPUSH(K?KOL1+I+I=FCPEXU
XWOR%1:  VAL         KOLC=FMASK+"D"=FVAL?FCSTO=FCPUSH(K?KOL2-I-I=FCPEXU
XWOR%1:  VAL         KOLC=FMASK+"+"=FVAL?FCSTO=FCPUSH(K?KOL2-I-K=FCPEXU
XEIF%:   VAL         ENDIF           < ERREUR SI INDIRECTION/INDEXATION...
         LST
       @@                            < IMPLANTATION DU 'STB' <ADR>+D...
:F
:F
< <<'/FST'