home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
TJDMACS.ZIP
/
BOX.CMD
next >
Wrap
OS/2 REXX Batch file
|
1991-07-12
|
827b
|
36 lines
/**/
parse arg row, col, width, depth, type, .
return Dobox(row, col, width, depth, type);
Dobox: PROCEDURE
parse arg row, col, width, depth, type
esc = d2c(27) || '[';
hor = copies('─', width - 2)
vert = '│';
stream = esc || 's'; /* Save cursor position */
/* Position the cursor */
stream = stream || Goto(row, col);
stream = stream || '┌' || hor || '┐';
do depth
row = row + 1;
stream = stream || Goto(row, col);
stream = stream || vert;
stream = stream || Goto(row, col + width - 1);
stream = stream || vert;
end;
row = row + 1;
stream = stream || Goto(row, col);
stream = stream || '└' || hor || '┘';
stream = stream || esc || 'u'; /* Restore cursor position */
return stream