
%BEGIN
%integer fail
%STRING(30)BATTLE
%STRING(5)T,X
      fail=0
      BATTLE="HASTINGS1066"
      %UNLESS BATTLE->("10") %THEN Fail=1 %and  PRINTSTRING("NEW RESLN NOT OK")
      %UNLESS BATTLE->X.("ST").("6").T %AND T="6" %AND X="HA" %THEN %C
         Fail=1 %and PRINTSTRING("DOUBLE RESLN NOT OK")
      %if Fail=0 %then printstring("TEST OK")
%ENDOFPROGRAM
