*COMDECK  CCLWHT
 CCLWHT   TITLE  WRITE HELP TEXT
**        CCLWHT - WRITE INTERACTIVE HELP TEXT
* 
*         ENTRY - B2 = RECORD NUMBER IN FILEHP CONTAINS HELP TEXT 
* 
* 
*         EXIT - HELP TEXT WRITTEN
* 
* 
 CCLWHT   SUBR   =
          SX2    FILEHP 
  
          RJ     =XIOSKP           SKIP FORWARD TO TEXT RECORD
  
 OSNBE    IFEQ   HOST,NOSBE 
          SA2    FILEHP            SET CODE AND STATUS
          MX3    59                BITS IN THE FET INDICATING 
          LX3    1                 CODED FILE 
          BX7    X2*X3
          SA7    A2 
 OSNBE    ENDIF 
 OSNOSBE  IFNE   HOST,SC2 
  
          READ   FILEHP,R          INITIALIZE CIO BUFFER
  
 OSNOSBE  ENDIF 
 WHT010   BSS    0
          SA2    SCATX
          MX2    0
 OSNOS    IFEQ   HOST,NOS 
          SA3    IACIDP 
          ZR     X3,WHT015         NO DIALOG - SKIP 0011B BYTE
  
          MX7    0
          SA3    =2R"EM"
          BX6    X3 
          SA7    A2+B1             PREFIX DIALOGUE WITH ASCII BYTE
          SA6    A7+B1
          SX2    2                 UPDATE HEADER
          BX3    X2 
          LX3    S.SBTOT-N.SBTOT+1
          BX2    X3+X2
 WHT015   BSS    0
 OSNOS    ENDIF 
  
          SA1    =1H
          SB2    1
          RJ     =XSTRTASC         PUNCTUATION TO SCATX 
          MX6    0
          SX2    FILEHP 
          SX3    HPBUF
          SX4    V.CCCPC
  
          RJ     =XIORDL           READ HELP FILE 
  
          NZ     X1,WHT020         END OF RECORD
  
          SB2    V.CCCPC
          SA1    HPBUF
          SA2    SCATX
  
          RJ     =XSTRFZB          FIND ZERO BYTE 
  
          RJ     =XSTRCADC         UNPACK ASCII/DISPLAY 
  
          RJ     CCLWID            WRITE HELP TEXT
  
          JP     WHT010            LOOP TIL DONE
  
 WHT020   BSS    0
          MX7    0
          SA7    SCATX             CLEAR SCATX
          SX2    FILEHP 
  
          RJ     =XIOREW           REWIND HELP FILE 
  
          JP     CCLWHT            RETURN 
  
  
