1 cls
5 gosub 100 : rem random coord generators
10 graphics window 100,100,200,200 : call "wintitle","Random Image"
20 for l1 = 1 to 200
25 for l2 = 1 to 200
27 cr = rnd(100) : cg = rnd(100) : cb = rnd(100)
30 graphics color cr,cg,cb
32 gosub 150
35 pset l1,l2
40 next l2
45 next l1
50 for p = 1 to 10
55 sound 2000,0.07,90
60 sound 3050,0.13,90
65 next p
67 get qon$
68 if qon$ = "s" then call "savepicture",inputbox("Name of picture?","Save Image","Pict 1",0)
70 graphics -1 : cls : end
100 rem random coord genorators
105 nrc = rnd(100)
107 dim crdx(nrc) : dim crdy(nrc)
110 for gl = 1 to nrc
115 crdx(gl) = rnd(200) : crdy(gl) = rnd(200)
120 next gl
122 print "x";tab (20);"y"
125 for pc = 1 to nrc
130 print crdx(pc);tab (20);crdy(pc)
135 next pc
140 return
150 rem coord checker/changer
155 for nt = 1 to nrc
157 ad = rnd(75)
158 sa = rnd(11)
160 if (l1 > crdx(nt)-sa and l1 < crdx(nt)+sa) and (l2 > crdy(nt)-sa and l2 < crdy(nt)+sa) then gosub 180
170 next nt
175 return
180 rem color changer
185 cr = cr-ad : if cr < 1 then cr = 0
187 cg = cg-ad : if cg < 1 then cg = 0
189 cb = cb-ad : if cb < 1 then cb = 0
190 graphics color cr,cg,cb
195 return