%BEGIN
%RECORDFORMAT RESF(%INTEGER W %OR %HALF H0,H1)
%RECORDFORMAT USEF(%HALF TRIAD,BLOCK,%RECORD(RESF)RV,%BYTE USES,
      %BYTEARRAY SIGN(1:3),%HALF TEMP,FILL,(%INTEGERARRAY LITINC(1:3) %OR %C
      %RECORD(RESF)%ARRAY INC(1:3)))
%RECORD (USEF)USE
%INTEGER I

      USE_TRIAD=1
      USE_BLOCK=2
      USE_RV_W=-1
      USE_USES=3
      USE_SIGN(1)='+'
      USE_SIGN(2)='-'
      USE_SIGN(3)='\'
      USE_TEMP=10
      USE_FILL=11
      USE_LITINC(I)=16+I %FOR I=1,1,3
      %IF USE_TRIAD=1 %AND USE_BLOCK=2 %AND USE_RV_W=-1 %AND %C
      USE_USES=3 %AND USE_SIGN(1)='+' %AND USE_SIGN(3)='\' %AND %C
      USE_TEMP=10 %AND USE_FILL=11 %AND USE_LITINC(1)=17 %C
      %THEN PRINTSTRING("TEST OK") %AND %STOP
      %MONITOR
%ENDOFPROGRAM
