Compucolor.org – Virtual Media

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

	SUBROUTINE IFCODE(LAB)
	INTEGER LAB,LABGEN
C
C	INCLUDE RATCMN
C
	XFER = 0
	LAB = LABGEN(2)
	CALL IFGO(LAB)
	RETURN
	END

	SUBROUTINE IFGO(LAB)
	INTEGER LAB
	BYTE IFNOT(9)
	DATA IFNOT/'I','F','(','.','N','O','T','.',-2/
C
	CALL OUTTAB
	CALL OUTSTR(IFNOT)
	CALL BALPAR
	CALL OUTCH(')')
	CALL OUTGO(LAB)
	RETURN
	END

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