home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / DB3STOCK.ZIP / LINEBOXM.PRG < prev    next >
Encoding:
Text File  |  1986-04-12  |  527 b   |  13 lines
  1. * ------------------------------------------------------------------
  2. * LINEBOXM.prg - draws a single line box in the middle of the screen
  3. * ------------------------------------------------------------------
  4. * define MSG as a str <55 chars before entering this routine
  5. @ 11,12 SAY "┌───────────────────────────────────────────────────────┐"
  6. @ 12,12 SAY "│"
  7. @ 12,68 SAY "│"
  8. @ 13,12 SAY "└───────────────────────────────────────────────────────┘"
  9. set color to 15/0
  10. @12,(80-len(msg))/2 say msg
  11. set color to 7/0
  12. RETURN
  13.