EXTERNALROUTINE  LOGMSG(STRING (255)S)
EXTERNALROUTINESPEC  DPRINTSTRING(STRING (255)S)
      IF  S = "" START 
         DPRINTSTRING("************************
")
      FINISH  ELSE  START 
         DPRINTSTRING(S."
")
      FINISH 
      END 
ENDOFFILE