10 lines
321 B
Text
10 lines
321 B
Text
DIM P% 100
|
|
[OPT 2 :.S% xor edi,edi
|
|
.perloop mov eax,ebx : cdq : div ecx : or edx,edx : loopnz perloop : inc ecx
|
|
add edi,ecx : add edi,eax : loop perloop : mov eax,edi : shr eax,1 : ret : ]
|
|
|
|
FOR B% = 2 TO 35000000 STEP 2
|
|
C% = SQRB%
|
|
IF B% = USRS% PRINT B%
|
|
NEXT
|
|
END
|