de, tedd be egy másik 9-es tömbbe, a karakter kilenc sorának értékét, C(1)-C(9) legyen 0, és a for ciklusban kezdd el feltölteni a karakter értékét a másik tömbből.
4210 NUMERIC C(9)
4215 NUMERIC CN(9)
4220 C(1)=102:C(2)=255:C(3)=255:C(4)=159:C(5)=15:C(6)=159:C(7)=255:C(8)=255:C(9)=102
4220 CN(1)=0:CN(2)=0:CN(3)=0:CN(4)=0:CN(5)=0:CN(6)=0:CN(7)=0:CN(8)=0:C(9)=0
4230 FOR I=1 TO 9
4240 SET CHARACTER 0,CN(1),CN(2),CN(3),CN(4),Cn(5),CN(6),CN(7),CN(8),CN(9)
4250 FOR J=1 TO I
4260 CN(J)=C(9-I+J)
4270 NEXT J
4290 NEXT I