         SYSTEM   PSTD
         REF      PSETUP,PRET,ARG
         DEF      SUPCLOSE
SUPCLOSE CAL1,9   6
         B        *PRET
         END
