home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / mrmidi / getinfo.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  1.2 KB  |  31 lines
  1. /* GetInfo.rexx */
  2.  
  3. options results; address MrMIDI
  4.  
  5. MUIA_List_Active    = 0x8042391c;    MUIA_List_Entries    = 0x80421654
  6. MUIA_Slider_Level    = 0x8042ae3a;    MUIA_Slider_Max        = 0x8042d78a
  7.  
  8. list ID SLIST ATTRS MUIA_List_Active; temp_active = result
  9. list ID SLIST POS temp_active
  10. parse var result filename','temp_song_time','format','total_tracks','division
  11. if filename ~= 'RESULT' then do        /* Check if there's any selected song */
  12.   getvar current_song
  13.   if filename ~= result then setvar current_time '00:00'
  14.   list ID SLIST ATTRS MUIA_List_Entries; temp_max = result
  15.   setvar active temp_active
  16.   setvar max temp_max
  17.   setvar song_time temp_song_time
  18.   getvar total_time; temp_total_time = result
  19.   /* getvar current_time; temp_current_time = result */
  20.   string ID FNAME CONTENT filename
  21.   text ID LCD LABEL "Format-"||format||" "||total_tracks||"-tracks "||division||"dpq"
  22.   text ID ACTIV LABEL "\033b\033r"right(temp_active + 1, 3)
  23.   text ID MAX LABEL "\033b\033r"right(temp_max, 3)
  24.   text ID CURNT LABEL "\033b\033r"temp_song_time
  25.   text ID TOTAL LABEL "\033b\033r"temp_total_time
  26.   /* slider ID PROG ATTRS,
  27.     MUIA_Slider_Max left(temp_song_time, 2) * 60 + right(temp_song_time, 2),
  28.     MUIA_Slider_Level left(temp_current_time, 2) * 60 + right(temp_current_time, 2) */
  29. end
  30. return
  31.