Nobody/Anonymous - 2007-10-16

ani_two:
    i = 0
ani_two1:
    dbuf(0) = seg7(i)
    For tmp = 0 To 3
        tmp1 = tmp + 1
        If tmp1 > 3 Then tmp1 = 0
        For j = 1 To 50
            Gosub disp
            If PIR1.5 Then Goto ani_two2
        Next j
        dbuf(tmp)=dbuf(tmp1)
        dbuf(tmp) = 0x00
    Next tmp
    i = i + 1
    If i > 9 Then i = 0
Goto ani_two1
ani_two2:
Return                            

Above does not work but this does, i.e., can't copy one array element to another.

nn=dbuf(tmp)
dbuf(tmp1) = nn

also

dbuf1=dbuf(tmp)
dbuf(tmp1)=dbuf1

gives a syntax error, I assume, because of the spelling.