Set the peramiters and paste your message!

You can chose Random (random colors) or Set (set colors) and paste your message on the screen!

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    begin:
   input "Random or Set? ";b$
if b$="Random"
   input "Peramiters ";a
   input "Message ";d$
   goto Random
endif
if b$="Set"
   input "Number ";a
   input "Message ";d$
   goto Set
endif
Random:
do
if mouseclick()=1
	x=mousex()
	y=mousey()
   c=RND(a)
	ink rgb(c,c,c),0
	set cursor x,y
   print "";d$
endif
if mouseclick()=2
   cls
   goto begin
endif
loop
Set:
do
if mouseclick()=1
	x=mousex()
	y=mousey()
	ink rgb(a,a,a),0
	set cursor x,y
   print "";d$
endif
if mouseclick()=2
   cls
   goto begin
endif
loop