From: nfb2571@dsac.dla.mil (Garrett G Obrien)
Newsgroups: comp.sys.hp48
Subject: New Mail user
Date: 29 Jul 92 19:06:36 GMT
Organization: Defense Logistics Agency Systems Automation Center, Columbus


Hi,

I just found this group, and I'm also new at this so if I make a mistake,
please ignore it.  I've got an HP-48SX with a 512k ram card from Tripod
Data Systems, and I'm loving it.  I've been reading some of these articles,
and I'm wondering how to get some of the stuff that you're talking about.
(Remote control with the hp, Goodies disks, etc...)  I really don't have 
access to a modem though.  

I'm somewhat of a programmer (hacker before it became a four (six?) letter
word.)  I would appreciate any neat little tricks and techniques that
anyone could send to me. 
My email is:
   nfb2571@dsac.dla.mil  (I think)

Below I've included a program that I'm proud of (even though there
are probably a million of them around).

It's an analog clock.  What makes it different though is that before drawing
the screen, it fades out (screen intensity at address #101h & #102h),
then fades back in with the face.  It's a little slow between fadein and 
fadeout, but not too much.  If you want to turn it off, but keep the clock
running, push the 'A' key (whatever it's called, the upper left button.)
To stop the program, push 'ENTER' (if you hit 'ON' to stop it, it will leave
junk on the stack, 'ENTER' will clear it off and do a fadeout and fadein.)
FADEIN and FADEOUT are separate programs that could be used in another
application.  The program is an entire directory with 8 files in it.  I
downloaded it with kermit.

I would really appreciate it if some of you would email me and tell me what
you think of this program, or anything to make it better (or faster.)
I've noticed before I added the screen fading that it pauses (hiccups?)
every 6 seconds or so.  Is there some reason for this? Can I get rid of it?

I read that some of you need cables.  A friend of mine sells cables and
overlays for the HP-48.  The cables include a 2 meter cable, db-9 to db-25
adapter, and a 720k disk with kermit and some programs on it (I think
he's going to add the program below to it, but I'm not sure.)  It costs
$25.00 with a student discount (he said that if you want to tell him that 
you are a student, he'll never know, they are $32.95 otherwise.)  The 
overlays have the greek letters and all the blue and orange shift keys.  
They cost $10.00 with student discount and $11.95 otherwise.  These are 
US dollars, and come with postage paid inside the US.  Outside you'll have
to include postage.  I've got both of them myself, and they are nice.
I used to have an HP cable, but it was a lot shorter (I'm not sure how
much) and didn't come with the software or adapter.  The overlay is 
cheaper that what I've seen elsewhere and I think it has more on it.
This isn't a paid advertisement, and I'm not getting anything out of it,
I just thought I'd pass the info to you.  
His address is:
     
     SCS
     3312 Columbus Ct. #11
     Columbus, OH 43290
     (614) 236-6062

I hope this information is useful, and I hope you enjoy the program.

(P.S. again, please email me and tell me what you think of this program;
      comments, suggestions, criticism, whatever)

(Sorry, but I have to do this)
Disclaimer:
My opinions are my own and not of the Federal Government. 

I'm not sure if I'm suposed to do anything here or not, but the program
starts here.

_____

section 1 of uuencode 5.02 of file clock    by R.E.M.

begin 644 clock
M2%!(4#0X+466*O!_P!0````$2$%.1`2=+>!A(\$TTN8"`VQE;FTN,/#&1M;F
M`@-N97<>-C+L(FTN,/#&1M;F`@-N97>=ZJ'O(ITM<)<"````````````````
M`````#,I$````````)`PDP("``````!@`VTN,.!6=I?0&F>K064C;2XPX%9V
MEV<CS0S2Y@(#;&5N;2XPX%9V5U`;[JW1Y@(#;&5N;2XPX%9VQTH;[JWA>1QW
M*0`````````````````````PDP(!````````"3,I(````````#;0Y@(#;VQD
M":UQMAI4-M+F`@-O;&1Y-M+,(&TN,,!6YM;F`@-O;&0%M>'>&FTN,,!6YM;F
M`@-O;&2LM.'>&I['(3P>PN.Q$@/5+^)?(SDVLA(#-@)`<%1$1470V0(>-G)_
M&<$TTN8"`70>-M+F`@%T;;O1Y@(!=*.[,9,"`@````````'NK=&V&VTN$$`W
MDP("`````````>ZM,;H;,RD@````````$.#>&FV[X5\C.3:R$@._`$``];14
M1-#9`KW[D<(?3BI0`0```````````(/GD8`>O?O!W`);`!`C`1,T<11T<11#
M811D,198,8;0$$91%GXQ$)9!$@-1%!$3(T'B)Q!&",BP$@.I`$``552T1-#9
M`KN6L6D9S"T``P!!%W-@<1ET,1>U'W-1^7`Q%R1AA("\$@-5`$!@%#141."Q
M`H\(``0`@P````````````````````````````#_!P``````````````````
M\`!X```````````````````.`(`#````````````````@`&8`PP`````````
M``````!@`!`",````````````````!``D`-`````````````````R`RP`(8`
M``````````````"&")@#!`,``````````````($((``$!`````````````"`
M@`@```0(`````````````$#`'0``#A``````````````(```````(```````
M```````@```````@`````````````!```````$``````````````"```````
M@``````````````$`````````0```````````&0$`````!P!````````````
M0@H`(```$`(```````````!""@`@```<`@```````````$$*`"````0$````
M````````X00`(```'`0````````````!```@````!```````````@````"``
M```(``````````"`````(`````@``````````(`````@````"```````````
M@````"`````(``````````!`````(````!```````````$`````@````$```
M````````0````"`````0``````````!`#@``(```P!$``````````$`*```@
M````$0``````````0`X``"```,`1``````````!`"````````!$`````````
M`$`.``````#`$0``````````0``````````0``````````!``````````!``
M`````````$``````````$```````````@``````````(``````````"`````
M``````@``````````(``````````"```````````@``````````(````````
M````X0``````%`0```````````"A```````4!````````````.$``````!P$
M````````````H@``````$`(```````````#B```````0`@````````````0`
M```````!````````````!`````````$````````````(``````"`````````
M`````!```````$``````````````(```````(``````````````@P`$```X@
M`````````````$```0```A``````````````@(`````."```````````````
M00`P``@$``````````````!&``@`#@,```````````````@`.`"`````````
M````````$``H`$``````````````<'=@`#@`,-R<&73I;H([N#10$8`!```,
M5$4$%$NB`BF(55`S``X`@`/<G`AP3VX`*;A74!$`\`!X`$0%$1!-H@`IB%9P
M$0``_P<`1-T,<$FN`#FX-`"*``5#3$]#2P6=+>!A(S,I`````````#(YDP(`
M``````!@"2'F,9,"````````(),S*0`````````R$&0>M*)"*RJTHD(K*K2B
M0BLJ,RD`````````%#"3`@```````"`",RD`````````)4`K*K2B$DPC;2Y`
M\,9&AM;F`@%H;2Y`\,9&UM;F`@%M;2Y`\,9&-M?F`@%S;2Y`@,96YM;F`@1M
M;&5N;2Y`,,=6YM;F`@1O;&1D;2Y`0%?6!N=A(T@N<&`41%3T5$6%Y`($1D%#
M13;DT<P@="K@I`(5````````````X*0"%0```````````+`2`_#B,0PC$I@Q
MNALS*2`````````0X-X:;;O1Y@($;VQD9)WJ,>PB^B[2V0(VY'&7`@``````
M`%`"````````(`,2F'%_&9*9D2PJ,RD0````````$L"%'-ZBTEH>ZL@A@1FC
MNS&3`@(````````![JW1MAM4-M+F`@1O;&1D>3;2S"`K,5#](C;D<9<"````
M``````29"0``````!!*8<7\9DIDQDP(!``````!``3,I$````````"+`A1SS
MHM):'D@N0'!41$4E,RKNK4%E(VTN$#"79R/-#"(S*NZM064C;2X0T)9G(\T,
M,I,"`0````````/NK='F`@%M,RD0````````$E#P&FV[<;8:5#;2Y@(!:'DV
MTLP@;2Y`,,=6YM;F`@1O;&1S;2X0,(?D`@1(04Y$ZLC1Y@($;6QE;FTN0/#&
M1M;6Y@(!;4@N0(`4Y$34Y@($:&QE;FTN0/#&1H;6Y@(!:$@N0(`4Y$34Y@(!
M<U0VTN8"!&]L9'-Y-M+,(&TN$-!&92-M+D#PQD;6EF<CS0S2Y@(!:%0VTN8"
M!&]L9&AY-M+,(+2BTN8"!'1E;7!RZ3'L(OHNTMD"2"Y@8!1$5)3DE"PJ5#;2
MY@($=&5M<'DVTLP@*S%0_2+#+C*'&K2B(I<>^BY"*RK5+Q),(VTN$+#F82-M
M+A"P-I,"`0``````$`'#+B*7'OHNXC$:U2_2Y@(!:_XUT@XC,RD0````````
M42"7'KDVXE\C2"YP8!1$5/14165@'D@N8&`41%24Y)1C(RLQ<&<`!T9!1$5/
M550'G2W@82-.*E`!```!````````2"Y``%54M'2X'TXJ4`$`#_[_______^#
MY]&['TXJ4`$`\`$```````"#Y^&D`A4```$```````!0\!J[ED%E(T@N,-`6
MAI=G(\T,$DPC;2Y`T!8VM^9A(T@N,-`6AD<K*J`QTN8"`7AM+A"`MVD93BI0
M`0`0`````````.ZMT>8"!&UA<VL)Z.&D`A4``!````````"`Y`($4$]+18:C
M`C@C_C628R,K,9`8``9&041%24X&G2W@82-.*E`!```!````````2"Y``%54
MM!1,(VTN0-`6-K?F82.THH+D`@-M87B@,=+F`@%X;2X0@+=I&4XJ4`$`$```
M``````#NK='F`@1M87-K">CAI`(5```0````````@.0"!%!/2T7)H@(X(_XU
&DF,C*S$`
`
end
sum -r/size 53916/3876 section (from "begin" to "end")
sum -r/size 46807/2796 entire input file
Newsgroups: comp.sys.hp48