Cls
Print "+-----------------------+"
Print "| Tabela ASCII e cores. |"
Print "|   Marcio Esper 2023   |"
Print "+-----------------------+"
Print
Dim r = RGB(myrtle)
Dim g = RGB(green)
Dim y = RGB(yellow)
Dim j = RGB(cobalt)
Dim f = RGB(cerulean)
Dim h = RGB(cyan)
Dim k = RGB(midgreen)
Dim l = RGB(lilac)
Dim m = RGB(red)
Dim n = RGB(rust)
Dim o = RGB(white)
Dim p = RGB(fuchsia)
Dim q = RGB(brown)
Dim s = RGB(magenta)
Dim t = RGB(blue)

For u = 33 To 255
If u Mod 8 = 1 Then Print
Colour (n):Print Chr$(u)" ";:Colour (h)
If u < 100 Then Print " ";
Print u;:Colour (r):Print " | ";
Next
Print :Print

Colour (r):Print 01 Chr$(219);
Colour (g):Print 02 Chr$(219);
Colour (y):Print 03 Chr$(219);
Colour (j):Print 04 Chr$(219);
Colour (f):Print 05 Chr$(219);
Colour (h):Print 06 Chr$(219);
Colour (k):Print 07 Chr$(219);
Colour (l):Print 08 Chr$(219);
Colour (m):Print 09 Chr$(219);
Colour (n):Print 10 Chr$(219);
Colour (o):Print 11 Chr$(219);
Colour (p):Print 12 Chr$(219);
Colour (q):Print 13 Chr$(219);
Colour (s):Print 14 Chr$(219);
Colour (t):Print 15 Chr$(219);

Print :Print