1000 rem *** superzahl by vitus eisele, faster version for n=9
1010 ti$="000000"
1030 n%=9
1050 gosub 1100
1060 print (ti-s)/60
1070 end
1090 rem == findsuper (n)
1100 for i=1 to n%: d%(i)=i: next
1110 k%=1
1190 rem == permut (k)
1200 if k%>n% then print z: return
1210 z(k%)=10*z: t%=k%
1220 dt%=d%(t%):z=z(k%)+dt%: k=k%: if z-int(z/k)*k goto 1250
1230 i%=d%(k%):d%(k%)=dt%:d%(t%)=i%: t%(k%)=t%: k%=k%+1: gosub 1200
1240 k%=k%-1: t%=t%(k%): i%=d%(k%):d%(k%)=d%(t%):d%(t%)=i%
1250 t%=t%+2: if t%<=n% goto 1220
1260 return