FreeBASIC ExtLibbassmod

#include once "bassmod.bi"

Const SOUND_FILE = "dne_trtn.mod"

If (BASSMOD_GetVersion() < 2) Then
    Print "BASSMOD バージョン2 以上が必要です！"
    Sleep
    End 1
End If

If (BASSMOD_Init(-1, 44100, 0) = 0) Then
    Print "BASSMOD を初期化できませんでした"
    Sleep
    End 1
End If

If (BASSMOD_MusicLoad(FALSE, SOUND_FILE, 0, 0, BASS_MUSIC_LOOP) = 0) Then
    Print "BASSMOD は ' " & SOUND_FILE & " ' をロードできませんでした"
    BASSMOD_Free()
    Sleep
    End 1
End If

BASSMOD_MusicPlay()

Print "音声再生中; 何かキーを押すと終了します..."
Sleep

BASSMOD_MusicStop()
BASSMOD_MusicFree()
BASSMOD_Free()