Christmas card from the Dawson family.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20001 to 20050. These tapes were compiled by Tony Willing.
Gallery
Source Code
1 REM SAVE *"XMASCARD" LINE 1
2 RESTORE : GO SUB 9000
3 BORDER 2: PAPER 1: CLS : RANDOMIZE
5 PRINT INK 2; PAPER 4; FLASH 1;AT 2,14;"โโโโโโโโโโโโโโโโโ"
6 FOR i=3 TO 5: PRINT INK 2; PAPER 4; FLASH 1;AT i,14;"โ";AT i,30;"โ": NEXT i
10 PRINT AT 3,15; INK 9;"MERRY CHRISTMAS"
11 PRINT AT 4,15; INK 9;" FROM THE";AT 5,20;"DAWSONS"
12 PRINT INK 2; PAPER 4; FLASH 1;AT 6,14;"โโโโโโโโโโโโโโโโโ"
15 INK 4
20 FOR I=16 TO 80 STEP .5: PLOT I,2*I: DRAW INK 4;(80-I),0: PLOT 80,I*2: DRAW INK 4;(80-I),0: NEXT I
25 PLOT INK 4;80,160: DRAW INK 9;0,10: PLOT INK 6;77,165: DRAW INK 9;6,0
27 PRINT INK 9;AT 14,17;"Unto you";AT 16,18;"there has been";AT 18,19;"born a Savior"
30 FOR i=16 TO 31: PLOT INK 9;70,i: DRAW INK 9;20,0: NEXT i
40 PRINT AT 15,RND*4+8; PAPER 4; INK RND*4;"\a"
50 PRINT AT 10,RND*4+7; PAPER 4; INK RND*4;"\a"
60 PRINT AT 16,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": INK 9
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 9