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