XProfan

proc TextInClipboard

    if GetClip$() =

        return 1

    else

        return 0

    endif

endproc

proc PicInClipboard

    StartPaint -1
    ClipLoadBMP 0 , 0 ; 0
    EndPaint

    if not(%BMPX) and not(%BMPY)

        return 0

    else

        return 1

    endif

endproc

cls

if TextInClipboard()

    print GetClip$()

elseif PicInClipboard()

    ClipLoadBMP 0 , 0 ; 0

else

    print Es ist weder ein Text
    noch ein Bild in der
    Zwischenablage.

endif

waitinput
end