From: Thomas Pagel <Thomas.Pagel@unnet.w.open.DE>
Subject:  v04i045:  howlong_tp - Give a countdown time for an event v1.0, Part01/01
Newsgroups: comp.sources.hp48
Organization: THE UNDERGROUND NETWORK
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu

Checksum:  393892050 (verify with brik -cv)
Submitted-by: Thomas Pagel <Thomas.Pagel@unnet.w.open.DE>
Posting-number: Volume 4, Issue 45
Archive-name: howlong_tp/part01

BEGIN_DOC howlong.doc
When do you have your next date or exam?

This litte HP48 program encoded with the ASC-Tool gives you
information how long it lasts to the event, you set time 
and date for.

At the beginning of the program, you find two parameters in 
brackets. These has to be changed in the following way:

{time  month.dayYear} 

like the usual data format of the HP48.
Start the programm and it tells you:
------------------
How long?

118d 4h 12min 24s

or 2836,2 hour(s)
------------------
Make sure, that you have enough time be prepared for you event!

To quit the programm, just press <Return>. Otherwise you will have 
useless variable in your menu....

Good luck and always enough time to be prepared for your date..

Thomas

Internet: thomas.pagel@unnet.w.open.de

END_DOC

BEGIN_ASC howlong.asc
%%HP: T(1)A(D)F(.);
"D9D20E163247A20339201000000000000810339200000000029918040B2130B7

BF1EF53293632B213049FC"
END_ASC


BYTES: #CF94h 649

BEGIN_UU howlong.uue
begin 644 howlong
M2%!(4#0X+46=+>!A(W0J,),"`0``````@`$S*0`````@F8%`L!(#>\^!O1_!
M--+F`@-424UM+C!`%$3E82-8J#$,(VTN,$`41"6!&;W[(9L95#:"Y`(!5'DV
MTLP@PRYR?QEM+C!`E=34Q1[Z+M+9`E0V@N0"`51Y-J*:(-C[,9,"`0``````
M0`+WE]'F`@-424U^O^'W&X?[T;8;5#:"Y`(!4WDVTLP@H[LQDP("````````
M`>ZMT;8;5#:"Y`(!37DVTLP@*S%0^R*=+=#F`@-424WWE^'W&X?[T;8;5#:"
MY`(!4WDVTLP@H[LQDP("`````````>ZMT;8;5#:"Y`(!37DVTLP@*S%0_2+W
MES&3`@(````````![JTQNALS*2`````````0X-X:;;LQDP(!````````!KW[
MD=`:5#:"Y`(#4T5#>3;2S"!4-H+D`@%4>38"M"`S*1`````````DX-X:5#:"
MY`(!4WDV`K0@9ZM!92-(+B`P195G(\T,PJ(")0```@("@O1T!<+TY'0$\J.@
M0&4C2"X00)5G(T`+LK`<+"J0``!D(&>K<;8:5#:"Y`(!4WDV`K0@"\O!H@()
M`(`&<K8:9ZM!92-(+A#0E&<C0`NRL!PL*M```&UI;B!4-H+D`@-314-Y-@*T
M("PJL```<PH*9ZMQMAIGJW&V&BPJL```;W(@5#:"Y`("4U1Y-@*T(-ZB4M4;
M"\M!92-(+A#0E&<C0`LRDP("`````````06OX?,;R:)2U1L+R\&B`A<``(+V
M5B>',I<2<K8:9ZMQMAIGJY$L*H2ET0XC<ZB1:R-T*H#D`@-314-(+B`P187D
;`@%-2"X0,(7D`@%4*S'@[R#8^^%?(SDVLA(#
`
end
END_UU
