/************************************************************************
*	whilec	-generate code for beginning of a while			*
************************************************************************/
subroutine whilec(lab)
integer labgen,lab
 
call outcon(0)			#unlabeled continue
lab=labgen(2)
call outnum(lab)
call outtab
call outchs('IF(.NOT.')
call balpar
call outchs(')GOTO ')
call outnum(lab+1)
call outdon
return
end