home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sources / hp48 / 308 < prev    next >
Encoding:
Text File  |  1993-01-24  |  11.0 KB  |  246 lines
  1. Newsgroups: comp.sources.hp48
  2. Path: sparky!uunet!seq!spell
  3. From: Fatri <fatri@turing.u-strasbg.fr>
  4. Subject:  v08i012:  fatdb.fat - Fatdb v2.0 - Database Package, Part01/01
  5. Message-ID: <1993Jan24.232617.1627@seq.uncwil.edu>
  6. Followup-To: comp.sys.hp48
  7. Sender: spell@seq.uncwil.edu (Chris Spell)
  8. Organization: Univ. of North Carolina @ Wilmington
  9. Date: Sun, 24 Jan 1993 23:26:17 GMT
  10. Approved: spell@seq.uncwil.edu
  11. Lines: 237
  12.  
  13. Checksum: 2972716586 (verify with brik -cv)
  14. Submitted-by: Fatri <fatri@turing.u-strasbg.fr>
  15. Posting-number: Volume 8, Issue 12
  16. Archive-name: fatdb.fat
  17.  
  18.  
  19. BEGIN_DOC fatdb.doc
  20. ********************************************************************************
  21.  
  22.                              FATDB.LIB v2
  23.  
  24.                       FATRI Mohamed January 1993
  25.  
  26.                    Checksum : #5241 Bytes : 2039.5
  27.  
  28.  
  29.  
  30. FATDB.LIB is a database software, all the entries are strings that are
  31. stored in a coded form and in alphabetical order.
  32.  
  33. The FATDB menu contains three commands : DB CRYPT and UPCASE.
  34.  
  35. CRYPT takes two strings and encode the first with the second.
  36. Use once again the same second string to decode the string.
  37.  
  38. UPCASE takes a string as argument and convert the lowercase char to
  39. uppercase.
  40.  
  41. Press DB, you will be asked for a code, just type ENTER if you don't
  42. want to code your datas.
  43.  
  44. The menu keys are labeled :
  45. [ ADD ] [FIRST] [LAST ] [FIND ] [PRINT] [EXIT ] for the first row
  46. [MODIF] [ DEL ] [     ] [     ] [CODE ] [PRALL] for the second row
  47.  
  48. Press NXT to toggle from one row to the other.
  49.  
  50. The <- and -> keys ( cursor keys ) are used to go to next/prev item.
  51. The On key abort the program.
  52.  
  53. * ADD   : Enter an item, it can be up to 7 lines long.
  54.           If you press ENTER with no entries, it just escapes ADD.
  55.  
  56. * FIRST : Jump to the first item.
  57.  
  58. * LAST  : Jump to the last item.
  59.  
  60. * FIND  : Search an item from an pattern string.
  61.  
  62. * PRINT : Print the current item if a printer ( IR or Serial ) is
  63.           connected
  64.  
  65. * EXIT  : Exit DB.
  66.  
  67.  
  68. * MODIF : Modify an item. The modified item is put back in the database
  69.           in alphabetical order. If the modified item is a null item
  70.           then it is just removed from the database.
  71.  
  72. * DEL   : Delete an item, you queried whether YES or NO.
  73.  
  74. * CODE  : Change the coding of the whole database.
  75.           You are asked for a code, if the code is null the the whole
  76.           database is uncoded.
  77.  
  78. * PRALL : Print all the item on the IR or Serial printer.
  79.  
  80.  
  81. Now let's see how the database is stored.
  82.  
  83. The database is a list containing strings which are the coded items.
  84.  
  85. When you run DB, a variable named 'datas' is RCL'ed from the current
  86. directory or from above, if it doesn't exist then it checks if 'datas'
  87. is in PORT 0,1 or 2. If nothing is found, a null list is stored in the
  88. current directory under the name 'datas'.
  89.  
  90. That allows to consult the database even if it is in a PORT.
  91. But if you make some changes to the database, the modified version
  92. is stored in the current directory.
  93.  
  94. FATDB v1 has been written long time ago, it was written in USER RPL,
  95. was about 2800 bytes long, didn't have the CODE command and didn't allow
  96. not to code the datas.
  97. When I got the RPL48 package I started to rewrite all my programs in
  98. Sys-RPL. FATDB is one of them.
  99. A further version will allows to scroll items longer than 7 lines.
  100. But I must first find a way to do that quickly.
  101.  
  102. I hope you'll find this library cute and usefull.
  103.  
  104. * Specials thanks to Detlef Muller for its great RPL48 package.
  105.  
  106. This library is freeware, so feel free to do anything you want with it.
  107.  
  108.    ***************************************************************
  109.    * WARNING : Thought this library works fine on my HP48 Rev E. *
  110.    * I cannot guarantee it would work on another ROM Rev.        *
  111.    * Nor can I be taken for responsible for any kind of damage.  *
  112.    * I however tested it seriously and didn't notice any bug     *   
  113.    *************************************************************** 
  114.  
  115. Any comments ? Feel free to email me.
  116.  
  117. Fatri. ( fatri@turing.u-strasbg.fr )
  118.  
  119. ********************************************************************************
  120. END_DOC
  121.  
  122.  
  123. BEGIN_ASC fatdb.asc
  124. %%HP: T(1);
  125. "04B20AEF0061641445442402022697026414452594029A021393933361E6371F
  126. 00F0000A9E00340008E92093000C2A2010000100005200094E66716C69646024
  127. 416471624163756D9D2011920E630090770B2130D9D200CA300F51683416C541
  128. 6C6336D9D20A64052A1708341690826C2A209100035561627368696E676A32C2
  129. 3029E20E63C005161629E20E6350029E20E63300E04169FF301B546A3336D9D2
  130. 018A300F516B213083416C541691D307E31657B308C170B21307E3168DA1629E
  131. 20E63600D9D20C2A20B20000202051647475627E602E6F6470266F657E646A64
  132. 0550421B1293B2130B2130D9D20AFDB39FF30A9F04B2130D9D20C541681A1683
  133. 416C5416BD37012270881305161629E20E6350029E20E63600AE813442308681
  134. 34337051616B2130D9D20C541681A16C2A20B000095563729E20E63900CA130C
  135. 2A2090000E4F6B20409545068F04CF1A3C2A2092000020202021427560297F65
  136. 7023757275602F3BB4212A17056F1444230D9D209FF303D816DEBB0B2040C681
  137. 610CB01DDF30CA30B21308C170CB91629E20E638009B314B2130D9D20C541681
  138. A1629E20E63310FD5508341629E20E63500683A29B136CC3349B31429E20E638
  139. 0090236B491629E20E63700B2130D9D20C541681A168341629E20E63500AE813
  140. 4423086813B2130D9D20C541681A16C2A20F100054E647562702071647475627
  141. E6E041684E2010C89B136CC33490236B491629E20E6330000616C2A20D0000E4
  142. 56874729E20E63900CA13096756B20409545068F0483416FEF305161629E20E6
  143. 3410CF1A32A17056F1444230D9D209FF303D816D9D2029E20E634100CA30B213
  144. 0B2040C681618A301DDF30CA30B21308C1709B3147E316B491651616B2130D9D
  145. 2029E20E63310FD55047A2084E2010C8B2130CC3349B314902368DA164423029
  146. E20E63700B2130D9D204E761D5456EE250C54164E761391503915050421B2130
  147. D9D20C541681A1629E20E63310C2A201200054E647562702E656770236F64656
  148. 47A20FD55084E2010C8B2130CC33488130C2A201100065562796669747A20FD5
  149. 5084E2010C8B2130CC33479B308DA16D9D20F55A30F516C94168943611436C2A
  150. 2012000348616E67696E6760236F64656A32C23029E20E63C00C9B26C641629E
  151. 20E634007E31629E20E63400D443644230C54169545029E20E63A007E3165361
  152. 6B2130442309B314B2130D9D20881305661679E6084E20504616471637881307
  153. 2C8072D70B2130D9D20F30401C040F851188130B2130D9D20C941683416ED4E0
  154. 29E20E63A00C5416E0E3052616B2130D9D20C541698E36D9D20C641629E20E63
  155. 400DEE3229E20E63A009FF3052616B2130D9D200F516C5416908265261655616
  156. FEF30546162A170C7416C8416CBD30E8E308813029E20E635007E3166A241B67
  157. A28DA165561654616C8416C74160ED30300404EC308C170C7416FED30C94167E
  158. 316C641629E20E63400EF116164E029E20E63A0051616B2130B2130D9D20C541
  159. 698E36D9D206B316B3A16C2A209200002020202E4F60256E6472796563702975
  160. 647A6405504211DDF3B2130D9D2083416C541680836C54167FE3044230908265
  161. 161629E20E63500F3040EC3707A72112270924214337044230B2130B1293B213
  162. 0D9D20C941632230C9B26C641629E20E63400B2130D9D203223096C26CCD203A
  163. 0008FB976014313034A0000CA10016414234500008A226EA1011741431311741
  164. 43EAD8D31748A9041198A740D3118CB13414A14F0E6A10A14F0E62112B6A149C
  165. DCDE7E717160CF8F2D760174E78D465D2B2130CCD20160008FB9760143131174
  166. AF014334500008A253EA81CD8CD17414B31169E25131A79E6C03102B6A149171
  167. CD5BD8D341508E63200D9D20ECE81D0040D9D207566029E20E63300B2130B213
  168. 08E63100D9D20FDE81D004029E20E63400B21308E63000D9D20E1A819CB04CB9
  169. 83E5E40D9D20E5E40D9D2079E6084E2050461647163750C268DA16B9F0629E20
  170. 0F0A6018A30B21308BE400CA30A2170D9D209E5508813029E20E63A00B213011
  171. 2268DA16D9D20F6A36B3A1688130FA4503C37095126A2170D9D201192010E63A
  172. 3836B213043370B2130D9D201192010E63A3836B2130CF146C2A209100054E64
  173. 756270236F6465647A20FD55084E2010C8B2130CC334C1216B76509FF30FD550
  174. 439F279E6003D4394040073E5954500D470C2A20B0000144646C2A20F0000649
  175. 6273747C2A20D0000C4163747C2A20D00006496E646C2A20F0000052796E6479
  176. 6756C2A20F0000D4F6469666C2A20B00004456C629E20E63900C2A20D000034F
  177. 64656C2A20F0000052714C6C6760409545068F0429E20E636002A170CF1A356F
  178. 1444230D9D20760403D816C17A3F80403D816D9D2083416E0E305161629E20E6
  179. 3600B21303A0403D816D9D2083416FED305161629E20E63600B213053040CD63
  180. 639916D9D2047A2029E20E63D00D9D209FF3051616B2130D9D20C541651616B2
  181. 13029E20E63E0029E20E63F00FC29229E20E6301029E20E63110D9D20C5416A3
  182. 3361DDF3B2130D9D20C5416A33361DDF3B213029E20E63B0029E20E63210B213
  183. 0B58145923080836C9B26E8F6029E20E63600B2130B6815B21306B3168C17079
  184. 470B21308BE4077B8309B8344193B2130E4A20E600030CFF8DBFFE9BFFC2BFFB
  185. 6AFFD3AFFE69FF158FF918FF6F7FF8B7FFE56FF726FF1D5FFE94FF664FF9F3FF
  186. 013FFAA2FFC82FF951FFE4A202900000000050000000000000A4000450000000
  187. 0000000000000000000000000000000000000000000000E20002044240005034
  188. 25950545100605505341435542009200052000B10004DE41425"
  189. END_ASC
  190.  
  191. BYTES: #5241h 2039.5
  192.  
  193. BEGIN_UU fatdb.uue
  194. begin 644 fatdb.lib
  195. M2%!(4#0X+45`*Z#^`!9&051$0B`@8GD@1D%44DD@J2`Q.3DS%FYS\0`/`*#I
  196. M`$,`@)X".0#`H@(!`!```"4`D.1F%\:61@9"%$87)A0V5];9`A$IX#8`"7>P
  197. M$@.=+0"L`_`5AD-A7!3&-F.=+:!&4*)Q@$-A"2C&H@(9`#!5%B8WAI;F=J8C
  198. M+`.2+N`V#%!A89(NX#8%(.D";C,`#A26_P.Q1:8S8YTM$*@#\!6V$@,X%,9%
  199. M81D]<#YA=3N`'`<K,7`^8=@:)ND";F,`G2W`H@(K```"`A5&1U<FYP;B]D8'
  200. M8O96YT:F1E`%)+$A.2LQL!(#G2V@WSOY/Z#Y0"LQT-D"7!2&H6$X%,9%8=MS
  201. M$"('B#%086&2+N`V!2#I`FYC`.H80R0#:!A#,P<5%K82`YTMP$5A&!K&H@(+
  202. M`)!5-B?I`FZ3`*PQP*(""0#@]+8"!%E48/A`_*'#H@(I```"`@(2)%<&DO=6
  203. M!S)7)U<&\K-+$J)Q4/9!1#+0V0+Y/S"-8>V[L`($;!@6P`O1_0.L`RLQ@!P'
  204. MO!DFZ0)N@P"Y$[02`YTMP$5A&!HFZ0)N,P'?58!#89(NX#8%8#@JN3'&/$.Y
  205. M$R3I`FZ#``DRMI1ADB[@-@>P$@.=+<!%81@:AD-ADB[@-@6@CC%$,H"&,2LQ
  206. MT-D"7!2&H6$L*O`!`$5N=&5R('!A='1E<FX.%(;D`@&,N3'&/$,),K:489(N
  207. MX#8#`&!A+"K0``!.97ATDB[@-@G`&@-I5[8"!%E48/A`.!3V_@,5%B;I`FY#
  208. M`?RA(QH'91]$)`.=+9#_`],8UMD"DB[@-A0`K`,K,;`"!&P8%J@#T?T#K`,K
  209. M,8`<![D3=#YA2QE686$K,=#9`I(NX#83\%T%="J`Y`(!C"LQP#Q#N1.4(&/8
  210. M&D8D`Y(NX#8'L!(#G2U`?A9=5.8N!5P41GX6DU$P&04%)+$2`YTMP$5A&!HF
  211. MZ0)N,P$L*A`"`$5N=&5R(&YE=R!C;V1E="KP705(+A#`N!(#S#.$&`,L*A`!
  212. M`%9E<FEF>70J\%T%2"X0P+@2`\PS=+D#V!K6V0)?I0-?89P4ADEC$33&H@(A
  213. M`#"$%N9VEN9V!C+V1E:F(RP#DB[@-@S`N6)L%";I`FY#`.<3)ND";D,`331&
  214. M)`-<%)9%!9(NX#8*<#YA-1:V$@-$,I`[02LQT-D"B#%09F&7;H#D`@5D871A
  215. M<X@Q<,(()WVP$@.=+?`#!,%`\%@1B#&P$@.=+<!)83@4YDT.DB[@-@K`16$.
  216. M/E!B82LQT-D"7!26Z&.=+<!&89(NX#8$T.XCDB[@-@J0_P,E%K82`YTM`%]A
  217. M7!26@&(E%E9E8>\_4&1AHG'`1V&,%,;;`XX^@!@#DB[@-@5P/F&F0K%V*M@:
  218. M5F5A11;&2&%\%`;>`P-`0,X#R''`1V'O/<!)8><3QD9ADB[@-@3@'V%AY"#I
  219. M`FZC`!46MA(#*S'0V0)<%);H8YTM8#MA.QK&H@(I```"`@+B]`92YD8GEU8V
  220. M!Y)71J=&4`4D$=T_*S'0V0(X%,9%80@XQD5A]SY`)`,)*%9A89(NX#8%\`,$
  221. MSG-P>A(A<I!"$C1S0"0#*S&P(3DK,=#9`IP4-B(#G"O&1F&2+N`V!+`2`YTM
  222. M,"(#:2S&W`*C`("_>09!$P-#"@#`&@!A%"1#!0"`*F*N`1%'01,3<10TKHT]
  223. M<82:0!&)>@0]$<@;0T$:]."F`1KTX"81LJ9!R<WMYQ<7!OSXTF<01W[89-6R
  224. M$@/,+1`&`/B;9Q`T,1%'^A`T0P4`@"HUKAC<R!U'03L1EBX5$WKIQC`!LJ9!
  225. M&1?<M8T]%`7H-@+0V0+.CM$`!)TM<&4&DB[@-@.P$@,K,8!N$P"=+?#M&`U`
  226. M(.D";D,`*S&`;@,`G2W@H1C)"\2;.%Y.T-D"7D[0V0*7;H#D`@5D871A<P4L
  227. MAJUAFP\FZ0+PH`:!.K`2`[A.`*P#*G'0V0+I58`8`Y(NX#8*L!(#$2*&K6&=
  228. M+?"F8SL:AA@#KU0P/`=9(:82!YTM$)$"`6ZC@V,K,4`S!RLQT-D"$2D0X#8Z
  229. M.+82`_Q!QJ("&0!0Y$97)@<R]D961J<"WU6`Y`(!C"LQP#Q#'!*V9P7Y/_!=
  230. M!33Y<ND&,$V3!`1PXY5%!=!TP*(""P`01$;&H@(/`&"4)C='QZ("#0#`%#9'
  231. MQZ("#0!@E.9&QJ("#P``)9?F1I=V92PJ\```36]D:68L*K```$1E;)(NX#8)
  232. MP*("#0`P]$96QJ("#P``)1?$QG8&!%E48/A`DB[@-@8@&@?\H5/V040RT-D"
  233. M9T`PC6$<I_,(!-,8UMD".!3FX`,5%B;I`FYC`"LQ,`H$TQC6V0(X%/;>`Q46
  234. M)ND";F,`*S%0`P3<-C:989TM0*<"DB[@-@W0V0+Y/U!A82LQT-D"7!1686$K
  235. M,2#I`F[C`)(NX#8/\"PIDB[@-A`@Z0)N$P&=+<!%83HS%MT_*S'0V0)<%*8S
  236. M8]']LQ(#DB[@-@L@Z0)N(P$K,;"%094R@(!CG"OF^`:2+N`V!K`2`VL8M1(#
  237. MMA.&'`>7=+`2`[A.<+<XD(M#%#DK,>"D`FX`,,#_V/OON?\L^[^F_SWZ[Y;_
  238. M4?B?@?_V]X][_U[V?V+_T?7O2?]F])\__Q#SKRK_C/*?%?].*B`)``````4`
  239. M``````!*`$`%```````````````````````````````````N`"!`)`0`!4-2
  240. 765!4`6!0!344-%4D`"D`4`(`&P!`[01`
  241. `
  242. end
  243. sum -r/size 14431/2850 section (from "begin" to "end")
  244. sum -r/size 36004/2048 entire input file
  245. END_UU
  246.