Return to func.cmd CVS log

Up to [MW Coherent from dump] / coherent / f / usr / lib

Annotation of coherent/f/usr/lib/func.cmd, revision 1.1.1.1

1.1       root        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 &not $pending
                     10:                write-message "FN-"
                     11:        !endif
                     12:        set %rcchar &gtkey
                     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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.