10 MODE7
20 A$=" "+CHR$(141)+"A weird sound
command "+CHR$(156)
30 B=LEN(A$)/2
40 PRINTTAB(20-B,0);A$
50 PRINTTAB(20-B,1);A$
60 PRINT
70 PRINT"Here is a weird sound proble
m, I was "'"just messing around when ins
tead of me"'"doing a normal sound comman
d with a low"'"positive number at the en
d for the time"'"I stuck in a negative n
umber, and this "'"is what I got, weird.
.."
80 PRINT'"The command should be :-"''
" SOUND 1,-15,RND(255),1"''"instead it i
s now :-"''" SOUND 1,-15,RND(255),-256"'
'
90 S=-256
100 REPEAT
110 SOUND 1,-15,RND(255),S
120 IF INKEY(-1) THEN S=S+1
130 IF INKEY(-2) THEN S=S-1
140 PRINTTAB(0,20);"Current length of
note - ";S;" "
150 UNTIL FALSE