Custom Colors for the 2068

By using a combination of PAPER; INK and UDG screens we can have an almost endless variety of colors.

Most color printing we see in magazines, packages etc. are printed using only four colors; cyan, yellow, magenta and black: These are called process colors.

The seemingly endless varieties are determined by a combination of screened and solid colors. The screens are percentages of the 4 Process colors. The following programs use similar but simplified features.

The first listing (C1) is from a Resistor Color code program I have developed. The screen dump shows the custom colors. Below are the UDG’s developed for this and the following program.

Note that Lines 407 to 411 use the combinations I noted above.

Color Blocks uses the same UDGs as the prior program. An endless chain of colors, hues and their shades can be seen. By changing or adding screens the range increases greatly.

Colors 1

404 LET X=0: GO SUB 462: REM COLORS C1 1987 G. GILDER
405 CLS : BORDER VAL "7": PAPER VAL "7": INK X: LET F=1
406 PRINT INK 2;"RESISTOR COLOR CODE CHART";INK 0';"Enter color bars on resistor"''
407 PRINT INK X;TAB X;"\{158} BLACK=0";TAB X;INK 2;PAPER 0;"\{160}";PAPER 7;INK 2;" BROWN=N";INK 2;TAB X;"\{158} RED  =R";
408 PRINT TAB X;PAPER 2;INK 6;"\{160}";PAPER 7;INK 2;" ORANG=O"
409 PRINT TAB X;INK 6;"\{158} YELLW=Y";TAB X;INK 4;"\{158} GREEN=G";TAB X;INK 1;"\{158} BLUE =B";
410 PRINT TAB X;PAPER 3;INK 1;"\{160}";PAPER 7;" VIOLT=V";TAB X;INK X;"\{160} GRAY =E";TAB X;"\{161} WHITE=W";
411 PRINT ''''TAB X;;PAPER 6;INK 0;"\{160}";PAPER 7;INK 6;" GOLD =L";TAB X;INK X;"\{160}";INK 0;" SILVER=S";
412 GO SUB 457
413 PRINT AT 20,0;"UDG \{158} \{159} \{160} \{161} \{162} \{163} \{164} "'"    O P Q R S T U": STOP
457 PRINT AT VAL "14",VAL "12";"\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}"
458 PLOT VAL "96",VAL "64": DRAW VAL "80",x: DRAW x,VAL "-9": DRAW VAL "-80",x: DRAW x,VAL "9"
460 PLOT 96,60: DRAW -30,0: PLOT 176,60: DRAW 30,0
461 RETURN
462 RESTORE : FOR f=x TO VAL "39": READ y: POKE USR "Q"+F,y: NEXT f
463 DATA INT 85,170,85,170,85,170,85,170,255,129,129,129,129,129,129,255,128,128,128,128,128,128,128,128,1,1,1,1,1,1,1,1,170,170,170,170,170,170,170,170
464 LET h=255: LET g=170: RESTORE 465: FOR f=x TO VAL "15": READ y: POKE USR "O"+f,y: NEXT f
465 DATA g,h,g,h,g,h,g,h,255,0,255,0,255,0,255,0
466 RETURN
490 REM

Colors 2

404 LET X=0: GO SUB 462: REM COLORS C1 1987 G. GILDER
405 CLS : BORDER VAL "7": PAPER VAL "7": INK X: LET F=1
406 PRINT INK 2;"RESISTOR COLOR CODE CHART";INK 0';"Enter color bars on resistor"''
407 PRINT INK X;TAB X;"\{158} BLACK=0";TAB X;INK 2;PAPER 0;"\{160}";PAPER 7;INK 2;" BROWN=N";INK 2;TAB X;"\{158} RED  =R";
408 PRINT TAB X;PAPER 2;INK 6;"\{160}";PAPER 7;INK 2;" ORANG=O"
409 PRINT TAB X;INK 6;"\{158} YELLW=Y";TAB X;INK 4;"\{158} GREEN=G";TAB X;INK 1;"\{158} BLUE =B";
410 PRINT TAB X;PAPER 3;INK 1;"\{160}";PAPER 7;" VIOLT=V";TAB X;INK X;"\{160} GRAY =E";TAB X;"\{161} WHITE=W";
411 PRINT ''''TAB X;;PAPER 6;INK 0;"\{160}";PAPER 7;INK 6;" GOLD =L";TAB X;INK X;"\{160}";INK 0;" SILVER=S";
412 GO SUB 457
413 PRINT AT 20,0;"UDG \{158} \{159} \{160} \{161} \{162} \{163} \{164} "'"    O P Q R S T U": STOP
457 PRINT AT VAL "14",VAL "12";"\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}"
458 PLOT VAL "96",VAL "64": DRAW VAL "80",x: DRAW x,VAL "-9": DRAW VAL "-80",x: DRAW x,VAL "9"
460 PLOT 96,60: DRAW -30,0: PLOT 176,60: DRAW 30,0
461 RETURN
462 RESTORE : FOR f=x TO VAL "39": READ y: POKE USR "Q"+F,y: NEXT f
463 DATA INT 85,170,85,170,85,170,85,170,255,129,129,129,129,129,129,255,128,128,128,128,128,128,128,128,1,1,1,1,1,1,1,1,170,170,170,170,170,170,170,170
464 LET h=255: LET g=170: RESTORE 465: FOR f=x TO VAL "15": READ y: POKE USR "O"+f,y: NEXT f
465 DATA g,h,g,h,g,h,g,h,255,0,255,0,255,0,255,0
466 RETURN
490 REM
500 REM ** COLOR BLOCKS **
505 LET a=5: FOR p=157 TO 160: FOR i=0 TO 6
510 LET k=INT (RND*7): PRINT AT a,i*2+6;PAPER k;INK i;CHR$ p;CHR$ p
515 NEXT i: LET a=a+1: NEXT p
550 PRINT AT 20,6;"PRESS ANY KEY"';TAB 7;"TO CONTINUE": PAUSE 0: GO TO 500
590 REM
600 REM ************************** Custom Colors C2 **************************
605 REM Try this program & see dozens of color bars using only one screen and the standard 2068 colors. Note: type and run these programs together.
510 LET b$="\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}\{160}"
620 FOR i=0 TO 7: FOR f=0 TO 6: PRINT PAPER f;INK i;b$
630 NEXT f: NEXT i