home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBMSG.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  326 b   |  16 lines
  1.     // TBMsg.prg
  2.     //
  3.     // TBMsg() - Display a message at maxrow() without side-effect
  4.  
  5.     FUNCTION TBMsg(c)
  6.  
  7.     LOCAL cSs := saveScreen(maxRow(), 0, maxRow(), maxCol())
  8.  
  9.       @ maxRow(), 0
  10.       @ maxRow(), 0 SAY c
  11.       inkey(0)
  12.  
  13.       restScreen(maxRow(), 0, maxRow(), maxCol(), cSs)
  14.  
  15.     RETURN NIL
  16.