24 lines
496 B
QBasic
24 lines
496 B
QBasic
1 'calculate primes
|
|
2 'between 3 and L
|
|
10 L=10000:mode 2
|
|
15 poke42,16:poke46,1:cls
|
|
20 R=0:B(0)=124:B(1)=47
|
|
25 B(2)=45:B(3)=92:C(0)=0
|
|
30 C(1)=8:C(2)=4:C(3)=12
|
|
35 for N=3 to L:poke43,3
|
|
36 X=0:Y=0:Z=0:poke 14,0
|
|
40 if N%2=0 goto 75
|
|
45 for D=2 to N-1
|
|
46 Y=peek(14)
|
|
47 if Y<X Z=Z+427
|
|
50 X=Y:at 2:put B(D%4)
|
|
55 poke 20,1+(D%2)+C(R)
|
|
60 if N%D=0 goto 75
|
|
65 nextD:poke43,63
|
|
67 S=(Z+(427/256*Y))/100
|
|
68 at2:?N;" -> ";S;"s"
|
|
70 R=R+1:if R=4 R=0
|
|
75 next N:at 2:put 32:?
|
|
80 poke 43,63:poke 46,0
|
|
85 mode 1:end
|