# http://www.ex-parrot.com/~tom/calcs/calcs/encyc/progs/src/bounc41.ctf
# ========================================================================
# Program name: Bouncer
# 
#      Version: 4.1
#       Author: Tom Lynn
#         Date: 1996-8
#       Models: 9700, 9800, 9750, 9850, 9950, 7400
#
#
# Description:
#
# Bouncing ball screensaver.
# 
# See also Bouncer v.4.0.
# And no, I can't remember the difference.
#


@@ Program "~BOUNC41"

'BOUNCER4.1
1->Y:0->N
Range 1,127,0,1,63,0,1,127,1
Lbl 6
Cls
2Int (.5+Ran#)-1->D
10+40Ran#\sqr->W
(-)60/W\sqr->G
64-D(63-WRan#->N
.5+.3Ran#->E
Lbl 0
D=1=>N+W>=Xmax=>Goto 1
D<>1=>N+W>=Xmax=>Goto 2
D=1=>N-W<=Xmin=>Goto 3
D<>1=>N-W<=Xmin=>Goto 4
D=1=>Graph (X,Y)=(T,1+G(T-N)\sqr-GW\sqr),[N-W,N+W]
D<>1=>Graph (X,Y)=(2N-T,1+G(T-N)\sqr-GW\sqr),[N-W,N+W]
Lbl 5
WE->W
(-)GW\sqr<1=>Goto 6
N+DW(1+E\-1->N
Goto 0
Lbl 1
Graph (X,Y)=(T,1+G(T-N)\sqr-GW\sqr),[N-W,Xmax]
2Xmax-N->N
(-)1->D
Goto 0
Lbl 2
Graph (X,Y)=(Xmax+N-W-T,1+G(Xmax-W-T)\sqr-GW\sqr),[N-W,Xmax]
Goto 5
Lbl 3
Graph (X,Y)=(T,1+G(T-N)\sqr-GW\sqr),[Xmin,N+W]
Goto 5
Lbl 4
Graph (X,Y)=(Xmin+N+W-T,1+G(Xmin+W-T)\sqr-GW\sqr),[Xmin,N+W]
2Xmin-N->N
1->D
Goto 0


# ========================================================================
# CTF compliant.  See http://www.york.ac.uk/~tw104/casio/ for details.
#
# More programs and information at:
#              http://www.ex-parrot.com/~tom/calcs/calcs/encyc/
#
# This file last compiled: Friday, 30 April, 1999
# ========================================================================