616259537a
Add variable storage (scalar and array), program line storage with RUN/LIST/NEW, and full control flow: FOR/NEXT, GOTO, GOSUB/RETURN, IF/THEN/ELSE, WHILE/WEND, ON GOTO/GOSUB, DATA/READ/RESTORE. New modules: interp.c (1445 lines - execution loop and statement dispatcher), vars.c, arrays.c, input.c. Version bumped to 0.2.0. 16 test programs pass including Leibniz pi and prime sieve.
19 lines
328 B
QBasic
19 lines
328 B
QBasic
10 REM Sieve of Eratosthenes
|
|
20 N = 100
|
|
30 DIM P(100)
|
|
40 FOR I = 2 TO N
|
|
50 P(I) = 1
|
|
60 NEXT I
|
|
70 FOR I = 2 TO SQR(N)
|
|
80 IF P(I) = 0 THEN GOTO 120
|
|
90 FOR J = I*2 TO N STEP I
|
|
100 P(J) = 0
|
|
110 NEXT J
|
|
120 NEXT I
|
|
130 C = 0
|
|
140 FOR I = 2 TO N
|
|
150 IF P(I) = 1 THEN PRINT I; : C = C + 1
|
|
160 NEXT I
|
|
170 PRINT
|
|
180 PRINT C; "primes found"
|