    rem Image Showcase

    rem Standard Setup Code for all examples
    sync on : sync rate 0
    set text font "arial" : set text size 16
    set text to bold : set text transparent

    rem Load image
    load image "image.bmp",1
    desc$="Fast Image Pasting (1000 per cycle)"

    rem Main loop
    do

    rem Paste a thousand images on screen per cycle
    for t=1 to 1000
     paste image 1,rnd(680)-16,rnd(520)-32,1
    next t

    rem Show Framerate
    text 20,screen height()-40,desc$
    fps$="DBPro Fps: "+str$(screen fps())
    text screen width()-20-text width(fps$),screen height()-40,fps$

    rem Update screen
    sync

    rem End loop
    loop