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

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

NEXT

WEND

END SUB

'ГРАФIЧHИЙ РЕДАКТОР

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

ON KEY (1) SUB 500

KEY (1) ON

SCREEN 2

200 x$=input$(1)

IF X$="S" OR x$="s" THEN END

IF X$="A" OR X$="a" THEN DRAW "L5"

IF X$="D" OR X$="d" THEN DRAW "R5"

IF X$="W" OR X$="w" THEN DRAW "U5"

IF X$="X" OR x$="x" THEN DRAW "D5"

IF X$="E" OR x$="e" THEN DRAW "E5"