/* MandelZoom Another sample ARexx script for MiniMand 1.0 */

rmin.1 = -2
imin.1 = -2
rmax.1 = 2
imax.1 = 2
rmin.2 = -1.2536646
imin.2 = 0.0409576
rmax.2 = -1.2517281
imax.2 = 0.0423160

DO a = 0 TO 99
    rl = rmin.1 + (rmin.2 - rmin.1) * a / 100
    rh = rmax.1 + (rmax.2 - rmax.1) * a / 100
    il = imin.1 + (imin.2 - imin.1) * a / 100
    ih = imax.1 + (imax.2 - imax.1) * a / 100
    ADDRESS COMMAND 'MiniMand SCRY 63 SCRX 63 PLANES 5 ITER 64 REMIN 'rl' REMAX 'rh' IMIN 'il' IMAX 'ih' SAVE RAM:Zoom.'1000+a' BATCH'
END