home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Spazio / SHAREDS.CST / 03095_Script_3095 < prev    next >
Text File  |  1997-09-15  |  160b  |  12 lines
  1.  
  2. on estrai_linea str
  3.   set off1 to offset (return,str)
  4.   if off1 >0 then
  5.     return char 1 to off1-1 of str
  6.   else
  7.     return ""
  8.   end if
  9.   
  10.   
  11. end
  12.