Natale by RP ITALIA

1 rem buon natale da rp italia - felix nardella (2020)
2 print"{clear}":poke53281,2
3 a=1024:b=55296:forg=0to10
4 fori=490to506
5 r=33+int(rnd(0)*94)
6 pokea+i,r:pokeb+i,1
7 next:next
8 fori=490to506
9 readv:pokea+i,v:pokeb+i,1
10 next
11 poke53285,2:poke53286,13:poke53269,255
12 forx=12800to12800+511:ready:pokex,y:next
13 poke53276,255:poke53277,255:poke53271,255
14 poke53287,1:poke53288,1:poke53289,1:poke53290,1:poke53291,1:poke53292,1
15 poke53293,1:poke53294,1
16 poke2040,200:poke2041,201:poke2042,202:poke2043,203:poke2044,204:poke2045,205
17 poke2046,206:poke2047,207
18 poke53248,106:poke53250,184:poke53252,30:poke53254,75:poke53256,124
19 poke53258,169:poke53260,206:poke53262,250
20 y1=120:y2=172:ay=y1+2:by=y1-2:d1=2:d2=-2
21 cy=y2+2:dy=y2-2:d3=2:d4=-2
22 sm=1064:cm=55336:s=46
23 print"{clear}":poke53281,0:poke53280,0
24 i=int(35*rnd(1)):p=int(35*rnd(1))
25 pokesm+i,s:pokecm+i,1:pokesm+p,s-4:pokecm+p,1
26 print"{home}{down}{left}{148}":poke218,132
27 ay=ay+d1:by=by+d2
28 cy=cy+d1:dy=dy+d2
29 poke53253,cy
30 poke53255,dy
31 poke53257,cy
32 poke53259,dy
33 poke53261,cy
34 poke53263,dy
35 poke53249,ay
36 poke53251,by
37 ifay<118thend1=2
38 ifay>122thend1=-2
39 ifby<118thend2=2
40 ifby>122thend2=-2
41 ifcy<170thend3=2
42 ifcy>174thend3=-2
43 ifdy<170thend4=2
44 ifdy>174thend4=-2
45 goto24
46 data 2,21,15,14,32,14,1,20,1,12,5,32,4,1,46,46,46
47 rem
48 data 170,170,168,170,170,168,170,170,104,168,0,88,144,0,20,80
49 data 0,20,80,0,20,80,0,20,80,0,20,84,0,84,85,85
50 data 84,85,85,80,85,85,80,80,1,80,80,1,80,80,1,80
51 data 240,3,240,240,3,240,240,3,240,240,3,252,240,3,252,129
52 rem
53 data 170,170,128,170,170,128,170,170,128,168,10,128,160,2,128,160
54 data 2,64,160,1,64,160,1,64,160,1,64,148,5,64,149,85
55 data 64,149,85,64,85,85,64,84,0,0,84,0,0,84,0,0
56 data 252,0,0,252,0,0,252,0,0,252,0,0,252,0,0,129
57 rem
58 data 170,170,160,170,170,160,170,170,160,2,168,0,0,160,0,0
59 data 96,0,0,96,0,0,80,0,0,80,0,0,80,0,0,80
60 data 0,0,80,0,0,80,0,0,80,0,0,80,0,0,80,0
61 data 0,240,0,3,252,0,255,255,240,255,255,240,255,255,240,129
62 rem
63 data 170,170,168,170,170,168,170,170,168,165,168,40,149,164,8,0
64 data 100,8,0,100,0,0,100,0,0,84,0,0,84,0,0,84
65 data 0,0,84,0,0,84,0,0,84,0,0,84,0,0,84,0
66 data 0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,129
67 rem
68 data 42,170,160,42,170,160,38,170,160,164,10,160,144,2,160,144
69 data 2,80,80,2,80,80,1,80,80,1,80,80,1,80,84,5
70 data 80,85,85,80,85,85,80,85,85,80,80,1,80,80,1,80
71 data 240,3,240,240,3,240,240,3,240,240,3,240,240,3,240,129
72 rem
73 data 168,0,0,168,0,0,164,0,0,164,0,0,148,0,0,148
74 data 0,0,84,0,0,84,0,0,84,0,0,84,0,0,84,0
75 data 0,84,0,0,84,0,0,84,0,0,84,0,0,84,0,0
76 data 254,170,0,255,170,0,255,235,0,255,255,0,255,255,0,129
77 rem
78 data 170,170,160,170,170,80,170,149,80,2,84,0,0,80,0,0
79 data 80,0,0,80,0,0,80,0,0,80,0,0,80,0,0,80
80 data 0,0,80,0,0,80,0,0,80,0,0,80,0,0,80,0
81 data 0,240,0,3,252,0,255,255,240,255,255,240,255,255,240,129
82 rem
83 data 42,170,160,42,170,160,42,170,160,168,10,160,160,2,160,160
84 data 2,96,96,1,96,80,1,96,80,1,80,80,1,80,84,5
85 data 80,85,85,80,85,85,80,85,85,80,80,1,80,80,1,80
86 data 240,3,240,240,3,240,240,3,240,240,3,240,240,3,240,129