home *** CD-ROM | disk | FTP | other *** search
/ Bila Vrana / BILA_VRANA.iso / 031A / CMOD313.ZIP / CAPAPLA2.ZIP / CAPAPLA2.BAS next >
BASIC Source File  |  1996-04-19  |  7KB  |  114 lines
  1. ' CapaPlay II for Quick Basic
  2. ' credits for this .BAS to Liket / Goto10
  3.  
  4. '****************************** GUS Settings **********************************
  5.  
  6. Declare Function CP_GetIRQ CDECL () as byte
  7. Declare Sub CP_SetIRQ CDECL (BYVAL NewIRQ as byte)
  8. Declare Function CP_GetDMA CDECL () as byte
  9. Declare Sub CP_SetDMA CDECL (BYVAL NewDMA as byte)
  10. Declare Function CP_GetBasePort CDECL () as word
  11. Declare Sub CP_SetBasePort CDECL (BYVAL NewBasePort as word)
  12. Declare Sub CP_SetLineIn CDECL (BYVAL LineInState as byte)
  13. Declare Sub CP_SetMicIn CDECL (BYVAL MicInState as byte)
  14.  
  15. '******************************* Load/Unload **********************************
  16.  
  17. Declare Function CP_LoadModule CDECL (ModName as string*256,BYVAL StartOffset as long,BYVAL TransferMode as byte) as byte
  18. Declare Function CP_LoadOnlyPatterns CDECL (ModName as string*256,BYVAL StartOffset as long,BYVAL TransferMode as byte) as byte
  19. Declare Sub CP_FreeModule CDECL ()
  20.  
  21. '***************************** Start/Stop/Pause *******************************
  22.  
  23. Declare Sub CP_StartModule CDECL (BYVAL Amplification as byte,BYVAL DefaultPanning as byte,BYVAL TimerMode as byte)
  24. Declare Sub CP_StopModule CDECL ()
  25. Declare Function CP_PauseModule CDECL () as byte
  26.  
  27. '********************** Set General Module Information ************************
  28.  
  29. Declare Sub CP_SetSpeedZeroMode CDECL (BYVAL SpeedZeroMode as byte)
  30. Declare Sub CP_SetPanEffectMode CDECL (BYVAL PanEffectMode as byte)
  31. Declare Sub CP_SetVBlankMode CDECL (BYVAL VBlankMode as byte)
  32. Declare Sub CP_SetAmigaLimitsMode CDECL (BYVAL AmigaLimitsMode as byte)
  33.  
  34. '********************** Get General Module Information ************************
  35.  
  36. Declare Function CP_GetModuleName CDECL () as string
  37. Declare Function CP_GetModuleType CDECL () as byte
  38. Declare Function CP_GetModuleLength CDECL () as byte
  39. Declare Function CP_GetNumOfPatterns CDECL () as word
  40. Declare Function CP_GetNumOfInstruments CDECL () as byte
  41. Declare Function CP_GetNumOfChannels CDECL () as byte
  42. Declare Function CP_GetNumOfUsedChannels CDECL () as byte
  43. Declare Function CP_GetRestartPosition CDECL () as byte
  44. Declare Function CP_GetUsedPatternMemory CDECL () as long
  45. Declare Function CP_GetUsedInstrumentInfoMemory CDECL () as long
  46. Declare Function CP_GetUsedGUSMemory CDECL () as long
  47. Declare Function CP_GetFileSize CDECL () as long
  48.  
  49. '********************** Set General Playing Information ***********************
  50.  
  51. Declare Sub CP_SetPosition CDECL (BYVAL NewPosition as word)
  52. Declare Sub CP_SetGlobalVolume CDECL (BYVAL NewVolume as word)
  53. Declare Sub CP_SetMainVolume CDECL (BYVAL NewVolume as word)
  54. Declare Sub CP_RestoreInitialVolume CDECL ()
  55. Declare Sub CP_SetSpeed CDECL (BYVAL NewSpeed as word)
  56. Declare Sub CP_SetTempo CDECL (BYVAL NewTempo as word)
  57. Declare Sub CP_RestoreSpeedAndTempo CDECL ()
  58. Declare Sub CP_SetDefaultPanning CDECL (BYVAL DefaultPanning as byte)
  59.  
  60. '********************** Get General Playing Information ***********************
  61.  
  62. Declare Function CP_GetRow CDECL () as byte
  63. Declare Function CP_GetNumOfRows CDECL (BYVAL PositionNum as word) as word
  64. Declare Function CP_GetPosition CDECL () as byte
  65. Declare Function CP_GetPattern CDECL () as byte
  66. Declare Function CP_GetGlobalVolume CDECL () as byte
  67. Declare Function CP_GetMainVolume CDECL () as byte
  68. Declare Function CP_GetSpeed CDECL () as byte
  69. Declare Function CP_GetTempo CDECL () as byte
  70. Declare Function CP_GetPlayingTime CDECL () as word
  71. Declare Function CP_GetTimer CDECL () as long
  72. Declare Function CP_GetLoopCounter CDECL () as byte
  73.  
  74. '************************* Set Channel Information ****************************
  75.  
  76. Declare Function CP_SetChannelMute CDECL (BYVAL ChannelNum as word,BYVAL MuteState as byte) as byte
  77. Declare Sub CP_SetChannelPanning CDECL (BYVAL ChannelNum as word,BYVAL NewPanning as byte)
  78. Declare Sub CP_PlaySample CDECL (BYVAL ChannelNum as word,BYVAL InstrumentNum as word,BYVAL SampleNum as word,BYVAL Note as byte,BYVAL Octave as byte)
  79. Declare Sub CP_StopSample CDECL (BYVAL ChannelNum as word)
  80.  
  81. '************************* Get Channel Information ****************************
  82.  
  83. Declare Function CP_GetChannelNote CDECL (BYVAL ChannelNum as word) as byte
  84. Declare Function CP_GetChannelOctave CDECL (BYVAL ChannelNum as word) as byte
  85. Declare Function CP_GetChannelVolume CDECL (BYVAL ChannelNum as word) as byte
  86. Declare Function CP_GetChannelEffect CDECL (BYVAL ChannelNum as word) as byte
  87. Declare Function CP_GetChannelEffectParams CDECL (BYVAL ChannelNum as word) as byte
  88. Declare Function CP_GetChannelInstrument CDECL (BYVAL ChannelNum as word) as byte
  89. Declare Function CP_GetChannelSample CDECL (BYVAL ChannelNum as word) as byte
  90. Declare Function CP_GetChannelBar CDECL (BYVAL ChannelNum as word) as byte
  91. Declare Function CP_GetChannelNoteTrigger CDECL (BYVAL ChannelNum as word) as byte
  92. Declare Function CP_GetChannelPanning CDECL (BYVAL ChannelNum as word) as byte
  93. Declare Function CP_GetChannelMute CDECL (BYVAL ChannelNum as word) as byte
  94.  
  95. '******************** Set Instrument/Sample Information ***********************
  96.  
  97. Declare Function CP_SetSampleMute CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word,BYVAL MuteState as byte) as byte
  98.  
  99. '******************** Get Instrument/Sample Information ***********************
  100.  
  101. Declare Function CP_GetInstrumentName CDECL (BYVAL InstrumentNum as word) as string
  102. Declare Function CP_GetNumOfSamples CDECL (BYVAL InstrumentNum as word) as byte
  103. Declare Function CP_GetSampleName CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as string
  104. Declare Function CP_GetSampleSize CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as long
  105. Declare Function CP_GetSampleC4Spd CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as word
  106. Declare Function CP_GetSampleVolume CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  107. Declare Function CP_GetSamplePanning CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  108. Declare Function CP_GetSampleLoopType CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  109. Declare Function CP_GetSampleLoopBegin CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as long
  110. Declare Function CP_GetSampleLength CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as long
  111. Declare Function CP_GetSample16Bit CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  112. Declare Function CP_GetSampleMute CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  113.  
  114.