	test set 1
		expression analysis
		set command
		comment command
		replace command
		delete command
		page command
		substitutions
		dump_command
		error command
		default command
		remove command

	test 2 
	list command
	reset command
	substitutions
123	4567	891	defg
'aa	11111		
defg			
		123	
123	4567	891	defg

	test 3
	macro facility

	line 1
		line 2 .TRUE.
			line 3
	line 1
		line 2 addendum
			line 3

	test 4
	if simple and complex
	evaluation of simple expressions
	this line should print out-simple if ok
	else test ok
	elseif test ok
	second if-elseif test ok
	level-1 nested if-ok
		level-2 nested if-ok
	back to level 1
	passed substitution in if test
	if with numeric compare passed ok
	passed logical compare
	passed string compare
	complex set ok


	set up do loop tests
	x(-1)=y(-1+5)
		z(-1,1)=-1+1
		z(-1,0)=-1+0
		z(-1,-1)=-1+-1
	x(0)=y(0+5)
		z(0,1)=0+1
		z(0,0)=0+0
		z(0,-1)=0+-1
	x(1)=y(1+5)
		z(1,1)=1+1
		z(1,0)=1+0
		z(1,-1)=1+-1
	x(-5)=-5
	x(-2)=-2
	x(1)=1
	x(4)=4
	-2
	-1
	0
	1
	2

	include one of the macro programs include files here for a test
	integer*4 max_line_length,max_argument
	parameter (max_line_length=132)	! max i/o line length
	parameter (max_argument=10)	! max macro arguments

	character*1 quote_char/''''/,directive_char/'*'/
	character*1 sub_char/'$'/,esc_char/''/
	common/character_constants/quote_char,directive_char,sub_char,
	1	esc_char
	integer*4 next_label(0:9)/10000,1000,100,10,1,50000,5000,500,50,5/
	common/integer_constants/next_label

	integer*4 res_error,res_integer,res_logical,res_string
	parameter (res_error=0,res_integer=1,res_logical=2)
	parameter (res_string=3)

	option command
	label_command
	error command
message useing alternate quote char
message useing default quote char
message useing alternate directive character
	useing alternate sustitution char->abc-def<-
	this comment should not appear in the list file
	subs disabled ->test_sub
	subs enabled  ->abc-def
	j=1
		l=-1
		l=-2
	j=2
		l=-1
		l=-2
	test of automatic unique label_generation and starting value set
10000
10001
1000
100
10
1
50000
5000
500
50
5
10002
10003
1001
101
11
2
50001
5001
501
51
6
1
2
3
4
10
11
12
13
15
16
15
16
15
16
15
16
15
16
15
16
15
16
15
16
15
16
	test of escape char and option to change
`
label:
\
label:

	test of def and type functions

	test of detabbing functions and coresponding options
	Line	handled	with	no	detabbing,	Tabbed	between	words
        Line    handled with            detabbing,      Tabbed  between words
	Line	handled	with	no	detabbing,	Tabbed	between	words
tabed line should line up as shown
    v    v    v    v    v    v    v    v    v    v    v    v    v    v    v    v
    ^    ^    ^    ^    ^    ^    ^    ^    ^    ^    ^    ^    ^    ^    ^    ^
FORTRAN tab convention test
	First	line	with	no	detab
	1 second	line 	with	no	detab
      First   line with detab
     1 second line with detab
test the tab reset option-tabed line show line up as shown
        v       v       v       v       v       v       v       v
        ^       ^       ^       ^       ^       ^       ^       ^

        test of file output directives
        open(append code as open and append use mostof same code)
        append
        close
        redirect
code appended to channel 2
code appended to channel 0
