Screen Saver:  BOUNCELINE

(c) Christopher Browne 1995

(Christopher_Browne@brown.edu)
-------------------------------------------------------
Range 1,127,0,1,63,0
Mcl
3->G~J
-2->H
2->J
XmaxRan#->A
YmaxRan#->B
XmaxRan#->C
YmaxRan#->D
Lbl 2
Int (20Ran#)+20->q  *q is theta*
Lbl 1
Plot A,B
Plot C,D
Line
A >= *greater than or equal to* 122 =>-5Ran#-3->G
A <= *less than or equal to* 6=>5Ran#+3->G
B >= 58 => -3Ran#-2->H
B <= 6=>3Ran#+2->H
C<=6=>5Ran#+3->I
C>=122=>-5Ran#-3->I
D<=6=>3Ran#+2->J
D>=58=>-3Ran#-2->J
A+G->A
B+H->B
C+I->C
D+J->D
Dsz q
Goto 1
Cls
Goto 2