regcode (from s:imp3.reg) :
//= $k ?>