100 CLS
110 PRINT : PRINT : PRINT " Note and Frequence Finder 1.0 "
120 PRINT : PRINT " Press Space Bar when you hear the right sound " : PRINT
150 DIM NOTE$(12)
151 FOR I = 1 TO 12 : READ NOTE$(I) : NEXT I
152 DATA "C    DO  ", "C#   DO# ", "D    RE  ", "D#   RE# ", "E    MI  ", "F    FA  ", "F#   FA# ", "G    SOL ", "G#   SOL#", "A    LA  ", "A#   LA# ", "B    SI  "
200 REM inizio
250 J = -1: X = 5
350 F = 220*2^(J-2+(X+2)/12)
400 SOUND F*2^(-1/12),15
490 SOUND 0,.1
500 A$ = INKEY$
510 IF A$ = " " THEN GOTO 1000
520 SOUND 0,.1
750 LOCATE 10,5 : PRINT " Frequence : "; F ;"  Hz          "
800 LOCATE 12,5 : PRINT " Note      :  "; NOTE$(X) ; "     "; J
850 X = X + 1
900 IF X > 12 THEN X = 1 : J = J + 1
950 IF J < 5 THEN GOTO 350
1000 PRINT : PRINT
2000 END