Edit: Guest who posted
cycle:c=if((a[i]!=a[j] and a[j]!=a[k] and a[k]!=a[l] and a[l]!=a[m] and a[m]!=a[n] and a[n]!=a[r] and a[r]!=a[s]), goto end, goto next);end:print(a[i],a[j],a[k],a[l],a[m],a[n],a[r],a[s]),", ",;p=p+1;next:i=i+8;j=i+1;k=j+1;l=k+1;m=l+1;n=m+1;r=n+1;s=r+1;if(s< count a, goto cycle, 0);
;print">Total =", p
was correct!
