From: dougc@bert.cs.byu.edu (Douglas R. Cannon)
Newsgroups: comp.sources.hp48
Subject: v02i036:  bounce - Bouncing Ball animation program v1.0, Part01/01
Date: 1 Nov 91 03:26:16 GMT
Followup-To: comp.sys.hp48
Organization: Univ. of North Carolina @ Wilmington

Checksum: 3897449546 (verify with brik -cv)
Submitted-by: Douglas R. Cannon <dougc@bert.cs.byu.edu>
Posting-number: Volume 2, Issue 36
Archive-name: bounce/part01

BEGIN_RDME bounce.rdm

As if there aren't enough of these already...

Here is another HP48s status line animation.  You will see a ball bounce across
the screen.  Of course, the contents of PICT are not disturbed.  You can exit
early by pressing ON.

BOUNCE: Bytes
# 6A8h
   574

Included is BOUNCE.RPL -- The entire program is written in RPL, take a look at
it, change it, etc... ( You know, I don't care ware. ) Also there is
BOUNCE.ASC and BOUNCE.UUE

By the way... are people really interested in these cute little animations?
I have seen a few pop up, so I wrote this in about 1 hour.  I could do tons
more, but I don't suppose everyone wants to be swamped with status line
animations.  I haven't had the courage to take on another massive project like
the factory animation, but one day I will write a 131 by 64 giant animation
to eat up all my RAM.

If anyone has a similar idea they would like me to write, let me know... I'm
always looking for ideas.

Enjoy!

Doug Cannon
BYU Computer Science Dept, Provo, Utah
dougc@bert.cs.byu.edu

END_RDME

BEGIN_RPL bounce.rpl
%%HP: T(3)A(D)F(.);
\<< {
GROB 10 10 0F008610C630C630C630C63086100F0000000000
GROB 10 12 000000000F008610C630C630C630C63086100F0000000000
GROB 10 13 00000000000000000F008610C630C630C630C63086100F000000
GROB 10 13 0000000000000000000000000F008610C630C630C630C6308F10
GROB 11 13 000000000000000000000000000000000F008610C6304620EF70
} PICT RCL 0 \-> G P
X
  \<<
    IFERR LCD\-> PICT
STO { # 0d # 0d }
PVIEW PICT { # 0d
# 0d } # 131d # 14d
BLANK REPL 1 14
      FOR I 1 5
        FOR J PICT
X R\->B # 1d 2 \->LIST
G J GET REPL 'X' 1
STO+
        NEXT 600
.005 800 .005 BEEP
BEEP 4 1
        FOR J PICT
X R\->B # 1d 2 \->LIST
G J GET REPL 'X' 1
STO+ -1
        STEP
      NEXT
    THEN
    END TEXT P PICT
STO
  \>>
\>>

END_RPL

BEGIN_ASC bounce.asc
%%HP: T(3)A(D)F(.);
"D9D20E163247A20E1B2073000A0000A00000F008610C630C630C630C63086100
F0000000000E1B20F3000C0000A0000000000000F008610C630C630C630C6308
6100F0000000000E1B2034000D0000A000000000000000000000F008610C630C
630C630C63086100F000000E1B2034000D0000A0000000000000000000000000
0000F008610C630C630C630C6308F10E1B2034000D0000B00000000000000000
00000000000000000000F008610C6304620EF70B2130634E104B024B2A21C432
D6E201074D6E201005D6E201085E1632FD332D9D20275E1634E1DCC0247A20E4
A20510000000000000000000E4A20510000000000000000000B21300F2E1634E
147A20E4A20510000000000000000000E4A20510000000000000000000B2130E
4A20510003800000000000000E4A2051000E000000000000000614E1AE8C19C2
A23392010000000000004100A132D6E2010949C2A2D13A20A132D6E2010A4634
E1D6E201085B9691E4A20510001000000000000000ED2A2387C1D6E201074D6E
2010A46C7D1AE8C145632D6E201085976329C2A2B4402C423233920200000000
0000060339207990000000000050339202000000000000080339207990000000
0000504C5A14C5A1803A29C2A20A132D6E2010A4634E1D6E201085B9691E4A20
510001000000000000000ED2A2387C1D6E201074D6E2010A46C7D1AE8C145632
D6E201085976329C2A2B4402683A208332C4232B2130F1732D9D20B21305DF22
606E1D6E201005634E1DCC02EF53293632B21308A60"

END_ASC

BYTES: #6A8h 578

BEGIN_UU bounce.uue
begin 644 bounce
M2%!(4#0X+46=+>!A(W0JX+$"-P"@```*```/@!;`-L`VP#;`-H`6``\`````6
MX+$"/P#````*````````#X`6P#;`-L`VP#:`%@`/`````."Q`D,`T```"@``K
M```````````/@!;`-L`VP#;`-H`6``\``."Q`D,`T```"@``````````````6
M````#X`6P#;`-L`VP#:`'^"Q`D,`T```"P````````````````````````^`G
M%L`V0";@?[`2`S;D`;0@M*(23"-M+A!PU.8"`5!M+A"`Y6$CWS/2V0)RY6%#!
M'LT,0J<"3BI0`0```````````$XJ4`$````````````K,0`O'C;D0:<"3BI0<
M`0```````````$XJ4`$````````````K,>"D`A4`,`@```````#@I`(5`.``A
M````````8$$>ZLB1+"HS*1`````````4`!HC;2X0D)0L*AVC`AHC;2X0H&1#_
M'FTN$("U:1E.*E`!``$`````````WJ(R>!QM+A!PU.8"`4K&UZ&.'%0VTN8",
M`5AY-I(L*DL$PB0C,RD@````````8#"3`I<)```````%,RD@````````@#"3[
M`I<)```````%Q*5!7!H(HY(L*J`QTN8"`4HVY-'F`@%8FY;AI`(5`!``````F
M````X"TJ@\?1Y@(!1VTN$*!D?!WJR$%E(VTN$("59R/)HK)$((:C`C@C3#*R.
@$@,?-]+9`BLQ4/TB!N;1Y@(!4#;DT<P@_C628R,K,0`KZ
``
end
END_UU