Programmer 7500/MAX_PROGRAMMERS.iso/INFO/MISC/TNH_PC.ZIP/WORDPROC.MAC

Text File | 1987-01-14 | 5.3 KB | 124 lines

     def up          = [up]
     def down        = [down]
     def left        = [left]
     def right       = [right]
     def pgup        = [page up]
     def pgdn        = [page down]
     def home        = [begin line]
     def end         = [end line]
     def ins         = [insert toggle]
     def del         = [delete char]
     def enter       = [insert line] [indent]
     def backspace   = [rubout]
     def esc         = [command toggle]
     def tab         = [up] [tab word] [down]
     def f1          = [shift left]
     def f2          = [shift right]
     def f3          = [left] [left] [left] [left] [left]
     def f4          = [right] [right] [right] [right] [right]
     def f5          = [left8]
     def f6          = [right8]
     def f7          = [left40]
     def f8          = [right40]
     def f9          = [undo]
     def f10         = [insert line] [up] [first nonblank] [down]
     def c-left      = [backtab word]
     def c-right     = [tab word]
     def c-pgup      = [page up] [page up] [page up]
     def c-pgdn      = [page down] [page down] [page down]
     def c-home      = [top] [begin line]
     def c-end       = [bottom]
     def c-enter     = [execute]
     def c-backspace = [delete line]
     def c-f1        = [cursor command] [begin line] [erase end line]
                       'set margins 1 65 6' [execute] [command toggle]
     def c-f2        = [cursor command] [begin line] [erase end line]
                       'set margins 11 65 6' [execute] [command toggle]
     def c-f3        = [cursor command] [begin line] [erase end line]
                       'set margins 1 56' [execute] [command toggle]
     def c-f4        = [cursor command] [begin line] [erase end line]
                       'set margins 8 56 4' [execute] [command toggle]
     def c-f5        = [cursor command] [begin line] [erase end line]
                       'set margins 1 78' [execute] [command toggle]
     def c-f6        = [cursor command] [begin line] [erase end line]
                       'set margins 1 254' [execute] [command toggle]
     def c-f7        = [begin mark]
     def c-f8        = [end mark]
     def c-f9        = [cursor command] [begin line] [erase end line]
                       'dir a:' [execute]
     def c-f10       = [cursor command] [begin line] [erase end line]
                       'dir b:' [execute]
     def s-tab       = [up] [backtab word] [down]
     def s-f1        = '╔'
     def s-f2        = '╗' [left][down]
     def s-f3        = '╚'
     def s-f4        = '╝'
     def s-f5        = '╦'
     def s-f6        = '═'
     def s-f7        = '╩'
     def s-f8        = '║' [left][down]
     def s-f9        = '╠'
     def s-f10       = '╣'


     def a-a         = [confirm change] [command toggle] [execute]
     def a-b         = [mark block]
     def a-c         = [mark char]
     def a-d         = [delete mark]
     def a-e         = [cursor command] [begin line] [erase end line]
                       'e' [execute] [command toggle]
     def a-f         = [fill mark]
     def a-g         = [lowercase]
     def a-h         =
     def a-i         =
     def a-j         = [join]
     def a-k         = [mark line] [reflow] [unmark]
     def a-l         = [mark line]
     def a-m         = [copy mark] [delete mark]
     def a-n         = [unmark] [mark line] [find blank line] [up]
                       [mark line] [reflow] [begin mark] [unmark]
     def a-o         = [overlay block]
     def a-p         = [unmark] [mark line] [find blank line] [up] [mark
                       line] [reflow] [end mark] [down] [down] [unmark]
     def a-q         =
     def a-r         = [redraw]
     def a-s         = [split]
     def a-t         = [uppercase]
     def a-u         = [unmark]
     def a-v         =
     def a-w         = [unmark] [mark char] [find blank line] [up]
                       [end line] [mark char] [delete mark]
     def a-x         = [escape]
     def a-y         =
     def a-z         = [copy mark]
     def a-f1        = '╔'
     def a-f2        = '╗' [left][down]
     def a-f3        = '╚'
     def a-f4        = '╝'
     def a-f5        = '╦'
     def a-f6        = '═'
     def a-f7        = '╩'
     def a-f8        = '║' [left][down]
     def a-f9        = '╠'
     def a-f10       = '╣'
     def a-1         =
     def a-2         =
     def a-3         = '╬'
     def a-4         = '╬'
     def a-5         = [mark block] '╔═══╦═══╗' [begin mark][unmark]
             [down][mark block] '║   ║   ║' [mark block][begin mark]
             [down][down][overlay block][up][unmark][mark block]
             '╠═══╬═══╣' [begin mark][unmark][down][down] '╚═══╩═══╝'
             [up4][left8][left]
     def a-6         = '.' [left][down][left] '/╬\' [left][left][down]
     def a-7         = '°' [left][up][left] '\╬/' [left][left][down]
     def a-8         = [mark block] '╔════════════════╗' [begin mark]
             [unmark][down][mark block] '║                ║'
             [mark block][begin mark][down][overlay block][unmark]
             [down][mark block] '╚════════════════╝' [begin mark][up]
             [up][right][right][unmark]
     def a-9         = '<╬' [left][up] '.' [down]
     def a-0         = [left][up] '.' [left][down] '╬>'
     SET DISPLAY MONO
     SET MARGINS 1 65 6