// THIS ROUTINE TESTS THE PH CTRL

irepeat = 0

while (irepeat < 5)
{
   DELAY 10
   MOVE_PH  45, 0 //AZ, ZE IN DEGREES
   DELAY 10
   MOVE_PH  35, 20 //AZ, ZE IN DEGREES
   DELAY 10
   MOVE_PH  45, -20 //AZ, ZE IN DEGREES
   DELAY 10
   MOVE_PH  35, 20 //AZ, ZE IN DEGREES
   DELAY 10
   MOVE_PH  45, -20 //AZ, ZE IN DEGREES
   DELAY 10
//
   MOVE_PH  25, 0 //AZ, ZE IN DEGREES
   DELAY 10
   MOVE_PH  45, 0 //AZ, ZE IN DEGREES
   DELAY 10
   MOVE_PH  -25, 0 //AZ, ZE IN DEGREES
   DELAY 10
   MOVE_PH  45, 0 //AZ, ZE IN DEGREES
   DELAY 10
   MOVE_PH  -45, 0 //AZ, ZE IN DEGREES
   DELAY 10
irepeat = irepeat + 1
}