Home » Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TAPE3/A/FACTORS
TAPE3/A/FACTORS
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 » Electron » Finished_programs.ADF |
| Filename: | TAPE3/A/FACTORS |
| Read OK: | ✔ |
| File size: | 00B4 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » TAPE3/A/FACTORS
- Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TAPE3/A/FACTORS
- Personal collection » Acorn hard disk » zipped_disks » elk03 » finished/TAPE3/A/FACTORS
- Personal collection » Acorn tapes » Own_Work » box02_tape03a_c15_acorn_maths.wav » FACTORS
File contents
10 A=2 20 A$=GET$:B=2 30 C%=0 40 PRINT'';A" - "; 50 IF A MOD B=0 PRINT ;B", ";:C%=1 60 IF B>SQR(A) AND C%=0 THEN 90 70 IF B>A/2 THEN A=A+1:GOTO 20 80 B=B+1:GOTO 50 90 PRINT"P R I M E";:A=A+1:GOTO 20
A=2 A$=�:B=2 C%=0 ( �'';A" - "; 2 � A � B=0 � ;B", ";:C%=1 < � B>�(A) � C%=0 � �DZ@ F � B>A/2 � A=A+1:� �TT@ P B=B+1:� �Tr@ Z �"P R I M E";:A=A+1:� �TT@ �
00000000 0d 00 0a 08 20 41 3d 32 0d 00 14 0d 20 41 24 3d |.... A=2.... A$=| 00000010 be 3a 42 3d 32 0d 00 1e 09 20 43 25 3d 30 0d 00 |.:B=2.... C%=0..| 00000020 28 11 20 f1 27 27 3b 41 22 20 2d 20 20 22 3b 0d |(. .'';A" - ";.| 00000030 00 32 1d 20 e7 20 41 20 83 20 42 3d 30 20 f1 20 |.2. . A . B=0 . | 00000040 3b 42 22 2c 20 22 3b 3a 43 25 3d 31 0d 00 3c 1b |;B", ";:C%=1..<.| 00000050 20 e7 20 42 3e b6 28 41 29 20 80 20 43 25 3d 30 | . B>.(A) . C%=0| 00000060 20 8c 20 8d 44 5a 40 0d 00 46 1b 20 e7 20 42 3e | . .DZ@..F. . B>| 00000070 41 2f 32 20 8c 20 41 3d 41 2b 31 3a e5 20 8d 54 |A/2 . A=A+1:. .T| 00000080 54 40 0d 00 50 11 20 42 3d 42 2b 31 3a e5 20 8d |T@..P. B=B+1:. .| 00000090 54 72 40 0d 00 5a 1f 20 f1 22 50 20 52 20 49 20 |Tr@..Z. ."P R I | 000000a0 4d 20 45 22 3b 3a 41 3d 41 2b 31 3a e5 20 8d 54 |M E";:A=A+1:. .T| 000000b0 54 40 0d ff |T@..| 000000b4
.