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