program proc _main(x: Word) var loca0: Word loca4: Word begin loca0 := 0x0a2c3061; loca4 := x; _write_out(@loca4, 4) end begin _main() end.