-- card: 8430 from stack: in.1
-- bmap block id: 0
-- flags: 0000
-- background id: 3468
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=331 top=317 right=340 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field about
end mouseUp



-- part 2 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=193 top=166 right=266 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: about
----- HyperTalk script -----
on mouseUp
  hide card field about
end mouseUp



-- part contents for background part 2
----- text -----
Putfile

-- part contents for background part 4
----- text -----
Putfile(<prompt>,<filename>)


-- part contents for background part 9
----- text -----
XFCN

-- part contents for background part 1
----- text -----
Putfile (<prompt>,<filename>)

<prompt> - this is wording in the dialog box to prompt the user to type in a filename
        (e.g., "Save file as:")
<filename> - this is the name of the text file created or replaced, and is placed into a 
        field in the dialog box as a default file name.  

This XFCN creates a text file in which to write (save) text from fields in cards and backgrounds. The XFCN returns a dialog box for the user to choose a name for the destination text file. The value returned by the XFCN is the name of the file choosen by the user.
--------
ex.  Saving the contents of a card to a text file

on mouseUp
  put the short name of this card & .txt. into tfilename
  Get PutFile("Save text as:", tfilename)
  if it is empty then exit mouseUp
  put it into textfile
  open file textfile
  write field header to file textfile
  write return to file textfile
  write field mainbody to file textfile
  close file textfile
end mouseUp


-- part contents for background part 8
----- text -----
Frank Patrick

-- part contents for card part 2
----- text -----

Courtesy of XrefText5, XrefMerge shareware ($7.50).

Frank Patrick
721 East Brookside Lane
Somerville, NJ 08876