integerfnspec jim(integer a,b)
externalroutine fred alias "s#go"
integer x
printstring("fred
")
x=jim(4,5)
write(x,5); newline

end
integerfn jim(integer a,b)

if a<b then result=1 else result=0
end
endoffile