SEITE.26.LOGO

FILE INFORMATION

FILENAME(S): SEITE.26.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.1K

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

APPEARS ON: 1 disk(s)

FILE HASH

126c94aa1eb44e10e860e82a57277009d6061324cefd4e85661338ddddded11f

FOUND ON DISKS (1 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 00 20 50 52 20 45 4E 44  4C 4F 53 2E 4E 41 45 48  |. PR ENDLOS.NAEH|
00000010: 45 52 55 4E 47 45 4E 0D  20 28 20 44 5A 20 3A 58  |ERUNGEN. ( DZ :X|
00000020: 20 3A 59 20 29 0D 20 53  45 54 5A 45 20 22 58 20  | :Y ). SETZE "X |
00000030: 28 20 3A 58 20 2B 20 3A  59 20 29 20 2F 20 32 0D  |( :X + :Y ) / 2.|
00000040: 20 53 45 54 5A 45 20 22  59 20 3A 41 20 2F 20 3A  | SETZE "Y :A / :|
00000050: 58 0D 20 45 4E 44 4C 4F  53 2E 4E 41 45 48 45 52  |X. ENDLOS.NAEHER|
00000060: 55 4E 47 45 4E 0D 45 4E  44 45 0D 50 52 20 57 55  |UNGEN.ENDE.PR WU|
00000070: 52 5A 45 4C 2E 45 4E 44  4C 4F 53 20 3A 41 0D 20  |RZEL.ENDLOS :A. |
00000080: 4C 4F 45 53 43 48 45 53  43 48 49 52 4D 0D 20 53  |LOESCHESCHIRM. S|
00000090: 45 54 5A 45 20 22 58 20  3A 41 0D 20 53 45 54 5A  |ETZE "X :A. SETZ|
000000A0: 45 20 22 59 20 31 0D 20  28 20 44 5A 20 5B 58 2D  |E "Y 1. ( DZ [X-|
000000B0: 20 55 4E 44 20 59 2D 4E  41 45 48 45 52 55 4E 47  | UND Y-NAEHERUNG|
000000C0: 20 56 4F 4E 5D 20 3A 41  20 29 0D 20 45 4E 44 4C  | VON] :A ). ENDL|
000000D0: 4F 53 2E 4E 41 45 48 45  52 55 4E 47 45 4E 0D 45  |OS.NAEHERUNGEN.E|
000000E0: 4E 44 45 0D 50 52 20 4E  41 45 48 45 52 55 4E 47  |NDE.PR NAEHERUNG|
000000F0: 0D 20 28 20 44 5A 20 5B  58 20 3D 5D 20 3A 58 20  |. ( DZ [X =] :X |
00000100: 5B 59 20 3D 5D 20 3A 59  20 29 0D 20 53 45 54 5A  |[Y =] :Y ). SETZ|
00000110: 45 20 22 58 20 28 20 3A  58 20 2B 20 3A 59 20 29  |E "X ( :X + :Y )|
00000120: 20 2F 20 32 0D 20 53 45  54 5A 45 20 22 59 20 3A  | / 2. SETZE "Y :|
00000130: 41 20 2F 20 3A 58 0D 45  4E 44 45 0D 50 52 20 57  |A / :X.ENDE.PR W|
00000140: 55 52 5A 45 4C 20 3A 41  0D 20 53 45 54 5A 45 20  |URZEL :A. SETZE |
00000150: 22 58 20 3A 41 0D 20 53  45 54 5A 45 20 22 59 20  |"X :A. SETZE "Y |
00000160: 31 0D 20 57 48 20 31 30  20 5B 4E 41 45 48 45 52  |1. WH 10 [NAEHER|
00000170: 55 4E 47 5D 0D 45 4E 44  45 0D 50 52 20 57 55 52  |UNG].ENDE.PR WUR|
00000180: 5A 45 4C 2E 41 55 53 20  3A 41 0D 20 53 45 54 5A  |ZEL.AUS :A. SETZ|
00000190: 45 20 22 58 20 3A 41 0D  20 53 45 54 5A 45 20 22  |E "X :A. SETZE "|
000001A0: 59 20 31 0D 20 57 48 20  31 30 20 5B 53 45 54 5A  |Y 1. WH 10 [SETZ|
000001B0: 45 20 22 58 20 28 20 3A  58 20 2B 20 3A 59 20 29  |E "X ( :X + :Y )|
000001C0: 20 2F 20 32 20 53 45 54  5A 45 20 22 59 20 3A 41  | / 2 SETZE "Y :A|
000001D0: 20 2F 20 3A 58 20 28 20  44 5A 20 3A 58 20 3A 59  | / :X ( DZ :X :Y|
000001E0: 20 29 5D 0D 45 4E 44 45  0D 50 52 20 53 55 4D 4D  | )].ENDE.PR SUMM|
000001F0: 45 2E 44 45 52 2E 55 4E  47 45 52 41 44 45 4E 20  |E.DER.UNGERADEN |
00000200: 3A 4E 0D 20 53 45 54 5A  45 20 22 5A 20 31 0D 20  |:N. SETZE "Z 1. |
00000210: 53 45 54 5A 45 20 22 53  20 31 0D 20 53 45 54 5A  |SETZE "S 1. SETZ|
00000220: 45 20 22 49 20 31 0D 20  57 48 20 3A 4E 20 5B 28  |E "I 1. WH :N [(|
00000230: 20 44 5A 20 3A 49 20 3A  5A 20 3A 53 20 29 20 53  | DZ :I :Z :S ) S|
00000240: 45 54 5A 45 20 22 49 20  3A 49 20 2B 20 31 20 53  |ETZE "I :I + 1 S|
00000250: 45 54 5A 45 20 22 5A 20  3A 5A 20 2B 20 32 20 53  |ETZE "Z :Z + 2 S|
00000260: 45 54 5A 45 20 22 53 20  3A 53 20 2B 20 3A 5A 5D  |ETZE "S :S + :Z]|
00000270: 0D 45 4E 44 45 0D 50 52  20 5A 41 45 48 4C 45 4E  |.ENDE.PR ZAEHLEN|
00000280: 2E 55 4E 44 2E 53 55 4D  4D 49 45 52 45 4E 20 3A  |.UND.SUMMIEREN :|
00000290: 4E 0D 20 53 45 54 5A 45  20 22 53 20 30 0D 20 53  |N. SETZE "S 0. S|
000002A0: 45 54 5A 45 20 22 5A 20  30 0D 20 57 48 20 3A 4E  |ETZE "Z 0. WH :N|
000002B0: 20 5B 53 45 54 5A 45 20  22 5A 20 3A 5A 20 2B 20  | [SETZE "Z :Z + |
000002C0: 31 20 53 45 54 5A 45 20  22 53 20 3A 53 20 2B 20  |1 SETZE "S :S + |
000002D0: 3A 5A 20 28 20 44 5A 20  3A 5A 20 3A 53 20 29 5D  |:Z ( DZ :Z :S )]|
000002E0: 0D 45 4E 44 45 0D 50 52  20 57 45 49 54 45 52 5A  |.ENDE.PR WEITERZ|
000002F0: 41 45 48 4C 45 4E 2E 56  4F 4E 2E 41 2E 55 4D 2E  |AEHLEN.VON.A.UM.|
00000300: 4E 20 3A 41 20 3A 4E 0D  20 53 45 54 5A 45 20 22  |N :A :N. SETZE "|
00000310: 5A 20 3A 41 0D 20 57 48  20 3A 4E 20 5B 53 45 54  |Z :A. WH :N [SET|
00000320: 5A 45 20 22 5A 20 3A 5A  20 2B 20 31 20 44 5A 20  |ZE "Z :Z + 1 DZ |
00000330: 3A 5A 5D 0D 20 28 20 44  5A 20 3A 41 20 3A 4E 20  |:Z]. ( DZ :A :N |
00000340: 3A 5A 20 29 0D 45 4E 44  45 0D 50 52 20 57 41 43  |:Z ).ENDE.PR WAC|
00000350: 48 53 54 55 4D 20 3A 41  20 3A 50 5A 0D 20 53 45  |HSTUM :A :PZ. SE|
00000360: 54 5A 45 20 22 46 20 31  20 2B 20 3A 50 5A 20 2F  |TZE "F 1 + :PZ /|
00000370: 20 31 30 30 0D 20 53 45  54 5A 45 20 22 5A 20 31  | 100. SETZE "Z 1|
00000380: 0D 20 57 49 45 44 45 52  48 4F 4C 45 20 35 20 5B  |. WIEDERHOLE 5 [|
00000390: 53 45 54 5A 45 20 22 41  20 3A 41 20 2A 20 3A 46  |SETZE "A :A * :F|
000003A0: 20 28 20 44 5A 20 3A 5A  20 3A 41 20 29 20 53 45  | ( DZ :Z :A ) SE|
000003B0: 54 5A 45 20 22 5A 20 3A  5A 20 2B 20 31 5D 0D 45  |TZE "Z :Z + 1].E|
000003C0: 4E 44 45 0D 50 52 20 57  49 45 44 45 52 48 4F 4C  |NDE.PR WIEDERHOL|
000003D0: 54 45 53 2E 57 41 43 48  53 54 55 4D 20 3A 41 20  |TES.WACHSTUM :A |
000003E0: 3A 50 0D 20 53 45 54 5A  45 20 22 46 20 31 20 2B  |:P. SETZE "F 1 +|
000003F0: 20 3A 50 20 2F 20 31 30  30 0D 20 53 45 54 5A 45  | :P / 100. SETZE|
00000400: 20 22 5A 20 31 0D 20 57  49 45 44 45 52 48 4F 4C  | "Z 1. WIEDERHOL|
00000410: 45 20 35 20 5B 53 45 54  5A 45 20 22 45 20 3A 41  |E 5 [SETZE "E :A|
00000420: 20 2A 20 3A 20 46 20 28  44 5A 20 3A 5A 20 3A 41  | * : F (DZ :Z :A|
00000430: 20 3A 45 20 29 20 53 45  54 5A 45 20 22 4E 20 3A  | :E ) SETZE "N :|
00000440: 5A 20 2B 20 31 20 53 45  54 5A 45 20 22 5A 20 3A  |Z + 1 SETZE "Z :|
00000450: 4E 20 53 45 54 5A 45 20  22 41 20 3A 45 5D 0D 45  |N SETZE "A :E].E|
00000460: 4E 44 45 0D                                       |NDE.            |

. PR ENDLOS.NAEHERUNGEN. ( DZ :X :Y ). S
ETZE "X ( :X + :Y ) / 2. SETZE "Y :A / :
X. ENDLOS.NAEHERUNGEN.ENDE.PR WURZEL.END
LOS :A. LOESCHESCHIRM. SETZE "X :A. SETZ
E "Y 1. ( DZ [X- UND Y-NAEHERUNG VON] :A
 ). ENDLOS.NAEHERUNGEN.ENDE.PR NAEHERUNG
. ( DZ [X =] :X [Y =] :Y ). SETZE "X ( :
X + :Y ) / 2. SETZE "Y :A / :X.ENDE.PR W
URZEL :A. SETZE "X :A. SETZE "Y 1. WH 10
 [NAEHERUNG].ENDE.PR WURZEL.AUS :A. SETZ
E "X :A. SETZE "Y 1. WH 10 [SETZE "X ( :
X + :Y ) / 2 SETZE "Y :A / :X ( DZ :X :Y
 )].ENDE.PR SUMME.DER.UNGERADEN :N. SETZ
E "Z 1. SETZE "S 1. SETZE "I 1. WH :N [(
 DZ :I :Z :S ) SETZE "I :I + 1 SETZE "Z 
:Z + 2 SETZE "S :S + :Z].ENDE.PR ZAEHLEN
.UND.SUMMIEREN :N. SETZE "S 0. SETZE "Z 
0. WH :N [SETZE "Z :Z + 1 SETZE "S :S + 
:Z ( DZ :Z :S )].ENDE.PR WEITERZAEHLEN.V
ON.A.UM.N :A :N. SETZE "Z :A. WH :N [SET
ZE "Z :Z + 1 DZ :Z]. ( DZ :A :N :Z ).END
E.PR WACHSTUM :A :PZ. SETZE "F 1 + :PZ /
 100. SETZE "Z 1. WIEDERHOLE 5 [SETZE "A
 :A * :F ( DZ :Z :A ) SETZE "Z :Z + 1].E
NDE.PR WIEDERHOLTES.WACHSTUM :A :P. SETZ
E "F 1 + :P / 100. SETZE "Z 1. WIEDERHOL
E 5 [SETZE "E :A * : F (DZ :Z :A :E ) SE
TZE "N :Z + 1 SETZE "Z :N SETZE "A :E].E
NDE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL