---

4glworks reference: Text Editor

---

function ted_checkop(r)
    define r smallint

function ted_clear()

function ted_dbedit(m)
    define a smallint			#number of lines to pass to the editor

function ted_features(a, i)
    define a,			#use autowrap?
	   i	smallint	#use file IO/external editor?

function ted_fileread(f, m, s, z)
    define f	char(70),		#path to file
	   m,				#maximum amount of lines in the buffer
	   s,				#start line
	   z	smallint		#initial buffer count

• if f is null, the routine will open a window on which a file name can be provided
• ted_fileread will insert the contents of file f at line s, preserving subsequent lines, until the overall contents of the buffer reach m
• to initialize the buffer with the contents of a file, set s to 1 and z to 0
• If you exceed the size of the editor buffer, the text will be truncated

function ted_filewrite(f, m)
    define f	char(70),		#path to the file
	   m	smallint		#amount of lines to write

function ted_fromtext(t)
    define t	text

function ted_fromuni()

function ted_input(dir, enb)
    define dir,			#-1 if cursor to be positioned on last line
	   enb	smallint	#true if part of an INPUT statemet

• 1, if the input should continue with the next field
• -1, if the input should continue with the previous field
• 0, if the user has pressed the ACCEPT or INTERRUPT field

function ted_show()

function ted_start(s, t, e, n)
    define s,			# screen lines
	   t,			# max text lines
	   e,			# no blank lines?
	   n	smallint	# text needed?

function ted_totext(t)
    define t	text

function ted_touni()