pro rustext, x, charsize = charsize, interval = interval

if n_elements(charsize) le 0 then charsize = !p.charsize
if n_elements(interval) le 0 then interval = 1


;device, get_scr = scr

;window,/fre, xs = scr(0)*0.9, ys = scr(1)*0.9
;erase, !d.table_size-1

interv = ''

for j0,interval-1 do interv = interv +'!C'

y = ''

for j=0,n_elements(x)-1 do y = y + interv + cyr(x(j))

col = 0

xyouts, 0.01, 0.95, /nor, y, chars = charsize; col = col

end