NEWPRIME
FILE INFORMATION
FILENAME(S): NEWPRIME
FILE TYPE(S): USR
FILE SIZE: 532b
FIRST SEEN: 2025-11-30 21:25:23
APPEARS ON: 1 disk(s)
FILE HASH
e6f14e9ef6574c7270e8bcf1cfd7baff893db84c139aa757a9731dc6c92f8db5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C COMPILER 64 | NEWPRIME | USR | DuncanTwain | 10 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 83 83 1C 23 49 4E 43 4C 55 44 45 20 22 53 54 44 |...#INCLUDE "STD|
00000010: 49 4F 2E 43 22 0D 1C 23 44 45 46 49 4E 45 20 20 |IO.C"..#DEFINE |
00000020: 43 4C 52 53 20 31 39 0D 1C 0D 1C 4D 41 49 4E 28 |CLRS 19....MAIN(|
00000030: 29 0D 1C DB 0D 1C 20 20 20 52 45 47 49 53 54 45 |)..... REGISTE|
00000040: 52 20 49 4E 54 20 50 52 49 4D 45 2C 54 45 53 54 |R INT PRIME,TEST|
00000050: 2C 53 51 55 41 52 45 A4 52 4F 4F 54 2C 0D 1C 20 |,SQUARE.ROOT,.. |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | S|
00000070: 51 55 41 52 45 2C 46 4C 41 47 3B 0D 1C 20 20 20 |QUARE,FLAG;.. |
00000080: 50 55 54 28 43 4C 52 53 29 3B 0D 1C 0D 1C 20 20 |PUT(CLRS);.... |
00000090: 20 53 51 55 41 52 45 A4 52 4F 4F 54 20 3D 20 31 | SQUARE.ROOT = 1|
000000A0: 3B 0D 1C 20 20 20 53 51 55 41 52 45 20 20 20 20 |;.. SQUARE |
000000B0: 20 20 3D 20 31 3B 0D 1C 0D 1C 20 20 20 46 4F 52 | = 1;.... FOR|
000000C0: 28 49 3D 31 3B 31 3B 2B 2B 49 29 20 DB 0D 1C 0D |(I=1;1;++I) ....|
000000D0: 1C 20 20 20 20 20 20 20 49 46 20 28 50 52 49 4D |. IF (PRIM|
000000E0: 45 3E 53 51 55 41 52 45 29 20 DB 0D 1C 20 20 20 |E>SQUARE) ... |
000000F0: 20 20 20 20 20 20 20 20 53 51 55 41 52 45 A4 52 | SQUARE.R|
00000100: 4F 4F 54 2B 2B 3B 0D 1C 20 20 20 20 20 20 20 20 |OOT++;.. |
00000110: 20 20 20 53 51 55 41 52 45 20 3D 20 53 51 55 41 | SQUARE = SQUA|
00000120: 52 45 A4 52 4F 4F 54 20 2A 20 53 51 55 41 52 45 |RE.ROOT * SQUARE|
00000130: A4 52 4F 4F 54 0D 1C 20 20 20 20 20 20 20 20 20 |.ROOT.. |
00000140: 20 20 DD 3B 0D 1C 0D 1C 20 20 20 20 20 20 20 46 | .;.... F|
00000150: 4C 41 47 20 3D 20 30 3B 0D 1C 0D 1C 20 20 20 20 |LAG = 0;.... |
00000160: 20 20 20 46 4F 52 28 4A 3D 32 3B 4A 3D 3C 53 51 | FOR(J=2;J=<SQ|
00000170: 55 41 52 45 A4 52 4F 4F 54 3B 2B 2B 4A 29 0D 1C |UARE.ROOT;++J)..|
00000180: 20 20 20 20 20 20 20 20 20 20 20 49 46 28 49 25 | IF(I%|
00000190: 4A 20 3D 3D 20 30 29 20 DB 0D 1C 20 20 20 20 20 |J == 0) ... |
000001A0: 20 20 20 20 20 20 20 20 20 20 46 4C 41 47 20 3D | FLAG =|
000001B0: 20 31 3B 0D 1C 20 20 20 20 20 20 20 20 20 20 20 | 1;.. |
000001C0: 20 20 20 20 42 52 45 41 4B 3B 0D 1C 20 20 20 20 | BREAK;.. |
000001D0: 20 20 20 20 20 20 20 DD 0D 1C 20 20 20 20 20 20 | ... |
000001E0: 20 49 46 28 21 20 46 4C 41 47 29 0D 1C 20 20 20 | IF(! FLAG).. |
000001F0: 20 20 20 20 20 20 20 20 50 52 49 4E 54 46 28 22 | PRINTF("|
00000200: 25 44 5C 4E 22 2C 49 29 3B 0D 1C 20 20 20 DD 0D |%D\N",I);.. ..|
00000210: 1C DD 0D 00 |.... |
...#INCLUDE "STDIO.C"..#DEFINE CLRS 19.
...MAIN()..... REGISTER INT PRIME,TEST
,SQUARE.ROOT,.. SQUARE,FL
AG;.. PUT(CLRS);.... SQUARE.ROOT = 1
;.. SQUARE = 1;.... FOR(I=1;1;+
+I) ..... IF (PRIME>SQUARE) ...
SQUARE.ROOT++;.. SQUAR
E = SQUARE.ROOT * SQUARE.ROOT..
.;.... FLAG = 0;.... FOR(J
=2;J=<SQUARE.ROOT;++J).. IF(I%
J == 0) ... FLAG = 1;..
BREAK;.. ...
IF(! FLAG).. PRINTF("%D\N",I)
;.. ......
> CLICK IMAGE PREVIEW FOR FULL MODAL