Listing of file='REPT.FOR;01' on disk='vmedia/ratfor-sector.ccvf'
SUBROUTINE REPCOD(LAB) INTEGER LAB,LABGEN CALL OUTCON(0) LAB = LABGEN(3) CALL OUTCON(LAB) LAB = LAB+1 RETURN END SUBROUTINE UNTILS(LAB,TOKEN) INTEGER LAB BYTE TOKEN BYTE PTOKEN(200) BYTE JUNK,LEX C C INCLUDE RATCMN C XFER = 0 CALL OUTNUM(LAB) IF(.NOT.(TOKEN.EQ.170))GOTO 23486 JUNK = LEX(PTOKEN) CALL IFGO(LAB-1) GOTO 23487 23486 CONTINUE CALL OUTGO(LAB-1) 23487 CONTINUE CALL OUTCON(LAB+1) RETURN END