'>>> Page 1 of LOADANSI.BAS begins here. TYPE:BAS
'$INCLUDE: 'LOADANSI.BI'
CONST MaxTextX% = 80, MaxTextY% = 25
SUB AddANSICLS ( AString$ )
    AString$ = AString$ + CHR$(27) + "[2J"
END SUB
SUB AddHomeCursor ( AString$ )
    AString$ = AString$ + CHR$(27) + "[H"
END SUB
SUB AddMoveCursor ( AString$, ToX%, ToY% )
    IF (((ToX%  MaxTextX%) OR (ToY% >_
 MaxTextY%))) THEN
        STOP
    END IF
    AString$ = AString$ + CHR$(27) + "[" + LTRIM$(STR$(ToY%)) + ";" +_
 LTRIM$(STR$(ToX%)) + "H"
END SUB
SUB AddMoveCursorUp ( AString$, By% )
    AString$ = AString$ + CHR$(27) + "[" + LTRIM$(STR$(By%)) + "A"
END SUB
SUB AddMoveCursorDown ( AString$, By% )
    AString$ = AString$ + CHR$(27) + "[" + LTRIM$(STR$(By%)) + "B"
END SUB
SUB AddMoveCursorRight ( AString$, By% )
    AString$ = AString$ + CHR$(27) + "[" + LTRIM$(STR$(By%)) + "C"
END SUB
SUB AddMoveCursorLeft ( AString$, By% )
    AString$ = AString$ + CHR$(27) + "[" + LTRIM$(STR$(By%)) + "D"
END SUB
SUB AddSaveCursor ( AString$ )
    AString$ = AString$ + CHR$(27) + "[s"
END SUB
SUB AddRestoreCursor ( AString$ )
    AString$ = AString$ + CHR$(27) + "[u"
END SUB
SUB AddClearEOL ( AString$ )
    AString$ = AString$ + CHR$(27) + "[K"
END SUB
SUB AddSetScreenMode ( AString$, Mode% )
    IF (((Mode% > 19) OR (Mode%  7) AND (Mode% <_
 13))) THEN
        STOP
    END IF
    AString$ = AString$ + CHR$(27) + "[=" + LTRIM$(STR$(Mode%)) + "h"
END SUB
SUB AddResetScreenMode ( AString$, Mode% )
    IF (((Mode% > 19) OR (Mode%  7) AND (Mode% <_
 13))) THEN
        STOP
    END IF
    AString$ = AString$ + CHR$(27) + "[=" + LTRIM$(STR$(Mode%)) + "l"
END SUB
SUB AddClearAllAttributes ( AString$ )
    AString$ = AString$ + CHR$(27) + "[0m"
END SUB
SUB AddBlinkOn ( AString$ )
    AString$ = AString$ + CHR$(27) + "[5m"
END SUB
SUB AddReverseVideoOn ( AString$ )
    AString$ = AString$ + CHR$(27) + "[7m"
END SUB
SUB AddConcealedOn ( AString$ )
    AString$ = AString$ + CHR$(27) + "[8m"
END SUB
SUB AddSetForeGround ( AString$, Foreground% )
    IF ((Foreground%  BrightWhite%)) THEN
'>>> Page 1 of LOADANSI.BAS ends here. Continued on next page.
-+- OLMS 2.53 UNREG
---
---------------