home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sources / hp48 / 307 < prev    next >
Encoding:
Text File  |  1993-01-24  |  6.1 KB  |  144 lines
  1. Newsgroups: comp.sources.hp48
  2. Path: sparky!uunet!seq!spell
  3. From: Fatri <fatri@turing.u-strasbg.fr>
  4. Subject:  v08i011:  fatcal.fat - Fatcal v1.0 - Calendar Program, Part01/01
  5. Message-ID: <1993Jan24.232436.1488@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:24:36 GMT
  10. Approved: spell@seq.uncwil.edu
  11. Lines: 135
  12.  
  13. Checksum: 3017545307 (verify with brik -cv)
  14. Submitted-by: Fatri <fatri@turing.u-strasbg.fr>
  15. Posting-number: Volume 8, Issue 11
  16. Archive-name: fatcal.fat
  17.  
  18. BEGIN_DOC fatcal.doc
  19. *******************************************************************************
  20.  
  21.                              FATCAL.lib
  22.  
  23.                      Fatri Mohamed January 1993
  24.  
  25.                     Checksum : #D1E  Bytes : 1141
  26.  
  27.  
  28.  
  29. Some will say 'Yet another calendar program ?', this one is cute and
  30. very simple to use.
  31.  
  32. There are two commands : CAL and Cal.
  33.  
  34. CAL displays the current month and a menu bar with:
  35. [CURR ] [MON- ] [MON+ ] [YEAR-] [YEAR+] [EXIT ]
  36.  
  37. CURR  : current month.
  38. MON-  : previous month.
  39. MON+  : next month.
  40. YEAR- : previous year.
  41. YEAR+ : next year.
  42. EXIT  : exit the program.
  43.  
  44. Cal takes two reals from the stack ( the month and the year ) and
  45. displays the corresponding month. 
  46.  
  47. The months that can be displayed range from Oct 1582 to Dec 9999.
  48.  
  49. I hope you'll find this library cute and usefull.
  50.  
  51. * Thanks to Detlef Muller for its great RPL48 package.
  52.  
  53. This library is freeware, so feel free to do anything you want with it.
  54.  
  55.    ***************************************************************
  56.    * WARNING : Thought this library works fine on my HP48 Rev E. *
  57.    * I cannot guarantee it would work on another ROM Rev.        *
  58.    * Nor can I be taken for responsible for any kind of damage.  *
  59.    * I however tested it seriously and didn't notice any bug     *   
  60.    *************************************************************** 
  61.  
  62. Any comments ? Feel free to email me.
  63.  
  64. Fatri. ( fatri@turing.u-strasbg.fr )
  65. *******************************************************************************
  66. END_DOC
  67.  
  68.  
  69. BEGIN_ASC fatcal.asc
  70. %%HP: T(1);
  71. "04B205E800F06414453414C4023416C656E6461627F0F6383800000005180050
  72. 000D9D20119200030090770B2130D9D20A5D630D470C2A209E00002020202020
  73. 2020202020202020202020202020202020213020223020233020243020253020
  74. 2630202730202830202930213030213130213230213330213430213530213630
  75. 2137302138302139302230302231302232302233302234302235302236302237
  76. 30223830223930233030233137E3161F514EF9A2262056B3161F5141FB26B74B
  77. 1EF9A2479A23392010000002851016102C23093CC0404A2CDBA27DC81D00402C
  78. E30A752674726D8DC1803A2479A2B5CC0D4FA22620593CC0AEC81D00402CE301
  79. C040CBD30337507E316AEC818E9206A000C2A2010000C0000B0000A416E6B000
  80. 0645626F0000D416273686F000014072796C6B0000D41697D0000A457E656D00
  81. 00A457C697B0000145776D000035560747B0000F43647B0000E4F667B0000445
  82. 636D17304423000D115562111920C6000EF11640C36E8E300ED3099040D6F109
  83. 76116B316880413FC1155621E8C463F04097611E1B20730005000091000B1777
  84. 7104104241051772310111525101515251055621119208600085B4697611BB72
  85. 6E0E301C0407FE30B9F06530402CE301C040CBD30D5040F8511FF22155621300
  86. 40FEF30976110CA3055621E1B203700050000F4000758DE07588E07507707705
  87. 0AA0058800050040047588A02588E0270730774588A0258A20250150457788E0
  88. 278DE0250150757104030040C87F4442303004084C46CA13094040083169FA05
  89. D5040083169FA0555621B20403C3700CA3032230EF116122701C0402CE309082
  90. 67B040CBD303375008F11FEF3012270530402CE30B7040CBD30C87F443370852
  91. 3079470B1293B21308F63100D9D20FDE8199040D9D20736C1FC4363914013735
  92. E5E4029E20F632008BE40D9D20852306B436137C11DE40B21306B436137C1B21
  93. 30B21308F63000D9D20E1A81CB983736C1CF14679E60D9D20E0CC0D4FA21F514
  94. CB9A28813006FA2881300061632230D4FA21F51488130CB9A2CB9A2881305161
  95. 629E20F63200B21300CA3062D25B2D43F12500D47039140137355E23647A20C2
  96. A20D000034552525C2A20D0000D4F4E4D2C2A20D0000D4F4E4B2C2A20F000095
  97. 541425D2C2A20F000095541425B296756B213068F04CF1A32A17056F1444230D
  98. 9D20C1B463D816FC292B2040F563639916B681547A205E236D9D20E041667205
  99. AAB36CB916D9D2044230D1CC1834166720551616B213088130006168341629E2
  100. 0F63200B2130D9D20E04162620588130D1CC1A88A2CB916D9D20D0AC18341626
  101. 20551616B213088130006168341629E20F63200B2130D9D20E04168341667205
  102. 881305161629E20F63200B2130D9D20E04168341626205881305161629E20F63
  103. 200B2130FC292B213032230C9B26E8F60B21306B3168C170C5416137C1794700
  104. 9B8344193B2130E4A204100063DFFBBCFFAF7FFE4A20A70000000000000B4000
  105. 0000000000000000000000000000000000000000000000000000000000000000
  106. 0B1000303414C4000303416C610061000010008106E1D0"
  107. END_ASC
  108.  
  109. BYTES: #D1Eh 1141
  110.  
  111. BEGIN_UU fatcal.uue
  112. begin 644 fatcal.lib
  113. M2%!(4#0X+45`*U".``]&051#04P@0V%L96YD87(/;X.#````4($`!0#0V0(1
  114. M*0`P``EWL!(#G2V@U3;0=,"B`ND```("`@("`@("`@("`@("`@("`@("`@(2
  115. M`P(B`P(R`P)"`P)2`P)B`P)R`P*"`P*2`Q(#`Q(3`Q(C`Q(S`Q)#`Q)3`Q)C
  116. M`Q)S`Q*#`Q*3`R(#`R(3`R(C`R(S`R)#`R)3`R)C`R)S`R*#`R*3`S(#`S(3
  117. M<SYA\17DGRIB`F4[8?$5%+]B>[3AGRITJ3*3`@$``"!8`6$!PC*0PPP$I,*]
  118. M*M>,T0`$PCZ@5V)')];8'`BC0I<J6\S0]"IB`I7##.J,T0`$PCX0#`2\/3!S
  119. M!><3ILX8Z"E@"@`L*A````P`L```2F%N"P!@5";V``!-87)C:`\`$`0GE\:V
  120. M``!-87D-`*!4YU;6``!*=6QY"P`05'?6``!397!T"P#P-$:W``!.;W8+`$!4
  121. M-M9Q`T0R`-`15281D0)L`.`?800\YN@#X#V0"01M'Y!G$;83A@@4\QQ191*.
  122. M3#8/!'D6X;$"-P!0```9`+!Q=Q=``2044'$G$Q`1)140%2454&42$2F`!@!8
  123. M2Y9G$;LGYN`#P4!P[P.;#U8#!,(^$`P$O#W0!02/%?$O$E4F,0`$[S^09Q'`
  124. M.E!E$AXK,`<`!0#P!`!7V`Y7B`Y7<`=W4*`*4(@`4``$0%>("E*(#G)P`W=4
  125. MB`I2J`)2$`54=X@.<M@.4A`%5Q=`,``$C/=$)`,#0(#$9*PQD`0$@!.6KU!=
  126. M0``X8?D*5642*T`P/`?`.C`B`_X1%B('P4`@[`,)*'8+!+P],',%@!_Q_@,A
  127. M<E`#!,(^L`<$O#W`>$\T<X`E`Y=TL"$Y*S&`;Q,`G2WP[1B90-#9`C?&\4QC
  128. MDT$0<U->3B#I`F\C`+A.T-D"6#)@2V,QQQ'M!"LQ8$MC,<>Q$@,K,8!O`P"=
  129. M+>"A&+R)<V,<_$%VZ0:=+>#`#$VO$E]!O*F"&`-@KX(8`P`6-B(#3:\27T&(
  130. M,<";*KRI@A@#%18FZ0)O(P`K,0"L`R8MM=(T'U(`30>301!S4^4R1J<"+"K0
  131. M``!#55)2+"K0``!-3TXM+"K0``!-3TXK+"KP``!914%2+2PJ\```645!4BMI
  132. M5[82`X8/Q!\ZHG%0]D%$,M#9`AQ+-HUASY*R`@1?-C:986L81:<"Y3+6V0(.
  133. M%&8G4*H[QIMAG2U`)`,=S(%#878"56%A*S&`&`,`%H9#89(N\#8"L!(#G2W@
  134. M0&%B`H48`QW,H8@JO!G6V0(-RH%#86("56%A*S&`&`,`%H9#89(N\#8"L!(#
  135. MG2W@0&$X%&8G4(@Q4&%ADB[P-@*P$@.=+>!`83@4)B90B#%086&2+O`V`K`2
  136. M`\^2LA(#(S+`N6*.;[`2`[83AAP'7!06<QR7=`"Y.$21LQ(#3BI``0`V_;_+
  137. M__KW[Z0">@```````+`$````````````````````````````````````````
  138. 8````L`$``T-!3``P,!3&%@`6```!`!A@
  139. `
  140. end
  141. sum -r/size 23700/1611 section (from "begin" to "end")
  142. sum -r/size 23392/1149 entire input file
  143. END_UU
  144.