%begin
  %integer global

%include "test.inc"  { line numbering not handled well by this compiler }

  %routine fred
    %integer local
    %integer %array array(5:global)

    local = 16_dead; array(6) = 0
    global = 16_beef + array(6)
    %if local<<16!global = 16_deadbeef %then %monitor
  %end

  %integer int
  %string(16_ab) jim

  int = 4
  jim = "hello
world ""haha!"""
  int = (int * int + int - 4) // 22
  global = 8
  %for int = 1, 3, global %cycle
    fred
  %repeat
  %if int = global %then %monitor
  %if int >= global %then %monitor
  %if int > global %then %monitor
  %if int <= global %then %monitor
  %if int < global %then %monitor
  %if int # global %then %monitor
%endofprogram