home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00929_Script_ScriveTXT < prev    next >
Text File  |  1987-04-12  |  613b  |  20 lines
  1. on ScriviTesto
  2.   put the pathName & "Testi:" & the movieName into Nome
  3.   put chars(Nome, 1, (length(Nome)-4)) into Nome
  4.   put Nome & ".txt" into Nome
  5.   put FileIO (mNew, "write", Nome) into Nome
  6.   repeat with c = 1 to 980
  7.     if the castType of cast c = #text then
  8.       put "ò" & string(c) & RETURN into NuCa
  9.       Nome(mWriteString,string(NuCa))
  10.       put the text of cast c into testo
  11.       set testo = testo & RETURN & "òò" & RETURN
  12.       Nome(mWriteString,string(testo))
  13.     end if
  14.   end repeat
  15.   set testo = "òòò" & RETURN
  16.   Nome(mWriteString,string(testo))
  17.   beep 3
  18.   Nome(mDispose)
  19. end
  20.