home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / mrmidi / clear.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  935 b   |  30 lines
  1. /* Clear.rexx */
  2.  
  3. options results; address MrMIDI
  4.  
  5. MUIA_List_Entries    = 0x80421654;    MUIA_List_Quiet        = 0x8042d8c7
  6. MUIA_Window_Sleep    = 0x8042e7db;    MUIM_List_Clear        = 0x8042ad89
  7. MUIV_List_Remove_Active    = -1
  8.  
  9. window ID WIND1 ATTRS MUIA_Window_Sleep 1
  10. window ID WIND2 ATTRS MUIA_Window_Sleep 1
  11. call Stop()
  12. /* list ID SLIST ATTRS MUIA_List_Entries; entries = result
  13. list ID SLIST ATTRS MUIA_List_Quiet 1
  14. do i = 0 to entries - 1
  15.   list ID SLIST REMOVE POS MUIV_List_Remove_Active
  16. end
  17. list ID SLIST ATTRS MUIA_List_Quiet 0 */
  18. method ID SLIST MUIM_List_Clear
  19. string ID FNAME CONTENT "No song is loaded."
  20. text ID LCD LABEL "MrMPEG is also available from Aminet."
  21. text ID ACTIV LABEL "\033b\033r  0"
  22. setvar max 0
  23. text ID MAX LABEL "\033b\033r  0"
  24. setvar total_time '00:00:00'
  25. text ID CURNT LABEL "\033b\033r00:00"
  26. text ID TOTAL LABEL "\033b\033r00:00:00"
  27. window ID WIND2 ATTRS MUIA_Window_Sleep 0
  28. window ID WIND1 ATTRS MUIA_Window_Sleep 0
  29. return
  30.