home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00075_Script_75 < prev    next >
Text File  |  1997-10-14  |  304b  |  14 lines
  1. on musiche_mare
  2.   global qualemusica,suonas
  3.   
  4.   case qualemusica of 
  5.     "classica":set suonas to "vivaldi"
  6.     "jazz":set suonas to "JAZZ_4"
  7.     "blues":set suonas to "BLUES_3"  
  8.     "musicatosta":set suonas to "HARD_1"
  9.     "selection":set suonas to "JAZZ_4"
  10.   end case
  11.   put suonas
  12. end 
  13.  
  14.