home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / surfmodl / surfm203.arc / SURFSRC.ARC / MENUMSG.INC < prev    next >
Encoding:
Text File  |  1987-12-21  |  243 b   |  12 lines
  1. procedure MENUMSG (Msg: text80);
  2. { Output a message in the main menu, showing current status }
  3.  
  4. var i: integer;
  5.  
  6. begin
  7.   gotoXY (1,15);
  8.   write (Msg);
  9.   for i := 1 to (50-length(Msg)) do
  10.     write (' ');
  11. end; { procedure MENUMSG }
  12.