HPAD0 JhtZtڬOPtt0 Add New ProgramG2MZ2 J;V*R*J*F*jbQ O(+/359<Pbj|UWVF~ P(F~P(^_]UWVF~P(F~ P(^_]U WV~uFFVPF^&_&w&7&F=~&P RPWFFFF |Pvvv $v '^_]UWV^_]UWV^_]UWV^_]ː ~y(t)oD*Lf*$*غp !L!VW*ؾ#_^VW*ؾ _^;s Et2..%U?^VN !s]U=F V!s]U>^!s]UVF]ERRORLoadFontSetDefaultFont,*5*xFFFFFFFFThis program requires HyperPAD. $FONTx|B%5-Handler Select; Begin help; End; 57X  :*HFN4 F1=HELPon1GGp[& HyperPAD 2.2 Brightbil-Roberts & Co. Load Font ñp0@P Z  " C:\CONFIG.SYSP H Work File Name!*-ppq:JBHandler Select; Begin LoadTheFont "courier.fnt"; End; J7courier.fnt  loadthefont;:*H*3Dn Courieron 100po9IAHandler Select; Begin LoadTheFont "script.fnt"; End; I7script.fnt  loadthefont;:*H&L+ Scripton 100p>(80Handler Select; Begin go home; End; 87*HIO Homeeron 1GGpD'7/Handler Select; Begin cancel; End; 77X  :*H CGpeeron 1GGpZ/?7Handler Select; Begin SetDefaultFont; End; ?7X setdefaultfont;:*H Defaulton 100ph(VGA)P`+6Graphics Card  pJfRhandler LoadTheFont(fontname); begin get graphicscard(); if it is "cga" or it is "cga" then begin answer "Can't load font with this graphics card" with "Ok"; exit; end; get findfile(fontname); if it is not empty then begin get LoadFont(it); if it is not empty then answer "Error loading font" && fontname with "Ok"; end else answer "Can't font" && fontname with "Ok"; end; handler openPage; begin put "(" & graphicscard() & ")" into page field "Graphics Card"; end; handler cancel; begin go to page 1 of pad "ideas"; end; fk$ loadthefont87X  %: XXXcga +cga +26OkCan't load font with this graphics card  U*X   ]: XXX .Q   loadfont;: XXX .#OkXError loading font-  U$OkXCan't font-  U*7)X  %:(,,XGraphics Card%X X*7ideas1*%Z ڡ  Character Set #  0@P`p #!1AQaq #"2BRbr ##3CScs #$4DTdt #%5EUeu #&6FVfv #'7GWgw #(8HXhx # )9IYiy # *:JZjz # +;K[k{ # ,<L\l| # -=M]m} #.>N^n~ #/?O_o ٗ A Select a font or select Default to return back the default font. 005    &\