Listing of file='LABEL.FOR;01' on disk='vmedia/ratfor-sector.ccvf'
SUBROUTINE LABELC(LEXSTR)
INTEGER LENGTH
BYTE LEXSTR(1)
C
C INCLUDE RATCMN
C
XFER = 0
IF(.NOT.(LENGTH(LEXSTR).EQ.5)) GOTO 23253
IF(.NOT.(LEXSTR(1).GE.'5'.AND.LEXSTR(1).LE.'9')) GOTO 23255
CALL SYNERR('21-WARNING: POSSIBLE LABEL CONFLICT.',9)
23255 CONTINUE
23253 CONTINUE
CALL OUTSTR(LEXSTR)
CALL OUTTAB
RETURN
END
INTEGER FUNCTION LABGEN(N)
INTEGER LABEL,N
DATA LABEL/50000/
LABGEN = LABEL
LABEL = LABEL+N
RETURN
END