playtst2.bas

来自「smallbasic for linux」· BAS 代码 · 共 30 行

? "this is play()"
play "t108o0"
for octave=0 to 1
   ? octave
   play "cdefgab"
   play ">"
next

restore fredata
PRINT "this is sound()"
FOR o = 0 TO 1
PRINT o
   FOR n = 1 TO 7
       READ frequ
       PRINT frequ;" ";
       SOUND frequ, 500
   NEXT
   PRINT
NEXT
end
LABEL fredata
DATA 65, 73, 82, 87, 98, 110, 123
DATA 131,147,165,175,196,220,247
DATA 262,294,330,349,392,440,494
DATA 523,587,659,698,784,880,988
DATA 1046,1175,1318,1397,1568,1760,1976
DATA 2093,2349,2637,2794,3136,3520,3951
DATA 4186,4699,5274,5587,6271,7040,7902