1000 rem *** superzahl by vitus eisele, hardcoded n=6 with integer for MOSpeed
1010 ti$="000000"
1050 let n=6
1060 gosub 1090
1070 print ti/60: end
1090 d1%=1: d2%=2: d3%=3: d4%=4: d5%=5: d6%=6
1100 s1%=d1%:d1%=d3%:d3%=s1%: gosub 1110: d3%=d1%:d1%=s1%
1110 s2%=d2%:d2%=d6%:d6%=s2%: gosub 1130: d6%=d2%
1120 d2%=d4%:d4%=s2%: gosub 1130: d4%=d2%:d2%=s2%
1130 i%=d1%+d2%:i%=i%+d3%: if i%-int(i%/3)*3 then return
1140 s4%=d4%: d4%=d6%:d6%=s4%: gosub 1150: d6%=d4%:d4%=s4%
1150 i%=10*d3%+d4%: if i% and 3 then return
1200 z=10*(10*(10*(10*(10*d1%+d2%)+d3%)+d4%)+d5%)+d6%: print z
1210 return