home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00930_Script_LeggeTXT < prev    next >
Text File  |  1987-04-12  |  738b  |  23 lines
  1. on LeggiTesto
  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, "read", Nome) into Nome
  6.   put "" into NuCa
  7.   Repeat while Nuca <> "ÑÑÑ"
  8.     put Nome(mReadLine) into NuCa
  9.     if NuCa = "ÑÑÑ" & RETURN then exit repeat
  10.     put "" into testo
  11.     put "" into prgrf
  12.     repeat while prgrf <> "ÑÑ"
  13.       put Nome(mReadLine) into prgrf
  14.       if prgrf = "ÑÑ" & RETURN then exit repeat
  15.       set testo = testo & prgrf
  16.     end repeat
  17.     put chars(NuCa, 2, length(NuCa)) into NuCa
  18.     put chars(testo, 1, length(testo)-1) into testo
  19.     set the text of cast (value(NuCa)) = testo
  20.   end repeat
  21.   beep 3
  22.   Nome(mDispose)
  23. end