ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 2e38b5c3c3
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '2e38b5c3c3'
${ noResults }
bwBASIC/BAS-EXAMPLES/primes.bas

12 lines
189 B
Raw Blame History 

  1. 20 PRINT "LIMIT";

  2. 30 INPUT L

  3. 40 FOR N = 3 TO L

  4. 50    FOR D = 2 TO (N-1)

  5. 60      IF N/D=INT(N/D) THEN GOTO 100

  6. 70    NEXT D

  7. 80    PRINT N;

  8. 90    GOTO 110

  9. 100   PRINT ".";

  10. 110 NEXT N

  11. 120 END