10 REM PRIMOS CAKCULAR NUMEROS PRIMOS 15 PRINT "ALTAIR WITH 62K OF RAM" 16 PRINT "* * * PROGRAMA DE NUMEROS PRIMOS * * *" 17 PRINT "Copyleft Ubuntu Peronista" 18 PRINT "" 19 PRINT "GIVE ME A HIGH LIMIT AND I WILL SEARCH FOR PRIME NUMBERS:" 20 PRINT "DAME UN LIMITE MAXIMO PARA BUSCAR NUMEROS PRIMOS:"; 30 INPUT L 40 PRINT 2; 50 REM PRUEBA SOLO NROS IMPARES M 60 FOR N = 3 TO L STEP 2 70 REM DIVIDE SOLO POR D = 3 5, 7, ... 80 FOR D = 3 TO SQR(N+1) STEP 2 90 IF N/D = INT(N/D) THEN GOTO 130 100 NEXT D 110 PRINT N;"."; 120 GOTO 140 130 PRINT ".."; 140 NEXT N 144 PRINT "" 145 PRINT "NO HAY MAS NROS PRIMOS EN ESE LIMITE. VIVA PERON!" 146 PRINT "THERE ARE NOT MORE PRIME NUMBERS ON THAT LIMIT, DUDE. I'M A MATH ACE! " 147 PRINT "ADIOS HUMANO! COMPARTE TU SOFTWARE!" 150 REM final del programa 160 END