%SLEEP_TIME% = 200

# Pfad zu sirftech eintragen
run \Sd-mmcard\downloads\installation\navi\sirftech\sirftech.exe

%COM_PORT% = 8
%OLD_BAUD% = 9600
%NEW_BAUD% = 57600

%GGA%    = 1
%GLL%    = 0
%GSA%    = 5
%GSV%    = 5
%RMC%    = 1
%VTG%    = 0
%MSS%    = 0
%User8%  = 0
%ZDA%    = 0
%User10% = 0

# warte bis sirftech geladen ist
Sleep 2000

#starte verarbeitung
Call ChangeComm
Call CallOk
Call ChangeNMEA
#kurz warte...
Sleep 5000
Call CallOk
Call ChangeSirf
Call CallOk

Sleep 1000
Call CallOk

Exit

Sub CallOk
  Sleep %SLEEP_TIME%
  MouseClick 310, 10
  Sleep %SLEEP_TIME%
EndSub 

Sub ChangeSirf
# Menue Sirf
  MouseClick 150, 310
  Sleep %SLEEP_TIME%
# nach rechts scrollen
  Repeat 14
    MouseClick 235, 280
    Sleep %SLEEP_TIME%
  EndRepeat
# tab waehlen
  MouseClick 20, 280
  Sleep %SLEEP_TIME%

# werte setzen
  MouseClick 90, 60
  SendKeys %GGA%
  Sleep %SLEEP_TIME%
  MouseClick 90, 80
  SendKeys %GLL%
  Sleep %SLEEP_TIME%
  MouseClick 90, 100
  SendKeys %GSA%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 115
  SendKeys %GSV%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 135
  SendKeys %RMC%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 155
  SendKeys %VTG%     
  Sleep %SLEEP_TIME%
  MouseClick 90, 170
  SendKeys %MSS%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 190
  SendKeys %User8%  
  Sleep %SLEEP_TIME%
  MouseClick 90, 205
  SendKeys %ZDA%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 225
  SendKeys %User10% 
  Sleep %SLEEP_TIME%

# baudrate einstellen
  MouseClick 220, 110
  Sleep %SLEEP_TIME%
  Call SetNewBaud
  Sleep %SLEEP_TIME%
  MouseClick 220, 110
  Sleep %SLEEP_TIME%
  
# set druecken
  MouseClick 220, 170
  Sleep %SLEEP_TIME%
EndSub

Sub ChangeComm
# menue comm
  MouseClick 90, 310
  Sleep %SLEEP_TIME%
# comport einstellen
  MouseClick 50, 100
  Sleep %SLEEP_TIME%
  Call SendKeysUp
  Repeat %COM_PORT%
    SendKeys C
  EndRepeat
  Sleep %SLEEP_TIME%
  MouseClick 50, 100
  Sleep %SLEEP_TIME%

# baudrate
  MouseClick 100, 130
  Sleep %SLEEP_TIME%	
  Call SendKeysUp
  Call SetOldBaud
  Sleep %SLEEP_TIME%
  MouseClick 100, 130
  Sleep %SLEEP_TIME%

# open druecken
  MouseClick 120, 145
  Sleep %SLEEP_TIME%
EndSub

Sub ChangeNMEA
# Menubutton NMEA
  MouseClick 110, 310
  Sleep %SLEEP_TIME%

# Baudrate aendern
  MouseClick 100, 280
  Sleep %SLEEP_TIME%
  Call SetOldBaud
  MouseClick 100, 280
  Sleep %SLEEP_TIME%

# Set 
  MouseClick 230, 40
  Sleep %SLEEP_TIME%
# Switch to Sirf
  MouseClick 180, 280
  Sleep %SLEEP_TIME%
# Messag
  MouseClick 100, 190
  Sleep %SLEEP_TIME%
EndSub

Sub SendKeysUp
  Repeat 10
    SendUp
  EndRepeat
  Sleep %SLEEP_TIME%
EndSub

Sub SetNewBaud
  Call SendKeysUp
  Switch %NEW_BAUD%
    Case 1200
      SendKeys 1
    Case 2400
      SendKeys 2
    Case 4800
      SendKeys 4
    Case 9600
      SendKeys 9
    Case 19200
      SendKeys 1
      SendKeys 1
    Case 38400
      SendKeys 3
    Case 57600
      SendKeys 5
    Case 115200
      SendKeys 1
      SendKeys 1
      SendKeys 1
  EndSwitch
  Sleep %SLEEP_TIME%
EndSub

Sub SetOldBaud
  Call SendKeysUp
  Switch %Old_BAUD%
    Case 1200
      SendKeys 1
    Case 2400
      SendKeys 2
    Case 4800
      SendKeys 4
    Case 9600
      SendKeys 9
    Case 19200
      SendKeys 1
      SendKeys 1
    Case 38400
      SendKeys 3
    Case 57600
      SendKeys 5
    Case 115200
      SendKeys 1
      SendKeys 1
      SendKeys 1
  EndSwitch
  Sleep %SLEEP_TIME%
EndSub