Obiecany program:
0 a=1:dima%(19324):fori=0to19991:forj=0tod:b=a%(j)*i+a:a=int(b/1e4):a%(j)=b-1e4*a:next
1 ifathend=d+1:b=a:a=int(b/1e4):a%(d)=b-1e4*a:goto1
2 print:printi:forj=0tod:b=a%(d-j):ifjthenifb<1e3thenprint"0";:ifb<1e2thenprint"0";:ifb<10thenprint"0";
3 printmid$(str$(b),2);:next:next
Jak ktos to bedzie wklepywal w emulatorze to uwaga! nalezy pisac skrotowe rozkazy bo sie linie nie mieszcza w dwoch liniach ekranowych (czyli zamiast "print" pisze sie "?", zamiast "for" pisze sie "f[shift+o])
teraz run ...
trzeba to przerwac
napisac : 0 [return] <-- to wcisnac
i wpisac linie:
fori=1to20026:forj=0tod:b=a%(j)*i+a:a=int(b/1e4):a%(j)=b-1e4*a:next:goto1
Powinno sie zaczac liczyc

jak ktos ma cierpliwosc to i doczeka silni 20026! ..
(a jak ktos wie jak wydrukowac wynik do pliku to moze na drukarke wynik przeniesc)