HPADA0|/J[tetetP@!@tete>,@printA^T\handler reread; begin get field "Files in"; put the dirs of it into field "dirs"; put substitute(drives(),",",return) after the last line of field "dirs"; if the last character of it is not "\" then put "\" after it; if the check of button "pictures" is true then put the files of (it & "*.GX2") into field "list" else put the files of (it & "*.PRO") into field "list"; set the startline of field "list" to 1; set the startline of field "dirs" to 1; end; handler openpage; begin put empty into field "file Name"; if field "files in" is empty then put the directory into field "files in"; set the focus to field "file Name"; reread; end; function _getfile(fname); begin get fname; if ":" is not in it then begin put field "Files In" into dname; if "\" is not in it then begin if the last char of dname is not "\" then put "\" after dname; if FileExists(dname & it) then get dname & it else get FindFile(it); end else put char 1 to 2 of dname before it; end; put fullname(it) into fname; if not FileExists(fname) then return empty else return fname; end; handler mark; begin end; handler cancel; begin go to pad "pad"; end; handler help; begin go to pg id 14 of pad "Fxshow.hlp"; end; )6;F$reread7XFiles in&##XXXXX   E:Xdirs&X XX  Y:,   P:Xdirs&XlA  \XXl>. \XXX XpicturesM  c+(*.GX2X,   ":Xlist&X X$%*.PROX,   ":Xlist&X XXlist&  1 PXdirs&  1 P*7Xfile Name&X XXfiles in&##+X  #:Xfiles in&X XXfile Name& hX reread;:*$ _getfile87X XXX :xXFiles In&## XXX \xq\ Xl>.\ XX   ,   ;:  , XXX$    ]: XXX$ X21 XX     a:XXXXX   ;:y9$X9*7*7pad *7Fxshow.hlp14*2!MZ2 e)+zf   !%),@RZlUVFFV FVF~~TvFF^&G&WFV^&*P&P^&w&7 ^&*%P Nu^]PUVWv>` uF [F \3.&>u&>t3 t3۴ t.[㋇.rw>\u .` s2m $<t]>u">u>u]^_]3uuq9uj9ud9u^>]uU>[u]G^_ t_ t)_ u_ : u : u_r ] y0>] rf>]u 6 >W_--G?33 F F F2ԈGr 3_^]ˀ>]t⸠>]sÀ>]t >]t>]t!>]t/>]tF>]t?.&Ë.&s 霋.&Н3s s@R.&ZVP ],y$..>\tX^..>[ w!>[r>]t>] rX^ ]2<rC<t< rs .6)<u >_u<u<u @>[ut>]uM6 2BFJ󰊁>t W@&I32_2>]s22Ҵ >] u2À>]r`>]t)>[r>[t>[r >[ w>]t4163۹(;}RQuBYZ+uX>_t3*>_r.^_t2 _ Ê^>[r>[w u 2t u2 À>]t>_uú^ 2S[_s2ۀ>_r Se[ǀ>_sdzSN[ǀ>_rdz6 À>] t">  .t!ں.u >[tÀu1WRSP3&>&} t2&X[Z_WRQSPQS2&C[Y3Ҏ&>&} t V^X[YZ_À>]t>] rRSPغs, u>] t(>] t! >] t>] t  uB[Su>] t>] t BX[ZRPں.u>[t >[uutXZÞS]2a.[ tR.&...2Z.>]u>u .P.>] r>]t...WG_PWG_ǠW>]t>uQ2Y..te^>] sH>]v7>]r:u@u@1`s %` r u.>WZ_>] sH>]v7>]r:u@u@1`s %` r u.>W tMQ..Y..u.2n.&b._.>W t _.>Q....Y..u5.2 .&.&.&._.>.j .l .m .p .o .>l u;.j N.j u.l .k .j .l .j t .k .j t.k  G.l .>p t.>p tV.6p .r .p ^RQSr .r ?![YZ.r .p á r t2&ȉaVWRS>3=!s[Z_^Ë.r ?!r>Gu>Xu>2t͋v` v` ?!X@tGH3;s7S:u Cr[ ;v [`tQv?!Y+w ?! $0<t<uȍ ?!Z_^3.>> u66.r ?!>u Ë?.F t.6p >t.r FGVX.p 뛍.r ?!A>]sDaW>a@_6Ju.>GW>a_6JuW>_6Ju' t.:t..>Wa>c33ۋaЧcs QYFuC_.r >!UuF=t3t2]~y*t<VXغ6 !L!VWؾ#_^ VWؾ _^ ;s Et2..ːːLoadGX2FFFFFFFFThis program requires HyperPAD. $@P@@P@P@Ph\Z^P`m@(@P>^P`m^P`mP@@ ,l5-.[WW89:;<=>?GX2GX2 B%5-Handler Select; Begin help; End; 57X  :*HFN"/F1=Helpon1GGp6handler keypress(k); begin case key(k) of "Enter" : send "Select" to bkgnd button "Display"; otherwise : Pass; end; end;87X   W:$$)Enter+SelectXDisplayM $/*P K4/File name͎͎͎͎͎͎͎͎͎͎͎͎tpP@KFiles inr0o0g0r0a0m0 04pg(handler select; begin get line (the currentline of me) of field "list"; if it is empty then exit; put field "Files in" into ddir; if the last char of ddir is not "\" then put "\" after ddir; put ddir & it into field "file Name"; send "select" to button "Display"; end; handler closefield; begin get line (the currentline of me) of field "list"; if it is empty then exit; put field "Files in" into ddir; if the last char of ddir is not "\" then put "\" after ddir; put ddir & it into field "file Name"; end;(7Xlist&##Xfg cXXXXX+*XFiles in&## XXX\ Xl>.\ XX X ,Xfile Name&X XselectXDisplayM *7Xlist&##Xfg cXXXXX+*XFiles in&## XXX\ Xl>.\ XX X ,Xfile Name&X X*P )1List0 0P0r0o0g0r0a0m0 0pphandler select; begin get line (the currentline of me) of field "dirs"; if char 1 of it = "[" then begin put field "Files in" into ddir; if the last char of ddir is not "\" then put "\" after ddir; delete char 1 of it; delete the last char of it; get trim(it); get fullname(ddir & it); end else get the directory of it; put it into field "Files in"; reread; end;7Xdirs&##Xfg cXXXX[XX1+XFiles in&## XXX\ Xl>.\ XX XX1 WXXl> WX   6:XXXXX ,   a:XXXX$X   #:XXXXXXFiles in&X XX reread;:*P -4Dirs0 0P0r0o0g0r0a0m0 0ppHandler Select; Begin set the check of me to true; show field "message"; set the check of button "Animation" to false; send "reread" to pad; End; 7fg  PXmessage&  *R PXAnimationM  Preread *H2 B `c7Picturesurestions0000000#000p0PHandler Select; Begin set the check of me to true; hide field "message"; set the check of button "pictures" to false; send "reread" to this pad; End; 7fg  PXmessage&  *S PXpicturesM  Preread *H 2 B hcD9Animationtionions0000000"000p0Ahandler select; begin get field "file name"; if it is empty then begin answer "You must first highlight a file, then select Display." with "Ok"; exit; end; if the check of button "pictures" then loadgx2 it else fxshow it; end; 7Xfile name&##XXXXX+BOkYou must first highlight a file, then select Display. XU*XpicturesM  cX  loadgx2;:$ X   :*H AJx:Displayriptstions000000010GGp0OB%5-Handler Select; Begin cancel; End;657X  :*H CG<celcel0o0g0r0a0m0 01GGpO<&6.Handler Select; Begin go home; End;67*H IO=Homelcel0o0g0r0a0m0 01GGpOP @2Cmessage X!pLp+~ HyperPAD 2.2 Brightbil-Roberts & Co. F/X Show Viewer ܇Ff Name:ۇۇۇ Other drivesۇand directories: File type:ۇڔ ۇ ۇۇنۇ This displaysۇShow Partner F/Xۇ PRO files.ۇۇۇۇۇۈ+Select a file to view, then select Display.p0Ȁ0=`== f/00478E:C<<Y==HHHHA H-,,This displays graphics mode .GX2 files only."H C:\CONFIG.SYSPH H Work File Name!*-pp- |Ak@@@@@A*A