home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Mare / SHAREDM.CST / 03094_Script_3094 < prev    next >
Text File  |  1997-09-15  |  413b  |  17 lines
  1. on commenta mar
  2.   go mar
  3.   set stringa to ""
  4.   set num_script to the framescript
  5.   set pgm to the scripttext of member num_script
  6.   set pgm to pgm & return & return
  7.   repeat while pgm <>""
  8.     set linea to estrai_linea (pgm)
  9.     set pgm to elimina_linea(pgm)
  10.     set stringa to ins_frase  (stringa,"", "-- " & linea)
  11.   end repeat
  12.   set the scripttext of member num_script to stringa
  13.   
  14.   
  15.   
  16. end
  17.