%BEGIN
%STRING(30)BATTLE
%STRING(5)T
      BATTLE="HASTINGS1066"
      %UNLESS BATTLE->("10") %THEN PRINTSTRING("NEW RESLN NOT OK")
      %UNLESS BATTLE->("ST").("6").T %AND T="6"  %THEN %C
         PRINTSTRING("DOUBLE RESLN NOT OK")
%ENDOFPROGRAM