Important Notice
The pages on this site contain documentation for very old MS-DOS software,
purely for historical purposes.
If you're looking for up-to-date documentation, particularly for programming,
you should not rely on the information found here, as it will be woefully
out of date.
ASSIGN (Label Assignment)
◄Up► ◄Contents► ◄Index► ◄Back►
─────ASSIGN (Label Assignment)──────────────────────────────────────────────
Action
Assigns the value of a format or statement label to an integer
variable.
Syntax
ASSIGN label TO variable
Parameter Description
label A format label or statement label, which must
appear in the same program unit.
variable An integer variable.
Remarks
If you use INTEGER*1 variables for <variable>, note that INTEGER*1
variables can only be used for the first 128 ASSIGN statements in a
subprogram.
Example
C Assign statement label 100 to the integer variable ivar
ASSIGN 100 TO ivar
C Use ivar as a FORMAT statement label
WRITE (*, ivar)
C Assign statement label 200 to ivar
ASSIGN 200 TO ivar
C Use ivar as the target label of an assigned GOTO statement
GOTO ivar
WRITE (*, *)' This is never written'
200 CONTINUE
WRITE (*, *)' This is written'
100 FORMAT (' This is format 100')
END
-♦-