home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / dial.zip / RING.CMD < prev    next >
OS/2 REXX Batch file  |  1994-01-08  |  1KB  |  65 lines
  1. /* Telefonprogram
  2.    Skrevet av Helge Hafting
  3.    email:
  4.    hafting@pvv.unit.no
  5.    Adresse:
  6.    poverudvn. 22
  7.    3440 R¢yken
  8. */
  9.  
  10. arg tlf
  11.  
  12. if (tlf='' | tlf='?') then signal hjelp
  13.  
  14. call rxfuncadd "mciRxInit", "MCIAPI", "mciRxInit"
  15. call mciRxInit
  16.  
  17. rc = mciRxSendString('open waveaudio alias lyd wait', 'RetStr', '0', '0')
  18. if rc <> 0 then signal feil
  19.  
  20. forrige = '_'
  21. do while tlf <> '' 
  22.  siffer = left(tlf,1)
  23.  tlf = substr(tlf,2)
  24.  type = pos(siffer,'ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789*0#')
  25.  if type > 0 then do
  26.   if siffer = '*' then siffer='stjerne'
  27.   else if type < 27 then siffer = trunc((type + 2) / 3)
  28.   filnavn = siffer'.wav'
  29.   if siffer = forrige then rc = mciRxSendString('seek lyd to start wait', 'RetStr', '0', '0')
  30.   else rc = mciRxSendString('load lyd' filnavn 'wait', 'RetStr', '0', '0')
  31.   if rc <> 0 then signal feil
  32.   rc = mciRxSendString('play lyd wait', 'RetStr', '0', '0')
  33.   if rc <> 0 then signal feil
  34.  end
  35. end
  36.  
  37.  
  38. rc = mciRxSendString('close lyd wait', 'RetStr', '0', '0')
  39. if rc <> 0 then signal feil
  40.  
  41. call mciRxExit
  42.  
  43. exit(0)
  44.  
  45. feil:
  46. MacRC = mciRxGetErrorString(rc, 'ErrStVar')
  47. say 'error' rc',' ErrStVar
  48. rc = mciRxSendString('close lyd wait', 'RetStr', '0', '0')
  49. call mciRxExit
  50. exit(rc)
  51.  
  52. hjelp:
  53. say
  54. say 'Bruk: ring <telefonnr>'
  55. say 'Eksempler:'
  56. say
  57. say 'ring 12345678'
  58. say 'ring (123) 45-45-45'
  59. say 'ring 12345678 *5 *7 ##4'
  60. exit(0)
  61.  
  62.  
  63.  
  64.  
  65.