2 nosp = 1
3 cls
4 graphics 0
5 let speed = val(inputbox("Speed of animation?","Speed","2",0))
6 let colorr = val(inputbox("% red?","Color","",2))
7 let colorg = val(inputbox("% green?","Color","",2))
8 let colorb = val(inputbox("% blue?","Color","",2))
10 cls
15 graphics 0
17 graphics window 0,0,640,480
20 rem in ver 1 this line opened "tdx"
22 let mx = speed : let my = speed
25 let x = 1 : let y = 1
27 while not mouse(0)
30 for l = 1 to 1
32 graphics refreshtime 1
35 gosub 200
40 let x = x+mx : let y = y+my
42 graphics 0
45 if x >= 516 then let mx = (-speed)
47 if x <= 1 then let mx = speed
50 if y >= 340 then let my = (-speed)
55 if y <= 1 then let my = speed
60 if inkey$ = "s" then call "savepicture",str$(nosp) : nosp = nosp+1
65 if inkey$ = "p" then call "wait",5
80 next l
100 wend
105 graphics -1
110 end
200 graphics color colorr,colorg,colorb : graphics rect x,y,x+120,y+117
205 return