;enter via SUBMIT RELCO.SUB UFN   (no FN extension)
;Generate a self-relocating version of the $1 program
M80 $1=$1
L80 relocnb,/p:1fe,$1,org200/n/e:@@relo
l80 reloc.abs,/p:2fe,$1,org300/n/e 
reloc $1.com $2
era org?00.com