/***  ÓCREEN ÃOLOR ÔOGGLE ÐROGRAM  ****
 FOR Ã-ÐOWER   (128 IN 80 COLUMN MODE)
Í. ÔUCKER ÂRAWNER [73455,1440]  3/14/88
**************************************/

#INCLUDE <STDIO.H>

STATIC CHAR ÃÏÌÏÒÓ[]=Û'\220','\005','\034','\036','\037','\201','\225','\226','\227','\230','\231','\232','\233','\234','\236','\237','\0'Ý

CHAR C;
INT N;
INT CI;
INT BI;
 
MAIN()
Û
  PUTCHAR('\223');
  PRINTF("*** ÓCREEN ÄISPLAY ÃOLOR ÁDJUSTMENT ***\N\N");
  PRINTF("C - ÔOGGLE THROUGH \022CHARACTER\222 COLORS\N");
  PRINTF("B - ÔOGGLE THROUGH \022BACKGROUND\222 COLORS\N");
  PRINTF("E - ÅXIT BACK TO SHELL PROGRAM\N");
  TESTLINE();

  SWITCH (C=GETCH())
    Û 
       CASE 'C':
       Û
       PUTCHAR (*(ÃÏÌÏÒÓ+CI));
       CI++;
       IF (CI==15)
          CI=0;
       BREAK; 
       Ý
     CASE 'B':
       Û
       POKE(15,0XD600,26);
       POKE(15,0XD601,BI);
       BI++;
       IF(BI==15)
         BI=0;
       BREAK;
       Ý 
     CASE 'E':
       Û
       PUTCHAR('\223'); 
       EXIT();
       Ý
    Ý
    MAIN();
Ý

TESTLINE()
Û
    PUTCHAR('\23');
    SKIP(10);
    PRINTF("ÔHIS IS A TEST OF THE SCREEN COLORS!\N");
    PRINTF("\022                                    \222\N");
    PRINTF("\022                                    \222\N");
Ý

SKIP (N)
Û
   WHILE (N--)
      PUTCHAR ('\N');
Ý

GETCH()
Û
    CHAR A, X, Y;

    DO
        SYS (15, 0XFFE4, &A, &X, &Y);
    WHILE (A == 0);
    RETURN A;
Ý