home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / EX_DTMF.OPL < prev    next >
Text File  |  1992-08-27  |  303b  |  19 lines
  1. PROC dtmf:
  2. LOCAL h%,a$(24),b$(25),z%,r%,a%(2)
  3. r%=IOOPEN(h%,"SND:",0)
  4. IF r%<0 :RAISE r% :ENDIF
  5. dINIT
  6. dEDIT a$,"Dial"
  7. IF DIALOG
  8.     a%(1)=8+(256*8)
  9.     a%(2)=48
  10.     b$=a$+CHR$(0)
  11.     z%=ADDR(b$)
  12.     r%=IOW(h%,10,#z%+1,a%())
  13.     IF r%<0 :RAISE r% :ENDIF
  14. ENDIF
  15. r%=IOCLOSE(h%)
  16. IF r%<0 :RAISE r% :ENDIF
  17. ENDP
  18.  
  19.