home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00064_Script_64 < prev    next >
Text File  |  1997-10-15  |  407b  |  22 lines
  1. on c_tipo codice
  2.   set tipologia to char 2 of codice
  3.   case tipologia of
  4.     "m":
  5.       set stip to char 3 of codice
  6.       case stip of
  7.         "i":
  8.           return "invenzione"
  9.         "p":
  10.           return "inventore"
  11.         "s":
  12.           return "sottoinv"
  13.       end case
  14.     "d":
  15.       return "def"
  16.     "f": 
  17.       return "principio"
  18.   end case
  19.   return "Nessuna tipologia"
  20. end 
  21.  
  22.