%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