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

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

FOR Count = Hi TO Low STEP -10

SOUND Count, Del / Count

NEXT

END SUB

SUB Klaxon (Hi, Low) STATIC

WHILE INKEY$ = ""

SOUND Hi, 5

SOUND Low, 5

WEND

END SUB

SUB Siren (Hi, Rng) STATIC

WHILE INKEY$ = ""

FOR Count = Rng TO -Rng STEP -4

SOUND Hi - ABS(Count), .3

Count = Count - 2 / Rng