BEGIN
OWNINTEGER LABELNO=0
CONSTINTEGER MAXLABELS=10
RECORDFORMAT F(BYTE B,STRING(255)LAB)
OWNSTRING(15)ARRAY LBLNAME(0:MAXLABELS)
OWNRECORD(F)ARRAY LBL(0:MAXLABELS)

RECORD(F)MAP LABEL(STRING(15) L)
INTEGER I
 IF LABELNO>0 THENSTART
  FOR I=1,1,LABELNO CYCLE
   RESULT==LBL(I) IF LBLNAME(I)=L
  REPEAT
 FINISH
!  INSERT NEW LABEL-NAME.
 LABELNO=LABELNO+1
 IF LABELNO>MAXLABELS THENSTART
  PRINT STRING(L." MAKES TOO MANY LABELS."); NEWLINE
  FOR I=1,1,MAXLABELS CYCLE
   PRINT STRING(LBLNAME(I))
   NEWLINE
  REPEAT
  MONITOR
  STOP
 FINISH    ; !  DEALING WITH TOO MANY LABELS.
 LBLNAME(LABELNO)=L
 LBL(LABELNO)_LAB=""
 RESULT==LBL(LABELNO)
END



  LABEL("T")_LAB="TESTING USE OF LABEL"
  PRINT STRING(LABEL("T")_LAB); NEWLINE
  LABEL("T")_LAB="THIS SHOULD MODIFY ".LABEL("T")_LAB." AS I TRIED TO DO YESTERDAY"
  PRINT STRING(LABEL("T")_LAB); NEWLINE
ENDOFPROGRAM