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

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

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