/*	demo escape sequence to printer

	file CONTROL.DAT contains 2 fields, created under SID (you could
	use DDT).  

	1,1	escape-6, which is 10 char/inch sequence for the TI printer
	1,2	escape-7, which is the 16.5 char/inch sequence


 */

input (control, control)
output ()

	a = 1;		/* loop control */
	s = 1;		/* which escape sequence: 1 or 2 */
loop:
	if a > 20 stop; endif
	a = a + 1;
	print 1,s 'This is another line of text';
	if s = 1
		s = 2;
	else
		s = 1;
	endif
	goto loop;
end