sync on
sync rate 0
cls
 
center text 320,240,"Press any key to step through the picture"
suspend for key
cls rgb(100,100,200)
 
 
 
`boat
ink rgb(100,20,20),rgb(100,100,200)
for y=280 to 440
   line 70+(y/4),y,570-(y/4),y
next y
box 300,100,340,280
sync
suspend for key
 
`sails
ink rgb(200,200,200),rgb(100,100,200)
for x=0 to 125
   for y=0 to 140
      if (x+((140-y)/1.5))<90 then dot x+345,y+100 : dot 295-x,y+100
   next y
next x
sync
suspend for key
 
 
`waves
ink rgb(0,0,100),rgb(100,100,200)
for x=0 to 639
	ym=(15*sin(x*4))+15
	line x,ym+340,x,479
next x
sync
suspend for key
 
x1=639
y1=0
 
`sun
ink rgb(200,200,70),rgb(100,100,200)
for x=600 to 639
   for y=0 to 39
      if SQRT((x-640)^2+(y)^2)<39
			dot x,y
      endif
   next y
next x
 
for x=550 to 639
   for y=0 to 89
      drawang#=atanfull(y-y1,x-x1)
      if SQRT((x-640)^2+y^2)>50 and SQRT((x-640)^2+y^2)<89
         if (drawang#>90 and drawang#<100) or (drawang#>105 and drawang#<120) or (drawang#>125 and drawang#<140) or (drawang#>145 and drawang#<160) or (drawang#>165 and drawang#<180) then dot x,y
      endif
   next y
next x
suspend for key
end