00000000: 01 1C 29 1C 01 00 8F 20 40 40 40 40 40 40 40 40 |..).... @@@@@@@@|
00000010: 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 |@@@@@@@@@@@@@@@@|
00000020: 40 40 40 40 40 40 40 40 40 00 51 1C 02 00 8F 20 |@@@@@@@@@.Q.... |
00000030: 40 40 40 20 20 20 20 20 20 20 20 20 20 20 20 20 |@@@ |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 40 | @@|
00000050: 40 00 79 1C 03 00 8F 20 40 40 40 20 20 20 20 50 |@.y.... @@@ P|
00000060: 52 49 4D 5A 41 48 4C 45 4E 42 45 52 45 43 48 4E |RIMZAHLENBERECHN|
00000070: 55 4E 47 20 20 20 40 40 40 00 A1 1C 04 00 8F 20 |UNG @@@...... |
00000080: 40 40 40 20 20 20 20 5B 43 5D 20 31 39 38 36 20 |@@@ [C] 1986 |
00000090: 42 59 20 50 2E 20 4B 4C 45 49 4E 20 20 20 40 40 |BY P. KLEIN @@|
000000A0: 40 00 C9 1C 05 00 8F 20 40 40 40 20 45 49 4E 45 |@...... @@@ EINE|
000000B0: 20 47 45 4E 49 45 53 4F 46 54 20 50 52 4F 44 55 | GENIESOFT PRODU|
000000C0: 4B 54 49 4F 4E 20 40 40 40 00 F1 1C 06 00 8F 20 |KTION @@@...... |
000000D0: 40 40 40 20 20 20 20 20 20 20 20 20 20 20 20 20 |@@@ |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 40 | @@|
000000F0: 40 00 19 1D 07 00 8F 20 40 40 40 40 40 40 40 40 |@...... @@@@@@@@|
00000100: 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 |@@@@@@@@@@@@@@@@|
00000110: 40 40 40 40 40 40 40 40 40 00 42 1D 08 00 8F 20 |@@@@@@@@@.B.... |
00000120: 40 40 40 20 20 20 50 55 42 4C 49 43 20 44 4F 4D |@@@ PUBLIC DOM|
00000130: 41 49 4E 20 53 4F 46 54 57 41 52 45 20 20 20 40 |AIN SOFTWARE @|
00000140: 40 40 00 6B 1D 09 00 8F 20 40 40 40 40 40 40 40 |@@.k.... @@@@@@@|
00000150: 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 |@@@@@@@@@@@@@@@@|
00000160: 40 40 40 40 40 40 40 40 40 40 40 00 84 1D 0A 00 |@@@@@@@@@@@.....|
00000170: 8F 20 2A 2A 2A 20 45 49 4E 4C 45 49 54 55 4E 47 |. *** EINLEITUNG|
00000180: 20 2A 2A 2A 00 9C 1D 0C 00 E8 20 30 3A E7 20 30 | ***...... 0:. 0|
00000190: 2C 31 3A E7 20 34 2C 31 3A 99 3A 99 00 F1 1D 0E |,1:. 4,1:.:.....|
000001A0: 00 99 22 05 20 20 20 20 20 20 20 20 50 52 49 4D |..". PRIM|
000001B0: 5A 41 48 4C 45 4E 42 45 52 45 43 48 4E 55 4E 47 |ZAHLENBERECHNUNG|
000001C0: 22 3A 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |":."============|
000001D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A 99 3A |============":.:|
000001F0: 99 00 48 1E 10 00 99 22 9E 20 44 49 45 53 45 53 |..H....". DIESES|
00000200: 20 50 52 4F 47 52 41 4D 4D 20 42 45 52 45 43 48 | PROGRAMM BERECH|
00000210: 4E 45 54 20 44 49 45 20 50 52 49 4D 2D 22 3A 99 |NET DIE PRIM-":.|
00000220: 22 20 5A 41 48 4C 45 4E 20 45 49 4E 45 53 20 42 |" ZAHLEN EINES B|
00000230: 45 4C 49 45 42 49 47 45 4E 20 49 4E 54 45 52 56 |ELIEBIGEN INTERV|
00000240: 41 4C 4C 53 2E 22 3A 99 00 9D 1E 12 00 99 22 81 |ALLS.":.......".|
00000250: 20 45 53 20 47 45 48 54 20 4E 41 43 48 20 46 4F | ES GEHT NACH FO|
00000260: 4C 47 45 4E 44 45 4D 20 53 59 53 54 45 4D 20 56 |LGENDEM SYSTEM V|
00000270: 4F 52 20 3A 22 3A 99 22 20 B7 B7 B7 B7 B7 B7 B7 |OR :":." .......|
00000280: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000290: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 1D 1F |............"...|
000002A0: 14 00 99 22 20 5A 55 20 50 52 55 45 46 45 4E 20 |..." ZU PRUEFEN |
000002B0: 49 53 54 2C 20 4F 42 20 44 49 45 20 55 4E 47 45 |IST, OB DIE UNGE|
000002C0: 52 41 44 45 20 5A 41 48 4C 22 3A 99 22 20 4E 20 |RADE ZAHL":." N |
000002D0: 50 52 49 4D 54 45 49 4C 45 52 20 5A 57 49 53 43 |PRIMTEILER ZWISC|
000002E0: 48 45 4E 20 33 20 55 4E 44 20 49 4E 54 28 53 51 |HEN 3 UND INT(SQ|
000002F0: 52 22 3A 99 22 20 28 4E 29 29 20 48 41 54 2E 42 |R":." (N)) HAT.B|
00000300: 45 53 49 54 5A 54 20 53 49 45 20 4B 45 49 4E 45 |ESITZT SIE KEINE|
00000310: 2C 20 53 4F 20 49 53 54 20 44 49 45 22 00 98 1F |, SO IST DIE"...|
00000320: 16 00 99 22 20 5A 41 48 4C 20 45 49 4E 45 20 50 |..." ZAHL EINE P|
00000330: 52 49 4D 5A 41 48 4C 2E 44 41 53 20 50 52 4F 47 |RIMZAHL.DAS PROG|
00000340: 52 41 4D 4D 20 48 41 54 22 3A 99 22 20 45 49 4E |RAMM HAT":." EIN|
00000350: 45 20 50 52 49 4D 5A 41 48 4C 45 4E 54 41 42 45 |E PRIMZAHLENTABE|
00000360: 4C 4C 45 2C 20 44 49 45 20 41 4D 20 41 4E 46 41 |LLE, DIE AM ANFA|
00000370: 4E 47 22 3A 99 22 20 4E 55 52 20 44 49 45 20 5A |NG":." NUR DIE Z|
00000380: 41 48 4C 45 4E 20 32 20 55 4E 44 20 33 20 45 4E |AHLEN 2 UND 3 EN|
00000390: 54 48 41 45 4C 54 2E 22 00 23 20 18 00 99 22 20 |THAELT.".# ..." |
000003A0: 57 49 52 44 20 45 49 4E 45 20 4E 45 55 45 20 50 |WIRD EINE NEUE P|
000003B0: 52 49 4D 5A 41 48 4C 20 47 45 46 55 4E 44 45 4E |RIMZAHL GEFUNDEN|
000003C0: 2C 20 53 4F 22 3A 99 22 20 57 49 52 44 20 53 49 |, SO":." WIRD SI|
000003D0: 45 20 41 55 54 4F 4D 41 54 49 53 43 48 20 49 4E |E AUTOMATISCH IN|
000003E0: 20 44 49 45 20 54 41 42 45 4C 4C 45 22 3A 99 22 | DIE TABELLE":."|
000003F0: 20 41 55 46 47 45 4E 4F 4D 4D 45 4E 2E 44 41 53 | AUFGENOMMEN.DAS|
00000400: 20 50 52 4F 47 52 41 4D 4D 20 49 53 54 20 41 4C | PROGRAMM IST AL|
00000410: 53 4F 22 3A 99 22 20 4C 45 52 4E 46 41 45 48 49 |SO":." LERNFAEHI|
00000420: 47 21 22 00 2B 20 1A 00 99 3A 99 00 5A 20 1C 00 |G!".+ ...:..Z ..|
00000430: 99 22 1C 20 3E 3E 3E 3E 3E 20 42 49 54 54 45 20 |.". >>>>> BITTE |
00000440: 45 49 4E 45 20 54 41 53 54 45 20 44 52 55 45 43 |EINE TASTE DRUEC|
00000450: 4B 45 4E 20 3C 3C 3C 3C 3C 22 00 66 20 1E 00 A1 |KEN <<<<<".f ...|
00000460: F9 20 45 49 4E 24 00 6E 20 20 00 E8 20 30 00 74 |. EIN$.n .. 0.t|
00000470: 20 22 00 3A 00 8E 20 24 00 8F 20 2A 2A 2A 20 45 | ".:.. $.. *** E|
00000480: 49 4E 47 41 42 45 54 45 49 4C 20 2A 2A 2A 00 98 |INGABETEIL ***..|
00000490: 20 26 00 99 3A 99 3A 99 00 E5 20 28 00 99 22 99 | &..:.:... (..".|
000004A0: 20 42 49 53 20 5A 55 20 57 45 4C 43 48 45 52 20 | BIS ZU WELCHER |
000004B0: 5A 41 48 4C 20 53 4F 4C 4C 20 44 49 45 20 42 45 |ZAHL SOLL DIE BE|
000004C0: 52 45 43 48 2D 22 3A 99 22 20 4E 55 4E 47 20 47 |RECH-":." NUNG G|
000004D0: 45 48 45 4E 20 28 4D 41 58 20 31 30 30 2E 30 30 |EHEN (MAX 100.00|
000004E0: 30 29 20 3F 22 00 EE 20 2A 00 85 20 45 4E 00 00 |0) ?".. *.. EN..|
000004F0: 21 2C 00 8B 20 45 4E B3 35 20 A7 20 89 20 34 32 |!,.. EN.5 . . 42|
00000500: 00 06 21 2E 00 3A 00 24 21 30 00 8F 20 2A 2A 2A |..!..:.$!0.. ***|
00000510: 20 44 49 4D 45 4E 53 49 4F 4E 49 45 52 55 4E 47 | DIMENSIONIERUNG|
00000520: 20 2A 2A 2A 00 34 21 32 00 86 20 50 5A 28 31 30 | ***.4!2.. PZ(10|
00000530: 30 30 30 29 00 4D 21 34 00 50 5A 28 31 29 B2 32 |000).M!4.PZ(1).2|
00000540: 3A 50 5A 28 32 29 B2 33 3A 41 50 B2 32 00 53 21 |:PZ(2).3:AP.2.S!|
00000550: 36 00 3A 00 73 21 38 00 8F 20 2A 2A 2A 20 53 54 |6.:.s!8.. *** ST|
00000560: 41 52 54 20 44 45 52 20 50 5A 53 55 43 48 45 20 |ART DER PZSUCHE |
00000570: 2A 2A 2A 00 C1 21 3A 00 99 3A 99 3A 99 22 9A 20 |***..!:..:.:.". |
00000580: 50 52 49 4D 5A 41 48 4C 45 4E 20 56 4F 4E 20 31 |PRIMZAHLEN VON 1|
00000590: 20 42 49 53 22 3B 45 4E 3B 22 3A 22 3A 99 22 20 | BIS";EN;":":." |
000005A0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000005B0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 3A 99 22 9E |...........":.".|
000005C0: 22 00 DA 21 3C 00 99 22 20 32 20 22 3B 3A 99 22 |"..!<.." 2 ";:."|
000005D0: 20 33 20 22 3B 3A 5A 41 B2 35 00 E8 21 3E 00 EB | 3 ";:ZA.5..!>..|
000005E0: 20 FC 20 5A 41 B1 45 4E 00 F5 21 40 00 57 55 B2 | . ZA.EN..!@.WU.|
000005F0: BA 28 5A 41 29 00 01 22 42 00 50 54 24 B2 22 4E |.(ZA).."B.PT$."N|
00000600: 22 00 09 22 44 00 49 B2 32 00 24 22 46 00 EB 20 |".."D.I.2.$"F.. |
00000610: FC 20 50 54 24 B2 22 4A 22 20 B0 20 50 5A 28 49 |. PT$."J" . PZ(I|
00000620: 29 B1 57 55 00 49 22 48 00 8B 20 5A 41 AD 50 5A |).WU.I"H.. ZA.PZ|
00000630: 28 49 29 B2 B5 28 5A 41 AD 50 5A 28 49 29 29 20 |(I)..(ZA.PZ(I)) |
00000640: A7 20 50 54 24 B2 22 4A 22 00 53 22 4A 00 49 B2 |. PT$."J".S"J.I.|
00000650: 49 AA 31 00 59 22 4C 00 EC 00 85 22 4E 00 8B 20 |I.1.Y"L...."N.. |
00000660: 50 54 24 B2 22 4E 22 20 A7 20 41 50 B2 41 50 AA |PT$."N" . AP.AP.|
00000670: 31 3A 50 5A 28 41 50 29 B2 5A 41 3A 99 20 5A 41 |1:PZ(AP).ZA:. ZA|
00000680: 3B 22 20 22 3B 00 91 22 50 00 5A 41 B2 5A 41 AA |;" ";.."P.ZA.ZA.|
00000690: 32 00 97 22 52 00 EC 00 E0 22 54 00 99 3A 99 3A |2.."R...."T..:.:|
000006A0: 99 22 9A 20 41 4E 5A 41 48 4C 20 44 45 52 20 50 |.". ANZAHL DER P|
000006B0: 52 49 4D 5A 41 48 4C 45 4E 20 3A 22 3B 22 99 22 |RIMZAHLEN :";"."|
000006C0: 3B 41 50 3A 99 22 9A 20 B7 B7 B7 B7 B7 B7 B7 B7 |;AP:.". ........|
000006D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 |..............."|
000006E0: 00 E6 22 56 00 80 00 00 00 |.."V..... |
..).... @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@.Q.... @@@ @@
@.Y.... @@@ PRIMZAHLENBERECHNUNG @@
@...... @@@ [C] 1986 BY P. KLEIN @@
@.I.... @@@ EINE GENIESOFT PRODUKTION @@
@...... @@@ @@
@...... @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@.B.... @@@ PUBLIC DOMAIN SOFTWARE @
@@.K.... @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@...... *** EINLEITUNG ***...... 0:. 0
,1:. 4,1:.:.......". PRIMZAHLENBE
RECHNUNG":."============================
============":.:..H....". DIESES PROGRAM
M BERECHNET DIE PRIM-":." ZAHLEN EINES B
ELIEBIGEN INTERVALLS.":.......". ES GEHT
NACH FOLGENDEM SYSTEM VOR :":." .......
............................"......" ZU
PRUEFEN IST, OB DIE UNGERADE ZAHL":." N
PRIMTEILER ZWISCHEN 3 UND INT(SQR":." (N
)) HAT.BESITZT SIE KEINE, SO IST DIE"...
..." ZAHL EINE PRIMZAHL.DAS PROGRAMM HAT
":." EINE PRIMZAHLENTABELLE, DIE AM ANFA
NG":." NUR DIE ZAHLEN 2 UND 3 ENTHAELT."
.# ..." WIRD EINE NEUE PRIMZAHL GEFUNDEN
, SO":." WIRD SIE AUTOMATISCH IN DIE TAB
ELLE":." AUFGENOMMEN.DAS PROGRAMM IST AL
SO":." LERNFAEHIG!".+ ...:..Z ...". >>>>
> BITTE EINE TASTE DRUECKEN <<<<<".F ...
. EIN$.N .. 0.T ".:.. $.. *** EINGABETE
IL ***.. &..:.:... (..". BIS ZU WELCHER
ZAHL SOLL DIE BERECH-":." NUNG GEHEN (MA
X 100.000) ?".. *.. EN..!,.. EN.5 . . 42
..!..:.$!0.. *** DIMENSIONIERUNG ***.4!2
.. PZ(10000).M!4.PZ(1).2:PZ(2).3:AP.2.S!
6.:.S!8.. *** START DER PZSUCHE ***.A!:.
.:.:.". PRIMZAHLEN VON 1 BIS";EN;":":."
...........................":.".".Z!<.."
2 ";:." 3 ";:ZA.5..!>.. . ZA.EN..!@.WU.
.(ZA).."B.PT$."N".."D.I.2.$"F.. . PT$."J
" . PZ(I).WU.I"H.. ZA.PZ(I)..(ZA.PZ(I))
. PT$."J".S"J.I.I.1.Y"L...."N.. PT$."N"
. AP.AP.1:PZ(AP).ZA:. ZA;" ";.."P.ZA.ZA.
2.."R...."T..:.:.". ANZAHL DER PRIMZAHLE
N :";".";AP:.". ......................."
.."V.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL