1 REM Ins{nd av: Anders Franz`n <5258>    1985-06-16 11.56.26
10 REM +++++++++++++++++++++++++++++++
20 REM ! Program ....   PRIMTAL
30 REM ! Utg}va 1.0     1985-06-16
40 REM ! av (c) Anders Franz`n <5258>
50 REM ! Minne 16 Kbytes
60 REM +++++++++++++++++++++++++++++++
70 REM 
80 ; CHR$(12%)
90 ; "Primtalsber{kning"
100 ; "-----------------"
110 ; CUR(5%,0%);
120 ; "Jag ber{knar alla sexsiffriga"
130 ; "primtal som finns."
140 ; 
150 ; "Var god v{nta, jag m}ste f|rst"
160 ; "hitta alla primtal under 1000."
170 ; 
180 DIM P(170) : X=1 : P(0%)=3%
190 X=X+2 : X1=SQR(X) : FOR I%=0% TO N%
200 IF X/P(I%)=INT(X/P(I%)) GOTO 190
210 IF P(I%+1%)<=X1 NEXT I%
220 N%=N%+1% : P(N%)=X
230 ; X;CHR$(13%);
240 IF X<1000 GOTO 190
250 ; CHR$(12%)
260 ; "Primtalsber{kning"
270 ; "-----------------"
280 ; CUR(5%,0%);
290 ; "Nu visar jag alla sexsiffriga"
300 ; "primtal som finns (om du har"
310 ; "t}lamod att v{nta vill s{ga)."
320 ; 
330 X=99999
340 X=X+2 : X1=SQR(X) : FOR I%=0% TO N%
350 IF X/P(I%)=INT(X/P(I%)) GOTO 340
360 IF P(I%+1%)<=X1 NEXT I%
370 ; ADD$(NUM$(X-1E+5),"100000",0)"  ";
380 IF X<1E+6 GOTO 340
390 END