Natale_2021

5 rem natale 2021 by felix nardella
10 dima(33):poke53270,192:poke53280,2:poke53281,0:print"{clear}"
20 v=53248:vi=2040
30 s(0)=11:s(1)=13:s(2)=14:s(3)=15
40 x0=150:x1=172:y(0)=100:y(1)=101
50 pokev,x0:pokev+2,x1
60 forn=49254to49350:readq:poken,q:next
70 forn=704to767:readq:poken,q:next
80 forn=832to895:readq:poken,q:next
90 forn=896to959:readq:poken,q:next
100 forn=960to1023:readq:poken,q:next
110 forn=0to33:readq:a(n)=q:next
120 pokev+21,31:pokev+28,31
130 pokev+37,2:pokev+38,8:pokev+39,1:pokev+40,1
140 l=959:d=-40:sm=1024:cm=55296
150 forn=1to500
160 i=int(7*rnd(1))
170 ifd>0thens=77
180 ifd<0thens=78
190 forj=0toi
200 f=int(15*rnd(0)):z=40*f:w=1102+z:wc=55374+z
210 pokesm+l,s:pokecm+l,1:pokew,46:pokewc,7
220 b=sm+39:c=cm+39:pokeb,a(e):pokec,13:e=e+1:ife>32thene=1
230 sys49254:pokesm+l,32:l=l+d
240 ifl>959thenl=959:s=100
250 ifl<719thenl=719:s=99
260 k=k+1and1
270 pokev+3,y(k):pokev+1,y(k)
280 pokevi,s(k):pokevi+1,s(k+2)
290 next
300 ifs=77ors=78thenl=l-d
310 d=-d
320 next
330 data 160,0,169,1,133,251,169,4
340 data 133,252,169,0,133,253,169,4
350 data 133,254,162,25,177,251,145,253
360 data 24,165,252,105,212,133,252,24
370 data 165,254,105,212,133,254,177,251
380 data 145,253,56,165,252,233,212,133
390 data 252,56,165,254,233,212,133,254
400 data 24,165,251,105,40,133,251,165
410 data 252,105,0,133,252,24,165,253
420 data 105,40,133,253,165,254,105,0
430 data 133,254,202,240,3,76,122,192
440 data 200,192,39,240,3,76,104,192,96
450 rem
460 data 0,0,0,0,128,0,0,144,0,0,21,0,0,5,64,0
470 data 10,64,2,175,128,0,171,0,0,6,0,0,21,64,12,21
480 data 60,7,255,211,5,90,80,5,85,80,1,85,64,0,195,0
490 data 48,195,12,12,195,48,3,255,192,0,0,0,0,0,0,0
500 rem
510 data 0,0,0,0,0,0,0,128,0,0,149,0,0,5,64,0
520 data 10,64,0,175,128,2,171,0,0,6,0,0,21,0,12,21
530 data 124,7,255,211,5,90,80,5,85,80,1,85,64,0,195,0
540 data 48,195,12,12,195,48,3,255,192,0,0,0,0,0,0,0
550 rem
560 data 0,2,0,0,0,128,0,2,160,0,0,128,0,12,160,0
570 data 15,140,0,3,252,0,3,240,32,3,207,160,3,253,47,255
580 data 245,63,255,244,63,255,240,63,93,240,61,93,240,51,12,112
590 data 51,12,112,51,12,48,49,4,48,16,0,16,0,0,0,0
600 rem
610 data 0,2,0,0,0,128,0,2,160,0,0,128,0,12,160,0
620 data 15,140,0,3,252,0,3,240,32,3,207,160,3,253,47,255
630 data 245,63,255,244,63,255,240,63,93,240,61,93,240,51,12,112
640 data 51,12,112,51,12,48,19,12,16,1,4,0,0,0,0,0
650 rem
660 data 42,32,19,1,14,20,1,32,3,12,1,21,19,32,9,19,32,3,15,13,9,14,7
670 data 32,20,15,32,20,15,23,14,32,42,32