externalinteger i

ownintegerarray j(5:10)

externalroutine fred

on event 9 start
  -> EOF
finish

selectinput(0)
read(i)

EOF:

end
endoffile