Музыкальные фрагменты в QBasic

[Андрюха_ЕШКО]

Мне нужно составить программу для исполнения нескольких музыкальных фрагментов по выбору пользователя...
Как это сделать?

[alexcoder]

при помощи оператора PLAY

[Андрюха_ЕШКО]

PLAY "o3ms" ' Начало программы

DATA 5: REM Число элементов в исходном списке

DATA 3, -6, -69, -89, -5: REM Исходный список

READ N: DIM A(N) ' Сортируемый массив

FOR I = 1 TO N: READ A(I): NEXT I: Flag = -1

PLAY "c1" ' Начало функционального блока

PLAY "d1": DO WHILE Flag ' Начало цикла с предпроверкой

PLAY "c2": Flag = 0: PLAY "c2" ' Функциональный блок

PLAY "g3": FOR I = 2 TO N ' Начало цикла с параметром

'Начало альтернативы

PLAY "e4"

IF A(I) < A(I - 1) THEN

PLAY "c5": SWAP A(I), A(I - 1): Flag = 1: PLAY "c5"

END IF

PLAY "e4" ' Конец альтернативы

NEXT I: PLAY "g3" ' Конец цикла с параметром

LOOP: PLAY "d1"

PLAY "c1" ' Конец цикла с параметром

FOR I = 1 TO N: PRINT A(I): NEXT I

PLAY "c1c0": END ' Конец функционального блока и программы

Такое решение пойдет?