SEITE.86.LOGO

FILE INFORMATION

FILENAME(S): SEITE.86.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-10-20 14:37:14

APPEARS ON: 1 disk(s)

FILE HASH

c874071424472afcf88df4e19bf40178c507d9bbac0c8cd49fa4452c32b8da54

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BUCH	SEITE.86.LOGO	PRG	Treasure Chest - LehrerMIL	15	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 50 52 20 44 41 54  45 49 2E 48 4F 4C 45 4E  |. PR DATEI.HOLEN|
00000010: 0D 20 53 45 54 5A 45 20  22 44 41 54 45 49 20 5B  |. SETZE "DATEI [|
00000020: 5B 52 49 45 53 45 20 41  44 41 4D 20 31 35 30 30  |[RIESE ADAM 1500|
00000030: 5D 20 5B 53 43 48 49 43  4B 41 52 44 20 57 49 4C  |] [SCHICKARD WIL|
00000040: 48 45 4C 4D 20 31 35 39  32 5D 20 5B 50 41 53 43  |HELM 1592] [PASC|
00000050: 41 4C 20 42 4C 41 49 53  45 20 31 36 32 33 5D 5D  |AL BLAISE 1623]]|
00000060: 0D 45 4E 44 45 0D 50 52  20 50 45 52 53 4F 4E 45  |.ENDE.PR PERSONE|
00000070: 4E 41 55 53 4B 55 4E 46  54 0D 20 44 41 54 45 49  |NAUSKUNFT. DATEI|
00000080: 2E 48 4F 4C 45 4E 0D 20  41 52 42 45 49 54 45 4E  |.HOLEN. ARBEITEN|
00000090: 0D 45 4E 44 45 0D 50 52  20 57 41 48 4C 0D 20 53  |.ENDE.PR WAHL. S|
000000A0: 45 54 5A 45 20 22 45 49  4E 20 4C 49 45 53 4C 49  |ETZE "EIN LIESLI|
000000B0: 53 54 45 0D 20 57 45 4E  4E 20 3A 45 49 4E 20 3D  |STE. WENN :EIN =|
000000C0: 20 5B 5D 20 44 41 4E 4E  20 57 41 48 4C 0D 20 53  | [] DANN WAHL. S|
000000D0: 45 54 5A 45 20 22 4E 52  20 45 52 53 54 45 53 20  |ETZE "NR ERSTES |
000000E0: 3A 45 49 4E 0D 20 57 45  4E 4E 20 4E 49 43 48 54  |:EIN. WENN NICHT|
000000F0: 3F 20 45 4C 3F 20 3A 4E  52 20 5B 31 20 32 20 33  |? EL? :NR [1 2 3|
00000100: 20 34 20 35 5D 20 57 41  48 4C 0D 45 4E 44 45 0D  | 4 5] WAHL.ENDE.|
00000110: 50 52 20 41 4E 47 45 42  4F 54 0D 20 4C 53 0D 20  |PR ANGEBOT. LS. |
00000120: 44 5A 20 5B 4D 45 49 4E  20 41 4E 47 45 42 4F 54  |DZ [MEIN ANGEBOT|
00000130: 5D 20 44 5A 20 5B 5D 0D  20 44 5A 20 5B 31 20 41  |] DZ []. DZ [1 A|
00000140: 4C 4C 45 20 50 45 52 53  4F 4E 45 4E 2D 44 41 54  |LLE PERSONEN-DAT|
00000150: 45 4E 20 41 55 53 47 45  42 45 4E 5D 0D 20 44 5A  |EN AUSGEBEN]. DZ|
00000160: 20 5B 32 20 53 55 43 48  45 20 41 4C 4C 45 20 4D  | [2 SUCHE ALLE M|
00000170: 49 54 20 4E 41 43 48 4E  41 4D 45 4E 5D 0D 20 44  |IT NACHNAMEN]. D|
00000180: 5A 20 5B 33 20 53 55 43  48 45 20 41 4C 4C 45 20  |Z [3 SUCHE ALLE |
00000190: 4D 49 54 20 56 4F 52 4E  41 4D 45 4E 5D 0D 20 44  |MIT VORNAMEN]. D|
000001A0: 5A 20 5B 34 20 53 55 43  48 45 20 41 4C 4C 45 20  |Z [4 SUCHE ALLE |
000001B0: 4D 49 54 20 47 45 42 55  52 54 53 4A 41 48 52 5D  |MIT GEBURTSJAHR]|
000001C0: 0D 20 44 5A 20 5B 35 20  42 45 45 4E 44 45 4E 5D  |. DZ [5 BEENDEN]|
000001D0: 0D 20 44 5A 20 5B 5D 20  44 5A 20 5B 42 49 54 54  |. DZ [] DZ [BITT|
000001E0: 45 20 57 41 45 48 4C 45  4E 20 31 2C 32 2C 33 2C  |E WAEHLEN 1,2,3,|
000001F0: 34 20 4F 44 45 52 20 35  5D 0D 45 4E 44 45 0D 50  |4 ODER 5].ENDE.P|
00000200: 52 20 41 52 42 45 49 54  45 4E 0D 20 41 4E 47 45  |R ARBEITEN. ANGE|
00000210: 42 4F 54 20 57 41 48 4C  20 41 55 53 46 55 45 48  |BOT WAHL AUSFUEH|
00000220: 52 55 4E 47 0D 45 4E 44  45 0D 50 52 20 41 55 53  |RUNG.ENDE.PR AUS|
00000230: 46 55 45 48 52 55 4E 47  0D 20 57 45 4E 4E 20 3A  |FUEHRUNG. WENN :|
00000240: 4E 52 20 3D 20 31 20 44  41 4E 4E 20 41 4C 4C 45  |NR = 1 DANN ALLE|
00000250: 53 2E 49 4E 20 3A 44 41  54 45 49 0D 20 57 45 4E  |S.IN :DATEI. WEN|
00000260: 4E 20 3A 4E 52 20 3D 20  32 20 44 41 4E 4E 20 4E  |N :NR = 2 DANN N|
00000270: 4E 2E 53 55 43 48 45 4E  20 3A 44 41 54 45 49 0D  |N.SUCHEN :DATEI.|
00000280: 20 57 45 4E 4E 20 3A 4E  52 20 3D 20 33 20 44 41  | WENN :NR = 3 DA|
00000290: 4E 4E 20 56 4E 2E 53 55  43 48 45 4E 20 3A 44 41  |NN VN.SUCHEN :DA|
000002A0: 54 45 49 0D 20 57 45 4E  4E 20 3A 4E 52 20 3D 20  |TEI. WENN :NR = |
000002B0: 34 20 44 41 4E 4E 20 47  45 42 2E 53 55 43 48 45  |4 DANN GEB.SUCHE|
000002C0: 4E 20 3A 44 41 54 45 49  0D 20 57 45 4E 4E 20 3A  |N :DATEI. WENN :|
000002D0: 4E 52 20 3D 20 35 20 44  41 4E 4E 20 4C 53 20 52  |NR = 5 DANN LS R|
000002E0: 55 45 43 4B 4B 45 48 52  0D 20 44 5A 20 5B 5D 20  |UECKKEHR. DZ [] |
000002F0: 44 5A 20 5B 4E 45 55 45  53 20 41 4E 47 45 42 4F  |DZ [NEUES ANGEBO|
00000300: 54 3F 20 4A 2F 4E 20 45  49 4E 47 45 42 45 4E 5D  |T? J/N EINGEBEN]|
00000310: 0D 20 57 45 4E 4E 20 4C  4C 20 3D 20 5B 4A 5D 20  |. WENN LL = [J] |
00000320: 44 41 4E 4E 20 41 52 42  45 49 54 45 4E 0D 45 4E  |DANN ARBEITEN.EN|
00000330: 44 45 0D 50 52 20 47 45  42 2E 53 55 43 48 45 4E  |DE.PR GEB.SUCHEN|
00000340: 20 3A 44 41 54 45 49 0D  20 4C 53 20 44 5A 20 5B  | :DATEI. LS DZ [|
00000350: 57 45 4C 43 48 45 53 20  47 45 42 55 52 54 53 4A  |WELCHES GEBURTSJ|
00000360: 41 48 52 20 53 55 43 48  45 4E 3F 5D 0D 20 53 55  |AHR SUCHEN?]. SU|
00000370: 43 48 45 20 28 20 45 52  53 54 45 53 20 4C 4C 20  |CHE ( ERSTES LL |
00000380: 29 20 33 20 3A 44 41 54  45 49 0D 45 4E 44 45 0D  |) 3 :DATEI.ENDE.|
00000390: 50 52 20 56 4E 2E 53 55  43 48 45 4E 20 3A 44 41  |PR VN.SUCHEN :DA|
000003A0: 54 45 49 0D 20 4C 53 20  44 5A 20 5B 57 45 4C 43  |TEI. LS DZ [WELC|
000003B0: 48 45 4E 20 56 4F 52 4E  41 4D 45 4E 20 53 55 43  |HEN VORNAMEN SUC|
000003C0: 48 45 4E 3F 5D 0D 20 53  55 43 48 45 20 28 20 45  |HEN?]. SUCHE ( E|
000003D0: 52 53 54 45 53 20 4C 4C  20 29 20 32 20 3A 44 41  |RSTES LL ) 2 :DA|
000003E0: 54 45 49 0D 45 4E 44 45  0D 50 52 20 53 55 43 48  |TEI.ENDE.PR SUCH|
000003F0: 45 20 3A 45 54 57 41 53  20 3A 49 20 3A 44 41 54  |E :ETWAS :I :DAT|
00000400: 45 49 0D 20 50 52 55 45  46 45 20 3A 44 41 54 45  |EI. PRUEFE :DATE|
00000410: 49 20 3D 20 5B 5D 0D 20  57 57 20 44 5A 20 5B 5D  |I = []. WW DZ []|
00000420: 20 28 20 44 5A 20 5B 4B  45 49 4E 20 2E 2E 2E 5D  | ( DZ [KEIN ...]|
00000430: 20 3A 45 54 57 41 53 20  29 0D 20 57 57 20 28 20  | :ETWAS ). WW ( |
00000440: 44 5A 20 5B 28 4D 45 48  52 29 20 49 4E 20 44 45  |DZ [(MEHR) IN DE|
00000450: 52 20 44 41 54 45 49 5D  20 29 20 52 4B 0D 20 50  |R DATEI] ) RK. P|
00000460: 52 55 45 46 45 20 3A 45  54 57 41 53 20 3D 20 45  |RUEFE :ETWAS = E|
00000470: 4C 20 3A 49 20 28 20 45  52 20 3A 44 41 54 45 49  |L :I ( ER :DATEI|
00000480: 20 29 0D 20 57 57 20 44  5A 20 5B 5D 20 44 5A 20  | ). WW DZ [] DZ |
00000490: 45 52 53 54 45 53 20 3A  44 41 54 45 49 0D 20 53  |ERSTES :DATEI. S|
000004A0: 55 43 48 45 20 3A 45 54  57 41 53 20 3A 49 20 28  |UCHE :ETWAS :I (|
000004B0: 20 4F 48 4E 45 45 52 53  54 45 53 20 3A 44 41 54  | OHNEERSTES :DAT|
000004C0: 45 49 20 29 0D 45 4E 44  45 0D 50 52 20 4E 4E 2E  |EI ).ENDE.PR NN.|
000004D0: 53 55 43 48 45 4E 20 3A  44 41 54 45 49 0D 20 4C  |SUCHEN :DATEI. L|
000004E0: 53 20 44 5A 20 5B 57 45  4C 43 48 45 4E 20 4E 41  |S DZ [WELCHEN NA|
000004F0: 4D 45 4E 20 53 55 43 48  45 4E 3F 5D 0D 20 53 55  |MEN SUCHEN?]. SU|
00000500: 43 48 45 20 28 20 45 52  53 54 45 53 20 4C 4C 20  |CHE ( ERSTES LL |
00000510: 29 20 31 20 3A 44 41 54  45 49 0D 45 4E 44 45 0D  |) 1 :DATEI.ENDE.|
00000520: 50 52 20 41 4C 4C 45 53  2E 49 4E 20 3A 44 41 54  |PR ALLES.IN :DAT|
00000530: 45 49 0D 20 57 45 4E 4E  20 3A 44 41 54 45 49 20  |EI. WENN :DATEI |
00000540: 3D 20 5B 5D 20 52 4B 0D  20 44 5A 20 45 52 53 54  |= [] RK. DZ ERST|
00000550: 45 53 20 3A 44 41 54 45  49 0D 20 41 4C 4C 45 53  |ES :DATEI. ALLES|
00000560: 2E 49 4E 20 4F 48 4E 45  45 52 53 54 45 53 20 3A  |.IN OHNEERSTES :|
00000570: 44 41 54 45 49 0D 45 4E  44 45 0D                 |DATEI.ENDE.     |

. PR DATEI.HOLEN. SETZE "DATEI [[RIESE A
DAM 1500] [SCHICKARD WILHELM 1592] [PASC
AL BLAISE 1623]].ENDE.PR PERSONENAUSKUNF
T. DATEI.HOLEN. ARBEITEN.ENDE.PR WAHL. S
ETZE "EIN LIESLISTE. WENN :EIN = [] DANN
 WAHL. SETZE "NR ERSTES :EIN. WENN NICHT
? EL? :NR [1 2 3 4 5] WAHL.ENDE.PR ANGEB
OT. LS. DZ [MEIN ANGEBOT] DZ []. DZ [1 A
LLE PERSONEN-DATEN AUSGEBEN]. DZ [2 SUCH
E ALLE MIT NACHNAMEN]. DZ [3 SUCHE ALLE 
MIT VORNAMEN]. DZ [4 SUCHE ALLE MIT GEBU
RTSJAHR]. DZ [5 BEENDEN]. DZ [] DZ [BITT
E WAEHLEN 1,2,3,4 ODER 5].ENDE.PR ARBEIT
EN. ANGEBOT WAHL AUSFUEHRUNG.ENDE.PR AUS
FUEHRUNG. WENN :NR = 1 DANN ALLES.IN :DA
TEI. WENN :NR = 2 DANN NN.SUCHEN :DATEI.
 WENN :NR = 3 DANN VN.SUCHEN :DATEI. WEN
N :NR = 4 DANN GEB.SUCHEN :DATEI. WENN :
NR = 5 DANN LS RUECKKEHR. DZ [] DZ [NEUE
S ANGEBOT? J/N EINGEBEN]. WENN LL = [J] 
DANN ARBEITEN.ENDE.PR GEB.SUCHEN :DATEI.
 LS DZ [WELCHES GEBURTSJAHR SUCHEN?]. SU
CHE ( ERSTES LL ) 3 :DATEI.ENDE.PR VN.SU
CHEN :DATEI. LS DZ [WELCHEN VORNAMEN SUC
HEN?]. SUCHE ( ERSTES LL ) 2 :DATEI.ENDE
.PR SUCHE :ETWAS :I :DATEI. PRUEFE :DATE
I = []. WW DZ [] ( DZ [KEIN ...] :ETWAS 
). WW ( DZ [(MEHR) IN DER DATEI] ) RK. P
RUEFE :ETWAS = EL :I ( ER :DATEI ). WW D
Z [] DZ ERSTES :DATEI. SUCHE :ETWAS :I (
 OHNEERSTES :DATEI ).ENDE.PR NN.SUCHEN :
DATEI. LS DZ [WELCHEN NAMEN SUCHEN?]. SU
CHE ( ERSTES LL ) 1 :DATEI.ENDE.PR ALLES
.IN :DATEI. WENN :DATEI = [] RK. DZ ERST
ES :DATEI. ALLES.IN OHNEERSTES :DATEI.EN
DE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL