# Tone-generator by ThEcYnicaLoNe
#
# Tone-generator for the HP39G graphical calculator
# Blue-box function does NOT work at SS7
#
# Created at 29-9-2003

MSGBOX "Read our disclaimer before using at www.phreakers.nl" :

1 > A :CHOOSE A;

"PHREAKEN";
"BLUE-BOX";
"GENERATE TONE";
"CONTACT":

CASE

IF A==1

   THEN INPUT T;
  "BLUEBOX";
  "TIME";
  "TIME IN SEC";0:

  BEEP 2600;T :

END

IF A==2

   THEN INPUT B;
  "TONES";
  "FREQ";
  "FREQ IN Hz";0:

  INPUT C;
  "TONES";
  "TIME";
  "TIME IN SEC";0:

  BEEP B;C:

END

IF A==3

  THEN MSGBOX "IRC: #phreakers @ irc.rizenet.org" :
       MSGBOX "WEB: www.phreakers.nl" :
       MSGBOX "EMAIL: removed" :

END

END