/* DEMO2CLR.c by bill buckels 2007        */
/* a graphics demo for the apple II       */
/* written in Manx Aztec C65 Version 3.2b */
/* runs under DOS33                       */
/* this was based on an old  dos 3.3 demo.*/
/* I modified it to suit the G3 library   */
/* I didn't bother to center the demo...  */
/* The original is left-justified for     */
/* some reason, and I just left it as-is  */
/* for this version...                    */

#define TEXTMODE  0
#define GRAFMODE  2  /* graphics only           */

#define clearscreen() fbox(0,0,39,191,0)
int getch();

main()
{
    int a,b,c,d,e, ch;

    scr_clear();
    setcrtmode(GRAFMODE);
    plots("Press",32,100,4);
    plots("Any",32,108,4);
    plots("Key...",32,116,4);
    ch = getch();
    clearscreen();

    c = 15; d=25; e=35;

    plots("DOS33 G3",2,c,1);
    plots("Graphics",4,d,1);
    plots("Demo",6,e,1);

    bdrw(0,96,260,96);
    bdrw(130,0,130,191);
    bdrw(5,91,0,96);
    blineto(6,101);
    bdrw(254,91,260,96);
    blineto(253,101);
    bdrw(125,5,130,0);
    blineto(137,5);
    bdrw(125,186,130,191);
    blineto(137,186);
    for(a=26;a<=234;a+=26)
        bdrw(a,94,a,98);
    for(b=27;b<=188;b+=23)
        bdrw(128,b,132,b);

    plotchar('1',23,102);
    plotchar('2',26,102);
    plotchar('3',30,102);
    plotchar('4',34,102);

    circle(130,96,21);
    rdrw(60,3,260,160);
    set_asp(1,2);
    circle(180,50,20);
    set_asp(2,1);
    circle(210,152,20);
    rdrw(0,129,260,129);
    vdrw(5,185,110,185);
    vlineto(5,145);
    vlineto(5,185);
    gdrw(5,140,120,185);
    glineto(120,140);
    glineto(5,140);
    gdrw(35,146,110,146);
    glineto(110,174);
    glineto(35,146);
    vdrw(15,156,75,179);
    vlineto(15,179);
    vlineto(15,156);
    set_asp(1,1);
    for(c=10;c<=30;c+=10)
        circle(60,80,c);

    ch = getch();
    setcrtmode(TEXTMODE);
    scr_apple();
    reboot();
    /*
    scr_clear();
    exit(0);
    */
}