10 FOR W=0 TO 9: PRINT W,"!%w25" 11 for i=0 TO 4: M=2^I 20 A=M*100.2261: GOSUB 50: F1=A 21 A=M*126.277: GOSUB 50: F2=A 22 A=M*168.5595: GOSUB 50: F3=A 23 A=M*252.554: GOSUB 50: F4=A 30 SOUND M*128;1000;W: PRINT "!%w25" 31 SOUND F1;500;W 32 SOUND F2;500;W 33 SOUND F3;500;W 34 SOUND F4;500;W 35 SOUND F1,F2,F3,F4;500;W 40 PRINT "!%w50": NEXT I: NEXT W 50 B=INT(A): C=A-B: IF C<0.5 THEN A=B ELSE A=B+1 51 RETURN