Home » Vintage Tech » C64 » C64 Christmas Tree

C64 Christmas Tree

c64 christmas treeA C64 Christmas Tree Program from Family Computing Magazine, December 1983.

 

 

C64 Christmas Tree

In the 80’s Family Computing Magazine had cool programs that you could manually type in and run. Here is the Commodore 64 Christmas Tree Program from Issue 04, December 1983.

The Video

The Program (Code)

family_computing_issue_04_1983_dec_0113

Family Computing #04, Dec 1983

Here is the code so you can type it in, or paste it into the Vice C64 emulator.

**** COMMODORE 64 BASIC V2 ****
10 print chr$(147)
20 poke 53280,0
25 poke 53281,0
30 poke 53281,0
40 read b,ch,co
50 if b=-2 then 140
60 for z=1 to b
70 read x,y
80 for p=x+1000 to y+1000
90 poke p,ch
100 poke p+54272,co
110 next p
120 next z
130 goto 40
140 restore
150 read x,y,z
160 if z<>-2 then 150
170 v=54296
180 w=54276
190 a=54277
200 hf=54273
210 lf=54272
220 s=54278
230 ph=54275
240 pl=54274
250 poke v,15
260 poke w,17
270 poke a,190
280 poke ph,15
290 poke pl,15
300 read h,l,d,p
310 if h=-1 then 140
320 poke hf,h
330 poke lf,l
340 for x=d-50 to d-20
350 poke s,136
360 next x
370 for t=1 to d/5
380 next
390 poke hf,0
400 poke lf,0
410 poke w,0
420 p=p+1000
430 poke p,81
440 co=int(rnd(1)*9)+2
450 if co=peek(p+54272) or co=3 or co=5 then 440
460 poke p+54272,co
470 goto 250
1000 data 20,160,5,83,83,122,124,161,165,201
1010 data 205,240,246,279,287,318,328,358,368
1020 data 397,409,436,450,475,491,515,531
1030 data 554,572,593,613,632,654,672,694
1040 data 711,735,750,776,789,817,828,858
1050 data 4,160,9,882,884,922,924,962,964
1060 data 1002,1004,2,160,6,952,954,992,994
1070 data 2,102,8,953,953,993,993,1,38,10
1080 data 913,913,2,160,7,916,920,996,1000
1090 data 3,160,4,918,918,956,960,998,998,1
1100 data 83,2,958,958,3,219,14,927,934,967
1110 data 974,1007,1014,1,0,5,972,972,-2,-2
1120 data -2,38,126,125,203,51,97,187,565,51
1130 data 97,62,857,51,97,375,805,57,172,250
1140 data 716,64,188,187,751,64,188,62,842,64
1150 data 188,375,285,64,188,125,854,57,172
1160 data 125,321,64,188,125,727,68,149,375
1170 data 837,48,127,375,405,57,172,250,849
1180 data 51,97,250,673,0,0,125,794,38,126
1190 data 125,638,51,97,187,449,51,97,62,830
1200 data 51,97,375,521,57,172,125,774,64,188
1210 data 187,683,64,188,62,731,64,188,250
1220 data 555,64,188,125,760,57,172,125,438
1230 data 64,188,125,609,68,149,250,805,48
1240 data 127,250,794,57,172,250,760,51,97
1250 data 250,555,0,0,125,731,76,252,125,683
1260 data 76,252,125,774,64,188,125,521,86
1270 data 105,375,830,76,252,125,449,76,252
1280 data 125,683,68,149,125,794,68,149,375
1290 data 673,68,149,125,849,68,149,125,405
1300 data 57,172,125,837,76,252,375,727,68
1310 data 149,125,837,68,149,125,203,64,188
1320 data 125,565,64,188,250,837,38,126,250
1330 data 805,51,97,187,716,51,97,125,751
1340 data 51,97,250,774,57,172,250,521,64
1350 data 188,125,830,64,188,62,449,64,188
1360 data 375,716,64,188,125,751,57,172,125
1370 data 731,64,188,125,849,68,149,250,203
1380 data 48,127,250,683,57,172,250,555,51
1390 data 97,250,43,0,0,250,43,-1,-1,-1,-1

 

The d64 Disk Image

You can always make it easy and download the disk image: xmas-tree-64.d64

Vic 20 version here!

I hope this vintage computing blast from the past made you feel warm and cozy, this holiday season!


As an Amazon Associate I earn from qualifying purchases. Read our Privacy Policy for more info.

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.