home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd1 / mx_G0092.dxr / 00002_Arpegio.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  218 b   |  17 lines
  1. global gCommand
  2.  
  3. on mouseDown
  4.   set gCommand to "Arp"
  5.   set the visible of sprite 11 to 1
  6.   updateStage()
  7. end
  8.  
  9. on mouseUp
  10.   butt_off()
  11.   if gCommand = "Arp" then
  12.     butt_off()
  13.     go("De")
  14.     arpeggio()
  15.   end if
  16. end
  17.