Buona Pasqua 2024

5 rem 'buona pasqua 2024' by f. nardella (30/03/2024)
15 poke53280,6:print"{white}{clear}attendere prego..."
20 def fn f(a)=20*sin(a)+140: rem trajectory function for sprites

25 rem precalculate the points
30 dim z(255)
35 for x = 140 to 395
40 z(x-140)=fnf(x)
45 next

50 poke 53276,255: rem multicolor
55 poke 53285,0: rem multicolor 1
60 poke 53286,1: rem multicolor 2

65 for x=12800 to 12800+703: read y: poke x,y: next: rem sprite generation
70 print"{clear} 'retroprogramming italia' vi augura..."

75 rem infinite main loop
80 for w=0 to 1 step .

85 poke 53269,255: rem set all sprites visible
90 rem sprite-0-a
95 poke 53287,3: rem color = 3
100 poke 2040,200: rem pointer

105 rem sprite-2-n
110 poke 53288,3: rem color = 3
115 poke 2041,202: rem pointer

120 rem sprite-3-o
125 poke 53289,3: rem color = 3
130 poke 2042,203: rem pointer

135 rem sprite-7-u
140 poke 53290,3: rem color = 3
145 poke 2043,207: rem pointer

150 rem sprite-1-b
155 poke 53291,3: rem color = 3
160 poke 2044,201: rem pointer

165 rem move sprites
170 forx=140to255
175 poke 53248,x: poke 53249,z(x-140)
180 poke 53250,x-20: poke 53251,z(x-120)
185 poke 53252,x-40: poke 53253,z(x-100)
190 poke 53254,x-60: poke 53255,z(x-80)
195 poke 53256,x-80: poke 53257,z(x-60)
200 next

205 gosub470

210 poke 53287,2: rem color = 2
215 rem sprite-7-u
220 poke 53288,2: rem color = 2
225 poke 2041,207: rem pointer
230 rem sprite-5-q
235 poke 53289,2: rem color = 2
240 poke 2042,205: rem pointer
245 rem sprite-6-s
250 poke 53290,2: rem color = 2
255 poke 2043,206: rem pointer
260 rem sprite-0-a
265 poke 2044,200: rem pointer
270 poke 53291,2: rem color = 2
275 rem sprite-4-p
280 poke 53292,2: rem color = 2
285 poke 2045,204: rem pointer

290 poke 53269,255: rem set all sprites visible

295 rem move sprites
300 forx=140to255
305 poke 53248,x: poke 53249,z(x-140)
310 poke 53250,x-20: poke 53251,z(x-120)
315 poke 53252,x-40: poke 53253,z(x-100)
320 poke 53254,x-60: poke 53255,z(x-80)
325 poke 53256,x-80: poke 53257,z(x-60)
330 poke 53258,x-100: poke 53259,z(x-40)
335 next

340 gosub470

345 rem sprite-10-4
350 poke 53287,13: rem color = 13
355 poke 2040,210: rem pointer
360 rem sprite-9-2
365 poke 53288,13: rem color = 13
370 poke 2041,209: rem pointer
375 rem sprite-8-0
380 poke 53289,13: rem color = 13
385 poke 2042,208: rem pointer
390 rem sprite-9-2
395 poke 53290,13: rem color = 13
400 poke 2043,209: rem pointer

405 poke 53269,255: rem set all sprites visible

410 rem move sprite
415 forx=140to255
420 poke 53248,x: poke 53249,z(x-140)
425 poke 53250,x-20: poke 53251,z(x-120)
430 poke 53252,x-40: poke 53253,z(x-100)
435 poke 53254,x-60: poke 53255,z(x-80)
440 fort=0to20:next
445 next
450 gosub470

455 rem loop
460 next

465 rem delete all sprites
470 poke 53269,0:forx=0to10:poke53248+x,0:next
475 return

480 end

485 rem sprite-0-a
490 data 0,0,0,0,0,0,0,0,0,3,255,192,15,195,240,15
495 data 215,240,15,211,244,15,211,244,15,211,244,15,211,244,11,255
500 data 228,10,146,164,10,150,164,10,146,164,10,146,164,10,146,164
505 data 10,146,164,10,146,164,1,80,84,1,80,84,0,0,0,131
510 rem sprite-1-b
515 data 0,0,0,0,0,0,0,0,0,15,255,192,15,195,240,15
520 data 215,240,15,211,244,15,211,244,15,211,244,15,211,212,11,255
525 data 84,10,146,144,10,150,160,10,146,160,10,146,164,10,146,164
530 data 10,146,164,10,170,148,1,80,84,1,85,80,0,0,0,131
535 rem sprite-2-n
540 data 0,0,0,0,0,0,0,0,0,15,195,240,15,243,240,15
545 data 255,244,15,207,244,15,211,244,15,215,244,15,211,244,11,211
550 data 228,10,146,164,10,146,164,10,146,164,10,146,164,10,146,164
555 data 10,146,164,10,146,164,1,80,84,1,80,84,0,0,0,131
560 rem sprite-3-o
565 data 0,0,0,0,0,0,0,0,0,3,255,192,15,195,240,15
570 data 215,240,15,211,244,15,211,244,15,211,244,15,211,244,11,211
575 data 228,10,146,164,10,146,164,10,146,164,10,146,164,10,146,164
580 data 10,146,164,2,170,148,1,80,84,0,85,80,0,0,0,131
585 rem sprite-4-p
590 data 0,0,0,0,0,0,0,0,0,15,255,192,15,195,240,15
595 data 215,240,15,211,244,15,211,244,15,211,244,15,211,244,11,255
600 data 212,10,144,20,10,149,80,10,144,0,10,144,0,10,144,0
605 data 10,144,0,10,144,0,1,80,0,1,80,0,0,0,0,131
610 rem sprite-5-q
615 data 0,0,0,0,0,0,0,0,0,3,255,192,15,195,240,15
620 data 215,240,15,211,244,15,211,244,15,211,244,15,211,244,11,211
625 data 228,10,146,164,10,146,132,10,146,148,10,146,164,10,154,160
630 data 10,154,164,2,162,164,1,81,84,0,84,84,0,0,0,131
635 rem sprite-6-s
640 data 0,0,0,0,0,0,0,0,0,3,255,192,15,195,240,15
645 data 215,240,15,211,244,15,208,84,15,208,84,15,208,0,3,255
650 data 192,1,82,160,0,86,160,0,2,164,10,130,164,10,130,164
655 data 10,146,164,2,170,148,1,80,84,0,85,80,0,0,0,131
660 rem sprite-7-u
665 data 0,0,0,0,0,0,0,0,0,15,195,240,15,195,240,15
670 data 211,244,15,211,244,15,211,244,15,211,244,15,211,244,11,211
675 data 228,10,146,164,10,146,164,10,146,164,10,146,164,10,146,164
680 data 10,146,164,2,170,148,1,80,84,0,85,80,0,0,0,131
685 rem sprite-8-0
690 data 0,0,0,0,0,0,0,0,0,3,255,192,15,195,240,15
695 data 215,240,15,211,244,15,211,244,15,211,244,15,223,244,11,243
700 data 228,10,146,164,10,150,164,10,146,164,10,146,164,10,146,164
705 data 10,146,164,2,170,148,1,80,84,0,85,80,0,0,0,131
710 rem sprite-9-2
715 data 0,0,0,0,0,0,0,0,0,3,255,192,15,195,240,15
720 data 215,240,15,211,244,1,83,244,1,83,244,0,3,244,3,255
725 data 212,10,128,84,10,149,80,10,144,0,10,144,0,10,146,160
730 data 10,146,160,10,170,164,1,80,84,1,85,84,0,0,0,131
735 rem sprite-10-4
740 data 0,0,0,0,0,0,0,0,0,15,195,240,15,195,240,15
745 data 211,244,15,211,244,15,211,244,15,211,244,15,211,244,15,255
750 data 228,1,82,164,1,86,164,0,2,164,0,2,164,0,2,164
755 data 0,2,164,0,2,164,0,0,84,0,0,84,0,0,0,131