!	VT100FNS.B4S
	!	..note - main program must define esc$
	!		 use an assign, not a compile time constant
	!		 i.e. esc$ = chr$(27%)
	!
	def fn.clear.whole.screen$=esc$+"[2J"
	def fn.clear.rest.screen$=esc$+"[0J"
	def fn.clear.start.screen$=esc$+"[1J"
	def fn.clear.rest.line$=esc$+"[0K"
	def fn.clear.start.line$=esc$+"[1K"
	def fn.clear.whole.line$=esc$+"[2K"
	def fn.setup.scroll.region$=esc$+"[19;24r" ! Scroll 19 - 24
	def fn.clear.scroll$=esc$+"[19;1H"+esc$+"[0J"
	def fn.go.scroll$=esc$+"[19;1H"
	!
	DEF fn.print.scroll$(lin%)
		lin$=num1$(lin%)
		fn.print.scroll$=esc$+"["+lin$+";1H"+esc$+"[0J"
	FNEND
	!
	DEF fn.move.to$(lin%,char%)
		lin$=num1$(lin%) \ char$=num1$(char%)
		tmp.var$=esc$+"["+lin$+";"+char$+"H"
			fn.move.to$=tmp.var$
	FNEND
	
	DEF fn.variable.scroll$(sl%, el%)
		fn.variable.scroll$ = esc$+"["+num1$(sl%)+";"+num1$(el%)+"r"
	FNEND
	!
	DEF fn.print.title%(lin%, char%, title$)
		print fn.move.to$(lin%, char%)
		print esc$ + "#3" + title$
		print fn.move.to$((lin% + 1%), char%)
		print esc$ + "#4" + title$
	FNEND
	!
	DEF fn.is.it.a.vt100%
		CALL isvtc(tell.it.the.way.it.is%)
		fn.is.it.a.vt100% = tell.it.the.way.it.is%
	FNEND