'BIGGEST Special Thanks to Mateusz Viste for the ANSI routines that are 
'successfully implemented for AFlib III in FreeBASIC!!!  And I quite
'wanna wish him the absolute best of great success indeed, too!!  ;)
'
'                                               - Adigun Azikiwe Polack

#Include Once "AFlib3_Palette.bi"
#Include Once "AFlib3_ASCii.bi"
#Include Once "AFlib3_Miscellaneous.bi"



Dim as Integer TextResX, TextResY, ColorDepth


Screenres 1280, 720, 24, 2, 0

WindowTitle "AFlib III -- ANSImation Test"
AFlibIII_Initialize_ASCii

AFlibIII_ASCii_ClearDisplay EGAcol(4)
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\DNA.ans", 0, 0, , 80, 4
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\LOUDER.ans", 0, 28, , 90, 1
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\HAMB8.ans", 0, 54, , 100, 25
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\CHAOS2.ans", 80, 1, , 100, 21
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\RUSH.ans", 80, 28, , 60, 17
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\SHADOWGT.ans", 80, 54, , 100, 12
Sleep

AFlibIII_ASCii_ClearDisplay EGAcol(4)
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\FINAL.ans", 0, 0, , 75, 28
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\INN.ans", 0, 27, , 100, 31
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\CHRSTMAS.ans", 0, 54, , 100, 18
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\DREAM.ans", 80, 0, , 100, 34
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\EUPHORIA.ans", 80, 26, , 50, 14
AFlibIII_ASCii_LoadANSImation "ANSImation Examples\HOUSE.ans", 80, 54, , 70, 10

Sleep
'/

AFlibIII_ASCii_RemoveSprite_CleanSweep
AFlibIII_DeInit_ASCii

AFlibIII_EndProgram



/'
TextResX = 80
TextResY = 112
ColorDepth = 24

Screenres TextResX * 8, TextResY * 8, ColorDepth, 2, 0

AFlibIII_ASCii_ClearDisplay RGB(170, 0, 0)
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\DNA.ans", 0, 0, , 80, 4
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\LOUDER.ans", 0, 28, , 90, 1
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\HAMB8.ans", 0, 54, , 100, 25
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\CHAOS2.ans", 0, 80, , 100, 21

Sleep

AFlibIII_ASCii_ClearDisplay RGB(170, 0, 0)
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\RUSH.ans", 0, 0, , 60, 17
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\SHADOWGT.ans", 0, 26, , 100, 12
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\FINAL.ans", 0, 52, , 75, 28
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\INN.ans", 0, 78, , 100, 31

Sleep

AFlibIII_ASCii_ClearDisplay RGB(170, 0, 0)
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\CHRSTMAS.ans", 0, 0, , 100, 18
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\DREAM.ans", 0, 26, , 100, 34
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\EUPHORIA.ans", 0, 52, , 50, 14
AFlibIII_ASCii_LoadANSImation "The ANSI Design Files\The ANSI Classics\HOUSE.ans", 0, 80, , 70, 10

Sleep
'/

End