unix/boot/spp/rpp/rpprat/ogotos.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20


include  defs

# OGOTOS - Output "goto	n", unconditionally.


subroutine ogotos (n, error_check)

integer n, error_check
include COMMON_BLOCKS
string sgoto "goto "

	call outtab
	call outstr (sgoto)
	call outnum (n)
	if (error_check == YES)
	    call outdwe
	else
	    call outdon
end