Rotating 3D Cubes in 8 Sprites

5 rem *** 3d cubes animation in 8 sprites ***
10 rem *** version 1.2 ***
15 rem *** by kimono (f. nardella) ***
20 poke53280,11:poke53281,0:print"{white}{clear}"
25 v=53248:ba=12288:nf=36:c=1:rem constants
30 pokev+29,255:rem expand x
35 pokev+23,255:rem expand y
40 pokev+0,65:pokev+1,130:rem sprite 0 x,y
42 pokev+2,65:pokev+3,190:rem sprite 1 x,y
44 pokev+4,125:pokev+5,130:rem sprite 2 x,y
46 pokev+6,125:pokev+7,190:rem sprite 3 x,y
47 pokev+8,185:pokev+9,130:rem sprite 4 x,y
48 pokev+10,185:pokev+11,190:rem sprite 5 x,y
49 pokev+12,245:pokev+13,130:rem sprite 6 x,y
50 pokev+14,245:pokev+15,190:rem sprite 7 x,y
51 bp=ba/64:rem 12288/64 = 192
52 printspc(5)"rotating 3d cubes in 8 sprites":printspc(15)"by kimono"
55 print:print"total frames:"nf"{return*4}please wait..."
60 rem read all frames
65 fori=0tonf-1:ad=ba+i*64
70 forj=0to62
75 print"{home}{down*6}loading frame:"i+1
80 readd:pokead+j,d:next:next
82 print"{home}{down*8}go!{space*11}"
85 pokev+21,255:rem enable all 8 sprites
90 rem animation loop
95 sp=bp+f:fori=0to7:poke2040+i,sp:next
100 f=f+1:iff=nfthenf=0
105 iff=0thenc=c+1
110 ifc>8thenc=1
115 pokev+39,c:pokev+40,c+1:pokev+41,c+2:pokev+42,c+3
120 pokev+43,c+4:pokev+44,c+5:pokev+45,c+6:pokev+46,c+7
125 goto95
130 rem frames 0-3
135 data 0,3,0,0,29,128,0,225,128,7
140 data 1,64,24,2,32,24,2,16,8,2
145 data 16,12,6,8,4,57,4,6,193,4
150 data 3,0,134,2,0,124,1,0,196,1
155 data 7,40,0,184,40,0,192,48,0,64
160 data 192,0,67,0,0,44,0,0,48,0
165 data 0,0,
170 data 0,4,0,0,30,0,0,101,128,1
175 data 132,64,6,4,32,24,4,24,24,4
180 data 4,12,4,2,10,12,14,9,50,52
185 data 9,193,196,7,131,136,4,76,72,2
190 data 48,48,1,32,16,1,32,96,0,160
195 data 128,0,81,0,0,54,0,0,56,0
200 data 0,16,
205 data 0,0,0,0,28,0,0,107,0,1
210 data 136,192,6,8,48,24,8,12,28,8
215 data 28,18,8,36,9,136,200,8,73,8
220 data 8,62,8,8,62,8,4,201,144,7
225 data 8,112,4,8,16,2,8,32,1,8
230 data 64,0,136,128,0,73,0,0,42,0
235 data 0,28,
240 data 0,0,0,0,0,0,0,60,0,0
245 data 211,224,7,16,28,24,16,28,23,16
250 data 36,16,208,72,16,57,136,16,22,8
255 data 8,18,8,8,110,8,8,131,16,9
260 data 2,208,14,2,48,8,4,32,6,4
265 data 64,1,4,128,0,196,128,0,37,0
270 data 0,30,
275 rem frames 4-7
280 data 0,0,0,0,0,0,0,0,0,0
285 data 126,0,7,161,248,31,224,56,16,63
290 data 200,16,32,136,16,32,136,16,32,136
295 data 16,32,144,8,32,144,8,56,144,8
300 data 71,144,9,129,112,10,1,32,12,1
305 data 32,12,1,64,3,193,128,0,61,128
310 data 0,3,
315 data 0,0,0,0,0,0,0,0,0,0
320 data 0,0,31,255,224,16,64,96,16,64
325 data 96,16,64,96,16,64,96,16,64,96
330 data 16,64,96,8,64,96,8,64,96,8
335 data 124,96,8,131,224,11,0,96,12,0
340 data 96,15,0,64,0,252,64,0,3,192
345 data 0,0,
350 data 0,0,0,0,0,0,0,0,0,15
355 data 255,240,11,0,48,8,255,208,8,128
360 data 80,8,128,80,8,128,80,8,128,80
365 data 8,128,80,8,128,80,8,128,80,8
370 data 128,80,8,128,80,9,255,208,14,0
375 data 48,15,255,240,0,0,0,0,0,0
380 data 0,0,
385 data 0,0,0,0,0,0,3,255,240,2
390 data 0,48,2,0,48,3,0,80,3,255
395 data 144,3,0,144,3,0,144,5,0,136
400 data 5,0,136,5,0,136,5,0,136,5
405 data 0,136,5,0,136,5,0,136,7,255
410 data 248,0,0,0,0,0,0,0,0,0
415 data 0,0,
420 rem frames 8-11
425 data 0,0,0,1,224,0,1,31,128,1
430 data 0,120,1,0,24,3,0,40,3,0
435 data 72,3,224,136,3,31,8,3,1,4
440 data 3,1,4,3,1,4,5,1,4,5
445 data 1,4,5,253,4,6,3,252,7,193
450 data 112,0,63,128,0,0,0,0,0,0
455 data 0,0,
460 data 0,96,0,0,220,0,0,195,0,1
465 data 64,224,1,64,24,2,64,24,2,128
470 data 40,6,128,72,5,192,136,4,185,4
475 data 4,134,4,4,226,4,9,30,4,10
480 data 3,228,10,2,28,12,2,24,14,2
485 data 96,1,243,128,0,14,0,0,0,0
490 data 0,0,
495 data 0,60,0,0,50,0,0,81,128,0
500 data 144,64,1,32,48,1,32,8,2,32
505 data 56,6,32,72,5,160,132,4,115,4
510 data 8,76,4,8,135,4,9,4,226,10
515 data 4,26,20,4,6,24,4,12,24,4
520 data 48,7,4,192,0,247,0,0,12,0
525 data 0,0,
530 data 0,28,0,0,42,0,0,73,0,0
535 data 72,128,0,136,128,1,8,64,2,8
540 data 32,4,8,16,7,54,112,8,193,136
545 data 8,193,136,19,54,100,20,8,20,56
550 data 8,14,32,8,2,24,8,12,6,8
555 data 48,1,8,64,0,201,128,0,62,0
560 data 0,8,
565 rem frames 12-15
570 data 0,4,0,0,14,0,0,18,0,0
575 data 99,0,0,130,128,1,13,128,2,17
580 data 64,4,96,160,10,128,96,11,0,112
585 data 20,128,240,24,67,40,32,44,24,16
590 data 16,8,8,16,12,4,16,4,3,16
595 data 24,0,144,96,0,81,128,0,54,0
600 data 0,24,
605 data 0,0,0,0,2,0,0,15,0,0
610 data 49,128,0,195,128,3,12,192,4,48
615 data 192,10,192,96,11,0,96,29,0,48
620 data 48,128,112,16,129,144,16,70,24,8
625 data 88,8,4,32,12,2,32,12,2,32
630 data 48,1,32,192,0,199,0,0,216,0
635 data 0,96,
640 data 0,0,0,0,0,0,0,0,192,0
645 data 15,64,0,125,64,7,224,160,31,0
650 data 160,18,0,160,9,0,96,9,0,80
655 data 9,0,80,4,128,48,4,128,112,4
660 data 131,144,4,92,24,2,96,8,2,64
665 data 56,2,131,192,1,188,0,1,192,0
670 data 0,0,
675 data 0,0,0,0,0,0,0,1,224,0
680 data 254,96,15,0,96,14,15,160,9,240
685 data 144,9,0,144,5,0,144,5,0,144
690 data 5,0,80,4,128,80,4,128,80,4
695 data 128,72,4,135,200,2,248,56,3,0
700 data 120,3,63,128,3,192,0,0,0,0
705 data 0,0,
710 rem frames 16-19
715 data 0,0,0,0,0,0,3,248,0,3
720 data 7,240,3,0,16,2,128,48,4,248
725 data 48,4,135,208,4,128,80,4,128,80
730 data 4,128,80,5,0,80,9,0,144,9
735 data 0,144,9,0,144,15,240,144,0,255
740 data 208,0,0,240,0,0,0,0,0,0
745 data 0,0,
750 data 0,224,0,0,158,0,1,129,224,1
755 data 64,24,2,64,8,2,64,24,4,96
760 data 16,4,92,16,4,131,176,8,128,112
765 data 8,128,32,17,0,32,25,0,96,15
770 data 128,96,6,112,64,3,15,64,0,224
775 data 192,0,30,192,0,1,128,0,0,0
780 data 0,0,
785 data 0,96,0,0,220,0,0,195,128,1
790 data 64,112,2,32,12,4,32,4,4,32
795 data 8,8,48,8,16,76,16,16,67,144
800 data 48,128,96,31,0,32,17,192,64,10
805 data 48,64,10,14,128,6,1,128,1,129
810 data 128,0,97,0,0,27,0,0,6,0
815 data 0,0,
820 data 0,24,0,0,54,0,0,209,128,1
825 data 16,96,2,16,24,12,16,4,16,16
830 data 12,48,16,24,44,16,40,19,44,72
835 data 16,195,72,8,176,208,9,13,48,6
840 data 2,32,4,2,64,2,2,64,1,130
845 data 128,0,69,0,0,38,0,0,30,0
850 data 0,4,
855 rem frames 20-23
860 data 0,0,0,0,28,0,0,107,0,1
865 data 136,192,6,8,48,24,8,12,28,8
870 data 28,18,8,36,9,136,200,8,73,8
875 data 8,62,8,8,62,8,4,201,144,7
880 data 8,112,4,8,16,2,8,32,1,8
885 data 64,0,136,128,0,73,0,0,42,0
890 data 0,28,
895 data 0,0,0,0,0,0,0,30,0,3
900 data 229,192,28,4,48,28,4,12,18,4
905 data 116,9,5,132,8,206,4,8,52,4
910 data 8,36,4,8,59,8,4,96,136,5
915 data 160,72,6,32,56,2,32,8,1,16
920 data 48,0,144,64,0,145,128,0,82,0
925 data 0,60,
930 data 0,0,0,0,0,0,0,0,0,0
935 data 63,0,15,194,240,11,3,252,8,254
940 data 4,8,130,4,8,130,4,4,130,4
945 data 4,130,4,4,130,4,4,142,8,4
950 data 241,8,7,64,136,2,64,104,2,64
955 data 24,1,64,24,0,193,224,0,222,0
960 data 0,96,
965 data 0,0,0,0,0,0,0,0,0,0
970 data 0,0,3,255,252,3,1,4,3,1
975 data 4,3,1,4,3,1,4,3,1,4
980 data 3,1,4,3,1,8,3,1,8,3
985 data 31,8,3,224,136,3,0,104,3,0
990 data 24,1,0,120,1,31,128,1,224,0
995 data 0,0,
1000 rem frames 24-27
1005 data 0,0,0,0,0,0,0,0,0,7
1010 data 255,248,6,0,56,5,255,200,5,0
1015 data 136,5,0,136,5,0,136,5,0,136
1020 data 5,0,136,5,0,136,5,0,136,5
1025 data 0,136,5,0,136,5,255,136,6,0
1030 data 104,7,255,248,0,0,0,0,0,0
1035 data 0,0,
1040 data 0,0,0,0,0,0,7,255,224,6
1045 data 0,32,5,0,96,5,0,96,4,255
1050 data 224,4,128,96,4,128,96,4,128,96
1055 data 8,128,80,8,128,80,8,128,80,8
1060 data 128,80,8,128,80,8,128,80,15,255
1065 data 240,0,0,0,0,0,0,0,0,0
1070 data 0,0,
1075 data 0,0,0,0,3,192,0,252,64,15
1080 data 0,64,12,0,96,10,0,96,9,0
1085 data 96,8,131,224,8,124,96,8,64,96
1090 data 12,64,96,16,64,96,16,64,80,16
1095 data 64,80,16,95,208,31,224,48,7,65
1100 data 240,0,254,0,0,0,0,0,0,0
1105 data 0,0,
1110 data 0,3,0,0,29,128,0,97,128,3
1115 data 129,64,12,1,64,12,1,32,10,0
1120 data 160,9,0,176,8,129,208,8,78,144
1125 data 16,48,144,16,35,144,16,60,72,19
1130 data 224,40,28,32,40,12,32,24,3,32
1135 data 56,0,231,192,0,56,0,0,0,0
1140 data 0,0,
1145 rem frames 28-31
1150 data 0,30,0,0,37,0,0,197,0,1
1155 data 4,128,6,4,64,8,2,32,14,2
1160 data 32,9,2,48,16,130,208,16,103,16
1165 data 16,25,8,16,112,136,35,144,72,44
1170 data 16,40,48,16,20,24,16,12,6,16
1175 data 12,1,144,112,0,119,128,0,24,0
1180 data 0,0,
1185 data 0,28,0,0,42,0,0,73,0,0
1190 data 136,128,0,136,128,1,8,64,2,8
1195 data 32,4,8,16,7,54,112,8,193,136
1200 data 8,193,200,19,54,36,20,8,20,56
1205 data 8,14,32,8,2,24,8,12,6,8
1210 data 48,1,8,64,0,201,128,0,62,0
1215 data 0,8,
1220 data 0,16,0,0,56,0,0,52,0,0
1225 data 98,0,0,161,128,0,216,64,1,68
1230 data 32,2,131,16,3,0,168,5,0,104
1235 data 7,0,148,10,193,12,12,50,2,8
1240 data 12,4,24,4,8,24,4,16,6,4
1245 data 96,1,132,128,0,101,0,0,30,0
1250 data 0,4,
1255 data 0,0,0,0,32,0,0,120,0,0
1260 data 198,0,0,241,128,1,140,96,1,131
1265 data 16,3,0,232,3,0,52,6,0,76
1270 data 6,0,130,5,128,132,12,97,4,8
1275 data 25,8,24,6,16,24,2,32,6,2
1280 data 32,1,193,64,0,49,128,0,13,128
1285 data 0,3,
1290 rem frames 32-35
1295 data 0,0,0,0,0,0,1,128,0,1
1300 data 248,0,1,95,0,2,131,240,2,128
1305 data 124,2,128,36,3,0,72,5,0,72
1310 data 5,0,72,6,0,144,7,0,144,6
1315 data 224,144,12,29,16,12,3,32,14,0
1320 data 160,1,224,160,0,30,64,0,1,192
1325 data 0,0,
1330 data 0,0,0,0,0,0,3,192,0,3
1335 data 63,128,3,0,120,2,248,56,4,135
1340 data 200,4,128,72,4,128,80,4,128,80
1345 data 5,0,80,5,0,144,5,0,144,9
1350 data 0,144,9,240,144,14,15,160,15,0
1355 data 96,0,254,96,0,1,224,0,0,0
1360 data 0,0,
1365 data 0,0,0,0,0,0,0,15,224,7
1370 data 240,32,6,0,96,6,0,96,5,15
1375 data 144,5,240,144,5,0,144,5,0,144
1380 data 5,0,144,5,0,80,4,128,72,4
1385 data 128,72,4,128,72,4,135,248,5,255
1390 data 128,7,128,0,0,0,0,0,0,0
1395 data 0,0,
1400 data 0,1,128,0,30,128,1,224,192,14
1405 data 0,192,8,1,32,12,1,32,4,3
1410 data 16,4,29,16,6,224,144,7,0,136
1415 data 2,0,136,2,0,68,3,0,76,3
1420 data 0,248,1,7,48,1,120,96,1,135
1425 data 128,0,184,0,0,192,0,0,0,0
1430 data 0,0,