Мова програмування Turbo-Basic, Детальна інформація

Happy:

DATA 784, 3, 659, 2, 523, 6, 659, 6, 784, 6, 1047, 15, 1329, 3

DATA 1175, 2, 1047, 6, 659, 6, 740, 6, 784, 15, -1, -1

'ЗВУКОВI ЕФЕКТИ

'---------------------------

WHILE Q$ <> "Q"

CLS

PRINT "Sound effects": PRINT

COLOR 15, 0: PRINT " B"; : COLOR 7, 0: PRINT "ouncing"

COLOR 15, 0: PRINT " F"; : COLOR 7, 0: PRINT "alling"

COLOR 15, 0: PRINT " K"; : COLOR 7, 0: PRINT "laxon"

COLOR 15, 0: PRINT " S"; : COLOR 7, 0: PRINT "iren"

COLOR 15, 0: PRINT " Q"; : COLOR 7, 0: PRINT "uit"

PRINT : PRINT "Select: ";

Q$ = " "

WHILE INSTR("BFKSQbfksq", Q$) = 0

Q$ = INPUT$(1)

WEND

CLS

IF Q$ = "B" OR Q$ = "b" THEN

PRINT "Bouncing . . . "

CALL Bounce(32767, 246)

ELSEIF Q$ = "F" OR Q$ = "f" THEN

PRINT "Falling . . . "

CALL Fall(2000, 550, 500)

ELSEIF Q$ = "S" OR Q$ = "s" THEN

PRINT "Wailing . . ."

PRINT " . . . press any key to end."

CALL Siren(780, 650)

ELSEIF Q$ = "K" OR Q$ = "k" THEN