home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG054.ARK
/
PRIME.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
543b
|
22 lines
10 PRINT:PRINT:PRINT
20 ! THIS PROGRAM PRINTS THE PRIME NUMBERS FROM 1 TO 10,000
30 PRINT " PRIME NUMBERS FROM 1 TO 10,000"
40 PRINT
50 A=1
60 FOR X=1 TO 10
70 IF A=1 THEN A=2: GOTO 160
80 IF A=2 THEN A=3: GOTO 160
82 IF A=10000 THEN END
85 A=A+1
90 C=1
100 FOR I=0 TO (A/2)+.5
110 C=C+1
120 B=A/C
130 B1=INT(B)
140 IF B1=B THEN 80
150 NEXT I
160 S(X)=A
170 NEXT X
180 PRINT USING "##### ##### ##### ##### ##### ##### ##### ##### ##### ##### "; S(1),S(2),S(3),S(4),S(5),S(6),S(7),S(8),S(9),S(10)
190 GOTO 60