// PROGRAM circle

#include "TrueBASIC.h"
int main();
void compute_aspect_ratio(float r, float *x, float *y);

int main()
{
    float r, xwin, ywin;

    GWopen(0);

    r = 1;                                  //
    GWindow(0.0f, -r*1.5f, 0.0f, r*1.5f);
    GWsetpen(BLUE, -1, -1, -1);
    GWellipse(-r, -r, r, r);                //

    GWquit();
    return 0;
}