home *** CD-ROM | disk | FTP | other *** search
/ Audio 4.94 - Over 11,000 Files / audio-11000.iso / amiga / midi / med210.lhw / in.adf / Programmers / Examples / Basic_example (.txt) next >
Encoding:
AmigaBASIC Source Code  |  1993-02-08  |  743 b   |  33 lines
  1. REM  This small program demonstrates
  2. REM  how to use "medplayer.library"
  3. REM  with Basic.
  4.  
  5. REM  First copy "medplayer.bmap" from
  6. REM  MEDPlayerLibrary-drawer to LIBS:
  7.  
  8.  
  9. LIBRARY "medplayer.library"
  10.  
  11. DECLARE FUNCTION GetPlayer& LIBRARY
  12. DECLARE FUNCTION LoadModule&() LIBRARY
  13. DECLARE FUNCTION GetCurrentModule&() LIBRARY
  14.  
  15. DEFLNG md,sa
  16.  
  17. PRINT "medplayer.library demonstration"
  18. INPUT "Enter module name";x$
  19. x& = GetPlayer&(1)
  20. IF x& = 0 THEN PRINT "Player allocated." :ELSE PRINT "Failed."
  21. a$ = x$+CHR$(0)
  22. sa = SADD(a$)
  23. md = LoadModule&(sa)
  24. PRINT "module loaded, address = ";md
  25. CALL PlayModule(md)
  26. PRINT "Now playing, press any key to quit."
  27. WHILE INKEY$="":WEND
  28. CALL FreePlayer
  29. CALL UnLoadModule(md)
  30. PRINT "Bye!!"
  31. END
  32.  
  33.