home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / PWC-WINDOW.SDA / DEMO.C < prev    next >
Encoding:
C/C++ Source or Header  |  2019-04-13  |  2.0 KB  |  81 lines
  1. /* OPENWINDOW  DEMO
  2.  
  3.    ╙IMPLISTIC EXAMPLE OF USING THE ROUTINES IN WINDOW.L
  4.  
  5. */   
  6.  
  7. #DEFINE ├╠╙  PUTCHAR(147)
  8. #DEFINE ╚╧═┼ PUTCHAR(19)
  9.  
  10. MAIN()
  11.  
  12. █
  13. CHAR *WINDOW1, *WINDOW2, *WINDOW3, *OPENWINDOW();
  14. CHAR C, GETCH();
  15. INT I;     
  16.  
  17. FRAMESET();               /* REDEFINE SCREEN CODES  124 AND 127 TO BE */    
  18.                           /* HORIZONTAL AND VERTICAL BARS. FRAMESET   */
  19.                           /* MUST BE CALLED FOR THE BORDER ROUTINE TO */
  20.                           /* WORK PROPERLY.                           */
  21.  
  22. ├╠╙;                      /* CLEAR SCREEN                             */
  23.  
  24. BORDER(1,0,24,79);        /* DRAW BORDER AROUND SCREEN.               */
  25. PLOT(0,0);                /* MOVE CURSOR TO 0,0                       */
  26.  
  27. PRINTF("╫INDOW.L DEMO  ├OPYRIGHT 1988 BY ╦EN ╫ALTHEW.");
  28.  
  29. FOR(I=2;I<24;I++)         /* FILL SCREEN WITH REVERSE VIDEO SPACES   */
  30.     █
  31.     PLOT(I,1);
  32.     PRINTF("%-39S%-39SÆ"," "," ");
  33.     ▌
  34.  
  35. WINDOW1 = OPENWINDOW(2,4,18,32);    /* OPEN OUR FIRST WINDOW          */
  36.  
  37. PLOT(3,1);
  38. PRINTF("╨RESS A KEY TO CONTINUE");
  39.  
  40. WHILE((C=GETCH())==0);             /* WAIT FOR A KEYSTROKE          */
  41.  
  42. WINDOW2 = OPENWINDOW(3,10,12,50);  /* OPEN SECOND WINDOW            */
  43. FOR(I=0;I<7;I++)
  44.     █
  45.     PLOT(I,5);
  46.     PRINTF("─ATA LINE # %2U IN WINDOW 2",I);
  47.     ▌
  48. PLOT(7,2);
  49. PRINTF("╨RESS ANY KEY FOR NEXT WINDOW!!!!");
  50.  
  51. WHILE((C=GETCH())==0);           
  52.  
  53. WINDOW3 = OPENWINDOW(15,1,17,78);
  54.  
  55. PLOT(0,8);
  56.  
  57. PRINTF("┘OU MAY REMOVE THIS LONG UGLY WINDOW BY PRESSING A KEY.");
  58.  
  59. WHILE((C=GETCH())==0); 
  60.   
  61. CLOSEWINDOW(WINDOW3);              /* SHUTDOWN WINDOW 3            */
  62. REOPEN(WINDOW2);                   /* REOPEN WINDOW 2              */
  63. PUTCHAR(27); PUTCHAR(81);
  64. PRINTF("╘ESTING ╥┼╧╨┼╬!");
  65.  
  66. WHILE((C=GETCH())==0);             
  67. ├╠╙;
  68. PRINTF("╔F THE WINDOW CLEARED, ╥┼╧╨┼╬ WORKS!");
  69. WHILE((C=GETCH())==0);           
  70.  
  71. CLOSEWINDOW(WINDOW2);              /* SHUTDOWN WINDOW 2            */ 
  72. WHILE((C=GETCH())==0);           
  73.  
  74. CLOSEWINDOW(WINDOW1);              /*  SHUTDOWN WINDOW 1           */
  75. WHILE((C=GETCH())==0);         
  76.  
  77. ╚╧═┼, ╚╧═┼;
  78. ├╠╙;
  79. ▌
  80.  
  81.