XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
ASCII-Zeichensatztabelle ausgeben
Declare i%, j%
WindowTitle ASCII-Zeichensatztabelle
WindowStyle 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