d@alice.UucP (Daniel Rosenberg) (08/30/86)
The following Amiga MSBASIC program will generate Touch Tones (tm) like
the ones on your phone. I've dialed with them. If you have your 'Miga
hooked up to a stereo amp, put it on mono or change the channel numbers.
This could easily be converted to everything, and is really
just an example... someone could make a neat "Automatic Phonebook"
with it.
---------------------CUT HERE, remove .signature at end, feed to MSBASIC--------
vol=255
dur=3
GetKey:
i$=""
WHILE i$=""
i$=INKEY$
WEND
IF i$=CHR$(13) THEN END
IF i$="0" THEN GOSUB Key0
IF UCASE$(i$)="*" THEN GOSUB KeyStar
IF UCASE$(i$)="#" THEN GOSUB KeyPound
IF UCASE$(i$)="A" THEN GOSUB KeyA
IF UCASE$(i$)="B" THEN GOSUB keyB
IF UCASE$(i$)="C" THEN GOSUB KeyC
IF UCASE$(i$)="D" THEN GOSUB KeyD
ON VAL(i$) GOSUB Key1,Key2,Key3,Key4,Key5,Key6,Key7,Key8,Key9
GOTO GetKey
Key1: SOUND 1209,dur,vol,0
SOUND 697 ,dur,vol,1
RETURN
Key2: SOUND 1336,dur,vol,0
SOUND 697 ,dur,vol,1
RETURN
Key3: SOUND 1477,dur,vol,0
SOUND 697 ,dur,vol,1
RETURN
KeyA: SOUND 1633,dur,vol,0
SOUND 697 ,dur,vol,1
RETURN
Key4: SOUND 1209,dur,vol,0
SOUND 770 ,dur,vol,1
RETURN
Key5: SOUND 1336,dur,vol,0
SOUND 770 ,dur,vol,1
RETURN
Key6: SOUND 1477,dur,vol,0
SOUND 770 ,dur,vol,1
RETURN
keyB: SOUND 1633,dur,vol,0
SOUND 770 ,dur,vol,1
RETURN
Key7: SOUND 1209,dur,vol,0
SOUND 852 ,dur,vol,1
RETURN
Key8: SOUND 1336,dur,vol,0
SOUND 852 ,dur,vol,1
RETURN
Key9: SOUND 1477,dur,vol,0
SOUND 852 ,dur,vol,1
RETURN
KeyC: SOUND 1633,dur,vol,0
SOUND 852 ,dur,vol,1
RETURN
KeyStar: SOUND 1209,dur,vol,0
SOUND 941 ,dur,vol,1
RETURN
Key0: SOUND 1336,dur,vol,0
SOUND 941 ,dur,vol,1
RETURN
KeyPound: SOUND 1477,dur,vol,0
SOUND 941 ,dur,vol,1
RETURN
KeyD: SOUND 1633,dur,vol,0
SOUND 941 ,dur,vol,1
RETURN
--
# Daniel Rosenberg (CE) @ AT&T Bell Labs, Murray Hill
# disclaimer: These opinions are necessarily mine, not my employer's.
# UUCP: { (ihnp4) || research || allegra}!alice!d AT&T: 201/582-6455 (work)
# "We're not in the eighth dimension! We're over New Jersey!" - BB