first thing, remove these lines:
code:
  Gosub main ;do stuff
  $computer = Ucase(Trim(ReadLine(3)))
 Loop
 $nul=Close(3)
EndIf

; script main
:main
[code]

and the return at the end of main.
then, before the exit put these lines back:
 [CODE]
  $computer = Ucase(Trim(ReadLine(3)))
 Loop
 $nul=Close(3)
EndIf
_________________________
!

download KiXnet