چطور این برنامه رو خلاصه کنم؟

[feshwari]

سلام دوستان.
چطور این برنامه رو خلاصه کنم؟

do
for a1 = 0 to 9
a2 = a1 + 10
a3 = a1 + 20
a4 = a1 + 30
a5 = a1 + 40
a6 = a1 + 50
a7 = a1 + 60
a8 = a1 + 70

dd = lookup(a1 ,ani
dd = lookup(a2 ,ani
dd = lookup(a3 ,ani
dd = lookup(a4 ,ani
dd = lookup(a5 ,ani
dd = lookup(a6 ,ani
dd = lookup(a7 ,ani
dd = lookup(a8 ,ani

next
loop
end

ani:
data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 1
data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 1
data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 1
data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 1
data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 1
data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 1
data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 1
data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 1

[agtabesh]

پاسخ : چطور این برنامه رو خلاصه کنم؟

سلام
من C کار می کنم ولی با basic هم کمی آشنایی دارم
این خلاصه برنامست :

Do
For i = 0 to 9
For j=i to (i+70) step 10
dd=lookup(j,ani)
next j
next i
Loop