XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
ANSI-Charmap spend
Declare i%, j%
Window Title ANSI-Charmap
Window Style 24
Window 0, 0 - 425, 270
Cls
Font 0 ANSI
Font 1 OEM (ASCII)
Clear i%

WhileLoop 1, 16, 1

    Clear j%

    WhileLoop 1, 16, 1

        Locate i% + 1, (j% + 1) * 3
        Print @Chr$(@Int(j% + i% * 16))
        j% = j% + 1

    EndWhile

    i% = i% + 1

EndWhile

WaitKey
End