; 18 aug 85 esj replaced s.e.fm.error.uil with kerdef
; 31 jly 85 esj created
;---------------------------------------< shelp >---------------------------
   E'F A:S(NWLS)
   E'O SHELP.
;---------------------------------------------------------------------------
;
;  Purpose
;  Print out the help file for kermit.

;  Input
;  none

;  Output
;  none

;  Globals
;  none

; Inserts
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
/INCLUDE SYM.EQU.FM.OPEN
/INCLUDE SYM.EQU.FM.BASIC
/INCLUDE SYM.EQU.FM.READ

;  Local static
   V'S HELPNAME = 31,$=SYSNEWS.CVCOMMAND.&BCD.KERMIT!$

   V'S TXTSPEC =  03,
1                 %CATLOG,%%SEARCH,
1                 %FORMAT , %%TEXT,
1                 %RTNERR

   V'S RDSPC =    02,
1                 %RTNERR,
1                 %RETURN,1,
1                       %%BYTCNT


   V'S CLOSPC =   1,
1                 %RTNERR


;  Local dynamic
   I'R CH               ; channel holder
   I'R LINE(100)        ; line buffer
   I'R OTSPC(9)         ;
   I'R STATUS(1)        ; FM error code


;----------------------------------< start of code >------------------------

*  Set to no error
      STATUS = STATUS(1) = FM%NOERR

      ; call the fm and try to open the help file
      E'E F&OPEN.(%OREAD   ,
1                 %IDFILNM ,
1                 HELPNAME ,
1                 TXTSPEC  ,
1                 CH       ,
1                 OTSPC    ,
1                 STATUS   )

#     E'E HEXDMP.(1,1,1,STATUS)

;     type out contents of file
      W'R STATUS .E. FM%NOERR
;        if open status is ok, print till eof
         R'T
           E'E F&READ.(CH       ,
1                       1        ,
1                       LINE     ,
1                       RDSPC    ,
1                       OTSPC    ,
1                       STATUS   )

#          E'E HEXDMP.(1,1,1,STATUS)
            W'R STATUS .NE. FM%NOERR, B'K

            E'E TYPE.(OTSPC(3),LINE)
         F'R
      E'L

      E'E F&CLOSE.(CH, CLOSPC, STATUS)

      F'N STATUS
      E'N