>>> Continued from previous message
            PUT #1, , @cell.char
            INCR cell, 2
        NEXT Column
    NEXT Row
    Temp$ = CHR$(27) + "[8m"
    PUT #1, , Temp$
    CLOSE #1
    BEEP 2
LOOP
FUNCTION ToAnsiColor (_
    Attr    AS INTEGER,_
    Ground  AS INTEGER) AS STRING
    SELECT CASE Attr
        CASE %Black         : Temp$ = "x0"
        CASE %LowBlue       : Temp$ = "x4"
        CASE %LowGreen      : Temp$ = "x2"
        CASE %LowCyan       : Temp$ = "x6"
        CASE %LowRed        : Temp$ = "x1"
        CASE %LowMagenta    : Temp$ = "x5"
        CASE %Brown         : Temp$ = "x3"
        CASE %LowWhite      : Temp$ = "x7"
        CASE %Gray          : Temp$ = "n;x0"
        CASE %HighBlue      : Temp$ = "n;x4"
        CASE %HighGreen     : Temp$ = "n;x2"
        CASE %HighCyan      : Temp$ = "n;x6"
        CASE %HighRed       : Temp$ = "n;x1"
        CASE %HighMagenta   : Temp$ = "n;x5"
        CASE %Yellow        : Temp$ = "n;x3"
        CASE %HighWhite     : Temp$ = "n;x7"
    END SELECT
    SELECT CASE Ground
        CASE %FOREGROUND
            REPLACE "x" WITH "3" IN Temp$
            REPLACE "n" WITH "1" IN Temp$
        CASE %BACKGROUND
            REPLACE "x" WITH "4" IN Temp$
            REPLACE "n" WITH "5" IN Temp$
    END SELECT
    FUNCTION = Temp$
END FUNCTION
 * OLX 2.1 TD * Ask me about LANSI.BAS and ARDAF.BAS
--- Maximus/2 2.01wb
---------------