Programmer 7500/MAX_PROGRAMMERS.iso/CLIPPER/DATABASE/DB3STOCK.ZIP/SLINBOXB.PRG

Text File | 1986-04-12 | 545 b | 14 lines

* ------------------------------------------------------------------
* SLINBOXB.prg - draws a single line box at the bottom of the screen
* ------------------------------------------------------------------
* define MSG as a str <55 chars before entering this routine
SET COLOR TO 7/0
@ 22,12 SAY "┌───────────────────────────────────────────────────────┐"
@ 23,12 SAY "│"
@ 23,68 SAY "│"
@ 24,12 SAY "└───────────────────────────────────────────────────────┘"
set color to 15/0
@23,(80-len(msg))/2 say msg
set color to 7/0
RETURN