home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 197_01 / func.cmd < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  512b  |  21 lines
  1. ;    FUNC.CMD    Allow mainframes to simulate function
  2. ;            keys with ^C<n> and ^C shifted-<n>
  3. ;            Also allow the ` key to be META as well as ESC
  4.  
  5. bind-to-key execute-macro-21 ^C
  6.  
  7. 21    store-macro
  8.     !if ¬ $pending
  9.         write-message "FN-"
  10.     !endif
  11.     set %rcchar >key
  12.     set %rcchar &sindex "1234567890!@#$%^&*()" %rcchar
  13.     !if &equ %rcchar 0
  14.         write-message "[Not Bound]"
  15.         !return
  16.     !endif
  17.     clear-message-line
  18.     set %rcchar &mid ";<=>?@ABCDTUVWXYZ[\]" %rcchar 1
  19.     &ind &bind &cat "FN" %rcchar
  20. !endm
  21.