--- title: "Custom Colors for the 2068" type: "article" slug: "custom-colors-for-the-2068-2" url: "http://localhost/article/custom-colors-for-the-2068-2/" markdown_url: "http://localhost/article/custom-colors-for-the-2068-2.md" published_at: "2022-09-14T02:44:23+00:00" modified_at: "2026-07-10T00:38:39+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "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…" category: - name: "LISTing Newsletter" slug: "listing-newsletter" taxonomy: "category" url: "http://localhost/category/periodicals/listing-newsletter/" post_tag: - name: "Best of Timex/Sinclair 2068 Articles and Documents" slug: "ts2068best" taxonomy: "post_tag" url: "http://localhost/tag/ts2068best/" - name: "TS 2068" slug: "ts2068" taxonomy: "post_tag" url: "http://localhost/tag/ts2068/" - name: "Type-in program" slug: "type-in-program" taxonomy: "post_tag" url: "http://localhost/tag/type-in-program/" model: - name: "Timex/Sinclair 2068" slug: "ts-2068" taxonomy: "model" url: "http://localhost/model/ts-2068/" indiv: - name: "George Gilder" slug: "george-gilder" taxonomy: "indiv" url: "http://localhost/indiv/george-gilder/" publication_r: id: 38992 title: "LISTing Newsletter" type: "periodical" url: "http://localhost/periodical/listing-newsletter/" authors: "George Gilder" authors_r: - name: "George Gilder" slug: "george-gilder" taxonomy: "indiv" url: "http://localhost/indiv/george-gilder/" issues_articles: - id: 40209 title: "LISTing Newsletter October 1988" type: "issue" url: "http://localhost/issue/listing-newsletter-october-1988/" pages: "3-4" pubdate: "October 1988" archive_link: false --- # 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 ```