Category : Word Processors
Archive : HP22D5.ZIP
Filename : ISSUBST.PAD
HPAD ÿÿ 0 | e J .
¨ N ^ V handler openpad;
begin
put empty into pg fld 1;
put empty into pg fld 2;
end; ä^ 7 X§ %X
X X§ %X
X*aMZa ÿÿ {% ~ # & : L T f Q´RÍ!&G!.¢ &Ä_. . ´0Í!<r.Æ XËUìF= uR´0Í!<rJÄ^&Ä &
$ ISSUBST µ * HyperPAD 2.2¨ Brightbil-Roberts & Co. ± Extensions ± Isubst ¤± ¹ ¹ ¹ ¹ ¹ ¹ ¹ ¹ ¹ ¹ ÿ ÿ ÿ ÿ ÿ ÿ ÿ â Ðp00¤ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ @ w ÿÿ H P Drives p D ÿÿp ÿ ½ÿhandler select;
begin
-- issubst is used to determine if the given drive is an actual
-- drive or if it is a subst drive.
-- EX:
-- issubst(
put drives() into dlist;
put substitute(dlist,",",return) into page field "drives";
put the number of items of dlist into numdrives;
put empty into slist;
for i = 1 to numdrives do
begin
get item i of dlist;
if issubst(it) then put it after the last line of slist
end;
put slist into page field "Subst";
end;
Ò7 ¨ Y£ ¥£ , ¨PXdrives %X
X£ @£ ¥ £ ¥§ £ ¥£ £ 6K £ X£ £ ¥£ ¨issubst £ £ Xl A
§ £ £ ¥$«ÿ£ XSubst %X
X*H ; H ð ©
Get Drives 1 G G p ÿ H P ( 6 Subst k p ` ÿÿp ÿ > ( 8 0 Handler Select;
Begin
go home;
End;
Ò8 7 * H H N Ä Home utton 0±±±±±±±±±± 1 G G p ÿ B % 5 - Handler Select;
Begin
cancel;
End; Ò5 7 X
:* H r B F ø ¤ ¼ cel ton croll ,left,right,u1 oG G p ÿe L / ? 7 handler cancel;
begin
go to pad "extens";
end; ? 7 extens *&Ô N ÿ ù ÚÀÄ¿Ü ³À ³Û ³À ³Û ³À ³Û ³ <- <- ³Û ³ Existing Subst drives ³Û ³ drives¦ ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ÀÀÄÙÛ Âßÿ ÿ Ç ÿùÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÿÿÿ- 2 A
W
h
²
È
Z è