XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
ANSI-Zeichensatztabelle ausgeben
Declarar i%, j%
Título de la ventana ANSI-Zeichensatztabelle
Ventana de Estilo 24
Ventana 0, 0 - 425, 270
Cls
Font 0 ANSI
Font 1 OEM (ASCII)
Claro i%

WhileLoop 1, 16, 1

    Claro j%

    WhileLoop 1, 16, 1

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

    EndWhile

    i% = i% + 1

EndWhile

WaitKey
End