[net.micro.6809] You asked for it

knudsen@ihnss.UUCP (09/23/83)

10 'this will fill your screen for hours with lovely pastels, neons, acrylics, etc.
20 'especially if you type this in in upeer case of course!
30 PMODE 4: SSCREEN 1,1
40 x=rand(255) 'tired of holding shift key
50 line(x,0)-(x,191),pset
60 x=rand(255)
70 line(x,0)-(x,191),preset
80 goto 40

If you omit 60-70, the screen ultimately turns into all-white neighborhoods,
spoils the view after a while.  Complete program ultimately ends up with
128 more or less lines PSETed at any given time -- proof left as exercise.
	mike k