Vic 20 Christmas Tree
A Vic 20 Christmas Tree Program from Family Computing Magazine, December 1983.
Vic 20 Christmas Tree
In the 80’s Family Computing Magazine had cool programs that you could manually type in and run. Here is the Vic 20 Christmas Tree Program from Issue 04, December 1983.
The Video
The Program (Code)
Family Computing #04, Dec 1983
Here is the code so you can type it in, or paste it into the Vice Vic 20 emulator.
[stbpro id=”vic20″ caption=” **** CBM BASIC V2 ****”]10 print chr$(147)
20 poke 36879,8
30 read b,ch,co
40 if b=-2 then 130
50 for z=1 to b
60 read x,y
70 for p=x+7000 to y+7000
80 poke p,ch
90 poke p+30720,co
100 next p
110 next z
120 goto 30
130 restore
140 read x,y,z
150 if z<>-2 then 140
160 poke 36878,15
170 SP=36876
180 READ S,D,P
190 IF D=-1 THEN 130
200 POKE SP,S
210 FOR T=1 T0 D+50
220 NEXT T
230 POKE SP,0
240 POKE V,0
250 P=P+7000
260 POKE P,81
270 CO=INT(RND(1)*7)+1
280 IF CO=5 OR CO=PEEK(P+30720) THEN 270
290 POKE P+30720,CO
300 GOTO 160
1000 DATA 16,160,5,734,734,755,755,777,779
1010 DATA 798,802,819,825,841,847,862,870
1020 DATA 883,893,905,915,926,938,947.961
1030 DATA 969,983,990,1006,1012,1028,1033
1040 DATA 1051.1054,1074,5,160,1,1086,1086
1050 DATA 1108,1108,1130,1130,1152,1152
1060 DATA 1174,1174,2,160,7,1121,1128,1165
1070 DATA 1172,3,160,6,1124,1124,1143,1150
1080 DATA 1168,1168,1,0,1,1146,1146,2,102
1090 DATA 4,1154,1155,117b,1178,1,88,3,1133
1100 DATA 1133,2,160,4,1155,1155,1177,1177
1110 DATA 3,160,2,1114,1117,1136,1139,1180
1120 DATA 1183,4,62,5,1116,1116,1138,1138
1130 DATA 1158,1161,1182.1182,1,83,2,1160
1140 DATA 1160,-2,201,125,991,215,187,910
1150 DATA 215,63,1037,215,375,799,219,125
1160 DATA 1004,223,187,958,223,63,1068,223
1170 DATA 375,863,223,125,974,219,125,1062
1180 DATA 223,125,823,225,250,869,212,250
1190 DATA 1055,219,250,1073,215,250,928,0
1200 DATA 125,1021,201,125,991,215,187,910
1210 DATA 215,63,1037,215,375,799.219,125
1220 DATA 1004,223,187,958,223,63,1068,223
1230 DATA 250,863,223,125,974,219,125,1062
1240 DATA 223,125,823,225,250,869,212,250
1250 DATA 1055,219,250,1073,215,250,928,0
1260 DATA 125,1021,228,125,991,228,125,910
1270 DATA 223,125,1037,231,375,799,228,125
1280 DATA 1004,228,125,958,225,125,1068,225
1290 DATA 375,869,225,125,1055,225,125,1073
1300 DATA 219,125,928,228,375,1021,225,125
1310 DATA 991,225,125,910,223,125,1037,223
1320 DATA 250,799,201,250,1004,215,187,958
1330 DATA 215,63,1068,215,250,863,219,250
1340 DATA 974,223,125,1062,223,63.823,223
1350 DATA 375,869,223,125,1055,219,125,1073
1360 DATA 223,125,928,225,250,1021,212,250
1370 DATA 991,219,250,910,215,250,1037,0
1390 DATA 250,712,-1,-1,-1,-1[/stbpro]
The d64 Disk Image
You can always make it easy and download the disk image: xmas.d64
I hope this vintage computing blast from the past made you feel warm and cozy, this holiday season!
Filed under: Vic 20 - @ November 24, 2016 12:53 am
Tags: christmas, family computing, vic 20, vic20