XProfan

 {$cleq}
cls
long paperColor,oldPaperColor,diff,h
long vScroll=createVScroll(hwnd,"",400,10,20,100)

do{

    waitinput 100
    h=getScrollPos(vScroll)*2.5
    usebrush 1,rgb(h,h,h)
    rectangle 140,80 - 180,120
    oldPaperColor=paperColor
    paperColor=getPaperColor(hDC,160,100)
    diff=paperColor-oldPaperColor

    if diff>64 {

        print "BOING, Blatt wurde gedruckt!"

    } elseif diff<-64 {

        print "BOING, Blatt wurde aus dem drucker genommen!"

    }

}

nProc getPaperColor(long dc,x,y){

    long r,g,b,col,q,w

    whileloop 0,2 {

        q=loop

        whileloop 0,2 {

            w=loop
            col=getPixel(dc,x+q,y+w)
            add r,getRValue(col)
            add g,getGValue(col)
            add b,getBValue(col)

        }

    }

    div r,9
    div g,9
    div b,9
    add r,g
    add r,b
    div r,3
    return r

}