/*	test shell functions

	1. This program demonstrates a dynamic batch stream.
 */
"",v,30
"",v,30,'end'
"",v,30,'abort'


input() output()
	clear;
	shell 4 0;	/* clear */
	shell 3 "do shell";	/* set base program */
loop:
	enter 0,1;	/* get a line */
	if 0,1 = 0,2	/* if 'end' entered ... */
		stop;	/* go to it */
	endif;
	if 0,1 = 0,3	/* if 'abort' entered ... */
		shell 0 0;	/* abort shell call */
	endif

	shell 6 0,1;	/* add to list */
	goto loop;
end;