'AnzeigeCheck:|Il1 sind Alt-0124, Großes i, kleines L, Eins „ä”öüáߎę֚Üñ±¸©ø° Const Aus=0, An=1, Esc=!"\27" Var AnAus=An, Frequenz=440 '440=Kammerton A(Stimmgabel) Var y="" Sub Ton(byVal Frequenz As Integer) Dim As uShort u If Frequenz=Aus Then Out &H61, Inp(&H61) And &HFC Exit Sub End If u=1193181\Frequenz Out &H61, Inp(&H61) Or 3 Out &H43, &HB6 Out &H42, LoByte(u) Out &H42, HiByte(u) End Sub Print "+=Frequenz+1" Print "-=Frequenz-1" Print "0=(Umschalter fr H”rbarkeit)" Print "Esc=Ende(Ton Aus)" Do y=Inkey Select Case y Case "+": Frequenz+=1 Case "-": Frequenz-=1 Case Esc: Ton(Aus):End Case "0": AnAus=IIF(AnAus, Aus, An) End Select Ton(Frequenz*AnAus) Locate 5, 1 Print "Frequenz=" &Frequenz &" "; Input(1) Loop