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