'>>> Page 1 of ANSICOLR.BAS begins here. TYPE:BAS
'$INCLUDE: 'LOADANSI.BI'
DECLARE SUB WaitKey ()
DECLARE SUB NewPage (X$)
DECLARE SUB NewPage2 (X$)
COMMON SHARED L$, M$, N$, L2$, M2$, N2$
LOCATE , , 0
B$ = STRING$(5, "°")
C$ = STRING$(5, "±")
D$ = STRING$(5, "²")
E$ = STRING$(5, "Û")
F$ = "  |   "
G$ = " \|/  "
OPEN "CONS:" FOR OUTPUT AS #1
back% = Black%
FOR fore% = Black% TO White%
    AddSetColours L$, fore%, back%
    L$ = L$ + E$
    AddSetColours L$, White%, Black%
    L$ = L$ + " "
    M$ = M$ + F$
    N$ = N$ + G$
NEXT fore%
FOR fore% = Grey% TO BrightWhite%
    AddSetColours L2$, fore%, back%
    L2$ = L2$ + E$
    AddSetColours L2$, White%, Black%
    L2$ = L2$ + " "
    M2$ = M2$ + F$
    N2$ = N2$ + G$
NEXT fore%
NewPage (B$)
WaitKey
NewPage2 (B$)
WaitKey
NewPage (C$)
WaitKey
NewPage2 (C$)
WaitKey
NewPage (D$)
WaitKey
NewPage2 (D$)
back% = Black%
A$ = ""
WaitKey
A$ = ""
AddSetColours A$, White%, Black%
AddANSICLS A$
PRINT #1, A$
END
SUB NewPage (X$)
    A$ = ""
    AddSetColours A$, White%, Black%
    AddANSICLS A$
    AddMoveCursor A$, 1, 3
    PRINT #1, A$
    PRINT #1, STRING$(24, " "); L$
    PRINT #1, STRING$(24, " "); M$
    PRINT #1, STRING$(24, " "); N$
    PRINT #1,
    FOR back% = Black% TO White%
        A$ = ""
        AddSetColours A$, back%, back%
        A$ = A$ + "      "
        AddSetColours A$, White%, Black%
        A$ = A$ + "   ->   "
        FOR fore% = Black% TO White%
            AddSetColours A$, fore%, back%
            A$ = A$ + X$
            AddSetColours A$, White%, Black%
            A$ = A$ + " "
        NEXT fore%
        PRINT #1, STRING$(10, " "); A$
        PRINT #1,
    NEXT back%
END SUB
SUB NewPage2 (X$)
    A$ = ""
    AddSetColours A$, White%, Black%
    AddANSICLS A$
'>>> Page 1 of ANSICOLR.BAS ends here. Continued on next page.
-+- OLMS 2.53 UNREG
---
---------------