Home » Personal collection » Acorn ADFS disks » Archimedes » Dominic_3B.ADF » Files/Programs/Primenums
Files/Programs/Primenums
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Archimedes » Dominic_3B.ADF |
| Filename: | Files/Programs/Primenums |
| Read OK: | ✔ |
| File size: | 00BB bytes |
| Load address: | FFFFFB44 |
| Exec address: | 97B6E8C4 |
Duplicates
There are 4 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_3B.ADF » Files/Programs/Primenums
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_3.ADF » Files/Programs/Primenums
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3.adf » Files/Programs/Primenums
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3B.adf » Files/Programs/Primenums
- Personal collection » Acorn hard disk » files » BASIC » Primenums
File contents
5 A=0 10 FORLO=2 TO 999999:F=0 20 FORL=2 TO SQR(LO) 30 IF LO MOD L=0 THEN F=1 40 NEXT 50 IF F=1 THEN NEXT:END 60 A$=STR$(LO) 70 IF LEN(A$)<>6 THEN A$="0"+A$:GOTO 70 80 PRINT;A$;" ";:A=A+1 90 IF A=10 THEN PRINT:A=0 100 NEXT:END
A=0 �LO=2 � 999999:F=0 �L=2 � �(LO) � LO � L=0 � F=1 ( � 2 � F=1 � �:� < A$=�(LO) F" � �(A$)<>6 � A$="0"+A$:� �DF@ P �;A$;" ";:A=A+1 Z � A=10 � �:A=0 d �:� �
00000000 0d 00 05 08 20 41 3d 30 0d 00 0a 17 20 e3 4c 4f |.... A=0.... .LO| 00000010 3d 32 20 b8 20 39 39 39 39 39 39 3a 46 3d 30 0d |=2 . 999999:F=0.| 00000020 00 14 11 20 e3 4c 3d 32 20 b8 20 b6 28 4c 4f 29 |... .L=2 . .(LO)| 00000030 0d 00 1e 15 20 e7 20 4c 4f 20 83 20 4c 3d 30 20 |.... . LO . L=0 | 00000040 8c 20 46 3d 31 0d 00 28 06 20 ed 0d 00 32 10 20 |. F=1..(. ...2. | 00000050 e7 20 46 3d 31 20 8c 20 ed 3a e0 0d 00 3c 0d 20 |. F=1 . .:...<. | 00000060 41 24 3d c3 28 4c 4f 29 0d 00 46 22 20 e7 20 a9 |A$=.(LO)..F" . .| 00000070 28 41 24 29 3c 3e 36 20 8c 20 41 24 3d 22 30 22 |(A$)<>6 . A$="0"| 00000080 2b 41 24 3a e5 20 8d 44 46 40 0d 00 50 14 20 f1 |+A$:. .DF@..P. .| 00000090 3b 41 24 3b 22 20 22 3b 3a 41 3d 41 2b 31 0d 00 |;A$;" ";:A=A+1..| 000000a0 5a 13 20 e7 20 41 3d 31 30 20 8c 20 f1 3a 41 3d |Z. . A=10 . .:A=| 000000b0 30 0d 00 64 08 20 ed 3a e0 0d ff |0..d. .:...| 000000bb
.