RandomWalk Ver 1.0 (C) Per-Ole Otterholm ( d95peo@csd.uu.se )

Programmed by Per-Ole Otterholm

This program is a development of the Sierpinski
program I have done. Insted of using only three
dots you can use 1-10 dots to generate a 
randomwalkfractal, I cannot guarantee that all
the generated fractals will become beautiful but
they are all fractals :). This program is as 
always a quite general program tha don't care
about your screensettings or something else.

How to use the program : Look at my sierpinski
program it has quite same functions. 
Two functions is added in this program : 
how reference dots you want to use ( 1-10) and
how many dots the generator should plot.

Observe that I use the convention that ":." is 
thesymbol for the so called pause function that
makes the - DISP - message while running. I 
havent use the convention that uses "_".

If you find any weird bugs or something like
that just let me know ( mail me ) I programmed
this one without any calculator the batteries
was all...and this is only compatible with the
Graphing Casios older than 9850 ( - cause 9850
and 9950 don't have vectormemories :( that is 
pitty ).

If you want to generate the Sierpinski triangle
use three refencedots and 2 as interval and 
select where you want the ref.dots to be on the
screen ....


I hope you'll enjoy the program :)

Per Ole Otterholm

-----------------------------------------------

'RANDOMWALK 1.0
Defm 19
Mcl:Cls
"REFDOTS"? -> A
"DOTS"? -> 
Lbl 1
Plot.:
Y -> Z[B]
X -> Z[B+A]
Isz B
B<A => Goto 1
"INTERVAL"? -> C
Lbl 2
Int ARan# -> B
Plot Z[b]-(Z[B]-X)/C , Z[B+A]-(Z[B+A]-Y)/C
Dsz D
D =|= 0 => Goto 2
"FINISHED"
Defm 0