; 16 jly 85 esj converted
;;;;;;;;        SETRAW           ;;;;;;;;;;;;;;;;;;;;;;;;;;
      E'F
      E'O SETRAW.(CH,FNAME)

;     this is a noop for cgos.


/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF


      F'N
      E'N