SEITE.36.LOGO

FILE INFORMATION

FILENAME(S): SEITE.36.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.5K

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

APPEARS ON: 1 disk(s)

FILE HASH

b284ea150352535d425231f0b86a088933f70c586b57f054bf3e451ebaa14404

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BUCH	SEITE.36.LOGO	PRG	Treasure Chest - LehrerMIL	19	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 50 52 20 4B 41 49  2E 47 45 47 45 4E 2E 55  |. PR KAI.GEGEN.U|
00000010: 54 45 0D 20 4C 4F 45 53  43 48 45 53 43 48 49 52  |TE. LOESCHESCHIR|
00000020: 4D 0D 20 44 5A 20 5B 4B  41 49 20 47 45 47 45 4E  |M. DZ [KAI GEGEN|
00000030: 20 55 54 45 21 21 20 47  45 52 41 44 45 20 4F 44  | UTE!! GERADE OD|
00000040: 45 52 20 55 4E 47 45 52  41 44 45 3F 5D 0D 20 44  |ER UNGERADE?]. D|
00000050: 5A 20 5B 5D 0D 20 44 5A  20 5B 55 54 45 2C 20 42  |Z []. DZ [UTE, B|
00000060: 49 54 54 45 20 57 45 47  53 45 48 45 4E 21 5D 0D  |ITTE WEGSEHEN!].|
00000070: 20 44 5A 20 5B 4B 41 49  2C 20 47 49 42 20 45 49  | DZ [KAI, GIB EI|
00000080: 4E 45 20 5A 41 48 4C 20  45 49 4E 3A 5D 0D 20 53  |NE ZAHL EIN:]. S|
00000090: 45 54 5A 45 20 22 4B 41  49 20 45 52 53 54 45 53  |ETZE "KAI ERSTES|
000000A0: 20 4C 4C 0D 20 4C 53 0D  20 44 5A 20 5B 4B 41 49  | LL. LS. DZ [KAI|
000000B0: 20 47 45 57 49 4E 4E 54  20 42 45 49 20 47 45 52  | GEWINNT BEI GER|
000000C0: 41 44 45 52 20 53 55 4D  4D 45 2C 5D 0D 20 44 5A  |ADER SUMME,]. DZ|
000000D0: 20 5B 53 4F 4E 53 54 20  55 54 45 5D 20 44 5A 20  | [SONST UTE] DZ |
000000E0: 5B 5D 0D 20 44 5A 20 5B  55 54 45 2C 20 47 49 42  |[]. DZ [UTE, GIB|
000000F0: 20 42 49 54 54 45 20 44  45 49 4E 45 20 5A 41 48  | BITTE DEINE ZAH|
00000100: 4C 20 45 49 4E 3A 5D 0D  20 53 45 54 5A 45 20 22  |L EIN:]. SETZE "|
00000110: 55 54 45 20 45 52 20 4C  4C 0D 20 44 5A 20 5B 5D  |UTE ER LL. DZ []|
00000120: 0D 20 28 20 44 5A 20 5B  4B 41 49 53 20 5A 41 48  |. ( DZ [KAIS ZAH|
00000130: 4C 20 57 41 52 5D 20 3A  4B 41 49 20 5B 2C 20 55  |L WAR] :KAI [, U|
00000140: 54 45 53 20 57 41 52 5D  20 3A 55 54 45 20 29 0D  |TES WAR] :UTE ).|
00000150: 20 53 45 54 5A 45 20 22  53 20 3A 4B 41 49 20 2B  | SETZE "S :KAI +|
00000160: 20 3A 55 54 45 0D 20 28  20 44 5A 20 5B 44 49 45  | :UTE. ( DZ [DIE|
00000170: 20 53 55 4D 4D 45 20 49  53 54 5D 20 3A 53 20 29  | SUMME IST] :S )|
00000180: 20 44 5A 20 5B 5D 0D 20  44 5A 20 5B 47 45 57 4F  | DZ []. DZ [GEWO|
00000190: 4E 4E 45 4E 20 48 41 54  5D 20 44 5A 20 5B 5D 0D  |NNEN HAT] DZ [].|
000001A0: 20 57 45 4E 4E 20 47 45  52 41 44 45 3F 20 3A 53  | WENN GERADE? :S|
000001B0: 20 44 41 4E 4E 20 44 5A  20 22 4B 41 49 20 53 4F  | DANN DZ "KAI SO|
000001C0: 4E 53 54 20 44 5A 20 22  55 54 45 0D 45 4E 44 45  |NST DZ "UTE.ENDE|
000001D0: 0D 50 52 20 47 45 52 41  44 45 3F 20 3A 4E 0D 20  |.PR GERADE? :N. |
000001E0: 52 55 45 43 4B 47 41 42  45 20 28 20 52 45 53 54  |RUECKGABE ( REST|
000001F0: 20 3A 4E 20 32 20 29 20  3D 20 30 0D 45 4E 44 45  | :N 2 ) = 0.ENDE|
00000200: 0D 50 52 20 5A 41 48 4C  45 4E 52 41 54 45 4E 0D  |.PR ZAHLENRATEN.|
00000210: 20 4C 53 20 44 5A 20 5B  42 49 54 54 45 20 44 49  | LS DZ [BITTE DI|
00000220: 45 20 52 41 54 45 2D 5A  41 48 4C 20 45 49 4E 47  |E RATE-ZAHL EING|
00000230: 45 42 45 4E 5D 0D 20 53  45 54 5A 45 20 22 4B 20  |EBEN]. SETZE "K |
00000240: 45 52 53 54 45 53 20 4C  4C 0D 20 4C 53 20 52 41  |ERSTES LL. LS RA|
00000250: 54 45 20 3A 4B 0D 45 4E  44 45 0D 50 52 20 52 41  |TE :K.ENDE.PR RA|
00000260: 54 45 20 3A 4B 0D 20 44  5A 20 5B 57 49 45 20 48  |TE :K. DZ [WIE H|
00000270: 49 45 53 53 20 44 49 45  20 5A 41 48 4C 3F 5D 0D  |IESS DIE ZAHL?].|
00000280: 20 53 45 54 5A 45 20 22  55 20 45 52 53 54 45 53  | SETZE "U ERSTES|
00000290: 20 4C 4C 0D 20 57 45 4E  4E 20 3A 55 20 3C 20 3A  | LL. WENN :U < :|
000002A0: 4B 20 44 41 4E 4E 20 44  5A 20 5B 5A 55 20 4B 4C  |K DANN DZ [ZU KL|
000002B0: 45 49 4E 5D 20 52 41 54  45 20 3A 4B 0D 20 57 45  |EIN] RATE :K. WE|
000002C0: 4E 4E 20 3A 55 20 3E 20  3A 4B 20 44 41 4E 4E 20  |NN :U > :K DANN |
000002D0: 44 5A 20 5B 5A 55 20 47  52 4F 53 53 5D 20 52 41  |DZ [ZU GROSS] RA|
000002E0: 54 45 20 3A 4B 0D 20 44  5A 20 5B 47 52 41 54 55  |TE :K. DZ [GRATU|
000002F0: 4C 49 45 52 45 21 20 44  41 53 20 57 41 52 20 44  |LIERE! DAS WAR D|
00000300: 49 45 20 5A 41 48 4C 5D  0D 20 41 55 53 53 54 49  |IE ZAHL]. AUSSTI|
00000310: 45 47 0D 45 4E 44 45 0D  50 52 20 52 45 43 48 54  |EG.ENDE.PR RECHT|
00000320: 57 49 4E 4B 4C 49 47 3F  0D 20 53 45 49 54 45 4E  |WINKLIG?. SEITEN|
00000330: 2E 45 49 4E 47 45 42 45  4E 20 28 20 44 5A 20 3A  |.EINGEBEN ( DZ :|
00000340: 41 20 3A 42 20 3A 43 20  29 0D 20 4F 52 44 4E 45  |A :B :C ). ORDNE|
00000350: 2E 41 2E 42 2E 43 20 28  20 44 5A 20 3A 41 20 3A  |.A.B.C ( DZ :A :|
00000360: 42 20 3A 43 20 29 0D 20  45 4E 54 53 43 48 45 49  |B :C ). ENTSCHEI|
00000370: 44 45 0D 45 4E 44 45 0D  50 52 20 53 45 49 54 45  |DE.ENDE.PR SEITE|
00000380: 4E 2E 45 49 4E 47 45 42  45 4E 0D 20 4C 53 20 44  |N.EINGEBEN. LS D|
00000390: 5A 20 5B 42 49 54 54 45  20 44 52 45 49 45 43 4B  |Z [BITTE DREIECK|
000003A0: 53 45 49 54 45 4E 20 45  49 4E 47 45 42 45 4E 5D  |SEITEN EINGEBEN]|
000003B0: 0D 20 44 5A 20 5B 5D 0D  20 44 5A 20 5B 45 52 53  |. DZ []. DZ [ERS|
000003C0: 54 45 20 53 45 49 54 45  20 41 5D 20 53 45 54 5A  |TE SEITE A] SETZ|
000003D0: 45 20 22 41 20 45 52 20  4C 4C 0D 20 44 5A 20 5B  |E "A ER LL. DZ [|
000003E0: 5A 57 45 49 54 45 20 53  45 49 54 45 20 42 5D 20  |ZWEITE SEITE B] |
000003F0: 53 45 54 5A 45 20 22 42  20 45 52 20 4C 4C 0D 20  |SETZE "B ER LL. |
00000400: 44 5A 20 5B 44 52 49 54  54 45 20 53 45 49 54 45  |DZ [DRITTE SEITE|
00000410: 20 43 5D 20 53 45 54 5A  45 20 22 43 20 45 52 20  | C] SETZE "C ER |
00000420: 4C 4C 0D 45 4E 44 45 0D  50 52 20 4F 52 44 4E 45  |LL.ENDE.PR ORDNE|
00000430: 2E 41 2E 42 2E 43 0D 20  57 45 4E 4E 20 3A 41 20  |.A.B.C. WENN :A |
00000440: 3E 20 3A 42 20 56 45 52  54 41 55 53 43 48 45 2E  |> :B VERTAUSCHE.|
00000450: 41 2E 42 0D 20 57 45 4E  4E 20 3A 42 20 3E 20 3A  |A.B. WENN :B > :|
00000460: 43 20 56 45 52 54 41 55  53 43 48 45 2E 42 2E 43  |C VERTAUSCHE.B.C|
00000470: 0D 20 57 45 4E 4E 20 3A  41 20 3E 20 3A 42 20 56  |. WENN :A > :B V|
00000480: 45 52 54 41 55 53 43 48  45 2E 41 2E 42 0D 45 4E  |ERTAUSCHE.A.B.EN|
00000490: 44 45 0D 50 52 20 45 4E  54 53 43 48 45 49 44 45  |DE.PR ENTSCHEIDE|
000004A0: 0D 20 50 52 55 45 46 45  20 3A 41 20 2B 20 3A 42  |. PRUEFE :A + :B|
000004B0: 20 3E 20 3A 43 0D 20 57  45 4E 4E 46 41 4C 53 43  | > :C. WENNFALSC|
000004C0: 48 20 44 5A 20 5B 4B 45  49 4E 45 20 44 52 45 49  |H DZ [KEINE DREI|
000004D0: 45 43 4B 53 45 49 54 45  4E 5D 20 52 4B 0D 20 53  |ECKSEITEN] RK. S|
000004E0: 45 54 5A 45 20 22 43 51  55 41 44 52 41 54 20 3A  |ETZE "CQUADRAT :|
000004F0: 41 20 2A 20 3A 41 20 2B  20 3A 42 20 2A 20 3A 42  |A * :A + :B * :B|
00000500: 0D 20 50 52 55 45 46 45  20 3A 43 20 2A 20 3A 43  |. PRUEFE :C * :C|
00000510: 20 3D 20 3A 43 51 55 41  44 52 41 54 0D 20 57 45  | = :CQUADRAT. WE|
00000520: 4E 4E 57 41 48 52 20 44  5A 20 5B 44 52 45 49 43  |NNWAHR DZ [DREIC|
00000530: 4B 20 41 42 43 20 49 53  54 20 52 45 43 48 54 57  |K ABC IST RECHTW|
00000540: 49 4E 4B 4C 49 47 5D 0D  20 57 46 20 44 5A 20 5B  |INKLIG]. WF DZ [|
00000550: 44 41 53 20 44 52 45 49  45 43 4B 20 49 53 54 20  |DAS DREIECK IST |
00000560: 4E 49 43 48 54 20 52 45  43 48 54 57 49 4E 4B 4C  |NICHT RECHTWINKL|
00000570: 49 47 5D 0D 45 4E 44 45  0D 50 52 20 56 45 52 54  |IG].ENDE.PR VERT|
00000580: 41 55 53 43 48 45 2E 41  2E 42 0D 20 53 45 54 5A  |AUSCHE.A.B. SETZ|
00000590: 45 20 22 43 43 20 3A 41  0D 20 53 45 54 5A 45 20  |E "CC :A. SETZE |
000005A0: 22 41 20 3A 42 0D 20 53  45 54 5A 45 20 22 42 20  |"A :B. SETZE "B |
000005B0: 3A 43 43 0D 45 4E 44 45  0D 50 52 20 56 45 52 54  |:CC.ENDE.PR VERT|
000005C0: 41 55 53 43 48 45 2E 42  2E 43 0D 20 53 45 54 5A  |AUSCHE.B.C. SETZ|
000005D0: 45 20 22 43 43 20 3A 42  0D 20 53 45 54 5A 45 20  |E "CC :B. SETZE |
000005E0: 22 42 20 3A 43 0D 20 53  45 54 5A 45 20 22 43 20  |"B :C. SETZE "C |
000005F0: 3A 43 43 0D 45 4E 44 45  0D                       |:CC.ENDE.       |

. PR KAI.GEGEN.UTE. LOESCHESCHIRM. DZ [K
AI GEGEN UTE!! GERADE ODER UNGERADE?]. D
Z []. DZ [UTE, BITTE WEGSEHEN!]. DZ [KAI
, GIB EINE ZAHL EIN:]. SETZE "KAI ERSTES
 LL. LS. DZ [KAI GEWINNT BEI GERADER SUM
ME,]. DZ [SONST UTE] DZ []. DZ [UTE, GIB
 BITTE DEINE ZAHL EIN:]. SETZE "UTE ER L
L. DZ []. ( DZ [KAIS ZAHL WAR] :KAI [, U
TES WAR] :UTE ). SETZE "S :KAI + :UTE. (
 DZ [DIE SUMME IST] :S ) DZ []. DZ [GEWO
NNEN HAT] DZ []. WENN GERADE? :S DANN DZ
 "KAI SONST DZ "UTE.ENDE.PR GERADE? :N. 
RUECKGABE ( REST :N 2 ) = 0.ENDE.PR ZAHL
ENRATEN. LS DZ [BITTE DIE RATE-ZAHL EING
EBEN]. SETZE "K ERSTES LL. LS RATE :K.EN
DE.PR RATE :K. DZ [WIE HIESS DIE ZAHL?].
 SETZE "U ERSTES LL. WENN :U < :K DANN D
Z [ZU KLEIN] RATE :K. WENN :U > :K DANN 
DZ [ZU GROSS] RATE :K. DZ [GRATULIERE! D
AS WAR DIE ZAHL]. AUSSTIEG.ENDE.PR RECHT
WINKLIG?. SEITEN.EINGEBEN ( DZ :A :B :C 
). ORDNE.A.B.C ( DZ :A :B :C ). ENTSCHEI
DE.ENDE.PR SEITEN.EINGEBEN. LS DZ [BITTE
 DREIECKSEITEN EINGEBEN]. DZ []. DZ [ERS
TE SEITE A] SETZE "A ER LL. DZ [ZWEITE S
EITE B] SETZE "B ER LL. DZ [DRITTE SEITE
 C] SETZE "C ER LL.ENDE.PR ORDNE.A.B.C. 
WENN :A > :B VERTAUSCHE.A.B. WENN :B > :
C VERTAUSCHE.B.C. WENN :A > :B VERTAUSCH
E.A.B.ENDE.PR ENTSCHEIDE. PRUEFE :A + :B
 > :C. WENNFALSCH DZ [KEINE DREIECKSEITE
N] RK. SETZE "CQUADRAT :A * :A + :B * :B
. PRUEFE :C * :C = :CQUADRAT. WENNWAHR D
Z [DREICK ABC IST RECHTWINKLIG]. WF DZ [
DAS DREIECK IST NICHT RECHTWINKLIG].ENDE
.PR VERTAUSCHE.A.B. SETZE "CC :A. SETZE 
"A :B. SETZE "B :CC.ENDE.PR VERTAUSCHE.B
.C. SETZE "CC :B. SETZE "B :C. SETZE "C 
:CC.ENDE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL