home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / DB3STOCK.ZIP / LINMSG23.PRG < prev    next >
Encoding:
Text File  |  1986-04-12  |  426 b   |  20 lines
  1. * --------------------------------------
  2. * LINMSG23.PRG - GET ANY KEY TO CONTINUE
  3. * --------------------------------------
  4. * define MSG as a str <75 chars before entering this routine
  5. @ 23,1 say space(77)
  6. set color to 15/0
  7. @ 23,(80-len(msg))/2 say msg
  8. set color to 7/0
  9. zz=" "
  10. tkol=((80-len(msg))/2)+len(msg)+2
  11. if tkol>77
  12.    tkol=77
  13. endif
  14. @ 23,tkol get zz
  15. read
  16. set color to 7/0
  17. @ 23,1 SAY SPACE(77)
  18. RETURN
  19.  
  20.