home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / LOCATE.C < prev    next >
Encoding:
Text File  |  1985-02-12  |  577 b   |  38 lines
  1. main()    /* locate.c -- illustrates use of locate() */
  2. {
  3.  
  4. int a,b,c,d;
  5. c = 1;
  6. b = 1;
  7. a=1;
  8.  
  9. cls();
  10.  
  11. locate(3,35,0);
  12. puts("RUN/C SAMPLE BOX");
  13. locate(1,1,0);
  14. puts("\t* * * * * * * * * * * * * * * **** * * * * * * * * * * * * * * *");
  15.     while(a < 12){
  16.   b *= -1;
  17.     (b > 0) ? locate(0,64,1) : locate(++a,8,0);
  18.     putchar('*');
  19. }
  20.  
  21. locate(0,64,1);
  22. putchar('*');
  23.  
  24. locate(12,8,0);
  25. d = 9;
  26.     while(c < 13)
  27.     {
  28.         b *= -1;
  29.         (b > 0) ? locate(12,(80-d),0) : locate(12,d,0);
  30.         putchar('*');
  31.         ++c;
  32.         ++d;
  33.     }
  34. locate(12,30,0);
  35. puts("Gee, is this windowing?");
  36.  
  37. }
  38.