Line Draw Characters

TAB(-1,23); ! enable alternate character set

TAB(-1,code); TAB(-1,code); ... ! output alternate characters

TAB(-1,24); ! disable alternate character set (back to normal mode)

As shown in syntax lines above, line draw / alternate character mode must be enabled with TCRT code 23 prior to executing the following codes and, after using these codes, disabled with TCRT code 24.

Code	Action	Code	Action
38	Top left corner	46	Horizontal line
39	Top right corner	47	Vertical line
40	Bottom left corner	48	Intersection
41	Bottom right corner	49	Solid block
42	Top intersection	50	Cross-hatch block
43	Right intersection	51	Slanted cross-hatch block
44	Left intersection	52	Double horizontal line*
45	Bottom intersection	53	Double vertical line*

* Note that double lines are only supported when using the OEM character set; the more typical ANSI character set doesn't support them.

Example

! draw a box from srow,scol to erow,ecol

? tab(-1,23); ! enable alternate character set

? tab(srow,scol); tab(-1,38); ! top left corner

? tab(srow,ecol); tab(-1,39); ! top right corner

? tab(erow,scol); tab(-1,40); ! bottom left corner

? tab(erow,ecol); tab(-1,41); ! bottom right corner

for c = scol+1 to ecol-1

? tab(srow,c);tab(-1,46); ! top line

? tab(erow,c);tab(-1,46); ! bottom line

next c

for r = srow+1 to erow-1

? tab(r,scol);tab(-1,47); ! left side

? tab(r,ecol);tab(-1,47); ! right side

next r

? tab(-1,24); ! back to normal character set