%externalinteger i

%ownintegerarray j(5:10)

%externalroutine fred

%on %event 9 %start
  -> EOF
%finish

selectinput(0)
read(i)

EOF:

%end
%endoffile