main module TESTEF

use	TEXTIO
use	VMSRUN

declare
    ef,status: integer
enddeclare

while true do

    status := lib'$get_ef (ef)

    out_integer (tty, ef, "EF=", true)

endwhile

endmodule