--- title: "Musical Christmas with TS 2068" type: "article" slug: "musical-christmas-with-ts-2068" url: "http://localhost/article/musical-christmas-with-ts-2068/" markdown_url: "http://localhost/article/musical-christmas-with-ts-2068.md" published_at: "2021-10-01T11:49:05+00:00" modified_at: "2024-05-26T13:12:06+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "Three Christmas songs as performed by the TS 2068." category: - name: "The Sinc Times (2)" slug: "the-sinc-times-2" taxonomy: "category" url: "http://localhost/category/periodicals/the-sinc-times-2/" post_tag: - 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: "Oleg D. Jefimenko" slug: "oleg-d-jefimenko" taxonomy: "indiv" url: "http://localhost/indiv/oleg-d-jefimenko/" publication_r: id: 37904 title: "The Sinc Times (2)" type: "periodical" url: "http://localhost/periodical/the-sinc-times-2/" authors: "Oleg D. Jefimenko" volume: "1" issue: "3-4" issues_articles: - id: 37902 title: "The Sinc Times v1 n3-4" type: "issue" url: "http://localhost/issue/the-sinc-times-v1-n3-4/" pages: "2" pubdate: "Sept-Dec 1985" related_articles: - id: 45729 title: "Musical Xmas with TS 2068" type: "article" url: "http://localhost/article/musical-xmas-with-ts-2068/" - id: 45025 title: "Musical Christmas with TS 2068" type: "article" url: "http://localhost/article/musical-christmas-with-ts-2068-2/" - id: 46980 title: "Musical Christmas with TS 2068" type: "article" url: "http://localhost/article/musical-christmas-with-ts-2068-3/" archive_link: false article_media: - id: 52275 title: "Musical Christmas with TS 2068" type: "computer_media" url: "http://localhost/computer_media/musical-christmas-with-ts-2068/" --- # Musical Christmas with TS 2068 Three Christmas songs as performed by the TS 2068. ## Source Code: Musical Christmas with TS 2068 ``` 10 BORDER 4: PAPER 6: CLS : FOR a=0 TO 12 20 PRINT INK 1;"CHRISTMAS MUSIC";TAB 17; INK 3;"CHRISTMAS MUSIC": NEXT a 30 PRINT AT 18,1; PAPER 5;"Press ENTER to select a song" 40 PAUSE 0 50 CLS : PRINT PAPER 5;"****** Table of Contents *******": PRINT ''''''' 60 FOR i=1 TO 3: RESTORE i*200+800: READ n$: PRINT i;TAB 4;n$: NEXT i 70 PRINT PAPER 5;AT 20,0;"Enter the number of the composi-tion that you want to play " 80 INPUT n: CLS : LET z$="" 90 RESTORE n*200+800: READ n$,t 100 CLS : PRINT PAPER 5;"********* Now Playing **********";AT 21,0;"********* Now Playing **********" 110 PRINT AT 10,(31-LEN n$)/2;n$ 120 PRINT PAPER 3; INK 7;AT 20,0;" To stop, press SHIFT + BREAK " 130 READ f,v: ON ERR GO TO 170 140 IF f<>99 THEN GO TO 160 150 PAUSE t/v*60: GO TO 130 160 BEEP t/v,f: GO TO 130 170 ON ERR RESET : IF z$="2" THEN RESTORE n*200+810: GO TO 130 180 CLS : PAPER 7: PRINT AT 7,0;"Press 1 to play again. " 190 PRINT "Press 2 to play continuously. " 200 PRINT ;"Press 0 to play another song. " 210 PAPER 6 220 PAUSE 0: LET z$=INKEY$: IF z$="1" OR z$="2" THEN GO TO 90 230 IF z$="0" THEN GO TO 50 1000 DATA "Silent Night",1.8 1010 DATA 7,8/3,9,8,7,4,4,4/3,7,8/3,9,8,7,4,4,4/3,14,2,14,4,11,4/3,12,2,12,4,7,4/3,9,2,9,4,12,8/3,11,8,9,4,7,8/3 1020 DATA 9,8,7,4,4,4/3,9,2,9,4,12,8/3,11,8,9,4,7,8/2,9,8,7,4,4,4/3,14,2,14,4,17,4,14,4,11,4,12,4/3,16,1,12,4 1030 DATA 7,4,4,4,7,4,5,4,2,4,0,1 1200 DATA "Jingle Bells",.8 1210 DATA 13,4,13,4,13,4,99,4,13,4,13,4,13,4,99,4,13,4,16,4,9,4,11,4,13,4/3,99,4,14,4,14,4,14,4,14,4,14,4,13,4 1220 DATA 13,4,99,4,13,4,11,4,11,4,13,4,11,4,99,4,16,4,99,4,13,4,13,4,13,4,99,4,13,4,13,4,13,4,99,4,13,4,16,4 1230 DATA 9,4,11,4,13,4/3,99,4,14,4,14,4,14,4,14,4,14,4,13,4,13,4,99,4,16,4,16,4,14,4,11,4,9,4,99,4,21,4,99,4 1400 DATA "Joy to the World",2.5 1410 DATA 24,4,23,5.33,21,16,19,2.67,17,8,16,4,14,4,12,8/3,19,8,21,2.67,21,8,23,2.67,23,8,24,2,99,16,24,8,24,8,23,8,21,8,19,8,19,5.33 1420 DATA 17,16,16,8,24,8,24,8,23,8,21,8,19,8,19,5.33,17,16,16,8,16,8,16,8,16,8,16,8,16,16,17,16,19,16/5,99,16,17,16,16,16,14,8 1430 DATA 14,8,14,8,14,16,16,16,17,16/5,99,16,16,16,14,16,12,8,24,4,21,8,19,5.33,17,16,16,8,17,8,16,4,14,4,12,2 ```