home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff258.lzh / STReplay / Basic / libdemo.bas (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-10-18  |  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.