PRIM-FAK-ZERLEG.
FILE INFORMATION
FILENAME(S): PRIM-FAK-ZERLEG.
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-02 16:57:23
APPEARS ON: 2 disk(s)
FILE HASH
e380da500b84eae5870b103c31d79d4f8e0c0874295cbcf39e1ce21889c488c4
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TIGERDISK 24 | PRIM-FAK-ZERLEG. | PRG | Treasure Chest - Romfreak | 19 | 0 | DOWNLOAD FILE |
| TIGERDISK NUMMER | PRIM-FAK-ZERLEG. | PRG | Xii | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 97 35 33 32 37 32 2C 32 33 3A |..)....53272,23:|
00000010: 97 35 33 32 38 30 2C 36 3A 99 22 93 05 22 3B 3A |.53280,6:."..";:|
00000020: 97 35 33 32 36 35 2C 31 31 00 4E 08 02 00 99 22 |.53265,11.N...."|
00000030: D0 52 4F 47 52 41 4D 4D 3A 20 50 52 49 4D 2D 46 |.ROGRAMM: PRIM-F|
00000040: 41 4B 2D 5A 45 52 4C 45 47 22 3A 8D 34 37 00 7B |AK-ZERLEG":.47.{|
00000050: 08 03 00 99 22 C6 55 4E 4B 54 49 4F 4E 3A 20 D0 |....".UNKTION: .|
00000060: 52 4F 47 52 41 4D 4D 20 5A 45 52 4C 45 47 54 20 |ROGRAMM ZERLEGT |
00000070: 44 49 45 20 45 49 4E 47 45 2D 22 00 A6 08 04 00 |DIE EINGE-".....|
00000080: 99 22 20 20 20 20 20 20 20 20 20 20 47 45 42 45 |." GEBE|
00000090: 4E 45 20 DA 41 48 4C 20 49 4E 20 49 48 52 45 20 |NE .AHL IN IHRE |
000000A0: D0 52 49 4D 2D 22 00 C5 08 05 00 99 22 20 20 20 |.RIM-"......" |
000000B0: 20 20 20 20 20 20 20 46 41 4B 54 4F 52 45 4E 2E | FAKTOREN.|
000000C0: 22 3A 8D 34 37 00 F4 08 06 00 99 22 C5 49 4E 47 |":.47......".ING|
000000D0: 41 42 45 3A 20 20 4E 2C 20 44 49 45 20 5A 55 20 |ABE: N, DIE ZU |
000000E0: 5A 45 52 4C 45 47 45 4E 44 45 20 DA 41 48 4C 22 |ZERLEGENDE .AHL"|
000000F0: 3A 8D 34 37 00 16 09 07 00 99 22 C1 55 53 47 41 |:.47......".USGA|
00000100: 42 45 3A 20 20 D0 52 49 4D 46 41 4B 54 4F 52 45 |BE: .RIMFAKTORE|
00000110: 4E 22 3A 8D 34 37 00 28 09 08 00 99 22 C2 45 49 |N":.47.(....".EI|
00000120: 53 50 49 45 4C 3A 11 22 00 54 09 09 00 99 22 31 |SPIEL:.".T...."1|
00000130: 38 30 20 3D 20 32 20 5E 20 32 20 2A 20 33 20 5E |80 = 2 ^ 2 * 3 ^|
00000140: 20 32 20 2A 20 35 11 11 11 11 11 11 11 11 11 22 | 2 * 5........."|
00000150: 3A 8D 34 37 00 85 09 0A 00 99 22 C2 49 54 54 45 |:.47......".ITTE|
00000160: 20 44 52 55 45 43 4B 45 4E 20 D3 49 45 20 45 49 | DRUECKEN .IE EI|
00000170: 4E 45 20 D4 41 53 54 45 21 22 3B 3A 97 35 33 32 |NE .ASTE!";:.532|
00000180: 36 35 2C 32 37 00 97 09 0B 00 A1 41 24 3A 8B 41 |65,27......A$:.A|
00000190: 24 B2 22 22 A7 31 31 00 B3 09 0C 00 86 54 28 31 |$."".11......T(1|
000001A0: 30 30 29 2C 41 54 28 31 30 30 29 2C 41 41 28 31 |00),AT(100),AA(1|
000001B0: 30 30 29 00 D2 09 0D 00 99 22 93 C2 49 54 54 45 |00)......"..ITTE|
000001C0: 20 47 45 42 45 4E 20 D3 49 45 20 45 49 4E 3A 11 | GEBEN .IE EIN:.|
000001D0: 11 22 00 E9 09 0E 00 85 22 4E 20 3D 20 22 3B 4E |."......"N = ";N|
000001E0: 24 3A 4E B2 C5 28 4E 24 29 00 F1 09 0F 00 48 B2 |$:N..(N$).....H.|
000001F0: 4E 00 0C 0A 10 00 99 22 11 11 C2 49 54 54 45 20 |N......"...ITTE |
00000200: 57 41 52 54 45 4E 21 11 11 11 11 22 00 1D 0A 11 |WARTEN!...."....|
00000210: 00 8B 4E B3 B1 B5 28 4E 29 A7 8D 36 30 00 25 0A |..N...(N)..60.%.|
00000220: 12 00 48 B2 4E 00 57 0A 13 00 8B 4E B3 B2 30 A7 |..H.N.W....N..0.|
00000230: 99 22 CE 20 4D 55 53 53 20 47 52 4F 45 53 53 45 |.". MUSS GROESSE|
00000240: 52 20 41 4C 53 20 CE 55 4C 4C 20 53 45 49 4E 21 |R ALS .ULL SEIN!|
00000250: 22 3A 99 3A 89 31 33 00 68 0A 14 00 8B 4E B3 34 |":.:.13.h....N.4|
00000260: A7 49 B2 30 3A 89 32 38 00 7C 0A 15 00 49 B2 30 |.I.0:.28.|...I.0|
00000270: 3A 54 B2 32 3A 8D 34 38 3A 54 B2 33 00 84 0A 16 |:T.2:.48:T.3....|
00000280: 00 8D 34 38 00 8E 0A 17 00 54 B2 54 AA 32 00 A1 |..48.....T.T.2..|
00000290: 0A 18 00 8B 54 B3 28 BA 28 4E 29 AA 31 29 A7 32 |....T.(.(N).1).2|
000002A0: 32 00 AD 0A 19 00 8B 4E B2 31 A7 32 38 00 B9 0A |2......N.1.28...|
000002B0: 1A 00 8B 4E B2 48 A7 32 38 00 CA 0A 1B 00 49 B2 |...N.H.28.....I.|
000002C0: 49 AA 31 3A 54 28 49 29 B2 4E 00 D7 0A 1C 00 8B |I.1:T(I).N......|
000002D0: 49 B3 B1 30 A7 33 30 00 07 0B 1D 00 99 22 9D 22 |I..0.30......"."|
000002E0: 3B 48 3B 22 49 53 54 20 45 49 4E 45 20 D0 52 49 |;H;"IST EINE .RI|
000002F0: 4D 5A 41 48 4C 2E 11 11 11 11 11 11 11 11 22 3A |MZAHL.........":|
00000300: 8D 35 30 3A 89 31 33 00 1E 0B 1E 00 49 4D 41 58 |.50:.13.....IMAX|
00000310: B2 49 3A 54 28 49 4D 41 58 AA 31 29 B2 30 00 2A |.I:T(IMAX.1).0.*|
00000320: 0B 1F 00 4A B2 31 3A 49 B2 31 00 41 0B 20 00 41 |...J.1:I.1.A. .A|
00000330: 54 28 4A 29 B2 54 28 49 29 3A 41 41 28 4A 29 B2 |T(J).T(I):AA(J).|
00000340: 31 00 50 0B 21 00 8B 49 B2 49 4D 41 58 A7 33 36 |1.P.!..I.IMAX.36|
00000350: 00 79 0B 22 00 8B 54 28 49 29 B2 54 28 49 AA 31 |.y."..T(I).T(I.1|
00000360: 29 A7 41 41 28 4A 29 B2 41 41 28 4A 29 AA 31 3A |).AA(J).AA(J).1:|
00000370: 49 B2 49 AA 31 3A 89 33 33 00 8D 0B 23 00 4A B2 |I.I.1:.33...#.J.|
00000380: 4A AA 31 3A 49 B2 49 AA 31 3A 89 33 32 00 95 0B |J.1:I.I.1:.32...|
00000390: 24 00 4E B2 31 00 B2 0B 25 00 81 58 B2 31 A4 4A |$.N.1...%..X.1.J|
000003A0: 3A 4E B2 4E AC 41 54 28 58 29 AE 41 41 28 58 29 |:N.N.AT(X).AA(X)|
000003B0: 3A 82 00 C4 0B 26 00 8B B5 28 48 29 B2 B5 28 4E |:....&...(H)..(N|
000003C0: 29 A7 34 31 00 EF 0B 27 00 99 22 D0 52 4F 47 52 |).41...'..".ROGR|
000003D0: 41 4D 4D 20 4C 49 45 46 45 52 54 20 46 41 4C 53 |AMM LIEFERT FALS|
000003E0: 43 48 45 20 DA 45 52 4C 45 47 55 4E 47 21 22 00 |CHE .ERLEGUNG!".|
000003F0: 0F 0C 28 00 99 22 C1 4C 47 4F 52 49 54 48 4D 55 |..(..".LGORITHMU|
00000400: 53 20 50 52 55 45 46 45 4E 21 21 21 11 11 22 00 |S PRUEFEN!!!..".|
00000410: 1F 0C 29 00 99 22 9D 22 3B 48 3B 22 3D 22 3B 00 |..)..".";H;"=";.|
00000420: 27 0C 2A 00 58 B2 31 00 33 0C 2B 00 99 41 54 28 |'.*.X.1.3.+..AT(|
00000430: 58 29 3B 00 4C 0C 2C 00 8B 41 41 28 58 29 B1 31 |X);.L.,..AA(X).1|
00000440: A7 99 22 5E 22 3B 41 41 28 58 29 3B 00 65 0C 2D |.."^";AA(X);.e.-|
00000450: 00 8B 58 B3 4A A7 99 22 2A 22 3B 3A 58 B2 58 AA |..X.J.."*";:X.X.|
00000460: 31 3A 89 34 33 00 7A 0C 2E 00 99 22 11 11 11 11 |1:.43.z...."....|
00000470: 11 22 3A 8D 35 30 3A 89 31 33 00 90 0C 2F 00 81 |.":.50:.13.../..|
00000480: 58 B2 31 A4 34 30 3A 99 22 2D 22 3B 3A 82 3A 8E |X.1.40:."-";:.:.|
00000490: 00 A5 0C 30 00 8B 28 4E AD 54 29 B3 B1 B5 28 4E |...0..(N.T)...(N|
000004A0: AD 54 29 A7 8E 00 C0 0C 31 00 49 B2 49 AA 31 3A |.T).....1.I.I.1:|
000004B0: 54 28 49 29 B2 54 3A 4E B2 4E AD 54 3A 89 34 38 |T(I).T:N.N.T:.48|
000004C0: 00 C8 0C 32 00 8D 34 37 00 F6 0C 33 00 99 22 D7 |...2..47...3..".|
000004D0: 4F 4C 4C 45 4E 20 D3 49 45 20 45 49 4E 45 20 57 |OLLEN .IE EINE W|
000004E0: 45 49 54 45 52 45 20 DA 41 48 4C 20 5A 45 52 4C |EITERE .AHL ZERL|
000004F0: 45 47 45 4E 3F 22 00 24 0D 34 00 99 22 D7 45 4E |EGEN?".$.4..".EN|
00000500: 4E 20 4E 45 49 4E 2C 20 44 52 55 45 43 4B 45 4E |N NEIN, DRUECKEN|
00000510: 20 D3 49 45 20 27 CE 27 2C 20 41 4E 53 4F 4E 53 | .IE '.', ANSONS|
00000520: 54 45 4E 22 00 49 0D 35 00 99 22 45 49 4E 45 20 |TEN".I.5.."EINE |
00000530: 42 45 4C 49 45 42 49 47 45 20 41 4E 44 45 52 45 |BELIEBIGE ANDERE|
00000540: 20 D4 41 53 54 45 21 22 3B 00 5B 0D 36 00 A1 41 | .ASTE!";.[.6..A|
00000550: 24 3A 8B 41 24 B2 22 22 A7 35 34 00 6A 0D 37 00 |$:.A$."".54.j.7.|
00000560: 8B 41 24 B2 22 4E 22 A7 35 37 00 74 0D 38 00 4E |.A$."N".57.t.8.N|
00000570: B2 30 3A 8E 00 88 0D 39 00 97 35 33 32 38 30 2C |.0:....9..53280,|
00000580: 31 34 3A 99 22 93 22 3B 00 B5 0D 3A 00 99 22 11 |14:.".";...:..".|
00000590: D0 52 4F 47 52 41 4D 4D 20 27 50 52 49 4D 2D 46 |.ROGRAMM 'PRIM-F|
000005A0: 41 4B 2D 5A 45 52 4C 45 47 27 20 57 55 52 44 45 |AK-ZERLEG' WURDE|
000005B0: 20 41 55 46 22 00 DD 0D 3B 00 99 22 C9 48 52 45 | AUF"...;..".HRE|
000005C0: 4E 20 D7 55 4E 53 43 48 20 41 42 47 45 42 52 4F |N .UNSCH ABGEBRO|
000005D0: 43 48 45 4E 21 11 11 11 11 11 22 3A 80 00 EC 0D |CHEN!.....":....|
000005E0: 3C 00 4E B2 B5 28 4E 29 3A 48 B2 4E 00 1E 0E 3D |<.N..(N):H.N...=|
000005F0: 00 99 22 CE 20 57 55 52 44 45 20 49 4E 20 45 49 |..". WURDE IN EI|
00000600: 4E 45 20 47 41 4E 5A 45 20 DA 41 48 4C 20 56 45 |NE GANZE .AHL VE|
00000610: 52 57 41 4E 44 45 4C 54 21 11 11 22 3A 8E 00 00 |RWANDELT!..":...|
00000620: 00 |. |
..)....53272,23:.53280,6:."..";:.53265,1
1.N...."PROGRAMM: PRIM-FAK-ZERLEG":.47.{
...."FUNKTION: PROGRAMM ZERLEGT DIE EING
E-"......" GEBENE ZAHL IN IHRE
PRIM-".E...." FAKTOREN.":.47...
..."EINGABE: N, DIE ZU ZERLEGENDE ZAHL"
:.47......"AUSGABE: PRIMFAKTOREN":.47.(
...."BEISPIEL:.".T...."180 = 2 ^ 2 * 3 ^
2 * 5.........":.47......"BITTE DRUECKE
N SIE EINE TASTE!";:.53265,27......A$:.A
$."".11......T(100),AT(100),AA(100).R...
.".BITTE GEBEN SIE EIN:.."......"N = ";N
$:N.E(N$).....H.N......"..BITTE WARTEN!.
..."......N...(N)..60.%...H.N.W....N..0.
."N MUSS GROESSER ALS NULL SEIN!":.:.13.
H....N.4.I.0:.28.|...I.0:T.2:.48:T.3....
..48.....T.T.2......T.(.(N).1).22......N
.1.28......N.H.28.J...I.I.1:T(I).N.W....
I..0.30......".";H;"IST EINE PRIMZAHL...
......":.50:.13.....IMAX.I:T(IMAX.1).0.*
...J.1:I.1.A. .AT(J).T(I):AA(J).1.P.!..I
.IMAX.36.Y."..T(I).T(I.1).AA(J).AA(J).1:
I.I.1:.33...#.J.J.1:I.I.1:.32...$.N.1...
%..X.1.J:N.N.AT(X).AA(X):..D.&...(H)..(N
).41...'.."PROGRAMM LIEFERT FALSCHE ZERL
EGUNG!"...(.."ALGORITHMUS PRUEFEN!!!..".
..)..".";H;"=";.'.*.X.1.3.+..AT(X);.L.,.
.AA(X).1.."^";AA(X);.E.-..X.J.."*";:X.X.
1:.43.Z....".....":.50:.13.../..X.1.40:.
"-";:.:....0..(N.T)...(N.T).....1.I.I.1:
T(I).T:N.N.T:.48.H.2..47...3.."WOLLEN SI
E EINE WEITERE ZAHL ZERLEGEN?".$.4.."WEN
N NEIN, DRUECKEN SIE 'N', ANSONSTEN".I.5
.."EINE BELIEBIGE ANDERE TASTE!";.[.6..A
$:.A$."".54.J.7..A$."N".57.T.8.N.0:....9
..53280,14:.".";...:..".PROGRAMM 'PRIM-F
AK-ZERLEG' WURDE AUF"...;.."IHREN WUNSCH
ABGEBROCHEN!.....":....<.N..(N):H.N...=
.."N WURDE IN EINE GANZE ZAHL VERWANDELT
!..":....
> CLICK IMAGE PREVIEW FOR FULL MODAL