$drive=InputBox("ROBOTIC LAUFWERK","Laufwerksbuchstaben eingeben","H:")
HotKeySet("{ESC}","_exit")
RunWait("C:\Calibration.bat");Calibration der Robotic
$Var =@error
sleep(1000)
RunWait("C:\First_Load.bat");Laden der 1. Disc
$Var =@error
While True
    $status=DriveStatus($drive)
    If $status = "NOTREADY" Then _next();warten bis Tray open
    sleep(1000)
WEnd
Func _next()
    RunWait("C:\Unload.bat");entladen der gebrannten Disc
	$Var =@error
	sleep(2000)
	RunWait("C:\Load.bat");laden einer leeren Disc
	$Var =@error
    Sleep(2000)
    MouseClick("left",200,500,2);"legen Sie eine leere Disc ein" ->OK Klicken
    Do
        Sleep(1000)
    Until $status <> "NOTREADY"
EndFunc
Func _exit()
    Exit
EndFunc