!S %WORK2,HCS                                                                   !     10
!O WORK2,HCO                                                                    !     20
!L TERMINAL,E                                                                   !     30
!R CED                                                                          !     40
!                                                                               !     50
      LENGTH  10.0  &  LOCAL WORK10                                             !     52
      LENGTH  10    &  LOCAL ZIP$                                               !     54
      LENGTH  3.0  &  LOCAL I,J                                                 !     60
      LENGTH  6.0  &  LOCAL ORNBR                                               !     62
      LENGTH  200  &  LOCAL FILNAM$                                             !     64
      LENGTH    2  &  LOCAL AX$,CX$                                             !     65
      LENGTH  9  &  LOCAL ZORNBR$                                               !     70
0002  FORMAT _                                                                  !     80
          ZORNBR$                                                               !     90
!                                                                               !    100
CLEAR                                                                           !    110
FILNAM$ = PATH('HCF')                                                           !    112
FILNAM$ = FILNAM$ + 'EOLST20.TXT' + '@00@'                                      !    114
PRINT (0) '@011000@';FILNAM$;'*'                                                !    115
INPUT (0) ''                                                                    !    116
AX$ = '@4100@' & CX$ = '@0000@'                                                 !    118
DOSFC ( AX$, CX$, FILNAM$)                                                      !    120
GOTO 6000                                                                       !    122
5000  !                                                                         !    124
ENTER 'CFBCTST'                                                                 !    130
!EXT I                                                                          !    132
CLOSE (1) & PRINT (0) '@011000@';'FINISHED'                                     !    140
!     (0) '@011000@';INFO1$                                                     !    150
!RINT (0) '@011100@';INFO2$                                                     !    152
INPUT (0) ''                                                                    !    160
!REATE KEY$,10,K,10,DIR='HCF'                                                   !    170
!PEN (1) KEY$                                                                   !    180
!EXT I                                                                          !    190
6000  RUN 'QMONITOR'                                                            !    200
!                                                                               !    210