CydandClaude Fable 5
db7745fcd0
Un-ignored: the dev drive is the ground truth the restoration and emulator work constantly reference (DPL3/LIBDPL + VRENDER i860 renderer source, BT/RP live+dev game trees, VGL_LABS pod boot, scene/audio content). Kept in-repo for the pod-owner community. Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
142 lines
4.2 KiB
Prolog
142 lines
4.2 KiB
Prolog
* Use EDIT .KEYDEFS to see all of the key definitions
|
||
set display color 80
|
||
set display small font
|
||
set blankcompress on
|
||
set margins 1 254 1
|
||
set tabs 3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60
|
||
set hscroll on
|
||
set tabexpand on
|
||
set searchcase any
|
||
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 = [begin line] [down] [indent]
|
||
def backspace = [rubout]
|
||
def esc = [command toggle]
|
||
def tab = [tab]
|
||
def f1 = [mark line]
|
||
def f2 = [copy mark] [unmark]
|
||
def f3 = [cursor command] [begin line] [erase end line] 'file'
|
||
def f4 = [cursor command] [begin line] [erase end line] 'quit' [execute]
|
||
def f5 = [insert line] [up] [first nonblank] [down]
|
||
def f6 = [delete line]
|
||
def f7 = [cursor command] [begin line] [erase end line] 'e '
|
||
def f8 = [cursor command] [begin line] [erase end line] 'e' [execute] [command toggle]
|
||
def f9 = [top edge]
|
||
def f10 = [bottom edge]
|
||
def c-left = [backtab word]
|
||
def c-right = [tab word]
|
||
def c-pgup = [top]
|
||
def c-pgdn = [bottom]
|
||
def c-home = [top edge]
|
||
def c-end = [erase end line]
|
||
def c-enter = [execute]
|
||
def c-backspace = [delete line]
|
||
def c-f1 = [uppercase]
|
||
def c-f2 = [lowercase]
|
||
def c-f3 = [push mark] [up] [mark block] [down] [overlay block] [right] [pop mark]
|
||
def c-f4 = [push mark] [down] [mark block] [up] [overlay block] [right] [pop mark]
|
||
def c-f5 = [push mark] [mark line] [copy mark] [unmark] [pop mark]
|
||
def c-f6 =
|
||
def c-f7 =
|
||
def c-f8 = [delete line]
|
||
def c-f9 =
|
||
def c-f10 =
|
||
def c-a =
|
||
def c-b = [begin word]
|
||
def c-c = [push mark] [mark line] [center in margins] [unmark] [pop mark]
|
||
def c-d = [dos]
|
||
def c-e = [end word]
|
||
def c-f = [copy from command]
|
||
def c-g =
|
||
def c-h =
|
||
def c-i =
|
||
def c-j = [push mark] [down] [first nonblank] [mark block] [end line] [end word] [mark block] [up] [end line] [end word] [right] [copy mark] [down] [unmark] [delete line] [up] [pop mark]
|
||
def c-k =
|
||
def c-l = [center line]
|
||
def c-m = [begin word] [mark block] [end word] [mark block] [tab word]
|
||
def c-n =
|
||
def c-o =
|
||
def c-p = [print mark]
|
||
def c-q =
|
||
def c-r = [push mark] [mark line] [copy mark] [pop mark]
|
||
def c-s = [split screen]
|
||
def c-t = [copy to command]
|
||
def c-u = [undo]
|
||
def c-v = [next view]
|
||
def c-w = [next window]
|
||
def c-x =
|
||
def c-y =
|
||
def c-z = [zoom window]
|
||
def s-tab = [backtab]
|
||
def s-f1 =
|
||
def s-f2 =
|
||
def s-f3 = [reflow]
|
||
def s-f4 = [undo]
|
||
def s-f5 = [confirm change]
|
||
def s-f6 =
|
||
def s-f7 = [shift left]
|
||
def s-f8 = [shift right]
|
||
def s-f9 = [insert line] [begin line] '/*' [tab] [tab] [tab] [tab] [tab] [tab] [tab] [tab] [tab] '*/' [begin line]
|
||
def s-f10 = [insert line] [begin line] '/*page*/ ' [begin line]
|
||
def a-a = [pop mark]
|
||
def a-b = [mark block]
|
||
def a-c = [mark char]
|
||
def a-d = [delete mark]
|
||
def a-e = [end mark]
|
||
def a-f = [fill mark]
|
||
def a-g =
|
||
def a-h =
|
||
def a-i =
|
||
def a-j = [join]
|
||
def a-k =
|
||
def a-l = [mark line]
|
||
def a-m = [move mark]
|
||
def a-n =
|
||
def a-o = [overlay block]
|
||
def a-p = [cursor data] [unmark] [mark line] [find blank line] [up] [mark line] [reflow] [end mark] [down] [down] [unmark]
|
||
def a-q = [push mark]
|
||
def a-r = [redraw]
|
||
def a-s = [split]
|
||
def a-t = [cursor command] [begin line] [erase end line] 'set tabs 8 16 24 32 40 48 56 64 72' [execute] [command toggle]
|
||
def a-u = [unmark]
|
||
def a-v =
|
||
def a-w =
|
||
def a-x = [escape]
|
||
def a-y = [begin mark]
|
||
def a-z = [copy mark]
|
||
def a-f1 =
|
||
def a-f2 =
|
||
def a-f3 = [push mark] [up] [mark block] [down] [overlay block] [right] [pop mark]
|
||
def a-f4 = [push mark] [down] [mark block] [up] [overlay block] [right] [pop mark]
|
||
def a-f5 =
|
||
def a-f6 =
|
||
def a-f7 = [scrollleft]
|
||
def a-f8 = [scrollright]
|
||
def a-f9 =
|
||
def a-f10 = [print mark]
|
||
def a-0 = 'Ż'
|
||
def a-1 = ''
|
||
def a-2 = ' '
|
||
def a-3 = '‚'
|
||
def a-4 = 'ˇ'
|
||
def a-5 = '˘'
|
||
def a-6 = 'Ł'
|
||
def a-7 = '¤'
|
||
def a-8 = '¨'
|
||
def a-9 = '®'
|
||
*trash heap:
|
||
*def s-left = [backtab word]
|
||
*def s-right = [tab word]
|
||
*def a-1 = [cursor command][begin line][erase end line] 'c/"$@/"-$/*'
|
||
*def a-2 = [cursor command][begin line][erase end line] '/grandfoot/'
|
||
*def a-3 = ' parms: line=0 '
|
||
*def a-4 = [cursor command][begin line][erase end line]'c/"@@/"-@/*'
|