Category : Word Processors
Archive : HP22D5.ZIP
Filename : SCAN.PAD
Output of file : SCAN.PAD contained in archive : HP22D5.ZIP
begin
if pg fld 1 is empty then send "select" to pg button "read tree"
else
set the focus to pg button "read tree";
end;
handler cancel;
begin
go to pad "extens";
end; äÚ 7 X§ %##+ select Xread tree L
$ Xread tree L
h*7 extens *h MZh - ÿÿ s$E Z J n F n > n : n i H è Ñ P 5 " æ É ³ V A * ¼ ® W . o h N 3 ù : 1 Z 5 Z 9 Z ; Z ? Z C Z F Z Z Z l Z t Z Z Uìì¡HFþ¸ P d Ä@ÿ6 ÿ6 ÿ6 Z Àu+Àå]ø P¸ PFþÄ &&WRP Z Ä ¸ å]ÃUìì WV+ÀFúFøFô9Zt
ZÑãF\¸ Fü^þÇ ë-¸ P¸ Pÿvþÿvü Z Ä
ÿvþÿvü d ÄFüÿ¡ZH;~ Ñã¿^ t½¸³ ë»>Z t+ÿvÿv~ t¸Ã ë¸À P¸ Pÿvþÿvü Z Äëÿvÿv¸ Pÿvþÿvü Z Ä èÎþ Àué=¸ P W Ä£\~övôë;V Z FøVú Ðtm¡ RPÄ^ø&&WÇRPZ d Ä( W £\>\ uEÄ &öGtæ& .tßþàRP d Ä@ð ÿtÿvúÿvøV Z Àu~övôé ~övô¸ P d ÄFü^þÇFö Fô9Fö|é Ä^ø&&WFöFVRPÿvþÿvüZ d ĸ Pÿvþÿvü d ÄÿZÄ^ø&&WFöRP d Ä@FöFô9Fö}¸ ë+ÀPÿvÿvèòý ÀuÇFô ëÿZétÿÇFô ÿvúÿvø Z Fô^_å] UììW~t ¸ _å]ËÄ^&Ä &*äP¸ PFòP Z Ä
FòP¸# P¸ P Z Ä ÇFú +À¹ ¿^ ò« W £ ÇZ ¸) P$ Z £ Ç +ÀPFòPè2ýÄ &&WFüVþRP d ÄHFüÄ^ü&?
u&Æ ÿ6 ÿ6 Z ¸ _å]ËUìì WVÄ &&WFüVþÇFö ~ ~&NÁFöÄ~üë&=
tG&= uó~üFþÿFüââFVFøVúÄ~ü^ôÅvøë&=
t
&GF&= uívø^ú^ô~üFþÄ^ø&Æ ^_å]Â UììWVÇFú ~t ¸ ^_å]ËFV
£ ÿvÿv Z HFðÇ^ Ä &&WFüVþÄ~üë&=
tG&= uó~üFþÿFü¹ vðë9G&=Äuù~üFþß+^öKÑûC^úÑã^ë&=
tG&= uó~üFþAÿFü;ÎFüÂFöVøøëµNîÆ ÇFî ~ú }é ÇFì^vî^ìÿ7¸ Pèþ¸ P d Ä Fü^þÄ~üë ¸ ÙÂ;ÇwO&=Äuî~üFþÿFüÿvü¸ P d Ä ö~;vú}¸* P¸ P d ÄFìF;vú~vî¸ P$ Z RP Z é§þËË´/Í!ÂÃËUì ´NÅVÍ!r3Àë¸ ]Ë´OÍ!r3Àë¸ Ë° é °é ° é °
é °é~ °éy °ét ì 8 n V Z p Z n n * Z ¸n غd ´ Í!¸LÍ! VW¸n ؾ ¿ è# _^t Ë VW¸n ؾ ¿ è _^v Ë;÷sï Etòÿ ëîÃ2ä.ÿ.+ Uì×Þ Ä~3À¹ÿÿò®uÿÄ~
¹ÿÿò®÷Ñ+ùÀØFþF÷Æ t¤IÑéó¥Éó¤óú Â]ËUì×Þ Åv
þØÀ3À¹ÿÿò®÷ÑÄ~Ǩt¤IÑéó¥Éó¤óú Â]ËUì×Ä~3À¹ÿÿò®÷ÑIú]Ë %s
%c %cÄ%s %s \*.* %c:\ %s*.* \ scan expand , n ¢ 1 n FFFFFFFFThis program requires HyperPAD.
$ SCAN © ¤ z & HyperPAD 2.2¨ Brightbil-Roberts & Co. ± Extensions ± ¹ ¹ ¹ ¹ ¹ ¹ ¹ ¹ ¹ ¹ ÿ ÿ ÿ ÿ ÿ ÿ ÿ â Ðp0Âÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ @ % ÿÿ ªAQIhandler select;
begin
ask "Read tree of what drive?" with char 1 of directory();
if it is empty then exit;
put scan(it) into page field "tree";
end;
-- SCAN
-- takes a valid drive letter as an argument for example E
-- and returns a tree structured listing of directorys on
-- that drive.
--
-- Example: Scan("A") ÒQ7 ¨ #X§ Read tree of what drive?
£ T £ + *£ ¨scan Xtree %X
X*H 9 D Þ Read Tree h ú±h±h é±hñ±1 G G p ÿ H ¼ÌÄhandler select;
begin
answer "that is directory" && expand(the value of me,the currentLine of me) with "Ok";
end;
--
-- EXPAND
-- takes 2 arguments, first a container which is a tree structure, like the
-- one Scan returns, and the second argument is an integer, indication the
-- line number to be expanded out.
-- Syntax:
-- EXPAND(
--
-- Example:
-- Expand(the value of me,the currentLine of me)
-- ÒÌ7 Ok f g
Ê cfg
Ú c¨expand that is directory -
£ U*P & à ê tree ¡ p L ÿÿp ÿ > ( 8 0 Handler Select;
Begin
go home;
End;
Ò8 7 * H H N ü G 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 -P ñ Scan Drive ù ÚÀÄ¿Ü ³À ³Û ³¢ Select "Read Tre " to read ³Û ³¢ a drive. ³Û ³À ³Û ³¢ Double click on a directory ³Û ³¢ to expand its name out to a ³Û ³¢ ful DOS pathname. ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ³À ³Û ÀÀÄÙÛ Âßÿ ÿ É ñ0ùÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÿÿÿ% _ Ô õ
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/