/*   **+-------------------------------------------------------------+  +
     **ł SYSTEM......: Calculate Advanced Function                   ł  +
     **ł MODULE......: File read/write control                       ł  +
     **ł PROGRAM.....: CLCADVFCNF        -CALLED BY: CLCADVFCNC (CLP)ł  +
     **ł PROGRAMMER..: W.Allen          -SPECIFIED: W.Allen        ł  +
     **ł DATE........: 87/10/24          -MNT.REF..: *NONE           ł  +
     **ł         +-------------------------------------+             ł  +
     **+---------łBASIC DESCRIPTION OF PROGRAM FUNCTIONł-------------+  +
     **ł         +-------------------------------------+             ł  +
     **ł  Does read a write support for the main command processing  ł  +
     **ł  program.                                                   ł  +
     **ł                                                             ł  +
     **ł                                                             ł  +
     **ł                     +-------+                               ł  +
     **+---------------------<UPDATES>-------------------------------+  +
     **ł PROGRAMMER/DATE     łMNT.REFł NOTE/NOTE REF I.D./CHGD MARKS ł  +
     **+---------------------+-------+-------------------------------+  +
     **ł                     ł       ł                               ł  +
     **ł                     ł       ł                               ł  +
     **+---------------------+-------+-------------------------------+  */
     FAFCTNPF IF  E                    DISK                      A
     C           *ENTRY    PLIST
     C                     PARM           OP      1
     C                     PARM           ARGUMN
     C                     PARM           RESULT
     C           OP        IFEQ 'A'
     C                     WRITEAFNC
     C                     ELSE
     C                     READ AFCTNPF                  99
     C                     END
     C                     SETON                     LR
