'>>> Page 2 of ANSICOLR.BAS begins here.
    AddMoveCursor A$, 1, 3
    PRINT #1, A$
    PRINT #1, STRING$(24, " "); L2$
    PRINT #1, STRING$(24, " "); M2$
    PRINT #1, STRING$(24, " "); N2$
    PRINT #1,
    FOR back% = Black% TO White%
        A$ = ""
        AddSetColours A$, back%, back%
        A$ = A$ + "      "
        AddSetColours A$, White%, Black%
        A$ = A$ + "   ->   "
        FOR fore% = Grey% TO BrightWhite%
            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 WaitKey
    DO
        Q$ = INKEY$
    LOOP UNTIL Q$  ""
END SUB
'>>> Page 2 of ANSICOLR.BAS ends here. Last page.
-+- OLMS 2.53 UNREG
---
---------------