CLS FOR Num& = 1 TO 999999999 STEP 2 prime = 1 FOR I = 2 TO SQR(Num&) IF Num& MOD I = 0 THEN prime = 0 NEXT I IF prime = 1 THEN PRINT Num&; "is prime." DO LOOP WHILE INKEY$ = "" NEXT Num&