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