I was browsing around the forums at the 20 line snippets and saw a few wallpaper programs. I have very little programming knowledge but i created this wallpaper just for fun.
Size = 75 : set display mode desktop width(), desktop height(), 32 : maximize window : set window off : hide mouse : sync on : sync rate 40 : set text size 10 : ink rgb(0, 200, 0), 0 : dim Array$(Size) : repeat : cls : x = x + 1 : if x > Size then x = 1
Array$(x) = Make_Random_String() : for y = 1 to Size : text 5, y * 10 - 5, Array$(y) : next : sync : until mousemovex() <> 0 or mousemovey() <> 0 or scancode() <> 0 : end
function Make_Random_String() : repeat : String$ = String$ + str$(rnd(1)) : until text width(String$) > screen width() - 20
All it is is a scrolling wall of 1's and 0's but i found it fun to make.
Unfortunately I tried making how far it scrolled down the screen automatic but my attempts failed. So now you need to edit 'Size' (First variable) to the amount of lines you want. If anyone can help with the auto sizing then that would be great!