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

Text File | 1986-04-12 | 417 b | 13 lines

* -----------------------------------------------------------
* SMALLBOX.prg - a routine that draws a smaller box on screen
* -----------------------------------------------------------
@ 4,12 SAY "┌───────────────────────────────────────────────────────┐"
L=5
DO WHILE L<21
   @ L,12 SAY "│"
   @ L,68 SAY "│"
   L=L+1
ENDDO
@21,12 SAY "└───────────────────────────────────────────────────────┘"
RETURN