SEITE.90.LOGO
FILE INFORMATION
FILENAME(S): SEITE.90.LOGO
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-10-20 14:37:14
APPEARS ON: 1 disk(s)
FILE HASH
122ebaf73063062226b7f9e1e68b2ea86e91ae943adcb1c9576705db403a585b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BUCH | SEITE.90.LOGO | PRG | Treasure Chest - LehrerMIL | 15 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 50 52 20 47 45 53 54 52 49 43 48 45 4E 20 |. PR GESTRICHEN | 00000010: 3A 4E 52 20 3A 4C 49 53 54 45 0D 20 53 45 54 5A |:NR :LISTE. SETZ| 00000020: 45 20 22 5A 20 30 20 53 45 54 5A 45 20 22 4E 45 |E "Z 0 SETZE "NE| 00000030: 55 45 4C 49 53 54 45 20 5B 5D 0D 20 41 4E 46 41 |UELISTE []. ANFA| 00000040: 4E 47 3A 0D 20 57 45 4E 4E 20 3A 4C 49 53 54 45 |NG:. WENN :LISTE| 00000050: 20 3D 20 5B 5D 20 52 47 20 3A 4E 45 55 45 4C 49 | = [] RG :NEUELI| 00000060: 53 54 45 0D 20 53 45 54 5A 45 20 22 5A 20 3A 5A |STE. SETZE "Z :Z| 00000070: 20 2B 20 31 0D 20 50 52 55 45 46 45 20 3A 5A 20 | + 1. PRUEFE :Z | 00000080: 3D 20 3A 4E 52 0D 20 57 57 20 52 47 20 53 41 54 |= :NR. WW RG SAT| 00000090: 5A 20 3A 4E 45 55 45 4C 49 53 54 45 20 28 20 4F |Z :NEUELISTE ( O| 000000A0: 45 20 3A 4C 49 53 54 45 20 29 0D 20 53 45 54 5A |E :LISTE ). SETZ| 000000B0: 45 20 22 4E 45 55 45 4C 49 53 54 45 20 4D 4C 20 |E "NEUELISTE ML | 000000C0: 28 20 45 52 20 3A 4C 49 53 54 45 20 29 20 3A 4E |( ER :LISTE ) :N| 000000D0: 45 55 45 4C 49 53 54 45 0D 20 53 45 54 5A 45 20 |EUELISTE. SETZE | 000000E0: 22 4C 49 53 54 45 20 4F 48 4E 45 45 52 53 54 45 |"LISTE OHNEERSTE| 000000F0: 53 20 3A 4C 49 53 54 45 0D 20 47 45 48 45 20 22 |S :LISTE. GEHE "| 00000100: 41 4E 46 41 4E 47 0D 45 4E 44 45 0D 50 52 20 54 |ANFANG.ENDE.PR T| 00000110: 45 53 54 20 3A 4C 49 53 54 45 0D 20 53 45 54 5A |EST :LISTE. SETZ| 00000120: 45 20 22 4E 52 20 31 20 2B 20 5A 5A 20 28 20 4C |E "NR 1 + ZZ ( L| 00000130: 41 45 4E 47 45 20 3A 4C 49 53 54 45 20 29 0D 20 |AENGE :LISTE ). | 00000140: 53 45 54 5A 45 20 22 45 2E 44 20 45 4C 45 4D 45 |SETZE "E.D ELEME| 00000150: 4E 54 20 3A 4E 52 20 3A 4C 49 53 54 45 0D 20 28 |NT :NR :LISTE. (| 00000160: 20 44 52 20 45 52 20 3A 45 2E 44 20 5B 3C 3D 3E | DR ER :E.D [<=>| 00000170: 20 3F 2E 2E 5D 20 29 0D 20 50 52 55 45 46 45 20 | ?..] ). PRUEFE | 00000180: 28 20 45 52 20 4C 4C 20 29 20 3D 20 4C 45 54 5A |( ER LL ) = LETZ| 00000190: 54 45 53 20 3A 45 2E 44 0D 20 57 57 20 44 5A 20 |TES :E.D. WW DZ | 000001A0: 5B 52 49 43 48 54 49 47 5D 0D 20 57 57 20 53 45 |[RICHTIG]. WW SE| 000001B0: 54 5A 45 20 22 52 49 43 48 54 49 47 45 20 3A 52 |TZE "RICHTIGE :R| 000001C0: 49 43 48 54 49 47 45 20 2B 20 31 0D 20 57 46 20 |ICHTIGE + 1. WF | 000001D0: 28 20 44 5A 20 5B 46 41 4C 53 43 48 21 20 52 49 |( DZ [FALSCH! RI| 000001E0: 43 48 54 49 47 3A 5D 20 4C 5A 20 3A 45 2E 44 20 |CHTIG:] LZ :E.D | 000001F0: 29 0D 45 4E 44 45 0D 50 52 20 41 4C 4C 45 2E 57 |).ENDE.PR ALLE.W| 00000200: 4F 45 52 54 45 52 20 3A 4C 49 53 54 45 0D 20 57 |OERTER :LISTE. W| 00000210: 45 4E 4E 20 3A 4C 49 53 54 45 20 3D 20 5B 5D 20 |ENN :LISTE = [] | 00000220: 52 4B 0D 20 44 5A 20 45 52 53 54 45 53 20 3A 4C |RK. DZ ERSTES :L| 00000230: 49 53 54 45 0D 20 41 4C 4C 45 2E 57 4F 45 52 54 |ISTE. ALLE.WOERT| 00000240: 45 52 20 28 20 4F 48 4E 45 45 52 53 54 45 53 20 |ER ( OHNEERSTES | 00000250: 3A 4C 49 53 54 45 20 29 0D 45 4E 44 45 0D 50 52 |:LISTE ).ENDE.PR| 00000260: 20 41 4C 4C 45 53 2E 54 45 53 54 45 4E 20 3A 4C | ALLES.TESTEN :L| 00000270: 49 53 54 45 0D 20 57 45 4E 4E 20 3A 4C 49 53 54 |ISTE. WENN :LIST| 00000280: 45 20 3D 20 5B 5D 20 52 4B 0D 20 54 45 53 54 20 |E = [] RK. TEST | 00000290: 3A 4C 49 53 54 45 0D 20 41 4C 4C 45 53 2E 54 45 |:LISTE. ALLES.TE| 000002A0: 53 54 45 4E 20 28 20 47 45 53 54 52 49 43 48 45 |STEN ( GESTRICHE| 000002B0: 4E 20 3A 4E 52 20 3A 4C 49 53 54 45 20 29 0D 45 |N :NR :LISTE ).E| 000002C0: 4E 44 45 0D 50 52 20 41 42 46 52 41 47 45 4E 20 |NDE.PR ABFRAGEN | 000002D0: 3A 4C 49 53 54 45 0D 20 4C 53 20 44 5A 20 5B 45 |:LISTE. LS DZ [E| 000002E0: 53 20 57 45 52 44 45 4E 20 41 4C 4C 45 20 57 4F |S WERDEN ALLE WO| 000002F0: 45 52 54 45 52 20 49 4E 5D 0D 20 44 5A 20 5B 5A |ERTER IN]. DZ [Z| 00000300: 55 46 41 45 4C 4C 49 47 45 52 20 52 45 49 48 45 |UFAELLIGER REIHE| 00000310: 4E 46 4F 4C 47 45 20 41 42 47 45 46 52 41 47 54 |NFOLGE ABGEFRAGT| 00000320: 5D 0D 20 44 5A 20 5B 55 45 42 45 52 53 45 54 5A |]. DZ [UEBERSETZ| 00000330: 45 20 49 4E 53 20 44 45 55 54 53 43 48 45 2E 5D |E INS DEUTSCHE.]| 00000340: 20 44 5A 20 5B 5D 0D 20 53 5A 0D 20 53 45 54 5A | DZ []. SZ. SETZ| 00000350: 45 20 22 52 49 43 48 54 49 47 45 20 30 0D 20 41 |E "RICHTIGE 0. A| 00000360: 4C 4C 45 53 2E 54 45 53 54 45 4E 20 3A 4C 49 53 |LLES.TESTEN :LIS| 00000370: 54 45 20 44 5A 20 5B 5D 0D 20 28 20 44 5A 20 4C |TE DZ []. ( DZ L| 00000380: 41 45 4E 47 45 20 3A 4C 49 53 54 45 20 5B 56 4F |AENGE :LISTE [VO| 00000390: 4B 41 42 45 4C 4E 20 41 42 47 45 46 52 41 47 54 |KABELN ABGEFRAGT| 000003A0: 5D 20 29 0D 20 28 20 44 5A 20 5B 44 41 56 4F 4E |] ). ( DZ [DAVON| 000003B0: 20 57 41 52 45 4E 20 44 49 52 5D 20 3A 52 49 43 | WAREN DIR] :RIC| 000003C0: 48 54 49 47 45 20 5B 42 45 4B 41 4E 4E 54 5D 20 |HTIGE [BEKANNT] | 000003D0: 29 0D 45 4E 44 45 0D 50 52 20 4E 41 43 48 53 43 |).ENDE.PR NACHSC| 000003E0: 48 4C 41 47 45 4E 20 3A 4C 49 53 54 45 0D 20 4C |HLAGEN :LISTE. L| 000003F0: 53 20 44 5A 20 5B 57 45 4C 43 48 45 53 20 45 4E |S DZ [WELCHES EN| 00000400: 47 4C 2E 20 57 4F 52 54 20 4E 41 43 48 53 43 48 |GL. WORT NACHSCH| 00000410: 4C 41 47 45 4E 3F 5D 0D 20 53 45 54 5A 45 20 22 |LAGEN?]. SETZE "| 00000420: 45 4E 47 4C 20 45 52 53 54 45 53 20 4C 4C 0D 20 |ENGL ERSTES LL. | 00000430: 53 55 43 48 45 20 3A 45 4E 47 4C 20 3A 4C 49 53 |SUCHE :ENGL :LIS| 00000440: 54 45 0D 45 4E 44 45 0D 50 52 20 56 4F 4B 41 42 |TE.ENDE.PR VOKAB| 00000450: 45 4C 48 45 46 54 2E 48 4F 4C 45 4E 0D 20 53 45 |ELHEFT.HOLEN. SE| 00000460: 54 5A 45 20 22 4C 49 53 54 45 20 5B 5B 4D 49 4C |TZE "LISTE [[MIL| 00000470: 4B 20 4D 49 4C 43 48 5D 20 5B 42 52 45 44 20 42 |K MILCH] [BRED B| 00000480: 52 4F 54 5D 20 5B 57 49 4E 44 4F 57 20 46 45 4E |ROT] [WINDOW FEN| 00000490: 53 54 45 52 5D 5D 0D 45 4E 44 45 0D 50 52 20 41 |STER]].ENDE.PR A| 000004A0: 55 53 46 55 45 48 52 55 4E 47 0D 20 57 45 4E 4E |USFUEHRUNG. WENN| 000004B0: 20 3A 4E 52 20 3D 20 31 20 41 4C 4C 45 2E 57 4F | :NR = 1 ALLE.WO| 000004C0: 45 52 54 45 52 20 3A 4C 49 53 54 45 0D 20 57 45 |ERTER :LISTE. WE| 000004D0: 4E 4E 20 3A 4E 52 20 3D 20 32 20 4E 41 43 48 53 |NN :NR = 2 NACHS| 000004E0: 43 48 4C 41 47 45 4E 20 3A 4C 49 53 54 45 0D 20 |CHLAGEN :LISTE. | 000004F0: 57 45 4E 4E 20 3A 4E 52 20 3D 20 33 20 41 42 46 |WENN :NR = 3 ABF| 00000500: 52 41 47 45 4E 20 3A 4C 49 53 54 45 0D 20 57 45 |RAGEN :LISTE. WE| 00000510: 4E 4E 20 3A 4E 52 20 3D 20 34 20 41 55 53 53 54 |NN :NR = 4 AUSST| 00000520: 49 45 47 0D 20 44 5A 20 5B 5D 20 44 5A 20 5B 4E |IEG. DZ [] DZ [N| 00000530: 45 55 45 53 20 41 4E 47 45 42 4F 54 3F 20 4A 2F |EUES ANGEBOT? J/| 00000540: 4E 20 45 49 4E 47 45 42 45 4E 5D 0D 20 57 45 4E |N EINGEBEN]. WEN| 00000550: 4E 20 4C 4C 20 3D 20 5B 4A 5D 20 41 52 42 45 49 |N LL = [J] ARBEI| 00000560: 54 45 4E 0D 45 4E 44 45 0D 50 52 20 53 55 43 48 |TEN.ENDE.PR SUCH| 00000570: 45 20 3A 45 4E 47 4C 20 3A 4C 49 53 54 45 0D 20 |E :ENGL :LISTE. | 00000580: 50 52 55 45 46 45 20 3A 4C 49 53 54 45 20 3D 20 |PRUEFE :LISTE = | 00000590: 5B 5D 0D 20 57 57 20 28 20 44 5A 20 3A 45 4E 47 |[]. WW ( DZ :ENG| 000005A0: 4C 20 5B 55 4E 42 45 4B 41 4E 4E 54 5D 20 29 20 |L [UNBEKANNT] ) | 000005B0: 52 4B 0D 20 50 52 55 45 46 45 20 3A 45 4E 47 4C |RK. PRUEFE :ENGL| 000005C0: 20 3D 20 45 52 20 28 20 45 52 20 3A 4C 49 53 54 | = ER ( ER :LIST| 000005D0: 45 20 29 0D 20 57 57 20 28 20 44 5A 20 3A 45 4E |E ). WW ( DZ :EN| 000005E0: 47 4C 20 5B 3C 3D 3E 5D 20 4C 5A 20 45 52 20 3A |GL [<=>] LZ ER :| 000005F0: 4C 49 53 54 45 20 29 20 52 4B 0D 20 57 46 20 53 |LISTE ) RK. WF S| 00000600: 55 43 48 45 20 3A 45 4E 47 4C 20 28 20 4F 45 20 |UCHE :ENGL ( OE | 00000610: 3A 4C 49 53 54 45 20 29 0D 45 4E 44 45 0D 50 52 |:LISTE ).ENDE.PR| 00000620: 20 41 4E 47 45 42 4F 54 0D 20 4C 53 0D 20 44 5A | ANGEBOT. LS. DZ| 00000630: 20 5B 4D 45 49 4E 20 41 4E 47 45 42 4F 54 5D 20 | [MEIN ANGEBOT] | 00000640: 44 5A 20 5B 5D 0D 20 44 5A 20 5B 31 20 41 4C 4C |DZ []. DZ [1 ALL| 00000650: 45 20 57 4F 45 52 54 45 52 20 41 55 53 47 45 42 |E WOERTER AUSGEB| 00000660: 45 4E 5D 0D 20 44 5A 20 5B 32 20 4E 41 43 48 53 |EN]. DZ [2 NACHS| 00000670: 43 48 4C 41 47 45 4E 20 45 4E 47 4C 2D 2D 3E 44 |CHLAGEN ENGL-->D| 00000680: 45 55 54 53 43 48 5D 0D 20 44 5A 20 5B 33 20 41 |EUTSCH]. DZ [3 A| 00000690: 42 46 52 41 47 45 4E 20 45 4E 47 4C 2D 2D 3E 44 |BFRAGEN ENGL-->D| 000006A0: 45 55 54 53 43 48 5D 0D 20 44 5A 20 5B 34 20 42 |EUTSCH]. DZ [4 B| 000006B0: 45 45 4E 44 45 4E 5D 0D 20 44 5A 20 5B 42 49 54 |EENDEN]. DZ [BIT| 000006C0: 54 45 20 57 41 45 48 4C 45 4E 20 31 2C 32 2C 33 |TE WAEHLEN 1,2,3| 000006D0: 20 4F 44 45 52 20 34 5D 0D 45 4E 44 45 0D 50 52 | ODER 4].ENDE.PR| 000006E0: 20 57 41 48 4C 0D 20 53 45 54 5A 45 20 22 45 49 | WAHL. SETZE "EI| 000006F0: 4E 20 4C 4C 0D 20 57 45 4E 4E 20 3A 45 49 4E 20 |N LL. WENN :EIN | 00000700: 3D 20 5B 5D 20 44 41 4E 4E 20 57 41 48 4C 0D 20 |= [] DANN WAHL. | 00000710: 53 45 54 5A 45 20 22 4E 52 20 45 52 53 54 45 53 |SETZE "NR ERSTES| 00000720: 20 3A 45 49 4E 0D 20 57 45 4E 4E 20 4E 49 43 48 | :EIN. WENN NICH| 00000730: 54 3F 20 45 4C 3F 20 3A 4E 52 20 5B 31 20 32 20 |T? EL? :NR [1 2 | 00000740: 33 20 34 5D 20 57 41 48 4C 0D 45 4E 44 45 0D 50 |3 4] WAHL.ENDE.P| 00000750: 52 20 41 52 42 45 49 54 45 4E 0D 20 41 4E 47 45 |R ARBEITEN. ANGE| 00000760: 42 4F 54 20 57 41 48 4C 20 41 55 53 46 55 45 48 |BOT WAHL AUSFUEH| 00000770: 52 55 4E 47 0D 45 4E 44 45 0D 50 52 20 56 4F 4B |RUNG.ENDE.PR VOK| 00000780: 41 42 45 4C 48 45 46 54 0D 20 56 4F 4B 41 42 45 |ABELHEFT. VOKABE| 00000790: 4C 48 45 46 54 2E 48 4F 4C 45 4E 0D 20 41 52 42 |LHEFT.HOLEN. ARB| 000007A0: 45 49 54 45 4E 0D 45 4E 44 45 0D 53 45 54 5A 45 |EITEN.ENDE.SETZE| 000007B0: 20 22 4E 45 55 45 4C 49 53 54 45 20 5B 5D 0D 53 | "NEUELISTE [].S| 000007C0: 45 54 5A 45 20 22 45 2E 44 20 5B 42 52 45 44 20 |ETZE "E.D [BRED | 000007D0: 42 52 4F 54 5D 0D 53 45 54 5A 45 20 22 45 4E 47 |BROT].SETZE "ENG| 000007E0: 4C 20 22 44 0D 53 45 54 5A 45 20 22 52 49 43 48 |L "D.SETZE "RICH| 000007F0: 54 49 47 45 20 28 32 29 0D 53 45 54 5A 45 20 22 |TIGE (2).SETZE "| 00000800: 45 49 4E 20 5B 34 5D 0D 53 45 54 5A 45 20 22 4E |EIN [4].SETZE "N| 00000810: 52 20 28 34 29 0D 53 45 54 5A 45 20 22 5A 20 28 |R (4).SETZE "Z (| 00000820: 31 29 0D 53 45 54 5A 45 20 22 4C 49 53 54 45 20 |1).SETZE "LISTE | 00000830: 5B 5B 4D 49 4C 4B 20 4D 49 4C 43 48 5D 20 5B 42 |[[MILK MILCH] [B| 00000840: 52 45 44 20 42 52 4F 54 5D 20 5B 57 49 4E 44 4F |RED BROT] [WINDO| 00000850: 57 20 46 45 4E 53 54 45 52 5D 5D 0D |W FENSTER]]. |
. PR GESTRICHEN :NR :LISTE. SETZE "Z 0 S ETZE "NEUELISTE []. ANFANG:. WENN :LISTE = [] RG :NEUELISTE. SETZE "Z :Z + 1. PR UEFE :Z = :NR. WW RG SATZ :NEUELISTE ( O E :LISTE ). SETZE "NEUELISTE ML ( ER :LI STE ) :NEUELISTE. SETZE "LISTE OHNEERSTE S :LISTE. GEHE "ANFANG.ENDE.PR TEST :LIS TE. SETZE "NR 1 + ZZ ( LAENGE :LISTE ). SETZE "E.D ELEMENT :NR :LISTE. ( DR ER : E.D [<=> ?..] ). PRUEFE ( ER LL ) = LETZ TES :E.D. WW DZ [RICHTIG]. WW SETZE "RIC HTIGE :RICHTIGE + 1. WF ( DZ [FALSCH! RI CHTIG:] LZ :E.D ).ENDE.PR ALLE.WOERTER : LISTE. WENN :LISTE = [] RK. DZ ERSTES :L ISTE. ALLE.WOERTER ( OHNEERSTES :LISTE ) .ENDE.PR ALLES.TESTEN :LISTE. WENN :LIST E = [] RK. TEST :LISTE. ALLES.TESTEN ( G ESTRICHEN :NR :LISTE ).ENDE.PR ABFRAGEN :LISTE. LS DZ [ES WERDEN ALLE WOERTER IN ]. DZ [ZUFAELLIGER REIHENFOLGE ABGEFRAGT ]. DZ [UEBERSETZE INS DEUTSCHE.] DZ []. SZ. SETZE "RICHTIGE 0. ALLES.TESTEN :LIS TE DZ []. ( DZ LAENGE :LISTE [VOKABELN A BGEFRAGT] ). ( DZ [DAVON WAREN DIR] :RIC HTIGE [BEKANNT] ).ENDE.PR NACHSCHLAGEN : LISTE. LS DZ [WELCHES ENGL. WORT NACHSCH LAGEN?]. SETZE "ENGL ERSTES LL. SUCHE :E NGL :LISTE.ENDE.PR VOKABELHEFT.HOLEN. SE TZE "LISTE [[MILK MILCH] [BRED BROT] [WI NDOW FENSTER]].ENDE.PR AUSFUEHRUNG. WENN :NR = 1 ALLE.WOERTER :LISTE. WENN :NR = 2 NACHSCHLAGEN :LISTE. WENN :NR = 3 ABF RAGEN :LISTE. WENN :NR = 4 AUSSTIEG. DZ [] DZ [NEUES ANGEBOT? J/N EINGEBEN]. WEN N LL = [J] ARBEITEN.ENDE.PR SUCHE :ENGL :LISTE. PRUEFE :LISTE = []. WW ( DZ :ENG L [UNBEKANNT] ) RK. PRUEFE :ENGL = ER ( ER :LISTE ). WW ( DZ :ENGL [<=>] LZ ER : LISTE ) RK. WF SUCHE :ENGL ( OE :LISTE ) .ENDE.PR ANGEBOT. LS. DZ [MEIN ANGEBOT] DZ []. DZ [1 ALLE WOERTER AUSGEBEN]. DZ [2 NACHSCHLAGEN ENGL-->DEUTSCH]. DZ [3 A BFRAGEN ENGL-->DEUTSCH]. DZ [4 BEENDEN]. DZ [BITTE WAEHLEN 1,2,3 ODER 4].ENDE.PR WAHL. SETZE "EIN LL. WENN :EIN = [] DAN N WAHL. SETZE "NR ERSTES :EIN. WENN NICH T? EL? :NR [1 2 3 4] WAHL.ENDE.PR ARBEIT EN. ANGEBOT WAHL AUSFUEHRUNG.ENDE.PR VOK ABELHEFT. VOKABELHEFT.HOLEN. ARBEITEN.EN DE.SETZE "NEUELISTE [].SETZE "E.D [BRED BROT].SETZE "ENGL "D.SETZE "RICHTIGE (2) .SETZE "EIN [4].SETZE "NR (4).SETZE "Z ( 1).SETZE "LISTE [[MILK MILCH] [BRED BROT ] [WINDOW FENSTER]].
> CLICK IMAGE PREVIEW FOR FULL MODAL