%%HP: T(3)A(D)F(.);
\<< CLLCD
  IF DEPTH 2 <
  THEN CLLCD 984 .2 BEEP "Freqenztest
 Schritt=1 Hz
Startwert und
Endwert
fehlen im Stack" MSGBOX
  ELSE STD IP SWAP IP SWAP \-> Fu Fo
    \<< "Tonerzeugung
 von " Fu \->STR + " Hz
 bis " + Fo \->STR + " Hz " + 1 DISP Fu Fo
      FOR F "Eingabe = " F \->STR + " Hz" + 5 DISP "Ausgabe = Ton" 6 DISP F .5 BEEP .5 WAIT 1.
      STEP
    \>>
  END
\>>