XProfan

WindowTitle str$(%BitsPixel)+" bit/Pixel Zeichenklauer"
WindowStyle 24:font 1:declare i&,j&

whileloop 0,255:cls:print chr$(&Loop);" ";&Loop;"\n"

    whileloop 1,18:j&=&Loop:whileloop 1,8:i&=&Loop

        print if(getpixel(i&,j&),".",chr$(219));
        endwhile:print:endwhile:waitinput
        endwhile:print "\n\nOK.":waitinput