SEITE.82.1.LOGO

FILE INFORMATION

FILENAME(S): SEITE.82.1.LOGO

FILE TYPE(S): PRG

FILE SIZE: 919b

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

APPEARS ON: 1 disk(s)

FILE HASH

1cd10e4fb035d08c7e7d0bc90e25e449b5fc94cede3950efbb28d8b37396cbc8

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BUCH	SEITE.82.1.LOGO	PRG	Treasure Chest - LehrerMIL	20	12	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 50 52 20 53 54 52  45 49 43 48 45 20 3A 41  |. PR STREICHE :A|
00000010: 20 3A 4C 0D 20 53 45 54  5A 45 20 22 4E 4C 20 5B  | :L. SETZE "NL [|
00000020: 5D 0D 20 41 4E 46 41 4E  47 3A 0D 20 57 45 4E 4E  |]. ANFANG:. WENN|
00000030: 20 3A 4C 20 3D 20 5B 5D  20 52 47 20 3A 4E 4C 0D  | :L = [] RG :NL.|
00000040: 20 50 52 55 45 46 45 20  3A 41 20 3D 20 45 52 53  | PRUEFE :A = ERS|
00000050: 54 45 53 20 3A 4C 0D 20  57 57 20 53 45 54 5A 45  |TES :L. WW SETZE|
00000060: 20 22 4E 4C 20 53 41 54  5A 20 3A 4E 4C 20 28 20  | "NL SATZ :NL ( |
00000070: 4F 45 20 3A 4C 20 29 20  52 47 20 3A 4E 4C 0D 20  |OE :L ) RG :NL. |
00000080: 57 46 20 53 45 54 5A 45  20 22 4E 4C 20 4D 49 54  |WF SETZE "NL MIT|
00000090: 4C 45 54 5A 54 45 4D 20  28 20 45 52 20 3A 4C 20  |LETZTEM ( ER :L |
000000A0: 29 20 3A 4E 4C 0D 20 53  45 54 5A 45 20 22 4C 20  |) :NL. SETZE "L |
000000B0: 4F 45 20 3A 4C 0D 20 47  45 48 45 20 22 41 4E 46  |OE :L. GEHE "ANF|
000000C0: 41 4E 47 0D 45 4E 44 45  0D 50 52 20 4B 4C 45 49  |ANG.ENDE.PR KLEI|
000000D0: 4E 53 54 45 53 20 3A 4C  0D 20 53 45 54 5A 45 20  |NSTES :L. SETZE |
000000E0: 22 4B 4C 20 45 52 20 3A  4C 0D 20 53 45 54 5A 45  |"KL ER :L. SETZE|
000000F0: 20 22 4C 20 4F 48 4E 45  45 52 53 54 45 53 20 3A  | "L OHNEERSTES :|
00000100: 4C 0D 20 41 4E 46 41 4E  47 3A 0D 20 57 45 4E 4E  |L. ANFANG:. WENN|
00000110: 20 3A 4C 20 3D 20 5B 5D  20 52 47 20 3A 4B 4C 0D  | :L = [] RG :KL.|
00000120: 20 50 52 55 45 46 45 20  3A 4B 4C 20 3E 20 45 52  | PRUEFE :KL > ER|
00000130: 20 3A 4C 0D 20 57 57 20  53 45 54 5A 45 20 22 4B  | :L. WW SETZE "K|
00000140: 4C 20 45 52 53 54 45 53  20 3A 4C 0D 20 53 45 54  |L ERSTES :L. SET|
00000150: 5A 45 20 22 4C 20 4F 48  4E 45 45 52 53 54 45 53  |ZE "L OHNEERSTES|
00000160: 20 3A 4C 0D 20 47 45 48  45 20 22 41 4E 46 41 4E  | :L. GEHE "ANFAN|
00000170: 47 0D 45 4E 44 45 0D 50  52 20 45 49 4E 5A 45 4C  |G.ENDE.PR EINZEL|
00000180: 5A 49 45 48 55 4E 47 0D  20 53 45 54 5A 45 20 22  |ZIEHUNG. SETZE "|
00000190: 5A 55 20 28 20 31 20 2B  20 5A 5A 20 34 39 20 29  |ZU ( 1 + ZZ 49 )|
000001A0: 0D 20 50 52 55 45 46 45  20 45 4C 3F 20 3A 5A 55  |. PRUEFE EL? :ZU|
000001B0: 20 3A 4C 2E 4C 49 53 54  45 0D 20 57 57 20 45 49  | :L.LISTE. WW EI|
000001C0: 4E 5A 45 4C 5A 49 45 48  55 4E 47 0D 20 57 46 20  |NZELZIEHUNG. WF |
000001D0: 53 45 54 5A 45 20 22 4C  2E 4C 49 53 54 45 20 4D  |SETZE "L.LISTE M|
000001E0: 49 54 4C 45 54 5A 54 45  4D 20 3A 5A 55 20 3A 4C  |ITLETZTEM :ZU :L|
000001F0: 2E 4C 49 53 54 45 0D 20  57 46 20 44 5A 20 3A 4C  |.LISTE. WF DZ :L|
00000200: 2E 4C 49 53 54 45 0D 45  4E 44 45 0D 50 52 20 4F  |.LISTE.ENDE.PR O|
00000210: 52 44 4E 45 20 3A 4C 0D  20 53 45 54 5A 45 20 22  |RDNE :L. SETZE "|
00000220: 52 4C 20 5B 5D 0D 20 41  4E 46 41 4E 47 3A 0D 20  |RL []. ANFANG:. |
00000230: 57 45 4E 4E 20 3A 4C 20  3D 20 5B 5D 20 52 47 20  |WENN :L = [] RG |
00000240: 3A 52 4C 0D 20 53 45 54  5A 45 20 22 4B 4C 20 4B  |:RL. SETZE "KL K|
00000250: 4C 45 49 4E 53 54 45 53  20 3A 4C 0D 20 53 45 54  |LEINSTES :L. SET|
00000260: 5A 45 20 22 52 4C 20 4D  49 54 4C 45 54 5A 54 45  |ZE "RL MITLETZTE|
00000270: 4D 20 3A 4B 4C 20 3A 52  4C 0D 20 53 45 54 5A 45  |M :KL :RL. SETZE|
00000280: 20 22 4C 20 53 54 52 45  49 43 48 45 20 3A 4B 4C  | "L STREICHE :KL|
00000290: 20 3A 4C 0D 20 47 45 48  45 20 22 41 4E 46 41 4E  | :L. GEHE "ANFAN|
000002A0: 47 0D 45 4E 44 45 0D 50  52 20 5A 49 45 48 55 4E  |G.ENDE.PR ZIEHUN|
000002B0: 47 0D 20 53 45 54 5A 45  20 22 4C 2E 4C 49 53 54  |G. SETZE "L.LIST|
000002C0: 45 20 5B 5D 0D 20 57 49  45 44 45 52 48 4F 4C 45  |E []. WIEDERHOLE|
000002D0: 20 36 20 5B 45 49 4E 5A  45 4C 5A 49 45 48 55 4E  | 6 [EINZELZIEHUN|
000002E0: 47 5D 0D 20 44 5A 20 5B  5D 0D 20 52 47 20 3A 4C  |G]. DZ []. RG :L|
000002F0: 2E 4C 49 53 54 45 0D 45  4E 44 45 0D 50 52 20 4C  |.LISTE.ENDE.PR L|
00000300: 4F 54 54 4F 0D 20 4C 53  20 44 5A 20 5B 4C 4F 54  |OTTO. LS DZ [LOT|
00000310: 54 4F 20 36 20 41 55 53  20 34 39 5D 0D 20 44 52  |TO 6 AUS 49]. DR|
00000320: 20 5B 57 49 45 56 49 45  4C 20 5A 49 45 48 55 4E  | [WIEVIEL ZIEHUN|
00000330: 47 45 4E 3F 20 57 5A 20  3D 5D 0D 20 53 45 54 5A  |GEN? WZ =]. SETZ|
00000340: 45 20 22 57 5A 20 45 52  53 54 45 53 20 4C 4C 0D  |E "WZ ERSTES LL.|
00000350: 20 44 5A 20 5B 5D 0D 20  57 48 20 3A 57 5A 20 5B  | DZ []. WH :WZ [|
00000360: 44 5A 20 5B 5D 20 53 45  54 5A 45 20 22 4C 20 5A  |DZ [] SETZE "L Z|
00000370: 49 45 48 55 4E 47 20 53  45 54 5A 45 20 22 52 4C  |IEHUNG SETZE "RL|
00000380: 20 4F 52 44 4E 45 20 3A  4C 20 44 5A 20 3A 52 4C  | ORDNE :L DZ :RL|
00000390: 5D 0D 45 4E 44 45 0D                              |].ENDE.         |

. PR STREICHE :A :L. SETZE "NL []. ANFAN
G:. WENN :L = [] RG :NL. PRUEFE :A = ERS
TES :L. WW SETZE "NL SATZ :NL ( OE :L ) 
RG :NL. WF SETZE "NL MITLETZTEM ( ER :L 
) :NL. SETZE "L OE :L. GEHE "ANFANG.ENDE
.PR KLEINSTES :L. SETZE "KL ER :L. SETZE
 "L OHNEERSTES :L. ANFANG:. WENN :L = []
 RG :KL. PRUEFE :KL > ER :L. WW SETZE "K
L ERSTES :L. SETZE "L OHNEERSTES :L. GEH
E "ANFANG.ENDE.PR EINZELZIEHUNG. SETZE "
ZU ( 1 + ZZ 49 ). PRUEFE EL? :ZU :L.LIST
E. WW EINZELZIEHUNG. WF SETZE "L.LISTE M
ITLETZTEM :ZU :L.LISTE. WF DZ :L.LISTE.E
NDE.PR ORDNE :L. SETZE "RL []. ANFANG:. 
WENN :L = [] RG :RL. SETZE "KL KLEINSTES
 :L. SETZE "RL MITLETZTEM :KL :RL. SETZE
 "L STREICHE :KL :L. GEHE "ANFANG.ENDE.P
R ZIEHUNG. SETZE "L.LISTE []. WIEDERHOLE
 6 [EINZELZIEHUNG]. DZ []. RG :L.LISTE.E
NDE.PR LOTTO. LS DZ [LOTTO 6 AUS 49]. DR
 [WIEVIEL ZIEHUNGEN? WZ =]. SETZE "WZ ER
STES LL. DZ []. WH :WZ [DZ [] SETZE "L Z
IEHUNG SETZE "RL ORDNE :L DZ :RL].ENDE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL