home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d7xx
/
d770
/
uedit.lha
/
Uedit
/
Jenkins2.LZH
/
InUse.table
< prev
next >
Wrap
Text File
|
1991-04-08
|
19KB
|
586 lines
======= Config!inUse.table ===============================
COPYRIGHT 1989
Robert A. Jenkins, Ph.D.
22901 Shagbark Lane
Miller Woods, IL 60411
(708) 758-0344
All Rights Reserved
Rick Stiles may distribute it as he pleases.
=============================================================================
When I first started adding commands to Rick's standard configuration I often
found myself overwriting his commands, or worrying about whether I might have.
It was obvious that the only way to know what was going on was to make a table
of keys in use, and I certainly wasn't going to do it by hand and then have
him change the commands in an upgrade a month later.
This command creates a table of all keys to which a command is attached. The
table is constructed at the end of this file after the words PLACE TABLE
HERE. It automatically deletes the old table before making up a new one.
Note that it must be attached to some key. I have chosen ctl-k which has not
been used in the standard configs in the past. Before you compile it run
teach keys and see if ctl-k is used in the current standard config. All of
the standard keys do not have a help line, so if you get "no help or unused"
the key still might be used. Try it and see what happens.
=============================================================================
Config!inUse.table
<ctl-k:
moveCursor(curFile,sFile)
setSearch("PLACE TABLE HERE")
if (not search(curFile,sHilite,eHilite,1)) return
if (not search(curFile,sHilite,eHilite,1)) return
equateLoc(curFile,sHilite,eHilite)
equateLoc(curFile,eHilite,eFile)
clearRgn(curFile,hilite)
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
refreshDisplay
putMsg("Computing...")
..===== all modifiers ===================================
..===== F1234567890 =====================================
insertRgn(curFile,eFile," Function Keys",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," 1234567890",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," 1234567890",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
do(n50,80,89) {
add(n51,n50,n52)
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ") }
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
insertChar(curFile,eLine)
..===== 1234567890-=\ ===============================
insertRgn(curFile,eFile," 1234567890-=\\",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," 1234567890-=\\",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
do(n50,1,13) {
add(n51,n50,n52)
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ") }
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
insertChar(curFile,eLine)
..===== qwertyuiop[] ===============================
insertRgn(curFile,eFile," qwertyuiop[]",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," qwertyuiop[]",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
do(n50,16,27) {
add(n51,n50,n52)
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ") }
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
insertChar(curFile,eLine)
..==== asdfghjkl;' ======================
insertRgn(curFile,eFile," asdfghjkl;'",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," asdfghjkl;'",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
do(n50,32,42) {
add(n51,n50,n52)
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ") }
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
insertChar(curFile,eLine)
..==== zxcvbnm,./ ======================
insertRgn(curFile,eFile," zxcvbnm,./",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," zxcvbnm,./",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
do(n50,49,58) {
add(n51,n50,n52)
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ") }
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
insertChar(curFile,eLine)
..===== unused ===================
insertRgn(curFile,eFile," unused 14 28 43 44 48 59 71 72 73 75",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," 14 28 43 44 48 59 71 72 73 75",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
add(n51,14,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,28,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,43,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,44,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,48,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,59,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,71,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,72,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,73,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,75,n52)
insertChar(curFile," ")
insertChar(curFile," ")
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
insertChar(curFile,eLine)
..===== kp0123456789 ===================
insertRgn(curFile,eFile," kp 0123456789.-E()/*+",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," kp 0123456789.-E()/*+",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
add(n51,15,n52) ..kp0
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,29,n52) ..kp1
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,30,n52) ..kp2
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,31,n52) ..kp3
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,45,n52) ..kp4
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,46,n52) ..kp5
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,47,n52) ..kp6
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,61,n52) ..kp7
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,62,n52) ..kp8
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,63,n52) ..kp9
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,60,n52) ..kpDot
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,74,n52) ..kpMinus
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,67,n52) ..kpEnter
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,90,n52) ..kpLParen
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,91,n52) ..kpRParen
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,92,n52) ..kpSlash
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,93,n52) ..KpStar
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,94,n52) ..kpPlus
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
insertChar(curFile,eLine)
..===== buttonDown buttonUp ======================
insertRgn(curFile,eFile,"buttonDown buttonUp",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," button DU",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," button DU",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
add(n51,96,n52) ..buttonDown
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,97,n52) ..buttonUp
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
insertChar(curFile,eLine)
..===== gadget1234 closeBox==============================
insertRgn(curFile,eFile,"gadgets 1234 closeBox",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," gadget 1234cB",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," gadget 1234cB",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
add(n51,98,n52) ..gadget1
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,99,n52) ..gadget2
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,100,n52) ..gadget3
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,101,n52) ..gadget4
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,102,n52) ..closeBox
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
insertChar(curFile,eLine)
..===== ESC, TAB, SPACE, RETURN, HELP, BACKSPACE, DEL ===
insertRgn(curFile,eFile,"ESC, TAB, SPACE, RETURN, HELP, BACKSPACE, DEL",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ETSRHBD",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," normal-",all)
equateLoc(curFile,locA,atCursor)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shft-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," alt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAlt-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ctl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," altCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," shftAltCtl-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," lAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," rAmiga-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," virtual-",all)
insertChar(curFile,eLine)
insertRgn(curFile,eFile," ETSRHBD",all)
moveCursor(curFile,locA)
do(n53,0,10) {
mul(n52,n53,104)
add(n51,69,n52) ..ESC
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,66,n52) ..TAB
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,64,n52) ..SHIFT
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,68,n52) ..RETURN
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,96,n52) ..HELP
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,65,n52) ..BACKSPACE
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
add(n51,70,n52) ..DEL
if (inUse(n51)) insertChar(curFile,"*")
else insertChar(curFile," ")
moveCursor(curFile,downLine) }
moveCursor(curFile,eFile)
insertChar(curFile,eLine)
>Saturday 23-Feb-91 17:13:42
PLACE TABLE HERE