home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Utilities / ACDPlay / src / V1.5 / ARexx / Info.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-27  |  2KB  |  115 lines
  1. /* Info.rexx 1.0 by Martin Kresse
  2.    This script dumps all known variables of ACDPlay. */
  3.  
  4. OPTIONS RESULTS
  5. address 'ACDPLAY'
  6.  
  7. 'GETDEVICE'
  8. device = RESULT
  9.  
  10. 'GETUNIT'
  11. unit = RESULT
  12.  
  13. 'GETLUN'
  14. lun = RESULT
  15.  
  16. 'GETPRODUCT'
  17. product = RESULT
  18.  
  19. 'GETREVISION'
  20. revision = RESULT
  21.  
  22. 'GETVENDOR'
  23. vendor = RESULT
  24.  
  25. 'GETVENDORSPECIFIC'
  26. specific = RESULT
  27.  
  28. 'GETSENSEKEY'
  29. sensekey = RESULT
  30.  
  31. 'GETADDSENSECODE'
  32. sensecode = RESULT
  33.  
  34. 'GETADDSENSECODEQUAL'
  35. sensecodequal = RESULT
  36.  
  37. say
  38. say "Device:  Device : "device
  39. say "¯¯¯¯¯¯¯  Unit   : "unit
  40. say "         LUN    : "lun
  41. say
  42. say "Drive:   Product  : "product
  43. say "¯¯¯¯¯¯   Vendor   : "vendor
  44. say "         Revision : "revision
  45. say "         Specific : "specific
  46. say
  47.  
  48. if (sensekey = 0) then do
  49.     say "Errors:  There havn't been any errors yet."
  50.     say "¯¯¯¯¯¯¯"
  51.     say "<RETURN>"
  52. end
  53. else do
  54.     say "Errors:  last Sense Key            : $"D2X(sensekey,2)
  55.     say "¯¯¯¯¯¯¯  Additional Sense Code     : $"D2X(sensecode,2)
  56.     say "         Add. Sense Code Qualifier : $"D2X(sensecodequal,2)
  57.     say "<RETURN>"
  58. end
  59.  
  60. pull nil
  61.  
  62. 'GETSTATUS'
  63. status = RESULT
  64.  
  65. 'GETCDTITLE'
  66. cdtitle = RESULT
  67.  
  68. 'GETARTIST'
  69. artist = RESULT
  70.  
  71. 'GETTRACKNUMBER'
  72. tracknum = RESULT
  73.  
  74. 'GETCDLENGTH'
  75. total = RESULT
  76.  
  77. 'GETCURRENTTRACK'
  78. curtrack = RESULT
  79.  
  80. 'GETSONGNAME'
  81. songname = RESULT
  82.  
  83. 'GETCURRENTINDEX'
  84. curindex = RESULT
  85.  
  86. if (status = 16) then do
  87.     say "Disc:    There's no disk inserted."
  88.     say "¯¯¯¯¯"
  89.     say
  90. end
  91. else do
  92.     say "Disc:    Title              : "cdtitle
  93.     say "¯¯¯¯¯    Artist             : "artist
  94.     say "         Tracks             : "tracknum
  95.     say "         Total playing time : "total%75%60":"total%75//60"."total//75
  96.     say
  97.     if (status = 0) then
  98.         say "         Status        : not valid"
  99.     else if (status = 17) then
  100.         say "         Status        : CD is playing"
  101.     else if (status = 18) then
  102.         say "         Status        : CD is paused"
  103.     else
  104.         say "         Status        : CD is stopped"
  105.  
  106.     say "         Current Track : "curtrack" - "songname
  107.     say "         Current Index : "curindex
  108.     say
  109.     say
  110.     say
  111.     say
  112.     say
  113. end
  114.  
  115.