5 CROFF
10 DIM a(7,7,7)
20 FOR i=0 TO 7
30 FOR d=0 TO 7
40 FOR b=0 TO 7
50 a(b,d,i)=c
55 c=c+1
60 PRINT "a(";b;",";d;",";i;")=";a(b,d,i)
70 NEXT b
80 NEXT d
90 NEXT i