Path: icaen!news.uiowa.edu!hobbes.physics.uiowa.edu!zaphod.mps.ohio-state.edu!uwm.edu!spool.mu.edu!olivea!charnel!sifon!newsflash.concordia.ca!clyde.concordia.ca!altitude!vandry
From: vandry@CAM.ORG (Phillip Vandry)
Newsgroups: comp.binaries.apple2
Subject: HKMenus.bsq -- Keyboard menu navigation utility (1/1)
Message-ID: <C32vzq.Izw@CAM.ORG>
Date: 26 Feb 93 23:02:13 GMT
Organization: Champlain Regional College, St-Lambert QC  CANADA
Lines: 172

=========================================
File:     HKMenus.bsq
Part:     1 of 1
Date:     February 26, 1993
From:     Phillip Vandry <Vandry@Cam.Org>
Pack:     NuFX, BinSCII
=========================================

HKMenus is a utility which lets you navigate through pulldown menus using
the keyboard.

The procedure is similar to ProTerm's pull down menus and many MS-DOS programs.
It's about time GS desktop programs can do it too!

Future versions will include hierarchical menus and neat stuff like that.

-->--> Cut here >-->-->-->-->-->-->-->-->
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
M0:HKMenus.SHK  AwxRAAAACA(4QIQg6qFAaFhLR4iuAwxRA8k(
GVvTlzW6CsKRAAAAR4iBBkRXHYAMdFhLBEQGAEgBAAAAAAAAHBAAAAAHAAAAAAAA
GVvTX(C2DAAPAMAABAAAAoDAAAw4AgLAAAAAAAQAAAgAdBxJAEgBNAQAZ0VEGAQA
R4iBBkRXAYAAAAAAAAwAAAAAEAAAAAAAAAAIAAAABAAAAAAAAAAAAgMACAAAAMAA
zDAAXYZqcAAAAAwEk5WbAAQYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAb7PI85ow26JDQBTABASRAIgAwiAAADJEMEQBwAgs2AMBYkAECmC(c64BmPnM
TkHM8yohQAggoBBK6ECI4CQhIBVTCLIjEIAaoCkDAICMBkzBYhJEGLCxBgRlgML4
MBIsXwTnqRgCAaAEvYgIaCkJM5JQYQbhVCjA5CEEGwqs3zPKAUwTWCCEjkMlcQqh
aCiMTFHlX4wZcrCJDIgivuFQQCAMSqP9WeNuS0lxgKyiCT4QLNJcQYQWO2gDAgAd
WKIqKURrahUAtAUmJKkCAHezQCAKwAMAoNJmGg5AFY3cB07so2FuMYPcEHCAEYgz
yFJYAcHAunH6ZCgBAU25elHVMCQB3U05FUTi8cH4Q(Am7mMLe70tC7GMjkCnYK4J
gCCPDnEoa0khwCEOy4jAjhM5ovSANOymAw9NXYQIgBHYgfDiOOEyA5MNH4wghh8c
qChBMMKmgaIE24wQihpWoPzPEGAaAQ(NWIYIxwjSbVRxOCIdE61NQ8yYvhm2IdhD
NKIgQIsM4QQEPCswGRjDGGCJYCkGw04ADorPNHxyEPGKwVXH()DQQNA)IcDQCOKz
IK2GiQQAjqAQcbjDBNCSgRIEy4wwgBIXcpjCJGIAQoNM64zghAAWcFjiJAEewBqG
boIECoB4CLpvJACwgi(Ny04zhAN6LEAwSLMB4xlNz4oQillFkYVlaCQEAB5MF6hg
ClB6cEFA2CASoJQUBIBJglkBaEAlYTYmdhXBaZrA2E1WtFWtFUVxF4WAZ4BgoUGs
x922bdVDFEccfVDojO0LUXdkV0WPQbNDAERigBAjkCwECCQAACOIQg04CgkkgNCB
OMMLgzp(KhJDhopgGhZBmCMAIi12B8J6AoDBmjrgLtgqiTPvQ4waVkoXuhHA0WOe
Z5FxIITTtDIFBEWlZDEe4lzkkYW5I4kZX4VCV0Cgh6RhbGZ(G2U4yjWIHWXqwYbB
CBAJFBgBCsVoAYMS5AKAXVdoF2Wp94lWE2AgFN6hWzWTAgPHAUltZMSSpAetCkJI
AYGuwSIlBaqTAU7klqAZiaXuR1mWBoZqGBLAZTpAZftGf5552Agn5AONFHfwc(3G
OAQ8VY)ziTdVXGfOcg7KWJgmNMAQHtFeWK3Q56fag5AAne1gCSBZXJ4JLElpS9gG
RieYgHA48egA7eagBEagt4FOA7sL4FyWgkXwUjXAAcKARAeDDwxAnBIFRxOjAcIg
R5qLCQxaCklkqjWCLqXeRV0rDQBqglDocAA6AGgAOAI8BGLogFQvIsBakAN4EkAc
ZMAIgxnC2cIBWeQgFCgIpAESIAFBixaBAvTBCpBQFFwsk5O8BAsAgCDKIUjjAAhw
LQMEKAvAACRZ4z5awtjmCoIOGIANFjRBhoRAoKwgIVwiLQIbCCiCFgado1aFUqmY
MRAiJIMwHS4PxhTE0awg2ZggO49EDGmWsxjATy7AWwDA0YEYNCkAAgJAwrEN8Thx
1ixAqAYC1aAnxigVoFAELERxHUTURAEAAhwlxzN7hheR4kBwaUMXKIDFizTC4BAj
EPy3rCACuBWAbM7J4xg3uSTyU4REcUGOBcTePCBec(Fa8rTI8occQEn7ehiEpYG9
YrGCSglkgYNACDjIgAENbAtj0FABFA4ByIOviA4jR6FA8AHkq1hoaVYSNHnHvTLV
JwQEE88xLDIIv1eFDvF05j6K8uMiRvpQaY(uZAvdRQ8CD8laSQQhLBJqRAAeoAAi
5BBKg(wCsBgErAE3NggvCQ5CogEBmcQhJGoynBuaiun2xQgWUKwhQPgYG9IS5C3I
AgmQgXYDukCQMqoWBIuiNAYO4JHKWz4iXChBABI0Iq1bCxpBYV4Ai1KQLHoiHISN
WBQDQb3IqhJgeKH4dE8wBCqFjyiRgDaAaIA3ieb43BgEFHwlB5m1eFIVwHAYZBIw
Aa0fmDcDb63WeGCD4GVppaoXqg1MwrmsCfL1ZVhpzQUbUjOwhhSb4lCA(KGQ)OY1
yQvzqAVrgbinctg1)RhTKAEENOAmijYAwFwBaYCxPlIwh8IPFhZjgC0AAVgjeAgY
IAQJACMairA2wTQEK0C3OPIgB0icENwQxq6IACBAyabABMQtaFsWBCEeAUwtfITR
6ioBLAQgEDwErqXA2jgiPAh1EQEKOkCQiDGGA(AGQiQRHsYcEMAJHCK8ACGMwQBw
eoh5FcIgCAgEXgOAI9gHAcQwE8FvVAKgvi6EAJEIzXwW3TgECtF0YHlWiyqR4iRA
SHwQGdLgBIKvFyWERqx3m3qCANMcYUAbMy9QCIk0I06Aa7QMUrdUHgBZWhw4QHth
CKtiswIGyYgTJCAAiTLC4qBxJtoKigDuek5GNhgoR70Lc7EgKHgo0YAUtGA7ZcRI
IZgEbEZRGsY0EjP1A4GOsaMBsbEkKFgopVEcEGQwiAEAIpEAA8TgQhI0BgLtCClO
sGfngVyZNGAQYUAGj1VG5)CQAtwZQf2Fk8AoKLMN0jt2QpBtUCULCQxSnRHoAEvC
AYUlgggEIPww9EAETaP5vvBfx4UAmApXPGBoksC(kpJ7DP9TYKqawUO908IoDWGv
FhSjQT)A3AkCIsg4DEDMoHsWhRrRgdr2C3DAV5YEgKErAOQ(RYjFoTwiFIR4MgCE
OAgJDBUhIVaAtmAAAFktdMAjECA6KrGO)HAuX(w4PBEerhVNAbRDY3aVnYQ94m4E
xqu4BF4kcPEY)xCireoJQSXFiH8WCQtRmcCjaoVoGsYEkvOfr3vjjDWF3aBDpOsI
kNfUZNiKctXml7G03yVQG(gRHYGT0dfF(cnz7lJ98IjeLz8vzhYwVvrFZyp5hGdM
YTnrDPCu6cSMTkSzncK2LBQnWz05MC(GdMFE)EV6vGtevlpfbhfn5AWXxhDbpcei
XTABIoKI3EvviQKNfp3hzxLw(Soie04)ADCLx75tYNAVBcF47cAg4)CA7)cvH4H8
d8IgEy4nGMEwNhZynMUHcZlrVj(g5aDAKOiZO017otJEaQTRNwIk22Eclgw5AHR6
COeCLsAIgQMAAErkglrrCks3aQy4E0AAxVJb(yGQfq5MN0qieqlPnzjRNEf4Q9W7
4DFE4(9hUFo1w3G4(cemLgqGOCIANMBuggKAKHhFWx33IoKEgiWZkbQoUbjqecog
UbAcc8raORiWX3CYb7iOE5jg0Ajsgcwu0zqKr1SkpfA(o5iAhbIYj7qKY5iSBZAC
(JAKNWK4pjyK2A4wCDLu3DsO3BwCG0CQzRAhGAMKVRAAj8CiPA4MF4LDURIEofA8
GATkzEAAcsJ0FNoQ8ygm)xg4NI0WSVIWCBIwSFIACBIuRAA(PEiI1MKiWDMU9OgA
CgaMWEMWXAIbZQCXBBAb9JISm7LUEc4Me7LiEYoKEYIgjHAYVAogyMgAs7CEEw7w
)yL0udwgjXAaTOqwQJQSe3IqkRsW45A65FI4mb4aqcwgIUYStGKIeXYQVAiiCQIg
t7KyC4q637C(CBoKDBAqTBImHCIm1dY(vFISmBIA45CM)DAQjXkuFZogCDAwLBIA
Bg6mQjCmPtTgtJwQWNIAF0CQSAAUAEgQFQM(wTCEBYssAAIKJYAgG4Kc)cAgw0CP
CzqGrRgA)REALp5wca40CSqWDS4KCQ4KgUAOg9rkyVATGBIa8eAAxNz8DoK045Dk
EBAu(1C6VFDFASAbeXElwJYqwEAx8eMwSB7m4BAgSNIgJCIi19gSA4B1CmC0Hg8M
bVAUDVzMJDIiJXD6NYrYrUgYvVwEaU4ewZAA(HISA06AtBACxdDAHo5uIdLK2dDQ
4dzc6dzk7NwS8BwS(dz0IUzEX1AgYjTcsNIADUR4Y1AgMDAgclTQnWYyIDocwwg4
53ASyy5cYqqI)FgY4tyS2GICYLkaAvMUUvq83uC2YLscqOAQkgIF)ZI2qAIOBXAU
VxEJIAIEngIE9JA47jAVbBaQCBIcTBIY5xEiUA4kZfggO5gYTTAqOtjuwQAy3qiU
AXoAEriUJbsMvWIE0A70kwCYfVIUaH6I1aMWMsyGcHCmZFwA3BAiL1ECCL7ctIAQ
bbA09wA5y)KAgBQYmJY09EDYEUAgqRIEXfA(jRYEPDAEffISePJeAtDvRdAeo7je
KQQKWRIEkBIEMHKy)QAFSBIEkAAI7WIc8syW(Pg(N4jiFYAuWhKeVwM693MDOYIh
xTAEw9E8BdAxdUEsmFI0IxE6lcIsOH7qQbIbxRIhQXIaVEI1lzM7008kGxJWnaAC
hd820IDEQc4SAZYLjR4atpE6JvbmIGAoRY506ZR)ydI(HqaATaQnBeQ4QnZ1)CAY
u3p1ZkJ0iimKcmg8jYA21awlgoQobAAcazZWBOHUgwX17mIsNTWiRT2tQ(5tAPAM
vJnQRgQgj0C8VlhOGvC8BzCepiQOSWX6XVatZFgGArj6(jgIH8A4LFq6jIqGNWnu
5IKYqkx9uIqyvYqaL(gSEo2ESOKwt9Z9dpJEK8pypgKMEZh(OHAEpmJ0rsB8OJGe
1WqCwVaOWVnO8WqiQDaeBJA8IaqSqZqiHTgiAgqQGbK4E5QGRoKiBcKYKhAIq8A4
2DQRkcaOfeDhpAAqIABwEIAQpTEIAOwYoAAMx0AAKsAcMQAkKkQcI7F4T8l(BwaJ
tG6NfSahkpl2PkjiEoK8wWAYjhQANkFMQwKwrDAEVSAgyhah5d3RTqTBprZUuppg
SqZtkIaZxqJ9zKaOFjRmXWaSD)ZAuuqqV(6AsiQBFEmmgBwCcdDc0i3QWnYtA6pW
wHAcpxaSimI4WDBwwzlCKDAEUgAYLKAs6fAoJzEcaHAtUWAouKAB2siixsiitAgS
4a39TOl80MQI98gSS0yqHR7B)dw2XSbZiYQAFqp2CiqCuEnaKshKQTAgBMGqgdAo
kLAA4agmgpQiFyJkJDAQwjYuEKAY2GAI58gYBBhqEc5J)qAQyCgUMcrqkmxyrFAI
nQwCaJw4x)AQJMKkSebUtPWRWNHI9AQSHsC8TuKIhf72kdAopEAI(yxyDh7UwS7(
S4QYpcAoFK5ClCAYwDwSbDAcDwAg1hDECILkcTQi4KgmBAQOa9AoaaF4IvBAr9Tu
E0QRKoAUl(IMxDAwRoIWIgAVlyKEdDEIpCQpa1KaIxLwGgAYn2AoKBAYQLw0uKAM
5g7Y))gyThLoOi7xQe7S4562mlBkPC2oNs72xo7qsuGoN2yppeF8eRHMXOwq3SkR
53i(N476rY0yNOE8fKKsTtRUGW7aJhqm)8wScS7GO1S8(S7WoawCNiVuQOb57WZR
GsyagjAArSUB9kFYpSUBimFYOEA4qSDIToQNZ8DYTwGtIrAUqvoAuDAGnCAGPeEw
DEUqrUDIo9AoCYLAWDQkwrk9cWAotOMIpuIAsoQUx5Ef0DRlxIMMJl1ZeIsxXmFg
3bbAwQAgMCQEIAQRnBAw3ZA8HeA8XiA8nmA83qA8BuA8HBAoneA0yqA0CvA4NzAg
g3AwTBAw6VAgWeA8ymAs)uAsMzAMs3AAKBAQPbAg93AURAAYFNA0oZAAxeAACgAM
EvAMB4AY2VAk8BAAAgAE37AAidAwFAQAyIA46MAYYVAQ4CAcOzAIj3AUu7AcdMH8
bLAEQAAWXEAMPQAQdhMUlZAExZA0udAwdmALxqAwGvA8QBAM3nA0T8AwWAA4QNAs
fVAUzhCY6cA0gmQprqAMEzAEezAwZIAInIAEwIA0(MAkKRAEhTA0dVAnnZAMtZAo
6dAUMiAkgmAUoqAQ0uAADzAAU3AEo3AgZ4A8sIAAGRAIMRAkSRA8WWAUvqAU5uAI
MsA0NzQbZ3AMm7AM17Aob8AkWEAIlIAEzMAAWMAc2WQHy9M74dAUHeAwZiAspmA8
7qA8gzA4d4AsGAAI0HA0)MAzbENgwZQDXiAIfmAorqAg1qA4OsAso3Q)07AsT0Ms
JAAYVEAIqTNwcVQQ2ZAoUhAMHrQ7kzA8O4AsKAAMwYGw4MAULNA4kVAISiA057A0
lBAId8w0DAAAnlMgipyYVONorqAc)uAUKzAcUzA8a3Ack7AEq7Acf9AEj8Q3gAAo
oIAUuIAs)MNMT9MooVAYLaA4SiA8iqFcsqAk5GN8)uAwbzAUfDBIw7Ak6)AMW8A4
PAAwaYNQjEA0GRAMEWAYOON0jmAcyqAwZvAg47AIz8AsIAQMFlFgRRAsrVA4(dAE
QiAkWmAMcmAk)rAoDAAk2JAwsqAgUzAMmtNkU8QskBAsbEQjkEA43IAojRA45ZAs
GiAE0qA47uAc1jM8wDAIBsA8JsCor)gDXDAExDu8cDAEBBu8JCAM4D(kFQAkP4D0
cPgjPAw2GcgDPgF8oUmPPDurPI3dI0gbwLOsCnAYKIeRJkgzPcHMJwgvPgH4L4gH
PIGcMMgvP8IoM4grPUJ8O8grKMOoPAgfPIKMRZgvwPubVxAIgAu)SFAAUCurWVOw
gpg)1Cu)OFAAI9gDdFAEO9gDnFAERUgvPMF8qZgjuVubWlMkRcgvPQL4SIgnKcOI
S0gjP8LkD(gjhUubrFAMTIgf0YOc8FAMLBurNgO0)DBIYmOYXCgDZmurbmuvAYgr
GVvTuoM2DAAPAMAABAAAAoDAAAw4AALADAAAAAAAAAgAdFhKAEQGqAgBZ0VEGAQA
R4yBBkRXAYAAAAAAAAwAAAAAGAAAAAAAAAAIAAAABAAAAAAAAAAAAgMACAAAAMAA
ADAAJoP1TBAAAAgBhVmcl1GZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAb7PIQlYy0ttBgiGWIcwQAtEJjnCNC7opC7GMjkCnFT4BNQgg4EqWb08JiByN
xCIuBSYDNUigRhIkUQ8AkHGNTkLlGx0syLGECCIgb0gJgnmNCALgcwYkDgRnQymD
VkAxI(UKClBVTkcJa0wJYzFII6AcD7FNyAHgRSwEWPnMygAgazgZO(WODAqgX78k
YDnNDnGlX7IkyXWNTkHiIywkSbHiDlAnIPyxhDCNZnP1byMg5DyOBUndZkoIenHE
hlD1IywprUqMTlp1UAjxo(WOzxGUkvqwsAynhawYIWTeon2OjVkzgBrGILnw6CNs
vvKhXH3OY3OeMdmxclnNqXGZTrMZvWVq6ksTc0A5NRXnpF)mbQk(CT2NqjPnb4sh
rIK0xgnqc8cJ6ZvO0ya4rBGXI)KDmOES7weMUMjivLq4wBzvB46CDSI4z(yiLLF0
ifLwymg0i(XCsWIKuDCqwLDsxuKszNUDBbKSDCq3cwfB34gALwUM9ywQvor5ebLj
2EuA7KnNGODLNsFfGOjs4m8sTrQwqEorhNAWkrDCFOKYwI9lW44giCGUAoDDFOCl
wEEIQEyjtrOxIujxEmwkM9sMw20chRgo(nTPvE0AqlCNGw40NOu0Cmbyzu40SnBF
QsSIoDlWAJdjoOEqcLpo(IbDts)e6TDOORB1FoD(YbSKBDg70mDuLR1oYyNmx2Ei
DTjE6rIDhSrUquDT9(UtVzDxUkDMuO8Qz9SVYBTN1D5GchzQnGLVAA9MAslC1sQD
A2LuPJbfgqYKpogo2AHnrg2uMLePwuuNP346t0uEHTFLtgMgkEDJpgYt1iohKet0
QvGFlVNNL14svObTYdzTbtMtYsNAcGjjjhjyFGFRxu4o60CarICmxian8MIDOJ9i
aEiPgg4iDSo23uRoLLP7kQsnCx00VQR1fczNXt88IS8hDta6BMwg(8qJRPuKuD4(
)7wca4BKpP6JU9OZmH2lbg(EpM7VyjDCFOqKE0rm8c2Mx6TeqOSAcfJMIgZnUsjo
4SYVSBRRjg(6q9wQvmkjSSEdBhzRvmCkqffIIwY176yxWUoNiIQbahSif7ijqCgy
agouRZzEzvFiIK8MIoeGYgzU4M4GOxxr)rOdSIr9)NtUcxkuEjSmzQoDrdLeqb8V
wlIk3wwnRPd7ba(Ikc8IgefZKiCN0UfySXk8LnuX9O2c3r4MXhcECo5sIDSi9LQv
aLrIvCvaJNopkppJYpheS3e5fG7axgr8s6tRs6ixKl80wIuWmCnvJoTCMmxAGYp8
okA8MPDt1IRx9SDGzLWof6gGoOu1sSKrgBCgC7VzgjqIIFA0DiabXx06wrbE(4VK
)7UCGgOOwwWtkATayjBXcCJYmAENdMqGVTosBc(LhEjy)nYGzMORk2EJRbqW631m
HTspMQcVaHnMVClWQZgn(lYEhn0A4YIMB0rOoyGS4ZcERdqN61YKeBrc3I7TRuHt
lFQoO94q)alFMDMrg(UCAFhQnUIQqQA7CB5RQrJEIJChNwTYZIEE2Uh8KWCwZojJ
zAwQ4cEeWlY2LCNZSLXY8c(JTICJNOck6ghonWKK6iYDkT3DtYBoRJjeOL0UQocs
oozhW0CCVL6kGImzmBMOUOCDCjR2e3LhOQW6DJomAjOXAfOHnOjqYMcc5Mo8skCH
RCIDwrhW3IsoZqO5IkfjCoO7IPtSBfJ52NIJTWKIvpsMUvAlJWSV5MTKNELYNLj(
UNmB(SWEhhXAFjNqgcveGnh3glUCSttga(r9ZZA)cQ0raVhQyNSse(j8qKFPjin7
hUoss29SkA5zkUsx5hAXIS2I34fYx6iIu1JcZoBYimc3urvlzQ6fYMMjCHESJ5Qd
h3RKWvsQUgLAg0yzZYC6ZcPlhaZoxGMdcmf3sAJkKEKPbAcIDTKRhusJj1SaMxIA
heBhFinnM0dI0Q03UxyssNZSAxW1Kosios)u)VaI5I0mTZ7FtqyFwA3coQ2wzC51
EwALhhhJKRqf0sZVZlAoRsAWuCEiygUKhWfCoTMCiGJoIUAHoi1Qg45CUOzh(IyL
JFU0TAsBlVA5NjKKKNwQbAokGACxDpJHjbCG6ljBshQR9MAsCuweByEBhxpD5Jkw
bcAJKASgDgSdgb8joQA3QZQgUkACbBtbjxPAVh(GXr3b2796EAgFAAAAAAAAAAAA
Aw23