home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsr / tomsmcrs / DIAL.MCR < prev    next >
Text File  |  1994-09-06  |  1KB  |  69 lines
  1. rem -- Written by Tom Dolbilin
  2.  
  3. rem -- This macro allows to use the standard Free-form dialing
  4. rem -- dialog to dial alphanumeric phone numbers. Try assigning
  5. rem -- it to Control-Dial (Control-Psion-Help)
  6.  
  7. PROC macro:
  8. UseApp:( "active" )
  9. if Info:(4) = 0
  10.     UseApp:( "time" )
  11.     ToFront:
  12. endif
  13. SendKey:( 291, 12, 1 ) rem Control-Dial
  14. GiPrint:( "Busy" )
  15. cache on
  16. cachetidy
  17. keys:(1)
  18. GiPrint:( "" )
  19. var%(3) = CurrPid%:
  20. ENDP
  21.  
  22. PROC keys:( state% )
  23. local i%
  24. rem Capture all alphabetical keys, Space and Esc
  25. while i% < 26
  26.     Hotkey:( %a + i%, 0, "convert", state% )
  27.     i% = i% + 1
  28. endwh
  29. Hotkey:( esc%, 0, "convert", state% )
  30. Hotkey:( space%, 0, "list", state% )
  31. ENDP
  32.  
  33. PROC convert:( k%, m% )
  34. local pos%
  35. UsePid:( var%(3) )
  36. if k% = esc%
  37.     Esc:
  38.     keys:(0)
  39.     cachetidy
  40. else
  41.     pos% = loc( "ABCDEFGHIJKLMNOPRSTUVWXY", chr$( k% ) )
  42.     if pos%
  43.         Key:( %1 + ( pos% + 2 ) / 3 )
  44.     else
  45.         Key:( k% )
  46.     endif
  47. endif
  48. ENDP
  49.  
  50. PROC list:( k%, m% )
  51. local name$(5,15), phone$(9,15), i%
  52. Hotkey:( esc%, 0, "convert", 0 ) rem Temporarily release Esc
  53. UsePid:( var%(3) )
  54. name$(1) = "John Doe" : phone$(1) = "1234567"
  55. name$(2) = "Friend" : phone$(2) = "7654321"
  56. rem -- Can have up to 9 phone numbers
  57. dInit:( "" )
  58. i% = 1
  59. while name$( i% ) <> ""
  60.     dText:( name$( i% ), phone$( i% ), $400 )
  61.     i% = i% + 1
  62. endwh
  63. i% = Dialog:
  64. if i%
  65.     SendText:( phone$( i% ) )
  66. endif
  67. Hotkey:( esc%, 0, "convert", 1 ) rem Re-capture Esc
  68. ENDP
  69.