home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / sys / hp48 / 4298 < prev    next >
Encoding:
Internet Message Format  |  1992-08-18  |  11.0 KB
  1. Path: sparky!uunet!olivea!decwrl!concert!seq!UTFSM.BITNET!P5JARGOM
  2. From: P5JARGOM@UTFSM.BITNET (Javier Argomedo Zazzali)
  3. Newsgroups: comp.sys.hp48
  4. Subject: FileC - A file Catalog (like norton comm)  part 01/01
  5. Message-ID: <199208181859.AA14538@seq.uncwil.edu>
  6. Date: 18 Aug 92 00:22:58 GMT
  7. Sender: daemon@seq.uncwil.edu (Admin)
  8. Reply-To: <P5JARGOM@UTFSM.BITNET>
  9. Organization: UNCW news/mail gateway service
  10. Lines: 250
  11.  
  12.  
  13.  
  14.    FileCatlog V1.0,  by Javier Argomedo.
  15.    Only 1269.5 Bytes !!
  16.    And CAT (Repost, Using Catalogues in your programs), with
  17.    the remote example.
  18.  
  19. BEGIN_DOC
  20.  
  21.    This is a really Norton Commander like program, for the HP48s/sx,
  22.  using the inbuilt catalog facilities.
  23.    Just press (FILEC) in your VAR (or CST) menu, and you will have all
  24.  of this greats fuctions...
  25.  
  26.    * Two paths ( A: and B: ), swapable with a menu key...
  27.    * You can move or copy any variable from one path to the other
  28.    * You can View, Edit, Purge any variable.
  29.    * You can Receive, or Send (KERMIT) any variable (or list of variables)
  30.    * You can sort (ORDER) the actual directory
  31.    * You can tag selected files for: SORT, PURGE or SEND.
  32.  
  33.  
  34.     ********   WARNING   **********
  35.     This program uses a lot  of the
  36.     inbuilt catalog,  some  entries
  37.     used are no documented,   and I
  38.     had tested this program only on
  39.     my version E hp48s ...   I have
  40.     no  responsibility  on any data
  41.     lost when use this   program on
  42.     another version.
  43.     *******************************
  44.  
  45.    Instructions:
  46.  
  47.    When you start FileC (from a meny key... i don't know why
  48.    the programs that use ParOuterLoops hang up the calc when are
  49.    called from the command line)
  50.    You will see the next menu keys.
  51.  
  52.    (About)  obvious...
  53.    (  A: )  will toggle from the two paths availables (A: and B:)
  54.    (Fast )  will toggle from short or complete catalog display
  55.    (DnDir)  to enter to a directory (do not use ENTER like standard use of
  56.            catalog, it will display only the simbolic variables... if this
  57.            ocurr, and the directory is not empty, use RRead)
  58.    (UpDir)  UPDIR ...   same recomendation of DnDir.
  59.    (RRead)  ReRead all of the variables in the directory...
  60.    (View )  View the variable pointed to.
  61.    (Edit )  To edit the variable
  62.    (Purge)  To Purge it.
  63.    (Send )  This will send the tagged variables, or the pointed to if you
  64.            have no selected anyone.
  65.    (Recv )  Standard RECV
  66.    (Move )  To move a variable from the actual path to the other.
  67.    (Copy )  To copy a variable from the actual path to the other.
  68.    ({}+  )  To Tag a variable
  69.    ({?}  )  Display the tagged variables
  70.    (Order)  To Sort the directory based on the tagged variables.
  71.  
  72.    Notes:
  73.       *  Do not use HOME, UPDIR, ENTER to move trough directories, use
  74.         the menu keys instead.
  75.       *  When you enter to a empty directory, you will see the word
  76.         'empty...' instead of the standard 'Empty Catalog', do'nt
  77.         try to operate any function on this virtual option.
  78.       *  There are some options that can be improved, or added.
  79.          (any suggestions)
  80.       *  The size may be shorten changing the temporary variable
  81.         names, but i'll leave it as is, for legilibity.
  82.       *  If anybody want the source, or have any comments, please
  83.         e-mail me ( p5jargom@utfsm.bitnet )
  84.       *  Legal stuff: Norton is a trade mark ... ... ... ...
  85.         and i have no relation with Norton, or Hewlet Packard.
  86.  
  87.  
  88.  
  89.    I also add the programs that i sent to you, but they arrive
  90.  corrupted...  the programs are CAT, an utility to use catalogs
  91.  in your own programs and a simple example with remote controller
  92.  application.
  93.    The CAT app. takes two arguments, a list with your menu definition
  94.  in level two, and a program with the variable definitions in level
  95.  one, you must know two internals to work with it:
  96.  
  97.    48E78h  Takes the name of the variable pointed to.
  98.    48ECDh  Verify if it is'nt a directory
  99.  
  100.    The folowing example will show how to use it:
  101.  
  102.    @REMOTE
  103.    \<<
  104.       { "Sony"
  105.         \<<
  106.            #48E78 SYSEVAL      @ Get the variable name
  107.            #48ECD SYSEVAL      @ Check for no directories
  108.            RCL
  109.            SONY SONY SONY
  110.            DROP
  111.         \>>
  112.       }
  113.       \<< { 10  15 } TVARS \>> @ Show only binary integers and
  114.                                 directories in the catalog
  115.       CAT                      @ Call to the application
  116.    \>>
  117.  
  118. Note:  The CAT program can be improbed...  if anybody have concern,
  119.      i can do it (for example, when you enter to a empty directory)
  120.  
  121.  
  122.  
  123.    Now, the UUencoded and ASCencoded listing of the FileC and CAT
  124.  
  125.                                   bye.
  126.  
  127. PS.  please excuse my english...
  128. ps2  To Basil Duval: Please tell me if you still having ploblems
  129.     downloading this programs.
  130.  
  131.                                Javier Argomedo Zazzali
  132.                                Electronic Engineering Student
  133.                                UTFSM University, Chile.
  134.  
  135.  
  136. END_DOC
  137.  
  138. BEGIN_ASC FILEC.ASC
  139.  %%HP: T(3)A(R)F(.);
  140. "D9D209CB0479E60D9D2097781F6A36CB916D9D204423047A2084E208054D6074
  141. 797E2E2E2B2130B2130B213079E60D9D20D6E20807246F6F567162737E8F6055
  142. 616CC093F12849E55079E60D6E209072573727F5C696374772D70B213079E60D
  143. 9D20D6E2070721636475716C6E8F6088130C8481322308DA16D9D2079E60D6E2
  144. 0707207164786F514B2130D9D2079E60D6E20707207164786F524B213072D702
  145. FA308813079E60D6E2070721636475716C672D708DA16D6E20707207164786F5
  146. 14D6E20707207164786F524E8F60ABE81D6E20A07227561646F567162737E8F6
  147. 0B2130C84818813079E6018A3079E609E55047A20D6E20807246F6F567162737
  148. D6E20A07227561646F567162737D6E20907237771607F5469627D6E207072071
  149. 64786F514D6E20707207164786F524D6E2070721636475716C6D6E2090725737
  150. 27F5C6963747B21300D47079E60D9D2058CE347A2047A20C2A20F00001426F65
  151. 747D9D20A6405C2A20120006496C65634164716C6F6760265139C2A2BA041C2A
  152. 20F2000249702A4166796562702142776F6D65646F602A5E23F2A2BA041C2A20
  153. F20000753A6162776F6D60457476637D6E2269647E65647233A2BA041C2A20D1
  154. 000348696C656C20213939323E2743A2BA041803A2837A1B2130B213047A20D9
  155. D2088704D6E2070721636475716C6E8F608DA16C2A209000014A3C2A20900002
  156. 4A3B2130D9D20D6E20907237771607F5469627E8F60B2130B2130A5C8447A20C
  157. 2A20F000044E6449627D9D2087E8443A26442302C12639916D9D2087E84E8F60
  158. D6E20A07227561646F567162737E8F60B21301DDF3B2130B213047A20C2A20F0
  159. 0005507449627D9D20F61A1D6E20A07227561646F567162737E8F60B2130B213
  160. 047A20C2A20F00002525561646D9D20D6E20A07227561646F567162737E8F60B
  161. 2130B2130F3B8447A20C2A20D000054469647D9D2087E84DCE8427E24D6E2080
  162. 7246F6F567162737E8F6055616BC9162C984B2130B213047A20C2A20F0000055
  163. 7277656D9D20D6E209072573727F5C6963747E8F60F6A368DA16D9D204423087
  164. E84DCE8472C80B2130D9D20EFE02B2130D6E20A07227561646F567162737E8F6
  165. 0B2130B213047A20C2A20D00003556E646D9D20A6405D6E209072573727F5C69
  166. 63747E8F60F6A36CB916D9D2087E84AF250B2130BE6E2B2130B213047A20C2A2
  167. 0D000025563667D9D2069F12D6E20A07227561646F567162737E8F60B2130B21
  168. 3047A20C2A20D0000D4F66756D9D2087E849BC2643A264423032230F45813223
  169. 0D6E20907237771607F5469627E8F6031581D6E20A07227561646F567162737E
  170. 8F60B2130B213047A20C2A20D000034F60797D9D2087E848813043A264423032
  171. 230D6E20907237771607F5469627E8F6031581D6E20A07227561646F56716273
  172. 7E8F60B2130B213047A20C2A20B0000B7D7B2D9D20D6E209072573727F5C6963
  173. 747E8F6087E84AF2508813079E60D6E209072573727F5C696374772D709C2A2B
  174. A041C2A2050000ED2A2BA041C2093B2130B213047A20C2A20B0000B7F3D7D9D2
  175. 0C2A2031000451676765646A39C2A2BA041D6E209072573727F5C6963747E8F6
  176. 0ED2A2BA041C2093B2130B213047A20C2A20F0000F427465627D9D20D6E20907
  177. 2573727F5C6963747E8F60F6A36CB916D9D2087E84AF250B21302FF02D6E20A0
  178. 7227561646F567162737E8F60B2130B2130B2130B2130D6E20807246F6F56716
  179. 2737E8F600FB7479470B213077FA"
  180. END_ASC FILEC.ASC
  181.  
  182.  
  183. BEGIN_UUE FILEC.UUE
  184. BEGIN--cut here--CUT HERE--
  185. begin 644 filec.
  186. M2%!(4#0X+46=+9"\0)=NT-D">8?QIF.\&=;9`D0R0*<"2"Z`4-0&1Y?GXN*R
  187. M$@,K,;`2`Y=NT-D";2Z`<$+V]F47)C?G^`95%L8,.1^"E%X%EV[0Y@())W5S
  188. M<E]L:7-T)WVP$@.7;M#9`FTN<'`2-D97%\;F^`:(,<!(&",R@*UAG2UPZ09M
  189. M+G!P`A=&A_85M!(#G2UPZ09M+G!P`A=&A_8EM!(#)WT@KP.(,7#I!FTN<'`2
  190. M-D97%\9VT@?8&M;F`@<G<&%T:%]!;2YP<`(71H?V)>3X!KJ.T>8""B=R96%D
  191. M7W9A<G..;[`2`XR$@1@#EVX0J`.7;I!>!70JT.8"""=D;U]V87)S;2Z@<")7
  192. M%D;V91<F-]?F`@DG<W=A<%]D:7)M+G!P`A=&A_85U.8"!R=P871H7T)M+G!P
  193. M$C9&5Q?&UN8""2=U<W)?;&ES="LQ`$T'EV[0V0*%[$.G`G0JP*("#P`0)/96
  194. M1]?9`FH$Q:("(0!@E,96-A1&%\;V=@9B%9,L*JM`P:("+P`@E`>B%&:75B8'
  195. M$B1W]M961O8&HN4R+RJK0,&B`B\``%>C%B9W]M8&5$=G-M?F(I9&YU9&)S,J
  196. MJT#!H@(=`#"$EL96Q@(2DY,CXW(T*JM`@3`J.*>Q$@,K,4"G`ITM@'A`;2YP
  197. M<!(V1E<7QN;X!M@:QJ(""0`0I,.B`@D`(*2S$@.=+=#F`@DG<W=A<%]D:7*.
  198. M;[`2`RLQH,5(="K`H@(/`$#D1I0FU]D">(Y$HV)$,B`<8I,9UMD">([D^`9M
  199. M+J!P(E<61O9E%R8WY_@&*S$0W3\K,;`2`W0JP*("#P!0!4>4)M?9`F^AT>8"
  200. M"B=R96%D7W9A<G..;[`2`RLQ0*<"+"KP``!24F5A9)TMT.8""B=R96%D7W9A
  201. M<G..;[`2`RLQ\+-(="K`H@(-`%!$ED;7V0)XCM3L2'(NU.8"""=D;U]V87)S
  202. MCF]096'+&2:<2"LQL!(#="K`H@(/``!5)W=6UMD";2Z0<%(W)_?%EC9'Y_@&
  203. M;SJ&K6&=+4`D`WB.U.Q()XRP$@.=+>#O("LQT.8""B=R96%D7W9A<G..;[`2
  204. M`RLQ0*<"+"K0``!396YDG2V@1E!M+I!P4C<G]\66-D?G^`9O.L:;89TM@.=(
  205. M^E*P$@/KYK(2`RLQ0*<"+"K0``!296-VG2U@^2%M+J!P(E<61O9E%R8WY_@&
  206. M*S&P$@-T*L"B`@T`T/1F5];9`GB.E,MB-"I&)`,C,O!4&",RT.8""2=S=V%P
  207. M7V1I<HYO,%$8;2Z@<")7%D;V91<F-^?X!BLQL!(#="K`H@(-`##T!I?7V0)X
  208. MCH08`S0J1B0#(S+0Y@())W-W87!?9&ERCF\P41AM+J!P(E<61O9E%R8WY_@&
  209. M*S&P$@-T*L"B`@L`L->WTMD";2Z0<%(W)_?%EC9'Y_@&>(ZD+P6(,7#I!FTN
  210. MD'!2-R?WQ98V1W?2!\FBL@H4+"I0``#>HK(*%"R0LQ(#*S%`IP(L*K```'L_
  211. M?9TMP*("$P!`%79V5D:FDRPJJT#1Y@())W5S<E]L:7-TCF_@+2JK0,$".2LQ
  212. ML!(#="K`H@(/`/`D1U8FU]D";2Z0<%(W)_?%EC9'Y_@&;SK&FV&=+8#G2/I2
  213. ML!(#\@_2Y@(*)W)E861?=F%R<XYOL!(#*S&P$@,K,=#F`@@G9&]?=F%R<XYO
  214. (`+]'EW2P$@,`
  215. `
  216. end
  217. 1268
  218. END--cut here--CUT HERE--
  219.  
  220.  
  221. BEGIN_ASC CAT.ASC
  222. %%HP: T(3)A(R)F(.);
  223. "D9D20FDE811192085000D9D2047A20D6E2080D656E657F5465666D6E20806716
  224. 2737F5465666B21300D470D6E2080D656E657F5465666D9D2058CE347A2047A2
  225. 0B2130A5C8447A20C2A20F000044E6449627D9D2087E8443A26442302C126399
  226. 16D9D2087E84E8F60D6E208067162737F5465666E8F6055616CC093F1284B213
  227. 01DDF3B2130B213047A20C2A20F00005507449627D9D20F61A1D6E2080671627
  228. 37F5465666E8F6055616CC093F1284B2130B213047A20C2A20F0000252556164
  229. 6D9D20D6E208067162737F5465666E8F6055616CC093F1284B2130B2130F3B84
  230. 47A20C2A20D000054469647D9D2087E84DCE8427E24D6E208067162737F54656
  231. 66E8F6055616BC9162C984B2130B213047A20C2A20F00000557277656D9D2087
  232. E84DCE8472C80D6E208067162737F5465666E8F6055616CC093B3F84C64164EC
  233. 30C2A16D3284B2130B2130B2130B2130F125079E60D6E2080D656E657F546566
  234. 672D70D6E2080D656E657F5465666D6E208067162737F5465666E8F600FB7479
  235. 47079470B2130B21309DD2"
  236. END_ASC CAT.ASC
  237.  
  238. BEGIN_UUE CAT.UUE
  239. BEGIN--cut here--CUT HERE--
  240. begin 644 cat.
  241. M2%!(4#0X+46=+?#M&!$I@`4`G2U`IP)M+H#05N96]T569M;F`@AV87)S7V1E
  242. M9BLQ`$T';2Z`T%;F5O=%5F;6V0*%[$.G`G0JL!(#6HQ$IP(L*O```$1N1&ER
  243. MG2V`YT@T*D8D`\(A-IEAG2V`YTB.;]#F`@AV87)S7V1E9HYO4&5AS)#S(4@K
  244. M,1#=/RLQL!(#="K`H@(/`%`%1Y0FU]D";Z'1Y@((=F%R<U]D96:.;U!E8<R0
  245. M\R%(*S&P$@-T*L"B`@\`("55%D;6V0)M+H!@%R8W]T569N;X!E46Q@PY'X*T
  246. M$@,K,?"S2'0JP*("#0!01)9&U]D">([4[$AR+M3F`@AV87)S7V1E9HYO4&5A
  247. MRQDFG$@K,;`2`W0JP*("#P``52=W5M;9`GB.U.Q()XS0Y@((=F%R<U]D96:.
  248. M;U!E8<R0L_-(;!1&S@,L&M8C2"LQL!(#*S&P$@,?4G#I!FTN@-!6YE;W159F
  249. I=M(';2Z`T%;F5O=%5F;6Y@((=F%R<U]D96:.;P"_1Y=T<$D'*S&P$@,`
  250. `
  251. end
  252. 401
  253. END--cut here--CUT HERE--
  254.  
  255.  
  256.  
  257. =========================================================================
  258. Javier Argomedo Zazzali                      e-mail P5JARGOM@UTFSM.BITNET
  259. Electronic Engineering Student
  260. UTFSM University, Valparaiso, Chile.
  261. =========================================================================
  262.