GOTO, weiter

filreg = '../FITS/Prom_09jul00_08[345]* ../FITS/Prom_09jul00_09*'
f = findfile(filreg)
tim = 3600l*strmid(f, 21, 2)+60l*strmid(f, 23, 2)+strmid(f, 25, 2)
tim0 = tim(0)
tim = tim-tim0
ret = string(10b)   ;;; The RETURN Key

n = n_elements(f)
sh = intarr(2, n)
ss = intarr(2, n)
rdfits, p, f(0)
ss(*, 0) = (size(p))(1:2)
FOR i=1, n-1 DO BEGIN
    rdfits, p1, f(i)
    ss(*, i) = (size(p1))(1:2)
ENDFOR

sx = max(ss(0, *))
sy = max(ss(1, *))

mov = intarr(sx, sy, n)
FOR i=0, n-1 DO BEGIN
    rdfits, p, f(i), /swap
    mov(0:sx-1, 0:sy-1, i) = p(*, *, 0)
ENDFOR


Weiter:

tvscl, mov(*, *, 0)
FOR i=1, n-1 DO BEGIN
    tmp = mov(*, *, i)
    IF i EQ 1 THEN $
      t1=mov(*, *, 0) $
    ELSE $
      t1 = total(mov(*, *, ((i-5) > 0):i-1), 3)
    tvscl, tmp
    dx = 0
    dy = 0
    REPEAT BEGIN
        Read_Key:        
        aa = get_kbrd(1)
        CASE aa OF
            'k': dy = dy+1
            'l': dy = dy-1
            ',': dx = dx-1
            '.': dx = dx+1
            ' ': blink, t1, tmp
            '0': BEGIN & dx=0 & dy=0 & END
            ret: GOTO, Endloop
            Else: GOTO, Read_Key
        ENDCASE
        tmp = shift(mov(*, *, i), dx, dy)
        tvscl, tmp
    ENDREP UNTIL 0
Endloop:
    mov(*, *, i) = tmp
ENDFOR

mov = mov(9:303, 0:218, *)
mm1 = scale_array(mov(0:287,0:207,*))

tt = tim+tim0

hr = tt/3600
mn = (tt MOD 3600)/60
sc = tt MOD 60
tt = nnumber(hr, 2)+":"+nnumber(mn, 2)+":"+nnumber(sc, 2)

show, mm1(*, *, 0), /cent

FOR i=0, num-1 DO BEGIN
    tv, mm1(*, *, i)
    clock, tt(i), /dev, siz=50, pos=[235, 5]
    mm1(*, *, i) = tvrd()
ENDFOR

write_mpeg, 'Prominence.mpg', mm1

END