tell application "Netscape Navigatorª 2.01" if (list windows) is {} then copy "" to nowURL else try get URL of the window 1 copy the result to nowURL copy nowURL to orgURL get name of the window 1 copy the result to nowName on error copy "" to nowURL end try end if end tell if nowURL is "" or nowURL does not contain "://" then beep else if nowURL starts with "ftp://" then if nowURL ends with "/" then copy "DIR " & nowURL to nowURL else copy "GET " & nowURL to nowURL end if copy "AURL" to nowType copy "Arch" to nowCreator else copy "URL " to nowType copy "MOSS" to nowCreator end if --WRITE DATA new file with prompt "Bookmark File:" default name nowName copy the result to nowFile copy (open for access nowFile with write permission) to fref write nowURL to fref close access fref --CHANGE FILEINFO tell application "Finder" set file type of nowFile to nowType set creator type of nowFile to nowCreator set comment of nowFile to orgURL --UPDATE?? update nowFile end tell end if