From: P5JARGOM@UTFSM.BITNET (Javier Argomedo Zazzali)
Newsgroups: comp.sys.hp48
Subject: FileC - A file Catalog (like norton comm)  part 01/01
Date: 18 Aug 92 00:22:58 GMT
Reply-To: <P5JARGOM@UTFSM.BITNET>
Organization: UNCW news/mail gateway service



   FileCatlog V1.0,  by Javier Argomedo.
   Only 1269.5 Bytes !!
   And CAT (Repost, Using Catalogues in your programs), with
   the remote example.

BEGIN_DOC

   This is a really Norton Commander like program, for the HP48s/sx,
 using the inbuilt catalog facilities.
   Just press (FILEC) in your VAR (or CST) menu, and you will have all
 of this greats fuctions...

   * Two paths ( A: and B: ), swapable with a menu key...
   * You can move or copy any variable from one path to the other
   * You can View, Edit, Purge any variable.
   * You can Receive, or Send (KERMIT) any variable (or list of variables)
   * You can sort (ORDER) the actual directory
   * You can tag selected files for: SORT, PURGE or SEND.


    ********   WARNING   **********
    This program uses a lot  of the
    inbuilt catalog,  some  entries
    used are no documented,   and I
    had tested this program only on
    my version E hp48s ...   I have
    no  responsibility  on any data
    lost when use this   program on
    another version.
    *******************************

   Instructions:

   When you start FileC (from a meny key... i don't know why
   the programs that use ParOuterLoops hang up the calc when are
   called from the command line)
   You will see the next menu keys.

   (About)  obvious...
   (  A: )  will toggle from the two paths availables (A: and B:)
   (Fast )  will toggle from short or complete catalog display
   (DnDir)  to enter to a directory (do not use ENTER like standard use of
           catalog, it will display only the simbolic variables... if this
           ocurr, and the directory is not empty, use RRead)
   (UpDir)  UPDIR ...   same recomendation of DnDir.
   (RRead)  ReRead all of the variables in the directory...
   (View )  View the variable pointed to.
   (Edit )  To edit the variable
   (Purge)  To Purge it.
   (Send )  This will send the tagged variables, or the pointed to if you
           have no selected anyone.
   (Recv )  Standard RECV
   (Move )  To move a variable from the actual path to the other.
   (Copy )  To copy a variable from the actual path to the other.
   ({}+  )  To Tag a variable
   ({?}  )  Display the tagged variables
   (Order)  To Sort the directory based on the tagged variables.

   Notes:
      *  Do not use HOME, UPDIR, ENTER to move trough directories, use
        the menu keys instead.
      *  When you enter to a empty directory, you will see the word
        'empty...' instead of the standard 'Empty Catalog', do'nt
        try to operate any function on this virtual option.
      *  There are some options that can be improved, or added.
         (any suggestions)
      *  The size may be shorten changing the temporary variable
        names, but i'll leave it as is, for legilibity.
      *  If anybody want the source, or have any comments, please
        e-mail me ( p5jargom@utfsm.bitnet )
      *  Legal stuff: Norton is a trade mark ... ... ... ...
        and i have no relation with Norton, or Hewlet Packard.



   I also add the programs that i sent to you, but they arrive
 corrupted...  the programs are CAT, an utility to use catalogs
 in your own programs and a simple example with remote controller
 application.
   The CAT app. takes two arguments, a list with your menu definition
 in level two, and a program with the variable definitions in level
 one, you must know two internals to work with it:

   48E78h  Takes the name of the variable pointed to.
   48ECDh  Verify if it is'nt a directory

   The folowing example will show how to use it:

   @REMOTE
   \<<
      { "Sony"
        \<<
           #48E78 SYSEVAL      @ Get the variable name
           #48ECD SYSEVAL      @ Check for no directories
           RCL
           SONY SONY SONY
           DROP
        \>>
      }
      \<< { 10  15 } TVARS \>> @ Show only binary integers and
                                directories in the catalog
      CAT                      @ Call to the application
   \>>

Note:  The CAT program can be improbed...  if anybody have concern,
     i can do it (for example, when you enter to a empty directory)



   Now, the UUencoded and ASCencoded listing of the FileC and CAT

                                  bye.

PS.  please excuse my english...
ps2  To Basil Duval: Please tell me if you still having ploblems
    downloading this programs.

                               Javier Argomedo Zazzali
                               Electronic Engineering Student
                               UTFSM University, Chile.


END_DOC

BEGIN_ASC FILEC.ASC
 %%HP: T(3)A(R)F(.);
"D9D209CB0479E60D9D2097781F6A36CB916D9D204423047A2084E208054D6074
797E2E2E2B2130B2130B213079E60D9D20D6E20807246F6F567162737E8F6055
616CC093F12849E55079E60D6E209072573727F5C696374772D70B213079E60D
9D20D6E2070721636475716C6E8F6088130C8481322308DA16D9D2079E60D6E2
0707207164786F514B2130D9D2079E60D6E20707207164786F524B213072D702
FA308813079E60D6E2070721636475716C672D708DA16D6E20707207164786F5
14D6E20707207164786F524E8F60ABE81D6E20A07227561646F567162737E8F6
0B2130C84818813079E6018A3079E609E55047A20D6E20807246F6F567162737
D6E20A07227561646F567162737D6E20907237771607F5469627D6E207072071
64786F514D6E20707207164786F524D6E2070721636475716C6D6E2090725737
27F5C6963747B21300D47079E60D9D2058CE347A2047A20C2A20F00001426F65
747D9D20A6405C2A20120006496C65634164716C6F6760265139C2A2BA041C2A
20F2000249702A4166796562702142776F6D65646F602A5E23F2A2BA041C2A20
F20000753A6162776F6D60457476637D6E2269647E65647233A2BA041C2A20D1
000348696C656C20213939323E2743A2BA041803A2837A1B2130B213047A20D9
D2088704D6E2070721636475716C6E8F608DA16C2A209000014A3C2A20900002
4A3B2130D9D20D6E20907237771607F5469627E8F60B2130B2130A5C8447A20C
2A20F000044E6449627D9D2087E8443A26442302C12639916D9D2087E84E8F60
D6E20A07227561646F567162737E8F60B21301DDF3B2130B213047A20C2A20F0
0005507449627D9D20F61A1D6E20A07227561646F567162737E8F60B2130B213
047A20C2A20F00002525561646D9D20D6E20A07227561646F567162737E8F60B
2130B2130F3B8447A20C2A20D000054469647D9D2087E84DCE8427E24D6E2080
7246F6F567162737E8F6055616BC9162C984B2130B213047A20C2A20F0000055
7277656D9D20D6E209072573727F5C6963747E8F60F6A368DA16D9D204423087
E84DCE8472C80B2130D9D20EFE02B2130D6E20A07227561646F567162737E8F6
0B2130B213047A20C2A20D00003556E646D9D20A6405D6E209072573727F5C69
63747E8F60F6A36CB916D9D2087E84AF250B2130BE6E2B2130B213047A20C2A2
0D000025563667D9D2069F12D6E20A07227561646F567162737E8F60B2130B21
3047A20C2A20D0000D4F66756D9D2087E849BC2643A264423032230F45813223
0D6E20907237771607F5469627E8F6031581D6E20A07227561646F567162737E
8F60B2130B213047A20C2A20D000034F60797D9D2087E848813043A264423032
230D6E20907237771607F5469627E8F6031581D6E20A07227561646F56716273
7E8F60B2130B213047A20C2A20B0000B7D7B2D9D20D6E209072573727F5C6963
747E8F6087E84AF2508813079E60D6E209072573727F5C696374772D709C2A2B
A041C2A2050000ED2A2BA041C2093B2130B213047A20C2A20B0000B7F3D7D9D2
0C2A2031000451676765646A39C2A2BA041D6E209072573727F5C6963747E8F6
0ED2A2BA041C2093B2130B213047A20C2A20F0000F427465627D9D20D6E20907
2573727F5C6963747E8F60F6A36CB916D9D2087E84AF250B21302FF02D6E20A0
7227561646F567162737E8F60B2130B2130B2130B2130D6E20807246F6F56716
2737E8F600FB7479470B213077FA"
END_ASC FILEC.ASC


BEGIN_UUE FILEC.UUE
BEGIN--cut here--CUT HERE--
begin 644 filec.
M2%!(4#0X+46=+9"\0)=NT-D">8?QIF.\&=;9`D0R0*<"2"Z`4-0&1Y?GXN*R
M$@,K,;`2`Y=NT-D";2Z`<$+V]F47)C?G^`95%L8,.1^"E%X%EV[0Y@())W5S
M<E]L:7-T)WVP$@.7;M#9`FTN<'`2-D97%\;F^`:(,<!(&",R@*UAG2UPZ09M
M+G!P`A=&A_85M!(#G2UPZ09M+G!P`A=&A_8EM!(#)WT@KP.(,7#I!FTN<'`2
M-D97%\9VT@?8&M;F`@<G<&%T:%]!;2YP<`(71H?V)>3X!KJ.T>8""B=R96%D
M7W9A<G..;[`2`XR$@1@#EVX0J`.7;I!>!70JT.8"""=D;U]V87)S;2Z@<")7
M%D;V91<F-]?F`@DG<W=A<%]D:7)M+G!P`A=&A_85U.8"!R=P871H7T)M+G!P
M$C9&5Q?&UN8""2=U<W)?;&ES="LQ`$T'EV[0V0*%[$.G`G0JP*("#P`0)/96
M1]?9`FH$Q:("(0!@E,96-A1&%\;V=@9B%9,L*JM`P:("+P`@E`>B%&:75B8'
M$B1W]M961O8&HN4R+RJK0,&B`B\``%>C%B9W]M8&5$=G-M?F(I9&YU9&)S,J
MJT#!H@(=`#"$EL96Q@(2DY,CXW(T*JM`@3`J.*>Q$@,K,4"G`ITM@'A`;2YP
M<!(V1E<7QN;X!M@:QJ(""0`0I,.B`@D`(*2S$@.=+=#F`@DG<W=A<%]D:7*.
M;[`2`RLQH,5(="K`H@(/`$#D1I0FU]D">(Y$HV)$,B`<8I,9UMD">([D^`9M
M+J!P(E<61O9E%R8WY_@&*S$0W3\K,;`2`W0JP*("#P!0!4>4)M?9`F^AT>8"
M"B=R96%D7W9A<G..;[`2`RLQ0*<"+"KP``!24F5A9)TMT.8""B=R96%D7W9A
M<G..;[`2`RLQ\+-(="K`H@(-`%!$ED;7V0)XCM3L2'(NU.8"""=D;U]V87)S
MCF]096'+&2:<2"LQL!(#="K`H@(/``!5)W=6UMD";2Z0<%(W)_?%EC9'Y_@&
M;SJ&K6&=+4`D`WB.U.Q()XRP$@.=+>#O("LQT.8""B=R96%D7W9A<G..;[`2
M`RLQ0*<"+"K0``!396YDG2V@1E!M+I!P4C<G]\66-D?G^`9O.L:;89TM@.=(
M^E*P$@/KYK(2`RLQ0*<"+"K0``!296-VG2U@^2%M+J!P(E<61O9E%R8WY_@&
M*S&P$@-T*L"B`@T`T/1F5];9`GB.E,MB-"I&)`,C,O!4&",RT.8""2=S=V%P
M7V1I<HYO,%$8;2Z@<")7%D;V91<F-^?X!BLQL!(#="K`H@(-`##T!I?7V0)X
MCH08`S0J1B0#(S+0Y@())W-W87!?9&ERCF\P41AM+J!P(E<61O9E%R8WY_@&
M*S&P$@-T*L"B`@L`L->WTMD";2Z0<%(W)_?%EC9'Y_@&>(ZD+P6(,7#I!FTN
MD'!2-R?WQ98V1W?2!\FBL@H4+"I0``#>HK(*%"R0LQ(#*S%`IP(L*K```'L_
M?9TMP*("$P!`%79V5D:FDRPJJT#1Y@())W5S<E]L:7-TCF_@+2JK0,$".2LQ
ML!(#="K`H@(/`/`D1U8FU]D";2Z0<%(W)_?%EC9'Y_@&;SK&FV&=+8#G2/I2
ML!(#\@_2Y@(*)W)E861?=F%R<XYOL!(#*S&P$@,K,=#F`@@G9&]?=F%R<XYO
(`+]'EW2P$@,`
`
end
1268
END--cut here--CUT HERE--


BEGIN_ASC CAT.ASC
%%HP: T(3)A(R)F(.);
"D9D20FDE811192085000D9D2047A20D6E2080D656E657F5465666D6E20806716
2737F5465666B21300D470D6E2080D656E657F5465666D9D2058CE347A2047A2
0B2130A5C8447A20C2A20F000044E6449627D9D2087E8443A26442302C126399
16D9D2087E84E8F60D6E208067162737F5465666E8F6055616CC093F1284B213
01DDF3B2130B213047A20C2A20F00005507449627D9D20F61A1D6E2080671627
37F5465666E8F6055616CC093F1284B2130B213047A20C2A20F0000252556164
6D9D20D6E208067162737F5465666E8F6055616CC093F1284B2130B2130F3B84
47A20C2A20D000054469647D9D2087E84DCE8427E24D6E208067162737F54656
66E8F6055616BC9162C984B2130B213047A20C2A20F00000557277656D9D2087
E84DCE8472C80D6E208067162737F5465666E8F6055616CC093B3F84C64164EC
30C2A16D3284B2130B2130B2130B2130F125079E60D6E2080D656E657F546566
672D70D6E2080D656E657F5465666D6E208067162737F5465666E8F600FB7479
47079470B2130B21309DD2"
END_ASC CAT.ASC

BEGIN_UUE CAT.UUE
BEGIN--cut here--CUT HERE--
begin 644 cat.
M2%!(4#0X+46=+?#M&!$I@`4`G2U`IP)M+H#05N96]T569M;F`@AV87)S7V1E
M9BLQ`$T';2Z`T%;F5O=%5F;6V0*%[$.G`G0JL!(#6HQ$IP(L*O```$1N1&ER
MG2V`YT@T*D8D`\(A-IEAG2V`YTB.;]#F`@AV87)S7V1E9HYO4&5AS)#S(4@K
M,1#=/RLQL!(#="K`H@(/`%`%1Y0FU]D";Z'1Y@((=F%R<U]D96:.;U!E8<R0
M\R%(*S&P$@-T*L"B`@\`("55%D;6V0)M+H!@%R8W]T569N;X!E46Q@PY'X*T
M$@,K,?"S2'0JP*("#0!01)9&U]D">([4[$AR+M3F`@AV87)S7V1E9HYO4&5A
MRQDFG$@K,;`2`W0JP*("#P``52=W5M;9`GB.U.Q()XS0Y@((=F%R<U]D96:.
M;U!E8<R0L_-(;!1&S@,L&M8C2"LQL!(#*S&P$@,?4G#I!FTN@-!6YE;W159F
I=M(';2Z`T%;F5O=%5F;6Y@((=F%R<U]D96:.;P"_1Y=T<$D'*S&P$@,`
`
end
401
END--cut here--CUT HERE--



=========================================================================
Javier Argomedo Zazzali                      e-mail P5JARGOM@UTFSM.BITNET
Electronic Engineering Student
UTFSM University, Valparaiso, Chile.
=========================================================================
Newsgroups: comp.sys.hp48