main module realisint
    use TEXTIO
    declare
	Joe  is 16 bit integer
	B : static joe
	C : cardinal
    enddeclare

    C := addressof (B)

    out_record  (TTY)
    out_integer (TTY, integer (C))
    out_record  (TTY)
endmodule