Games Central GT Digital… Q3 Premier Trimestre '98/GT_DPK.ISO/pc/data/menu.dxr/00134.ls

Text File | 1995-08-25 | 593 b | 20 lines

on xtracopypress
  global name_presstxt, presstxtPath
  set name_presstxt to the name of member the member of sprite 2
  put name_presstxt
  if the platform contains "Mac" then
    maccopypress()
  else
    openXLib("Xtras\filecopy")
    set fileName to the pathName & presstxtPath & name_presstxt
    if fileName > EMPTY then
      set wFileName to doSaveAsDlg(the pathName & presstxtPath & name_presstxt, "Word@*.rtf")
      if wFileName > EMPTY then
        set result to CopyFile(wFileName, fileName)
        put result
      end if
    end if
    closeXLib("Xtras\filecopy")
  end if
end