home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03098_Script_3098 < prev    next >
Text File  |  1997-10-14  |  401b  |  23 lines
  1. on scommenta stringa
  2.   
  3.   set pgm to stringa & return
  4.   
  5.   set stringa to ""
  6.   
  7.   repeat while pgm <>""
  8.     set linea to estrai_linea (pgm)
  9.     set pgm to elimina_linea(pgm)
  10.     set off1 to offset("--",linea)
  11.     if off1>0 then
  12.       delete char 1 to off1+1 of linea
  13.     end if
  14.     
  15.     set stringa to ins_frase  (stringa,"", linea)
  16.   end repeat
  17.   return stringa
  18.   
  19.   
  20.   
  21.   
  22. end
  23.