Store a label in the picture referenced by the identifier. If the picture identifier is negative then the current picture is used to store the label. If a label already exists for the picture then the old one is overwritten. If this label clashes with another on the same device then the existing label will be replaced with a blank string. For comparison purposes the label string has leading blanks removed and is converted to upper case before being processed, although it is stored as supplied. An empty label string will delete any label stored for that picture.

CALL AGI_SLAB ( PICID, LABEL, STATUS )

PICID = INTEGER (Given)

LABEL = CHARACTER $\ast$ (AGI__SZLAB) (Given)

STATUS = INTEGER (Given and Returned)