/*---------------------------------------------------------------
Displays Windows Message box with message and OK button
Requires WMSGBOX.EXE
WMSGBOX.EXE needs path or needs to be in folder in path
------------------------------------------------------------------*/
XMSGBOX: PROCEDURE
 PARSE ARG MSG
 TR = LINEOUT("C:\TEMP\DRET.TXT",MSG,1)
 TR = LINEOUT("c:\temp\dret.txt")
 ADDRESS DOS "WMSGBOX.EXE c:\temp\dret.txt"
RETURN
/*----------------------------------------------------------------*/