Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
PROBE=10000:B=0:R=127*127:F=PEEK(20)
WHILE F=PEEK(20)
WEND
S=TIME
FOR I=0 TO PROBE
N=PEEK($D20A):N=N!128:N=N EXOR 128
X=N*N
N=PEEK($D20A):N=N!128:N=N EXOR 128
Y=N*N
IF (X+Y)<=R THEN INC B
NEXT I
P=4*B
T=TIME-S
? P;CHR$(30);CHR$(30);CHR$(30);CHR$(30);CHR$(255);CHR$(46)
? T;" FRAMES"
Od 1 do 8 z 8