D. JacKaL's Kaleidoscope This is a cool little screen saver which simulates a kaleidoscope. \START81\ Prgm1:KALEIDO :Disp "NO. OF SECONDS?" :Input T :5T\->\T :ClrDraw :Xmin\->\A :Xmax\->\B :Xscl\->\C :Ymin\->\D :Ymax\->\E :Yscl\->\F :5\->\Xmin :100\->\Xmax :0\->\Xscl :5\->\Ymin :68\->\Ymax :0\->\Yscl :0\->\Z :ClrHome :Lbl 1 :Z+1\->\Z :If Z=T :Goto 2 :Int 32Rand-1\->\X :Int 16Rand-1\->\Y :PT-Chg(51-X,36+Y) :PT-Chg(51-X,35-Y) :PT-Chg(52+X,36+Y) :PT-Chg(52+X,35-Y) :Goto 1 :Lbl 2 :ClrDraw :A\->\Xmin :B\->\Xmax :C\->\Xscl :D\->\Ymin :E\->\Ymax :F\->\Yscl :DispHome \STOP81\