%BEGIN
%OWNINTEGER LABELNO=0
%CONSTINTEGER MAXLABELS=10
%OWNSTRING(15)%ARRAY LBLNAME(0:MAXLABELS)
%OWNSTRING(255)%ARRAY LBL(0:MAXLABELS)

%STRINGMAP 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)=""
 %RESULT==LBL(LABELNO)
%END



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


