'>>> Page 1 of ANSITEST.BAS begins here. TYPE:BAS
'$INCLUDE: 'LOADANSI.BI'
DECLARE SUB WaitKey()
OutString$ = ""
OPEN "CONS:" FOR OUTPUT AS #1
AddSetColours OutString$, Yellow%, Blue%
AddANSICLS OutString$
OutString$ = OutString$ + "This is a test"
AddSetColours OutString$, BrightWhite%, Green%
AddClearEOL OutString$
PRINT #1, OutString$
WaitKey
OutString$ = ""
AddSetScreenMode OutString$, 1
AddMoveCursor OutString$, 10, 10
OutString$ = OutString$ + "Howdy"
AddHomeCursor OutString$
OutString$ = OutString$ + "After homing cursor"
AddMoveCursor OutString$, 20, 12
OutString$ = OutString$ + "At 20, 12!"
AddMoveCursorDown OutString$, 4
OutString$ = OutString$ + "Down 4"
AddMoveCursorLeft OutString$, 25
OutString$ = OutString$ + "Left 25"
AddMoveCursorUp OutString$, 12
OutString$ = OutString$ + "Up 12"
AddMoveCursorRight OutString$, 10
OutString$ = OutString$ + "Right 10"
PRINT #1, OutString$
WaitKey
OutString$ = ""
AddSaveCursor OutString$
AddSetColours OutString$, LightRed%, White%
AddANSICLS OutString$
AddMoveCursor OutString$, 5, 5
OutString$ = OutString$ + "Moved after cursor saved"
AddRestoreCursor OutString$
OutString$ = OutString$ + "After restoring cursor"
PRINT #1, OutString$
WaitKey
OutString$ = ""
AddSetBackground OutString$, Cyan%
AddANSICLS OutString$
OutString$ = OutString$ + "Trying attributes"
AddMoveCursor OutString$, 1, 3
AddBlinkOn OutString$
OutString$ = OutString$ + "With Blink"
AddClearAllAttributes OutString$
AddSetForeground OutString$, Black%
AddReverseVideoOn OutString$
AddMoveCursor OutString$, 1, 5
OutString$ = OutString$ + "With reverse video on"
AddClearAllAttributes OutString$
AddConcealedOn OutString$
AddMoveCursor OutString$, 1, 7
OutString$ = OutString$ + "With concealed on"
AddClearAllAttributes OutString$
PRINT #1, OutString$
WaitKey
OutString$ = ""
AddResetScreenMode OutString$, 3
AddSetColours OutString$, White%, Black%
AddANSICLS OutString$
PRINT #1, OutString$
END
SUB WaitKey
    DO
        Q$ = INKEY$
    LOOP UNTIL Q$  ""
END SUB
'>>> Page 1 of ANSITEST.BAS ends here. Last page.
-+- OLMS 2.53 UNREG
---
---------------