Hовi команди системи Turbo-Basic, Детальна інформація
Hовi команди системи Turbo-Basic
<
e a o4 c. o3 a8 b8 o4 d8 c8 o3 b8 a e"
PLAY "o4 c o3a ml o4 d8 c8 o3 mn b8 a8 ml g+8 mn g+8 ml b8"
PLAY "mn a8 e e4o4 e e g. e8 d ml g8 mn f8 e d c. o3 a8"
PLAY "o4 d8 c8 o3 b8 a8 o4 e2 d2"
END
'HAPPY BIRTHDAY
'----------------------------
RESTORE Happy
READ Frequensy, Duration
WHILE Frequensy <> -1
SOUND Frequensy, Duration SYMBOL 42 \f "Symbol" 1.33
READ Frequensy, Duration
WEND
END
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$ = " "
e a o4 c. o3 a8 b8 o4 d8 c8 o3 b8 a e"
PLAY "o4 c o3a ml o4 d8 c8 o3 mn b8 a8 ml g+8 mn g+8 ml b8"
PLAY "mn a8 e e4o4 e e g. e8 d ml g8 mn f8 e d c. o3 a8"
PLAY "o4 d8 c8 o3 b8 a8 o4 e2 d2"
END
'HAPPY BIRTHDAY
'----------------------------
RESTORE Happy
READ Frequensy, Duration
WHILE Frequensy <> -1
SOUND Frequensy, Duration SYMBOL 42 \f "Symbol" 1.33
READ Frequensy, Duration
WEND
END
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$ = " "
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021