// PROGRAM animation

#include "TrueBASIC.h"
int main();

int main()
{
    float x;

    GWopen(0);

    GWindow(1.0f, 1.0f, 10.0f, 10.0f);
    GWsetpen(WHITE, -1, -1, -1);
    x = 1;
    while(x < 10)
    {
        GWsetbrs(WHITE, 1, 0);
        GWrect(x, 5.0f, x+1, 6.0f);         // erase shape
        x += 0.1;
        GWsetbrs(RED, 1, 0);
        GWrect(x, 5.0f, x+1, 6.0f);         // redraw shape at different location
        GWsleep(10);
    }

    GWquit();
    return 0;
}