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