Easy. IF EHP‹=0 THEN ITEM=ITEM+1 ENDIF