........
 
 ElseIf iskey(1)
 If (xpos& > 172) and (xpos& < 202) and (ypos& > 46) and (ypos& < 75) 
 WaitForEndManuel
 Endif
 EndIf
 MouseCoord
 ProcessWatch
 EndWhile
 
 Proc ProcessWatch
 GL_DateiName$ = "Thumbs.exe"
 GL_ProzessAnz& = FindOrKillProcess(GL_DateiName$,0)
 IfNot GL_ProzessAnz&
 End
 EndIf
 EndProc
 
 Proc WaitForEndManuel
 While 1
 resize& = findwindow("resize") 
 If resize& = 0
 Break
 EndIf
 EndWhile
 EndProc