/* 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); */ }

<< Back to Apple II Graphics

<< Back to Apple Oldies

© Copyright Bill Buckels 2010
All Rights Reserved.