Hовi команди системи Turbo-Basic, Детальна інформація

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

PRINT "Oscillating . . ."

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

CALL Klaxon(987, 329)

ELSEIF Q$ = "q" THEN

Q$ = "Q"

END IF

WEND

END

SUB Bounce (Hi, Low) STATIC

FOR Count = 60 TO 1 STEP -2

SOUND Low - Count / 2, Count / 20

SOUND Hi, Count / 15

NEXT

END SUB

SUB Fall (Hi, Low, Del) STATIC