#!/bin/csh
onintr out

loop:
foreach i (*.im1)
	screenload $i
end
goto loop

out:
	../../fun_software/redisplay_screen
	exit 0