10 CLS
20 INPUT "¨Cu ntos n£meros primos?: ", CANTIDAD
30 IF CANTIDAD<2 THEN PRINT "no <2": GOTO 210
40 DIM PRIMO(CANTIDAD)
50 PRINT : INPUT "Archivo de salida: ",SAL$
60 OPEN SAL$ FOR OUTPUT AS #1
70 PRIMO(1)=1 : PRIMO(2)=2
80 PRINT #1,1;1 : PRINT #1,2;2
90 NUM=2
100 CLS
110 FOR A=3 TO CANTIDAD
120 NUM=NUM+1
130 FOR B=2 TO A-1
140 IF NUM/PRIMO(B)=INT(NUM/PRIMO(B)) THEN 120
150 NEXT B
160 PRIMO(A)=NUM
170 LOCATE 10,30 : PRINT A,NUM
180 PRINT #1,A;NUM
190 NEXT A
200 CLOSE #1
210 PRINT : INPUT "¨Nuevo intento? (S/N): ",RESP$
220 IF RESP$="s" OR RESP$="S" THEN RUN
230 IF RESP$="n" OR RESP$="N" THEN 250
240 PRINT "respuesta incorrecta" : GOTO 210
250 SYSTEM