home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1998 #5
/
AmigaPlus_CD-ROM_Nr.5-98.iso
/
pd
/
musik
/
mrmpeg
/
clear.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-03-06
|
1KB
|
31 lines
/* Clear.rexx */
options results; address MrMPEG
MUIA_List_Entries = 0x80421654; MUIA_List_Quiet = 0x8042d8c7
MUIA_Slider_Max = 0x8042d78a; MUIA_Window_Sleep = 0x8042e7db
MUIM_List_Clear = 0x8042ad89; MUIV_List_Remove_Active = -1
window ID WIND1 ATTRS MUIA_Window_Sleep 1
window ID WIND2 ATTRS MUIA_Window_Sleep 1
call Stop()
/* list ID SLIST ATTRS MUIA_List_Entries; entries = result
list ID SLIST ATTRS MUIA_List_Quiet 1
do i = 0 to entries - 1
list ID SLIST REMOVE POS MUIV_List_Remove_Active
end
list ID SLIST ATTRS MUIA_List_Quiet 0 */
method ID SLIST MUIM_List_Clear
string ID FNAME CONTENT "No song is loaded."
text ID LCD LABEL "MrMIDI is also available from Aminet."
text ID ACTIV LABEL "\033b\033r 0"
setvar max 0
text ID MAX LABEL "\033b\033r 0"
setvar total_time '00:00:00'
text ID CURNT LABEL "\033b\033r00:00"
text ID TOTAL LABEL "\033b\033r00:00:00"
slider ID PROG ATTRS MUIA_Slider_Max 0
window ID WIND2 ATTRS MUIA_Window_Sleep 0
window ID WIND1 ATTRS MUIA_Window_Sleep 0
return