# 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