Ðòéîô ¢Óéåöå ïæ Åòáôïóôèåîåó Óðååä Ôåóô¢
Ðòéîô
Óôáòô ½ Ôéíåò

±° ×½µ°°ºÄéí Æ¨×©ºÐ½±ºÁ½³
²° Æ¨Ð©½ÁºÐ½Ð«±ºÉæ Ð¾× Ôèåî ÇïÔï ÄÏÎÅ
³° Á½Á«²ºØ½±
´° Ó½Á¯Æ¨Ø©ºÉæ Ó½Éîô¨Ó© Ôèåî ³°
µ° Ø½Ø«±ºÉæ Ø¼Ð Áîä Æ¨Ø©ªÆ¨Ø©¼½Á Ôèåî ´°
¶° ÇïÔï ²°

ÄÏÎź
Åìáðóåä ½ ¨Ôéíåò­Óôáòô©¯±°°°
Ðòéîô Åìáðóåä ¢ óåãïîäó¢
Ðòéîô

É ½ °          § óôáôåíåîô ãïõîôåò
Ê ½ °          § ìéîå ãïõîôåò
Åòáóå Æ

±±° É½É«´º Ê½Ê«±º ×½µ°°ºÄéí Æ¨×©ºÐ½±ºÁ½³
±²° É½É«³º Ê½Ê«±º Æ¨Ð©½ÁºÐ½Ð«±ºÉæ Ð¾× Ôèåî ÇïÔï ÆÉÎÉ
±³° É½É«²º Ê½Ê«±º Á½Á«²ºØ½±
Ðòéîô ¬Ð Ãèò¤¨±³©»
±´° É½É«²º Ê½Ê«±º Ó½Á¯Æ¨Ø©ºÉæ Ó½Éîô¨Ó© Ôèåî É½É«±º ÇïÔï ±³°
±µ° É½É«²º Ê½Ê«±º Ø½Ø«±ºÉæ Ø¼Ð Áîä Æ¨Ø©ªÆ¨Ø©¼½Á Ôèåî É½É«±º ÇïÔï ±´°
±¶° É½É«±º Ê½Ê«±º ÇïÔï ±²°

ÆÉÎɺ
Ðòéîô É ¢ óôáôåíåîôó¢
Ðòéîô Ê ¢ ìéîåó¢
Ðòéîô
Ðòéîô É ¯ Åìáðóåä ¢ óôáôåíåîôó ðåò óåãïîä¢
Ðòéîô Ê ¯ Åìáðóåä ¢ ìéîåó ðåò óåãïîä¢
Ðòéîô

Print "Sieve of Eratosthenes Speed Test"
Print
Start = Timer

10 W=500:Dim F(W):P=1:A=3
20 F(P)=A:P=P+1:If P>W Then GoTo DONE
30 A=A+2:X=1
40 S=A/F(X):If S=Int(S) Then 30
50 X=X+1:If X<P And F(X)*F(X)<=A Then 40
60 GoTo 20

DONE:
Elapsed = (Timer-Start)/1000
Print Elapsed " seconds"
Print

I = 0 ' statement counter
J = 0 ' line counter
Erase F

110 I=I+4: J=J+1: W=500:Dim F(W):P=1:A=3
120 I=I+3: J=J+1: F(P)=A:P=P+1:If P>W Then GoTo FINI
130 I=I+2: J=J+1: A=A+2:X=1
Print ,P Chr$(13);
140 I=I+2: J=J+1: S=A/F(X):If S=Int(S) Then I=I+1: GoTo 130
150 I=I+2: J=J+1: X=X+1:If X<P And F(X)*F(X)<=A Then I=I+1: GoTo 140
160 I=I+1: J=J+1: GoTo 120

FINI:
Print I " statements"
Print J " lines"
Print
Print I / Elapsed " statements per second"
Print J / Elapsed " lines per second"
Print

open "com15: baud=38400" as #1
print #1, "run"
end

open "test.bas" for input as #2

Xx = lof(#2)
for Yy = 1 to Xx
sndtxt$ = input$(Yy, #2)
print #1, sndtxt$
next Yy