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