*DECK S$PF
          IDENT  S$PF 
          TITLE  S$PF -  FLUSH PERFORMANCE FILE 
          COMMENT  FLUSH PERFORMANCE FILE 
          LIST   F
          SPACE  4
**        S$PF -  FLUSH PERFORMANCE FILE
* 
*     CALLING SEQUENCE: 
*         RJ     S$PF 
* 
*     DOES: 
*         FLUSHES THE BUFFER FOR S$ZZZ3U. 
*         WRITES OUT THE CAPSULE-NAMES TO "ZZZZZ3V".
  
  
          ENTRY  S$PF 
S$PF      SUBR
        IFPERFM              IF PERFORMANCE MEASUREMENT WANTED, 
          ENTRY  SPF
 SPF      EQU    S$PF 
  
*     FLUSH THE BUFFER FOR S$ZZZ3U
  
          WRITER S$ZZZ3U,RECALL 
  
*     WRITE OUT THE CAPSULE-NAMES TO S$ZZZ3U
  
          WRITER ZZZZZ3V,RECALL 
  
          EXIT
  
  
*CALL MAXCAPS 
 S$CAPS   EXTERNAL
 S$ZZZ3U  EXTERNAL           FET FOR PERFORMANCE FILE 
  
 ZZZZZ3V  VFD    42/0L_ZZZZZ3V,18/1 
          VFD    42/,18/S$CAPS
          VFD    42/,18/S$CAPS+MAXCAPS-1
          VFD    42/,18/S$CAPS
          VFD    42/,18/S$CAPS+MAXCAPS
  
          ENDIF 
          SPACE  4
          END 
