home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / UE311CMD.ZIP / FUNC.CMD < prev    next >
OS/2 REXX Batch file  |  1990-06-19  |  630b  |  26 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. bind-to-key meta-prefix `
  7.  
  8. 21    store-macro
  9.     !if ¬ $pending
  10.         write-message "FN-"
  11.     !endif
  12.     set %rcchar >key
  13.     set %rcchar &sindex "1234567890!@#$%^&*()" %rcchar
  14.     !if &equ %rcchar 0
  15.         write-message "[Not Bound]"
  16.         !return
  17.     !endif
  18.     clear-message-line
  19.     set %rctmp "FN"
  20.     !if &gre %rcchar 10
  21.         set %rctmp &cat "S-" %rctmp
  22.     !endif
  23.     set %rcchar &mid "12345678901234567890" %rcchar 1
  24.     execute-command-line &bind &cat %rctmp %rcchar
  25. !endm
  26.