K=2^(1/12): A=277
  DIM F(7)
  F(1)=A:F(2)=A*K^2:F(3)=A*K^4:F(4)=A*K^5:F(5)=A*K^7
  F(6)=A*K^9:F(7)=A*K^(11):F(0)=0
  FOR I=1 TO 100
  READ A
  IF A=0 THEN PLAY "P32":GOTO 50
  IF A=-10 THEN GOTO 100
  F=F(ABS(INT(A))):L=INT(8*(A-INT(A)))
  IF A=INT(A) THEN L=8
  IF A<0 THEN F=0.5*F
  SOUND F,L
50  NEXT I
100  END
  DATA 3,5,6,0,6.5,5.5,6,3,2,2,0,3,5,6,0,6.5,5.5,6,3,3,3,0
  DATA 3,5,6,0,6.5,5.5,6,3,2,2,0,5,3,2.5,3.5,2.5,1.5,2,-6,-6,-6,0
  DATA -6,2,2,5,3,3,3,2.5,1.5,-6,-6,-6,0,5,3,2.5,3.5,2.5,1.5,2,-6,-6,-6,0
  DATA 5,3,2.5,3.5,2.5,1.5,2,6,6,6,0,-10