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