include "Window.inc"
Window " ", 640,500, 1
include "FernSprite.inc"

Font 10,20,700,"courier"

CreateFern

ClsColor 0x00,0x00,0x00
int i,x,y
for i= 0 to 3
  x=i*100+rand(0,50)
  y=0+rand(0,100)
  FernCopy x,y,300,470,420,470    'SPRITE
next

FernCopy 0,128,128,300,420,470    'SPRITE
FernCopy 360,64, 256,256,420,470  'SPRITE

SetWindowText sys_hwnd,"Ferns"
'Text 0,0,"SPRITES", 255,255,255

FlipBuffer
pause

DeleteFern

WinEnd