Hовi команди системи Turbo-Basic

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" THENPRINT "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