Hier ein Basic-Code zum schnellen Sprite-Setzen mit Strings.
Quellcode:
10 :i=0:k=80:rem---sprite-setzen mit strings
11 :print"[clr]sprite-setzen:":s=peek(648)*256:
12 :b=s/64and255:fora=s+1016toa+7:pokea,b:next:fora=s-64tos-1:pokea,255:next
14:
15 :dima(99):fori=.to40:rem---string-feld aufbauen
16 :c$="":forb=.to7:c$=c$+chr$(24+b*24)+chr$(k):next:a$(i)=c$:k=k+1:next
19 :
20 :i=.:k=1:rem---bewegen
21 :poke3,peek(51):poke4,peek(52):poke52,208:
22 :poke51,len(a$(i)):poke51,len(a$(i)+""):poke53269,255
24 :fori=itoi+39*kstepk:poke51,len(a$(i)+""):next
25 :k=-k:ifpeek(198)=.goto24
26 :poke51,peek(3):poke52,peek(4):geta$:poke53269,.
Schönen Gruß.