%begin
%externalinteger fredfred
%routine fred(%integer opcode)
%externalintegerspec fredfred
%integer i,j,k,l
%string(11) ts
      ts="abcdef"
i=1; j=2; k=3
write(fredfred,5)
%if opcode=x'9a' %or X'e8'<=opcode<=x'e9' %or x'81'<=opcode<=x'89' %then printstring("Test ok")
newline
%end
fredfred=5
fred(x'e8')
%endofprogram