XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
MemoryBitmapExists

proc MEMORYBITMAPEXISTS

    STARTPAINT -1
    var C&=GETPIXEL(0,0)
    ENDPAINT
    RETURN IF(C&=-1,0,1)

endproc

if MEMORYBITMAPEXISTS()

    print Bitmap existiert!

else

    print Bitmap existiert nicht!

endif

WaitInput
XPSE-Quelltext erkannt. Precompiler XPSE für Ausführung benötigt.
Source wurde am 21.12.2006 in die Babyklappe auf XProfan.Com abgelegt:

proc memoryBitMapExists

    startpaint -1
    long c:=getpixel(0,0)
    endpaint
    return if(c==-1,false,true)

endproc