Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/26/83; site ihnss.UUCP
Path: utzoo!linus!philabs!cmcl2!floyd!clyde!ihnp4!ihnss!knudsen
From: knudsen@ihnss.UUCP
Newsgroups: net.micro.6809
Subject: You asked for it (random colors)
Message-ID: <1703@ihnss.UUCP>
Date: Fri, 23-Sep-83 13:26:17 EDT
Article-I.D.: ihnss.1703
Posted: Fri Sep 23 13:26:17 1983
Date-Received: Mon, 26-Sep-83 00:52:49 EDT
Organization: BTL Naperville, Il.
Lines: 13

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