// ##### Laser Focus Homing ########

main()
{

  gvarset(8492, 2000); //250mm/min speed (Focus)
  gvarset(8493, 1);   //0.001 Jog acceleration time (Focus)
  gvarset(8495, 1);   //0.001 G0 acceleration time (Focus)

  gvarset(8502,999999); //reset soft limits

  gvarset(8494, 1000); //300mm/min Jog speed (Focus)
  gvarset(8498, 1);   //Jog cmd (Focus) Positive
  do   {   a=gvarget(8499);  }while(a!=0); //wait stop
  gvarset(8503,0); //set Max Soft LImit
  timer=200;do{timer--;}while(timer>0); //PAUSE to show the LED

  //timer=1000;do{timer--;}while(timer>0);

  gvarset(8498, 0-1);   //Jog cmd (Focus) Negative
  do   {   a=gvarget(8499);  }while(a!=0); //wait stop
  gvarset(8504,0); //Set Min Soft Limit
  timer=200;do{timer--;}while(timer>0); //PAUSE to show the LED

  gvarset(8502,0-11000); //Set Coordinate
  //gvarset(8502,0-10000); //Set Coordinate

  //gvarset(8498, 1);   //Jog cmd (Focus)
  //timer=510;do{timer--;}while(timer>0);
 // gvarset(8498, 0);   //Jog cmd (Focus) Negative
  //do   {   a=gvarget(8499);  }while(a!=0); //wait stop



  g0moveA(0x1,0x100,0);
  do{ a=gvarget(8499);}while(a!=0);





  exit(99);

};