    rem Image Functionality

    rem Fill screen
    load image "image.bmp", 1
    for x=0 to 10 : for y=0 to 10
    paste image 1,x*64,y*64
    next y : next x

    rem Main loop
    do

    rem Produce random values
    ImageNumber=rnd(10000)
    X=rnd(640)
    Y=rnd(480)
    X1=rnd(320)
    Y1=rnd(240)
    X2=X1+1+rnd(319)
    Y2=Y1+1+rnd(239)

    rem Try each command at random
    if rnd(5)=1 then LOAD IMAGE "image.bmp", ImageNumber
    if rnd(5)=1 then GET IMAGE ImageNumber, X1, Y1, X2, Y2
    if IMAGE EXIST(ImageNumber)=1
     if rnd(5)=1 then PASTE IMAGE ImageNumber, X, Y
     if rnd(5)=1 then PASTE IMAGE ImageNumber, X, Y, 1
    endif

    rem Display data
    set cursor 0,0
    print "IMAGE EXPRESSION DATA"
    print
    print "image:";ImageNumber
    print "exist:";IMAGE EXIST(ImageNumber)
    if IMAGE EXIST(ImageNumber)=1 then DELETE IMAGE ImageNumber

    loop