pro set_offset, entry, xc, yc, center=center, out=out
;+
;NAME:
;	set_offset
;PURPOSE:
;	To display the tcblock command to set the offset corner
;	for extract
;SAMPLE CALLING SEQUENCE:
;	set_offset, 9, 300, 700
;	set_offset, 15, center=300
;HISTORY:
;	Written 22-Mar-96 by M.Morrison
;-
;
addr = '4098'x + entry * 4
if (keyword_set(center)) then begin
    xc = (490 - center/2) > 0
    yc = (310 - center/2) > 0
end
;
offset = yc * 1024L  + xc
low = offset mod 2L^16
high = offset / (2L^16)
;
fmt = '("tcblock mbdpml ", 4(" 0x", Z4.4))'
out = string('1000'x, addr, low, high, format=fmt)
print, out
;
end