Compucolor.org – Virtual Media

Listing of file='WHILE.FOR;01' on disk='vmedia/ratfor-sector.ccvf'

	SUBROUTINE WHILEC(LAB)
	INTEGER LAB,LABGEN
	CALL OUTCON(0)
	LAB = LABGEN(2)
	CALL OUTNUM(LAB)
	CALL IFGO(LAB+1)
	RETURN
	END

	SUBROUTINE WHILES(LAB)
	INTEGER LAB
	CALL OUTGO(LAB)
	CALL OUTCON(LAB+1)
	RETURN
	END