PROC Speed:
LOCAL H%,S%(2),D$(24)
dINIT "Speed Dialer"
dEDIT D$,"Number To Dial",24
IF DIALOG=0
STOP
ENDIF
S%(1)=8
IOOPEN(H%,"SND:",0)
IOW(H%,10,#ADDR(D$),S%())
IOCLOSE(H%)
Speed:
ENDP