#! /bin/csh -f
#
#	rotate the crystal around for blasting off ice
#
#
pause.com

park.com

while ( 1 )
    foreach tic ( 1 2 3 4 )
	phi.com by 90
        set door = `door.com | awk '{print $4}'`
        if("$door" == "open") set door_opened
        if($?door_opened && "$door" == "closed") exit
    end
    foreach tic ( 1 2 3 4 )
	phi.com by -90
        set door = `door.com | awk '{print $4}'`
        if("$door" == "open") set door_opened
        if($?door_opened && "$door" == "closed") exit
    end
end