home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / l / l-coll1.zip / STREPLAY.ZOO / STReplay / Basic / libdemo.bas (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-11-29  |  661b  |  32 lines
  1. LIBRARY "streplay.library"
  2. DECLARE FUNCTION IsRunning& LIBRARY
  3. DECLARE FUNCTION IsModule& LIBRARY
  4. DECLARE FUNCTION LoadModule& LIBRARY
  5.  
  6. PRINT "Dies ist eine Demonstration der 'STReplay.Library'"
  7. PRINT
  8. PRINT " von Olli, dem Groessten"
  9. PRINT
  10. PRINT "Laden wir mal das Modul 'libdemo.stmod'"
  11.  
  12. modname$="libdemo.stmod"+CHR$(0)
  13. le& = LoadModule&(SADD(modname$))
  14. IF le&<>0 THEN
  15.  PRINT "Lade-Fehler!"
  16.  END
  17. END IF
  18.  
  19. PRINT "Lassen wir es laufen..."
  20. CALL StartSong
  21. PRINT
  22. PRINT "(Drⁿcke doch mal eine Taste oder so)"
  23. PRINT
  24. WHILE INKEY$="":WEND
  25. PRINT "...und stoppen wir es wieder!"
  26. PRINT
  27. CALL StopSong
  28. PRINT "Genial, oder?"
  29. CALL UnloadModule
  30. LIBRARY CLOSE
  31.  
  32.