PROC Main:
LOCAL H%,St%,A%,Vol,F1&(2),F2&(2),L,E%
LOCAL TVol
Again::
dINIT
dTEXT "","Two Tones",770
dLONG F1&(1),"1st Frequency",0,7999
dLONG F2&(1),"2nd Frequency",0,7999
dFLOAT L,"Length  (Sec)",.10,100
dFLOAT Vol,"Volume",1,5
IF DIALOG=0
STOP
ENDIF
F1&(2)=10000
F2&(2)=10000
TVol=240+Vol*256
A%=1
E%=IOOPEN(H%,"SND:",-1)
IF E%<0
Error:
ENDIF
IOW(H%,7,TVol,#(0))
IOC(H%,1,St%,F1&(),A%)
IOC(H%,2,St%,F2&(),A%)
PAUSE L*18
IOCLOSE(H%)
GOTO Again::
ENDP

PROC Error:
dINIT
dTEXT "","Two Tones",770
dTEXT "","Error",2
DIALOG
STOP
ENDP