@Obese87
Thanks for the advice! Here is a program I made that makes and image from circles,dots,or boxes and then saves it to your desktop. Could you look it over and give me any advice on how to make it better?
`*************************
`**Image Generator********
`************by Juggleboy*
`*************************
rem Set up Window and defualt values
set window on
set window title "Image Generator"
maximize window
hide mouse
X=0
Y=0
rem Reseed randomize command and clear the screen
input "Type a number to reseed the randomization.", variable
randomize variable
CLS
rem Ask for dot, circle, or box
print "Type "dot" if you want the picture full of dots,type "circle" if you want circles"
set cursor 0,12
print " and "box" if you want boxes"
ink rgb(0,0,255), rgb(0,0,0)
input shape$
rem Ask how many circles
ink rgb(255,255,255), rgb(0,0,0)
set cursor 0,50
print "How many should there be?"
ink rgb(0,0,255), rgb(0,0,0)
input variable
ink rgb(255,255,255), rgb(0,0,0)
CLS
rem Ask what color background and draw a box for background
input "What color should the backgound be? black,red,green,purple,or blue?", color$
CLS
if color$="black" or color$="Black" or color$="BLACK" then ink rgb(0,0,0), rgb(0,0,0)
if color$="red" or color$="Red" or color$="RED" then ink rgb(255,0,0), rgb(0,0,0)
if color$="green" or color$="Green" or color$="GREEN" then ink rgb(0,255,0), rgb(0,0,0)
if color$="purple" or color$="Purple" or color$="PURPLE" then ink rgb(173,20,147), rgb(0,0,0)
if color$="blue" or color$="Blue" or color$="BLUE" then ink rgb(0,0,255), rgb(0,0,0)
box 0,0,200,200
rem draw the image
for image = 1 to variable
R=RND(255)
G=RND(255)
B=RND(255)
X=RND(200)
Y=RND(200)
ink RGB(R,G,B), RGB(0,0,0)
if shape$= "circle" then circle x,y,5
if shape$= "dot" then dot x,y
if shape$= "box" then box x,y,x+10,y+10
next circle
rem Ask if user wants to save the image.
set text size 30
center text 320,240, "Save image?"
ink RGB(253,0,0), RGB(0,0,0)
set text size 15
center text 320,400, "Up arrow key = yes | Down arrow key = no"
rem Main loop
do
rem Get answer via up or down key
if upkey()=1
get image 1,0,0,200,200
set cursor 320,300
input "What should it be called?", name$
name$=name$+".bmp"
save image name$,1
end
endif
if downkey()=1 then end
loop
