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