This file is part of Miscellaneous Programs
. Download the collection to get this file.
A Christmas tree.
Content
Image Gallery
Source Code
1 REM Tree © 1985 Pat Spera
5 REM ==> UDG
10 RESTORE 8500: FOR l=0 TO 95: READ a: POKE USR "a"+l,a:: NEXT l
20 BRIGHT 0: PAPER 0: INK 4: BORDER 0: CLS
100 REM ==> TREE
120 PRINT AT 6,14;"\a\d\b";TAB 14;"\f\e\g"
140 PRINT TAB 13;"\a\d\c\d\b";TAB 13;"\f\d\e\c\g"
160 PRINT TAB 12;"\a\d\e\d\c\d\b";TAB 12;"\f\d\d\e\d\e\g"
180 PRINT TAB 11;"\a\d\e\c\d\d\c\d\b";TAB 11;"\f\e\d\e\d\e\d\e\g"
200 PRINT TAB 10;"\a\c\d\e\c\d\d\c\c\d\b";TAB 10;"\f\d\e\c\e\e\d\e\d\e\g"
220 PRINT TAB 9;"\a\d\c\d\e\c\d\d\c\d\c\d\b";TAB 9;"\f\e\d\e\e\c\e\e\e\e\d\e\g"
230 PRINT TAB 8;"\a\e\c\d\c\d\c\d\d\d\c\d\c\d\b"
250 PRINT TAB 15; INK 1;"█";TAB 15;"█";TAB 14;"\a\d\b"
310 PRINT AT 14,15; PAPER 4; INK 2;"\h";AT 18,11;"\h"
330 PRINT AT 8,16; PAPER 4; INK 2;"\h";AT 16,20;"\h"
410 PRINT AT 15,12; PAPER 4; INK 6;"\j";AT 10,15; INK PI;"\j"
420 PRINT AT 12,17; PAPER 4; INK 7;"\j";AT 18,19; INK 0;"\j"
500 PRINT AT 17,16; PAPER 4; INK 2;"\i";AT 11,13; INK 1;"\i"
610 PRINT AT 4,14; INK 5;" \k ";TAB 14;"(\l)"
700 GO TO 1000
800 LET m$=" Merry Christmas and Happy New Year! from the Sysops of Computer Club!!!"
810 LET l=0
820 PRINT AT 2,0; INK 6;m$( TO 31): PAUSE 10
830 IF l=105 THEN GO TO 1000
840 LET m$=m$(2 TO )+m$(1)
850 LET l=l+1
860 GO TO 820
1000 REM ==> MUSIC
1010 RESTORE 2000
1020 READ d,p,c
1030 IF c>0 THEN GO SUB 9000+c
1040 IF d=-99 THEN GO TO 800
1050 IF d<0 THEN PAUSE (ABS d): GO TO 1020
1060 BEEP d,p
1070 GO TO 1020
2000 DATA .40,2,0,.30,7,20,.10,7,0,.40,7,0,.40,9,10,.30,11,20,.10,11,0,.40,11,0,.40,11,0,.20,9,90,.20,11,0,.40,12,0,.40,6,0,.40,9,0,.40,7,20
2010 DATA .40,2,0,.30,7,20,.10,7,0,.40,7,0,.40,9,10,.30,11,20,.10,11,0,.40,11,0,.40,11,0,.20,9,90,.20,11,0,.40,12,0,.40,6,0,.40,9,0,.40,7,20
2020 DATA .40,14,0,.25,14,0,.25,11,0.30,16,0,.15,14,0,.25,14,90,.25,12,0,.30,12,0,.15,12,0
2030 DATA .25,12,0,.25,9,0,.30,14,0,.15,12,0,.25,12,20,.25,11,0,.40,11,0
2050 DATA .40,2,0,.30,7,0,.10,7,0,.40,7,0,.40,9,10,.30,11,20,.10,11,0,.40,11,0,.40,11,0,.20,9,90,.20,11,0,.40,12,0,.40,6,0,.40,9,20,.60,7,0,-99,-99,900
8000 REM
8500 REM ==> UDG DATA
8510 DATA 3,7,14,25,63,103,254,255,192,224,112,152,252,253,127,255
8520 DATA 255,183,255,255,221,255,247,255,255,243,223,255,254,123,255,255
8530 DATA 225,255,191,247,255,191,253,255,3,3,3,7,13,31,54,127
8540 DATA 192,192,192,224,112,248,236,126,24,126,126,255,255,126,126,60
8550 DATA 0,90,36,90,90,36,90,0,24,60,60,60,60,126,255,24
8560 DATA 60,126,90,126,102,60,60,126,195,195,231,102,126,60,60,60
8999 STOP
9000 REM ==> Chords
9010 REM D maj. chord
9012 SOUND 0,248;1,0;2,186;3,0;4,147;5,0;7,56;8,12;9,12;10,12
9014 RETURN
9020 REM G maj. chord
9022 SOUND 0,23;1,1;2,221;3,0;4,139;5,0;7,56;8,12;9,12;10,12
9024 RETURN
9030 REM F maj. chord
9032 SOUND 0,248;1,0;2,209;3,0;4,156;5,0;7,56;8,12;9,12;10,12
9034 RETURN
9040 REM Bb maj. chord
9042 SOUND 0,234;1,0;2,186;3,0;4,156;5,0;7,56;8,12;9,12;10,12
9044 RETURN
9050 REM C maj. chord
9052 SOUND 0,23;1,1;2,209;3,0;4,165;5,07,56;8,12;9,12;10,12
9054 RETURN
9060 REM C 7th chord
9062 SOUND 0,234;1,0;2,209;3,0;4,165;5,0;7,56;8,12;9,12;10,12
9064 RETURN
9070 REM G 7th chord
9072 SOUND 0,23;1,1;2,221;3,0;4,156;5,0;7,56;8,12;9,12;10,12
9074 RETURN
9080 REM A maj. chord
9082 SOUND 0,248;1,0;2,197;3,0;4,165;5,0;7,56;8,12;9,12;10,12
9084 RETURN
9090 REM D 7th chord
9092 SOUND 0,248;1,0;2,209;3,0;4,147;5,0;7,56;8,12;9,12;10,12
9094 RETURN
9900 REM STOP chords
9902 SOUND 7,63;8,0;9,0;10,0;13,0
9904 RETURN
9990 STOP
9999 SAVE "TREE" LINE PI
1 REM Tree © 1985 Pat Spera
5 REM ==> UDG
10 RESTORE 8500: FOR l=0 TO 95: READ a: POKE USR "a"+l,a:: NEXT l
20 BRIGHT 0: PAPER 0: INK 4: BORDER 0: CLS
100 REM ==> TREE
120 PRINT AT 6,14;"\a\d\b";TAB 14;"\f\e\g"
140 PRINT TAB 13;"\a\d\c\d\b";TAB 13;"\f\d\e\c\g"
160 PRINT TAB 12;"\a\d\e\d\c\d\b";TAB 12;"\f\d\d\e\d\e\g"
180 PRINT TAB 11;"\a\d\e\c\d\d\c\d\b";TAB 11;"\f\e\d\e\d\e\d\e\g"
200 PRINT TAB 10;"\a\c\d\e\c\d\d\c\c\d\b";TAB 10;"\f\d\e\c\e\e\d\e\d\e\g"
220 PRINT TAB 9;"\a\d\c\d\e\c\d\d\c\d\c\d\b";TAB 9;"\f\e\d\e\e\c\e\e\e\e\d\e\g"
230 PRINT TAB 8;"\a\e\c\d\c\d\c\d\d\d\c\d\c\d\b"
250 PRINT TAB 15; INK 1;"█";TAB 15;"█";TAB 14;"\a\d\b"
310 PRINT AT 14,15; PAPER 4; INK 2;"\h";AT 18,11;"\h"
330 PRINT AT 8,16; PAPER 4; INK 2;"\h";AT 16,20;"\h"
410 PRINT AT 15,12; PAPER 4; INK 6;"\j";AT 10,15; INK PI;"\j"
420 PRINT AT 12,17; PAPER 4; INK 7;"\j";AT 18,19; INK 0;"\j"
500 PRINT AT 17,16; PAPER 4; INK 2;"\i";AT 11,13; INK 1;"\i"
610 PRINT AT 4,14; INK 5;" \k ";TAB 14;"(\l)"
700 GO TO 1000
800 LET m$=" Merry Christmas and Happy New Year! from the Sysops of Computer Club!!!"
810 LET l=0
820 PRINT AT 2,0; INK 6;m$( TO 31): PAUSE 10
830 IF l=105 THEN GO TO 1000
840 LET m$=m$(2 TO )+m$(1)
850 LET l=l+1
860 GO TO 820
1000 REM ==> MUSIC
1010 RESTORE 2000
1020 READ d,p,c
1030 IF c>0 THEN GO SUB 9000+c
1040 IF d=-99 THEN GO TO 800
1050 IF d<0 THEN PAUSE (ABS d): GO TO 1020
1060 BEEP d,p
1070 GO TO 1020
2000 DATA .40,2,0,.30,7,20,.10,7,0,.40,7,0,.40,9,10,.30,11,20,.10,11,0,.40,11,0,.40,11,0,.20,9,90,.20,11,0,.40,12,0,.40,6,0,.40,9,0,.40,7,20
2010 DATA .40,2,0,.30,7,20,.10,7,0,.40,7,0,.40,9,10,.30,11,20,.10,11,0,.40,11,0,.40,11,0,.20,9,90,.20,11,0,.40,12,0,.40,6,0,.40,9,0,.40,7,20
2020 DATA .40,14,0,.25,14,0,.25,11,0.30,16,0,.15,14,0,.25,14,90,.25,12,0,.30,12,0,.15,12,0
2030 DATA .25,12,0,.25,9,0,.30,14,0,.15,12,0,.25,12,20,.25,11,0,.40,11,0
2050 DATA .40,2,0,.30,7,0,.10,7,0,.40,7,0,.40,9,10,.30,11,20,.10,11,0,.40,11,0,.40,11,0,.20,9,90,.20,11,0,.40,12,0,.40,6,0,.40,9,20,.60,7,0,-99,-99,900
8000 REM
8500 REM ==> UDG DATA
8510 DATA 3,7,14,25,63,103,254,255,192,224,112,152,252,253,127,255
8520 DATA 255,183,255,255,221,255,247,255,255,243,223,255,254,123,255,255
8530 DATA 225,255,191,247,255,191,253,255,3,3,3,7,13,31,54,127
8540 DATA 192,192,192,224,112,248,236,126,24,126,126,255,255,126,126,60
8550 DATA 0,90,36,90,90,36,90,0,24,60,60,60,60,126,255,24
8560 DATA 60,126,90,126,102,60,60,126,195,195,231,102,126,60,60,60
8999 STOP
9000 REM ==> Chords
9010 REM D maj. chord
9012 SOUND 0,248;1,0;2,186;3,0;4,147;5,0;7,56;8,12;9,12;10,12
9014 RETURN
9020 REM G maj. chord
9022 SOUND 0,23;1,1;2,221;3,0;4,139;5,0;7,56;8,12;9,12;10,12
9024 RETURN
9030 REM F maj. chord
9032 SOUND 0,248;1,0;2,209;3,0;4,156;5,0;7,56;8,12;9,12;10,12
9034 RETURN
9040 REM Bb maj. chord
9042 SOUND 0,234;1,0;2,186;3,0;4,156;5,0;7,56;8,12;9,12;10,12
9044 RETURN
9050 REM C maj. chord
9052 SOUND 0,23;1,1;2,209;3,0;4,165;5,07,56;8,12;9,12;10,12
9054 RETURN
9060 REM C 7th chord
9062 SOUND 0,234;1,0;2,209;3,0;4,165;5,0;7,56;8,12;9,12;10,12
9064 RETURN
9070 REM G 7th chord
9072 SOUND 0,23;1,1;2,221;3,0;4,156;5,0;7,56;8,12;9,12;10,12
9074 RETURN
9080 REM A maj. chord
9082 SOUND 0,248;1,0;2,197;3,0;4,165;5,0;7,56;8,12;9,12;10,12
9084 RETURN
9090 REM D 7th chord
9092 SOUND 0,248;1,0;2,209;3,0;4,147;5,0;7,56;8,12;9,12;10,12
9094 RETURN
9900 REM STOP chords
9902 SOUND 7,63;8,0;9,0;10,0;13,0
9904 RETURN
9990 STOP
9999 SAVE "TREE" LINE PINote: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.