home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00075_Script_75 < prev    next >
Text File  |  1997-10-15  |  431b  |  14 lines
  1. ON COLORA_LEMMARIO
  2.   global colore
  3. --  set colore to 35
  4.   set campo to "lemmario colorato"
  5.   set xmax to the number of lines in field campo
  6.   repeat with x=1 to xmax
  7.     if offset ("*",line x of field campo) then
  8.       delete char (length ( line x of field campo))-1 to  (length ( line x of field campo)) of line x of field campo
  9.       set the forecolor of line x of field campo to colore
  10.     end if
  11.   end repeat
  12. end
  13.  
  14.