'>>> Page 2 of LOADANSI.BAS begins here.
        STOP
    END IF
    SELECT CASE Foreground%
        CASE Black%        :
                                AString$ = AString$ + CHR$(27) + "[0"+_
";30m"
        CASE Blue%         :
                                AString$ = AString$ + CHR$(27) + "[0"+_
";34m"
        CASE Green%        :
                                AString$ = AString$ + CHR$(27) + "[0"+_
";32m"
        CASE Cyan%         :
                                AString$ = AString$ + CHR$(27) + "[0"+_
";36m"
        CASE Red%          :
                                AString$ = AString$ + CHR$(27) + "[0"+_
";31m"
        CASE Magenta%      :
                                AString$ = AString$ + CHR$(27) + "[0"+_
";35m"
        CASE Brown%        :
                                AString$ = AString$ + CHR$(27) + "[0"+_
";33m"
        CASE White%        :
                                AString$ = AString$ + CHR$(27) + "[0"+_
";37m"
        CASE Grey%         :
                                AString$ = AString$ + CHR$(27) + "[1"+_
";30m"
        CASE LightBlue%    :
                                AString$ = AString$ + CHR$(27) + "[1"+_
";34m"
        CASE LightGreen%   :
                                AString$ = AString$ + CHR$(27) + "[1"+_
";32m"
        CASE LightCyan%    :
                                AString$ = AString$ + CHR$(27) + "[1"+_
";36m"
        CASE LightRed%     :
                                AString$ = AString$ + CHR$(27) + "[1"+_
";31m"
        CASE LightMagenta% :
                                AString$ = AString$ + CHR$(27) + "[1"+_
";35m"
        CASE Yellow%       :
                                AString$ = AString$ + CHR$(27) + "[1"+_
";33m"
        CASE BrightWhite%  :
                                AString$ = AString$ + CHR$(27) + "[1"+_
";37m"
        CASE ELSE
            STOP
    END SELECT
END SUB
SUB AddSetBackGround ( AString$, Background% )
    IF ((Background%  White%)) THEN
        STOP
    END IF
    SELECT CASE Background%
        CASE Black%   :
                        AString$ = AString$ + CHR$(27) + "[0;40m"
        CASE Blue%    :
                        AString$ = AString$ + CHR$(27) + "[0;44m"
        CASE Green%   :
                        AString$ = AString$ + CHR$(27) + "[0;42m"
        CASE Cyan%    :
                        AString$ = AString$ + CHR$(27) + "[0;46m"
        CASE Red%     :
                        AString$ = AString$ + CHR$(27) + "[0;41m"
        CASE Magenta% :
                        AString$ = AString$ + CHR$(27) + "[0;45m"
        CASE Brown%   :
                        AString$ = AString$ + CHR$(27) + "[0;43m"
        CASE White%   :
                        AString$ = AString$ + CHR$(27) + "[0;47m"
        CASE ELSE
            STOP
    END SELECT
END SUB
SUB AddSetColours ( AString$, Foreground%, Background% )
'>>> Page 2 of LOADANSI.BAS ends here. Continued on next page.
-+- OLMS 2.53 UNREG
---
---------------