Prints texts in random positions

To make it a screen saver save the program as .scr and put it in c:windowssystem32 for XP.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: screen
Rem Created: 5/3/2006 6:19:58 PM

Rem ***** Main Source File *****

set display mode 800,600,16

`hides your mouse
hide mouse
`-----------------------

`is the mouse position of x and y
a = mousex()
b = mousey()
`-----------------------

`radomize the time for name will print in other places
randomize timer()

`position of x and y for the the name
x = 800
y = 600

`sets the timer
t= timer()
`size of font
m = 50

do

`checks for movement of the mouse
`if mouse movement is true then it will end
`might have to get rid of this to work
if mousex() <> a or mousey() <> b then
end


`for the big name in the middle which sets the color blue
ink RGB(68,136,176),0


`sets the size of the text.  Look at line 19 for size
set text size m
SET TEXT TO BOLDITALIC
set text font "Terminal"

`Position of the text
center text 400,300,"*M2ZT*"

`if the time is greater then 55 then it will clear the screen
if time > 55
cls
`adds two to m which makes font bigger
inc m,2
`updates the text
center text 400,300,"*M2ZT*"
endif

`clears the screen
if time > 58 then
cls



`timer
time = ((timer() - t)/1000)
if time > 2
randomize timer()
set text size 12
set text to bold
`changes color ever second and adds a new text every second
ink rgb(rnd(255),rnd(255),rnd(255)),0
text rnd(x),rnd(y), "M2ZT"


if x < 440 and x > 390 then
x = x + 200

if y > 260 and y < 340 then
y = y + 200
endif


if time > 60
`restets the font so it wont get to big
m = 50
cls
`restets the timer so it goes back to 1
t= timer()
time = ((timer() - t)/1000)
endif


`checks for any key being pressed
for key = 1 to 220
if keystate(key) > 0 then
end
next key

loop
end