LIBRARY "streplay.library"
DECLARE FUNCTION IsRunning& LIBRARY
DECLARE FUNCTION IsModule& LIBRARY
DECLARE FUNCTION LoadModule& LIBRARY

PRINT "Dies ist eine Demonstration der 'STReplay.Library'"
PRINT
PRINT " von Olli, dem Groessten"
PRINT
PRINT "Laden wir mal das Modul 'libdemo.stmod'"

modname$="libdemo.stmod"+CHR$(0)
le& = LoadModule&(SADD(modname$))
IF le&<>0 THEN
 PRINT "Lade-Fehler!"
 END
END IF

PRINT "Lassen wir es laufen..."
CALL StartSong
PRINT
PRINT "(Drücke doch mal eine Taste oder so)"
PRINT
WHILE INKEY$="":WEND
PRINT "...und stoppen wir es wieder!"
PRINT
CALL StopSong
PRINT "Genial, oder?"
CALL UnloadModule
LIBRARY CLOSE