C128_SpriteCharactersAnimCreator


0 l1$="a .byte ":l2$="b .byte "
15 print chr$(147)
20 i$="sprite characters anim creator"
25 char 0,0,0,i$
30 for a=0 to 2
35 char0,0,3+a,l1$
40 l1$="  .byte "
45 forb=3584+ato3605+astep3
50 dd=peek(b)
51 gosub 150
75 printright$(hex$(dd),2);:next:next
85 for a=0 to 2
90 char0,0,7+a,l2$
95 l2$="  .byte "
100 forb=3608+ato3629+astep3
105 ee=peek(b)
106 gosub 200
110 printright$(hex$(ee),2);:next:next
115 print:print:print"sprdef"
120 end
150 p$=",$"
160 ifb=3584thenp$="$"
170 ifb=3585thenp$="$"
180 ifb=3586thenp$="$"
190 print p$;
195 return
200 p$=",$"
210 ifb=3608thenp$="$"
220 ifb=3609thenp$="$"
230 ifb=3610thenp$="$"
240 print p$;
250 return



a .byte $81,$a1,$d3,$c3,$e7,$e7,$83,$97
  .byte $a1,$d3,$c3,$e7,$e7,$83,$97,$ff
  .byte $81,$a1,$a1,$d3,$c3,$e7,$e7,$83

b .byte $c1,$80,$b6,$80,$88,$c9,$e3,$ff
  .byte $c1,$80,$94,$80,$9c,$c1,$e3,$ff
  .byte $97,$ff,$c1,$94,$80,$a2,$9c,$c1