home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / PRIME.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  543 b   |  22 lines
  1. 10 PRINT:PRINT:PRINT
  2. 20 !   THIS PROGRAM PRINTS THE PRIME NUMBERS FROM 1 TO 10,000
  3. 30 PRINT "             PRIME NUMBERS FROM 1 TO 10,000"
  4. 40 PRINT
  5. 50 A=1
  6. 60 FOR X=1 TO 10
  7. 70 IF A=1 THEN A=2: GOTO 160
  8. 80 IF A=2 THEN A=3: GOTO 160
  9. 82 IF A=10000 THEN END
  10. 85 A=A+1
  11. 90 C=1
  12. 100 FOR I=0 TO (A/2)+.5
  13. 110 C=C+1
  14. 120 B=A/C
  15. 130 B1=INT(B)
  16. 140 IF B1=B THEN 80
  17. 150 NEXT I
  18. 160 S(X)=A
  19. 170 NEXT X
  20. 180 PRINT USING "##### ##### ##### ##### ##### ##### ##### ##### ##### ##### "; S(1),S(2),S(3),S(4),S(5),S(6),S(7),S(8),S(9),S(10)
  21. 190 GOTO 60
  22.