'1  INPUT "Для выхода задай А = 1, A = "; A
'   B = SQR(A)
'   PRINT "Квадратный корень A равен "; B
'   IF B > 1 THEN
'   GOTO 1
'   END IF
'   CLS 2
'   END
'SOUND (100), (20)
'SOUND (400), (20)
'SOUND (37), (20)
'SOUND (37), (20)
'PLAY "MBO3L4ED+"
PLAY "ed"
'PLAY "o4l4ed+ed+eo3bo4dcl2o3a"
'PLAY "o3l8ed+ed+eo2bo3dcl2o2a"
'scale$ = "cdefgab"
'PLAY "l50"
'FOR i% = 0 TO 6
'PLAY "o" + STR$(i%)
'PLAY "x" + VARPTR$(scale$)
'NEXT i%

