Merry Christmas from T-S Horizons

For the 2068 Refer to chapter 18 of the TIMEX manual for 40-90.

   1 RESTORE : GO SUB 9000
   2 RANDOMIZE
   5 PRINT INK 2; PAPER 4; FLASH 1;AT 2,7;"▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
   6 FOR i=3 TO 5: PRINT INK 2; PAPER 4; FLASH 1;AT i,7;"▒";AT i,23;"▒": NEXT i
  10 PRINT AT 3,8; INK 4;"MERRY CHRISTMAS"
  11 PRINT AT 4,8; INK 2;" FROM T-S";AT 5,13; INK 4;"HORIZONS"
  12 PRINT INK 2; PAPER 4; FLASH 1;AT 6,7;"▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  15 INK 4
  20 FOR i=32 TO 80: PLOT i,i: DRAW INK 4;(80-i),0: PLOT 80,i: DRAW INK 4;(80-i),0: NEXT i
  25 PLOT INK 4;80,80: DRAW INK 6;0,10: PLOT INK 6;77,87: DRAW INK 6;6,0
  27 PRINT INK 0;AT 14,16;" Unto you";AT 16,17;"there has been";AT 18,17;"born a Savior"
  30 FOR i=16 TO 31: PLOT INK 1;70,i: DRAW INK 1;20,0: NEXT i
  40 PRINT AT 15,RND*4+8; PAPER 4; INK RND*4;"a"
  50 PRINT AT 16,RND*4+7; PAPER 4; INK RND*4;"a"                : REM - use "graphics a", i.e., SHIFT-9, then "a", in lines 40  to 80
  60 PRINT AT 18,RND*13+3; PAPER 7; INK RND*4;"a"
  70 PRINT AT 14,RND*2+9; PAPER 4; INK RND*4;"a"
  80 PRINT AT 17,RND*7+6; PAPER 4; INK RND*4;"a"
  90 FOR i=1 TO 8: PRINT AT 19,RND*13+3; INK RND*7; FLASH RND*1;"b"    : REM - use "graphics b",i.e., SHIFT-9 then "b"
 100 NEXT i
 110 RESTORE 800: FOR i=1 TO 30: READ a,b: BEEP a/2,b: NEXT i
 120 PAUSE 100: RESTORE 900: FOR i=1 TO 61: READ c,d: BEEP c/2,d: NEXT i
 130 PAUSE 120: RESTORE 1000: FOR i=1 TO 57: READ e,f: BEEP e/3,f: NEXT i
 140 RESTORE 1010: PAUSE 150: FOR i=1 TO 96: READ g,h: BEEP g/5,h: NEXT i
 150 PAUSE 120: GO TO 100
 800 DATA 1,2,1,7,.5,7,.5,9,.5,7,.5,6,1,4,1,4,1,4,1,9,.5,9,.5,11,.5,9,.5,7,1,6,1,2,1,2,1,11,.5,11,.5,12,.5,11,.5,9,1,7,1,4,.5,4,.5,4,1,2,1,9,1,6,3,7
 900 DATA 1,0,.75,5,.25,5,1,5,1,7,.75,9,.25,9,1.5,9,.5,9,.5,7,.5,9,1,10,1,4,1,7,1.5,5,1,0,.75,5,.25,5,1,5,1,7,.75,9,.25,9,1.5,9,.5,9,.5,7,.5,9,1,10,1,4,1,7,1.5,5,.5,12,.5,12,.5,9,1.5,14,.5,12,.5,12,.5,10,1.5,10,.5,10,.5,10,.5,7,1.5,12,.5,10,.5,10,.5,9,1,9,1,0,.75,5,.25,5,1,5,1,7,.75,9,.25,9,1.5,9,.5,9,.5,7,.5,9,1,10,1,4,1,7,1,5
1000 DATA 1,12,.75,11,.25,9,1.5,7,.5,5,1,4,1,2,1.5,0,.5,7,1.5,9,.5,9,1.5,11,.5,11,3,12,.5,12,.5,12,.5,11,.5,9,.5,7,.75,7,.25,5,.5,4,.5,12,.5,12,.5,11,.5,9,.5,7,.75,7,.25,5,.5,4,.5,4,.5,4,.5,4,.5,4,.25,4,.25,5,1.5,7,.25,5,.25,4,.5,2,.5,2,.5,2,.25,2,.25,4,1.5,5,.25,4,.25,2,.5,0,1,12,.5,9,.75,7,.25,5,.5,4,.5,5,1,4,1,2,4,0
1010 DATA 1,0,1,9,1,7,1,5,3,0,.5,0,.5,0,1,0,1,9,1,7,1,5,4,2,1,2,1,10,1,9,1,7,4,4,1,14,1,12,1,10,1,7,4,9,1,0,1,9,1,7,1,5,4,0,1,0,1,9,1,7,1,5,3,2,1,2,1,2,1,10,1,9,1,7,1,12,1,12,1,12,1,12,1,14,1,12,1,10,1,7,4,5,1,9,1,9,2,9,1,9,1,9,2,9,1,9,1,12,1.5,5,.5,7,4,9,1,10,1,10,1,10,1,10,1,10,1,9,1,9,.5,9,.5,9,1,9,1,7,1,7,1,9,4,7,1,9,1,9,2,9,1,9,1,9,2,9,1,9,1,12,1.5,5,.5,7,4,9,1,10,1,10,1,10,1,10,1,10,1,9,1,9,.5,9,.5,9,1,12,1,12,1,10,1,7,4,5
8999 STOP
9000 RESTORE 9000: FOR i=USR "a" TO USR "b"+7: READ r: POKE i,r: NEXT i: RETURN
9500 DATA 60,126,255,255,255,255,126,60
9510 DATA 255,129,129,129,129,129,129,255
9999 INK 0