home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / DB3STOCK.ZIP / DLINBOXT.PRG < prev    next >
Encoding:
Text File  |  1986-04-12  |  544 b   |  15 lines
  1. * ------------------------------------------------------------------
  2. * DLINBOXT.prg - draws a double line box at the top of the screen
  3. * ------------------------------------------------------------------
  4. * define MSG as a str <55 chars before entering this routine
  5. SET COLOR TO 7/0
  6. @  1,12 SAY "╔═══════════════════════════════════════════════════════╗"
  7. @  2,12 SAY "║"
  8. @  2,68 SAY "║"
  9. @  3,12 SAY "╚═══════════════════════════════════════════════════════╝"
  10. set color to 15/0
  11. @ 2,(80-len(msg))/2 say msg
  12. set color to 7/0
  13. RETURN
  14.  
  15.