HPAD0JSjvB|. |BjjA`/*U<p L̀€€€€€@|m& HyperPAD 2.2 Brightbil-Roberts & Co. Menu Colors p0ڇ@H|zĿ New... Open... Save a Copy... Ĵ Compress Protect... Delete... Ĵ Import... Export... Ĵ Printer Setup... Page Setup... Print... Ĵ Run Program... Exit P@Fpppppppppppppp`pppppHpP@ `p`pP@`pppTppHpOpHp|SP@Fpppppppppppppp`ttpppHp,CP@Fpppppppppppppp`ttpppHp(tP@  Fpppppppppppppp`ttppp HpDP@ Fpppppppppppppp`ttppP @  Fpppppppppppppp`ttppp Hpup HpgP @Fpppppppppppppp`ttp$ppHpPP @Fpppppppppppppp`ttpppHpRP@Fpppppppppppppp`ttpppHpxP@Fpppppppppppppp`ttppHdk7P@Fpppppppppppppp`ttppHXk112A6%5-handler closefield; begin doit; end;57doit*P 8 ; < hilite$00p,pA%5-handler closefield; begin doit; end;57doit*P 8;DImenu$00p4pfvnhandler select; begin get pg fld "menu"; add 1 to it; put it into pg fld "menu"; doit; end; v7Xmenu%##XXXVXmenu%X Xdoit*H=?Lw Button1GGpHLk116gwohandler select; begin get pg fld "menu"; add -1 to it; put it into pg fld "menu"; doit; end; w7Xmenu%##[XXXVXmenu%X Xdoit*H=?Xw Button1GGpHp New...B%6.handler closefield; begin doit; end;67doit*P 8 ; dletter$00pPpH| FileP@`ppHd120B%6.handler closefield; begin doit; end;67doit*P 8;x4dimmed$00pppHl  Import...P@`xxplpHd  Export...P@`xxptpj{shandler select; begin get pg fld "letter"; add 1 to it; put it into pg fld "letter"; doit; end; {7Xletter%##XXXVXletter%X Xdoit*H= ? w Button1GGpk|thandler select; begin get pg fld "letter"; add -1 to it; put it into pg fld "letter"; doit; end; |7Xletter%##[XXXVXletter%X Xdoit*H= ? w Button1GGpj{shandler select; begin get pg fld "hilite"; add 1 to it; put it into pg fld "hilite"; doit; end; {7Xhilite%##XXXVXhilite%X Xdoit*H= ? w Button1GGpk|thandler select; begin get pg fld "hilite"; add -1 to it; put it into pg fld "hilite"; doit; end; |7Xhilite%##[XXXVXhilite%X Xdoit*H=?w Button1GGpj{shandler select; begin get pg fld "dimmed"; add 1 to it; put it into pg fld "dimmed"; doit; end; {7Xdimmed%##XXXVXdimmed%X Xdoit*H=?w Button1GGpk|thandler select; begin get pg fld "dimmed"; add -1 to it; put it into pg fld "dimmed"; doit; end; |7Xdimmed%##[XXXVXdimmed%X Xdoit*H =?w Button1GGp'handler select; begin put 112 into pg fld "menu"; put 120 into pg fld "dimmed"; put 116 into pg fld "letter"; put 7 into pg fld "hilite"; setit; doit; end; 7pXmenu%X XxXdimmed%X XtXletter%X XXhilite%X Xsetitdoit*H! )Defaultonr wrote this.  U$1*00pE/?7handler select; begin go to next page; end; ?7<*H"+5YExamplesnr wrote this.  U$1*00p<'7/handler select; begin go home; end; 77*H#IOHomelesnr wrote this.  U$1*GGpB%5-handler select; begin setit; end; 57setit*H$8= rSetplesnr wrote this.  U$1*00p(80handler select; begin put trunc((pg fld "menu") / 16) into backcol; put (pg fld "letter") mod 16 into forecol; put (backcol * 16)+forecol into pg fld "letter"; put (pg fld "dimmed") mod 16 into foredimmedcol; put (backcol * 16)+foredimmedcol into pg fld "dimmed"; doit; end; 87Xmenu%##"Xletter%##p!Xletter%X XXdimmed%##p!Xdimmed%X Xdoit*H%#4Copy Backgroundte this.  U$1*GGp handler select; begin put trunc((pg fld "menu") / 16) into backcol; put (pg fld "menu") mod 16 into forecol; put (forecol * 16)+backcol into pg fld "hilite"; doit; end; 7Xmenu%##"Xmenu%##p!Xhilite%X Xdoit*H&#4Rev Backgroundte this.  U$1*GGpD'7/Handler Select; Begin cancel; End; 77X  :*H0'CGP eutton1GGp!handler setit; begin set the menucolors to pg fld "menu", pg fld "dimmed", pg fld "letter", pg fld "hilite"; end; handler doit; begin -- Menu Color --------------- set the color of pg fld id 2 to (pg fld "menu"); set the color of pg fld id 3 to (pg fld "menu"); --Hilite color ------------- set the color of pg fld id 22 to (pg fld "hilite"); set the color of pg fld id 23 to (pg fld "hilite"); -- Letter color ------------- for x = 5 to 9 do begin set the color of pg fld id x to (pg fld "letter"); end; for x = 12 to 16 do begin set the color of pg fld id x to (pg fld "letter"); end; -- Dimmed Color ------------- for x = 25 to 26 do begin set the color of pg fld id x to (pg fld "dimmed"); end; end; Handler openpage; begin get the menucolors; put item 1 of it into pg fld "menu"; put item 2 of it into pg fld "dimmed"; put item 3 of it into pg fld "letter"; put item 4 of it into pg fld "hilite"; doit; end;  ^e$setit7X Xhilite%##Xletter%##Xdimmed%##Xmenu%## P*$doit7X'  Xmenu%## PX'  Xmenu%## PX'  Xhilite%## PX'  Xhilite%## P 6,X'  Xletter%## P$ 6,X'  Xletter%## P$6,X'  Xdimmed%## P$*7X cXXmenu%X XXXdimmed%X XXXletter%X XXXhilite%X Xdoit*ڈ[ Menu at ributes ]܃ ܈ Menu Color ۃ ۈ ۃ ۈ ۃ ۈçۃ ۈLeter Color ۃ ۈ ۃ ۈ ۃ ۈçۃ ۈ Hilite Color ۃ ۈ ۃ ۈ ۃ ۈçۃ ۈDimed Color ۃ ۈ ۈ ۃ ۈ ߈ ۃ ۈۃ ۉ߃ ۼ߹Pres TAB to highlight a but on, then pres ENTER.0!3'73(R ^ v J b  p \ t 0 H Zx=^nx(6 sDTLhandler select; begin set the menuColors to 112,120,116,7; end; T7X 7116120112 P*H  +Selecttonr wrote this.  U$1*poBRJhandler select; begin set the menuColors to 112,120,7,7; end; R7X 77120112 P*H % +Selecttonr wrote this.  U$1*pkCSKhandler select; begin set the menuColors to 23,24,20,112; end; S7X p P*H+ 8 ,Selecttonr wrote this.  U$1*pmAQIhandler select; begin set the menuColors to 10,8,4,112; end; Q7X 1124810 P*H> K O-Selecttonr wrote this.  U$1*poBRJhandler select; begin set the menuColors to 48,56,63,11; end; R7X 11635648 P*H.Selecttonr wrote this.  U$1*psDTLhandler select; begin set the menuColors to 103,104,111,6; end; T7X 6111104103 P*H%.Selecttonr wrote this.  U$1*pmAQIhandler select; begin set the menuColors to 7,8,15,135; end; Q7X 1351587 P*H+8/Selecttonr wrote this.  U$1*pqCSKhandler select; begin set the menuColors to 71,72,79,224; end; S7X 224797271 P*H >K;0Selecttonr wrote this.  U$1*pI3C;handler select; begin go to previous page; end; C7=*H =LP0Go Backnr wrote this.  U$1*GGpp Hc<LDhandler select; begin send "select" to pg button id 1; end;L7selectXN *P @ L1%ppp Hc<LDhandler select; begin send "select" to pg button id 3; end;L7selectXN *P @' p2%ppp Hc<LDhandler select; begin send "select" to pg button id 4; end;L7selectXN *P @): =3%pppHc<LDhandler select; begin send "select" to pg button id 5; end;L7selectXN *P@<L  4%pppHc<LDhandler select; begin send "select" to pg button id 6; end;L7selectXN *P@4%pppHc<LDhandler select; begin send "select" to pg button id 7; end;L7selectXN *P@'5%pppHc<LDhandler select; begin send "select" to pg button id 8; end;L7selectXN *P@):q6%pppHc<LDhandler select; begin send "select" to pg button id 9; end;L7selectX N *P@<M>7%pp^rEditEdit Edit EditڌڌڌڌCut ^XCut ^XCut ^XCut ^XCopy ^CCopy ^CCopy ^CCopy ^CPaste ^VPaste ^VPaste ^VPaste ^VDeleteDeleteDeleteDeleteمممćEditEdit Edit EditڌڌڌڌCut ^XCut ^XCut ^XCut ^XCopy ^CCopy ^CCopy ^CCopy ^CPaste ^VPaste ^VPaste ^VPaste ^VDeleteDeleteDeleteDeleteمممppppp p pp ptppp  ptppp  pxppxp  ppppp p pp 0 0ggGG0gG0?0gogGOG0?0gogGOG080ghgGHG0 0ggGG0gGu7+N,--y.8//0C112Z22'333o44<55 6[66(77