/************************************************************************
*	untils	-closing code for repeat, checks for until		*
************************************************************************/
subroutine untils(lab)
include ratfor.def
character token(MAXTOKEN)
integer gettok

define	IFNOT	'IF(.NOT.'
define	GO	')GOTO'
call outnum(lab)			#label for next
for(i = gettok(token);i == NEWLINE;i = gettok(token))
	;
if(i == LEXUNTIL) [
	call outtab
	call outchs(IFNOT)
	call balpar
	call outchs(GO)
	call outnum(lab-1)
	call outdon
	]
else [
	call outgo(lab-1)
	call pbstr(token)
	]
call outcon(lab+1)
return
end