home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 035 / pbcdk10.zip / ACDKIT.LZX / ACDKIT.BI < prev    next >
Text File  |  1994-10-15  |  3KB  |  66 lines
  1. DEFINT A-Z
  2. $DYNAMIC
  3.  
  4. %CDINSTALLED = &H1
  5. %CDPLAYING = &H2
  6. %CDPAUSED = &H4
  7. %CDOPEN = &H8
  8. %CDLOCKED = &H10
  9.  
  10. TYPE trackinfo
  11.  cmd AS BYTE
  12.  track AS BYTE
  13.  tframe AS BYTE
  14.  tsec AS BYTE
  15.  tmin AS BYTE
  16.  dummy AS BYTE
  17.  control AS BYTE
  18.  absframe AS LONG
  19. END TYPE
  20.  
  21. TYPE cdInfoTYPE
  22.  status AS BYTE         ' status of the driver
  23.  track AS BYTE          ' current track number
  24.  frame AS LONG          ' current absolute frame number
  25.  cdMin AS BYTE          ' cd position (minutes)
  26.  cdSec AS BYTE          ' cd position (seconds)
  27.  cdFrame AS BYTE        ' cd position (frames)
  28.  TrackMin AS BYTE       ' track position (mins)
  29.  TrackSec AS BYTE       ' track position (seconds)
  30.  TrackFrame AS BYTE     ' track position (frames)
  31.  cdMins AS BYTE         ' cd length (mins)
  32.  cdSecs AS BYTE         ' cd length (seconds)
  33.  cdFrames AS BYTE       ' cd length (frames)
  34.  TrackMins AS BYTE      ' track length (mins)
  35.  TrackSecs AS BYTE      ' track length (seconds)
  36.  TrackFrames AS BYTE    ' track length (frames)
  37. END TYPE
  38.  
  39. DECLARE SUB cdGetInfo (BYVAL drive%, BYVAL track%, cd AS cdInfoTYPE, tracklist() AS trackinfo)
  40. DECLARE SUB cdDoor (BYVAL drive%, BYVAL cmd%)
  41. DECLARE SUB cdPause (BYVAL drive%)
  42. DECLARE SUB cdPlayFrames (BYVAL drive%, BYVAL frame&, BYVAL lframe&)
  43. DECLARE SUB cdPlayMSF (BYVAL drive%, BYVAL mins%, BYVAL secs%, BYVAL frame%, BYVAL lmin%, BYVAL lsec%, BYVAL lframe%)
  44. DECLARE SUB cdPlay (BYVAL drive%, BYVAL track%, BYVAL tracks%, tracklist() AS trackinfo)
  45. DECLARE SUB cdInit (BYVAL drive%, tracklist() AS trackinfo)
  46. DECLARE SUB cdReset (BYVAL drive%)
  47. DECLARE SUB cdResume (BYVAL drive%)
  48. DECLARE SUB cdSeek (BYVAL drive%, BYVAL track%, tracklist() AS trackinfo)
  49. DECLARE SUB cdSeekFrame (BYVAL drive%, BYVAL frame&)
  50. DECLARE SUB cdSeekMSF (BYVAL drive%, BYVAL mins%, BYVAL secs%, BYVAL frame%)
  51. DECLARE SUB cdStop (BYVAL drive%)
  52. DECLARE SUB cdGetVolume (BYVAL source%, left1%, right1%, left2%, right2%)
  53. DECLARE SUB cdSetVolume (BYVAL source%, BYVAL left1%, BYVAL right1%, BYVAL left1%, BYVAL right1%)
  54. DECLARE SUB sbGetVolume (BYVAL source%, leftV%, rightV%)
  55. DECLARE SUB sbSetVolume (BYVAL source%, BYVAL leftV%, BYVAL rightV%)
  56.  
  57. DECLARE FUNCTION cdMediaChanged% (BYVAL drive%)
  58. DECLARE FUNCTION cdStatus% (BYVAL drive%)
  59. DECLARE FUNCTION GetFirstCdrom% ()
  60. DECLARE FUNCTION GetMscdexVersion% ()
  61. DECLARE FUNCTION GetNumCdroms% ()
  62. DECLARE FUNCTION IsAudio% (BYVAL drive%)
  63. DECLARE FUNCTION IsMscdex% ()
  64. DECLARE FUNCTION IsSB% ()
  65. DECLARE FUNCTION MSFtoFrame& (BYVAL mins%, BYVAL secs%, BYVAL frame%)
  66. DECLARE SUB FrameToMSF (BYVAL frame&, mins?, secs?, frames?)