_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

LEKTION8

FILE INFORMATION

FILENAME(S): LEKTION8

FILE TYPE(S): SEQ

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-02 22:11:06

APPEARS ON: 1 disk(s)

FILE HASH

e0d7a3e25bb10e9c49bb8dba9f3d70d173427a965ffb7dbaf7fa385f2bcea195

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COMMODORE DISC53 LEKTION8 SEQ Treasure Chest - ToGuMi 11 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 2F 2A 20 CC 45 4B 54 49  4F 4E 38 0D 0D C2 4C 4F  |/* .EKTION8...LO|
00000010: 43 4B 46 55 4E 4B 54 49  4F 4E 45 4E 0D 0D DA 45  |CKFUNKTIONEN...E|
00000020: 49 43 48 45 4E 4B 45 54  54 45 4E 2C 20 41 4C 53  |ICHENKETTEN, ALS|
00000030: 4F 20 D3 54 52 49 4E 47  53 2C 20 4B 4F 4D 4D 45  |O .TRINGS, KOMME|
00000040: 4E 20 42 45 49 4D 20 D0  52 4F 47 52 41 4D 4D 49  |N BEIM .ROGRAMMI|
00000050: 45 52 45 4E 20 4E 49 43  48 54 20 47 45 52 41 44  |EREN NICHT GERAD|
00000060: 45 20 53 45 4C 54 45 4E  20 56 4F 52 2E 20 D3 49  |E SELTEN VOR. .I|
00000070: 45 20 42 59 54 45 57 45  49 53 45 20 4D 49 54 20  |E BYTEWEISE MIT |
00000080: 45 49 4E 46 41 43 48 45  4E 20 C3 D0 2D C2 45 46  |EINFACHEN ..-.EF|
00000090: 45 48 4C 45 4E 20 5A 55  20 42 45 41 52 42 45 49  |EHLEN ZU BEARBEI|
000000A0: 54 45 4E 20 4B 4F 53 54  45 54 20 DA 45 49 54 2E  |TEN KOSTET .EIT.|
000000B0: 20 C4 41 4D 49 54 20 45  53 20 53 55 50 45 52 53  | .AMIT ES SUPERS|
000000C0: 43 48 4E 45 4C 4C 20 47  45 48 54 2C 20 47 49 42  |CHNELL GEHT, GIB|
000000D0: 54 20 45 53 20 42 45 52  45 49 54 53 20 44 49 45  |T ES BEREITS DIE|
000000E0: 20 46 45 52 54 49 47 45  4E 2C 20 49 4E 20 CD 41  | FERTIGEN, IN .A|
000000F0: 53 43 48 49 4E 45 4E 53  50 52 41 43 48 45 20 56  |SCHINENSPRACHE V|
00000100: 4F 52 4C 49 45 47 45 4E  44 45 20 D2 4F 55 54 49  |ORLIEGENDE .OUTI|
00000110: 4E 45 4E 20 46 49 4C 4C  2C 20 46 49 4E 44 2C 20  |NEN FILL, FIND, |
00000120: 3C 3E 46 49 4E 44 2C 20  43 4F 4D 50 2C 20 3C 43  |<>FIND, COMP, <C|
00000130: 4F 4D 50 2C 20 3E 43 4F  4D 50 20 55 4E 44 20 43  |OMP, >COMP UND C|
00000140: 4F 50 59 3A 0D 0D 28 20  41 44 52 20 2C 20 57 45  |OPY:..( ADR , WE|
00000150: 52 54 20 2C 20 41 4E 5A  41 48 4C 20 46 49 4C 4C  |RT , ANZAHL FILL|
00000160: 20 29 0D 28 20 41 4E 46  20 2C 20 45 4E 44 45 20  | ).( ANF , ENDE |
00000170: 2C 20 57 45 52 54 20 46  49 4E 44 20 29 0D 28 20  |, WERT FIND ).( |
00000180: 41 4E 46 20 2C 20 45 4E  44 45 20 2C 20 57 45 52  |ANF , ENDE , WER|
00000190: 54 20 3C 3E 46 49 4E 44  20 29 0D 28 20 41 44 52  |T <>FIND ).( ADR|
000001A0: 31 20 2C 20 41 44 52 32  20 2C 20 41 4E 5A 41 48  |1 , ADR2 , ANZAH|
000001B0: 4C 20 43 4F 4D 50 20 29  0D 28 20 41 44 52 31 20  |L COMP ).( ADR1 |
000001C0: 2C 20 41 44 52 32 20 2C  20 41 4E 5A 41 48 4C 20  |, ADR2 , ANZAHL |
000001D0: 3C 43 4F 4D 50 20 29 0D  28 20 41 44 52 31 20 2C  |<COMP ).( ADR1 ,|
000001E0: 20 41 44 52 32 20 2C 20  41 4E 5A 41 48 4C 20 3E  | ADR2 , ANZAHL >|
000001F0: 43 4F 4D 50 20 29 0D 28  20 51 55 45 4C 4C 45 20  |COMP ).( QUELLE |
00000200: 2C 20 5A 49 45 4C 20 2C  20 41 4E 5A 41 48 4C 20  |, ZIEL , ANZAHL |
00000210: 43 4F 50 59 20 29 0D 0D  46 49 4C 4C 20 46 55 45  |COPY )..FILL FUE|
00000220: 4C 4C 54 20 44 45 4E 20  D3 50 45 49 43 48 45 52  |LLT DEN .PEICHER|
00000230: 20 41 42 20 41 44 52 20  4D 49 54 20 45 49 4E 45  | AB ADR MIT EINE|
00000240: 52 20 C1 4E 5A 41 48 4C  20 DA 45 49 43 48 45 4E  |R .NZAHL .EICHEN|
00000250: 20 56 4F 4D 20 D7 45 52  54 20 57 45 52 54 2E 0D  | VOM .ERT WERT..|
00000260: 0D 46 49 4E 44 20 44 55  52 43 48 53 55 43 48 54  |.FIND DURCHSUCHT|
00000270: 20 45 49 4E 45 4E 20 D3  50 45 49 43 48 45 52 42  | EINEN .PEICHERB|
00000280: 45 52 45 49 43 48 20 56  4F 4E 20 41 4E 46 20 42  |EREICH VON ANF B|
00000290: 49 53 20 45 4E 44 45 20  4E 41 43 48 20 44 45 4D  |IS ENDE NACH DEM|
000002A0: 20 DA 45 49 43 48 45 4E  20 57 45 52 54 20 55 4E  | .EICHEN WERT UN|
000002B0: 44 20 4C 49 45 46 45 52  54 20 41 4C 53 20 C5 52  |D LIEFERT ALS .R|
000002C0: 47 45 42 4E 49 53 20 44  49 45 20 C1 44 52 45 53  |GEBNIS DIE .DRES|
000002D0: 53 45 2C 20 49 4E 20 44  45 52 20 44 41 53 20 DA  |SE, IN DER DAS .|
000002E0: 45 49 43 48 45 4E 20 56  4F 52 4C 49 45 47 54 2C  |EICHEN VORLIEGT,|
000002F0: 20 4F 44 45 52 20 CE 55  4C 4C 2C 20 46 41 4C 4C  | ODER .ULL, FALL|
00000300: 53 20 45 53 20 4E 49 43  48 54 20 49 4E 20 44 49  |S ES NICHT IN DI|
00000310: 45 53 45 4D 20 C2 45 52  45 49 43 48 20 47 45 46  |ESEM .EREICH GEF|
00000320: 55 4E 44 45 4E 20 57 55  52 44 45 2E 0D 0D 3C 3E  |UNDEN WURDE...<>|
00000330: 46 49 4E 44 20 53 55 43  48 54 20 4E 41 43 48 20  |FIND SUCHT NACH |
00000340: 45 49 4E 45 4D 20 DA 45  49 43 48 45 4E 20 55 4E  |EINEM .EICHEN UN|
00000350: 47 4C 45 49 43 48 20 57  45 52 54 2E 0D 0D 43 4F  |GLEICH WERT...CO|
00000360: 4D 50 20 56 45 52 47 4C  45 49 43 48 54 20 5A 57  |MP VERGLEICHT ZW|
00000370: 45 49 20 D3 50 45 49 43  48 45 52 42 45 52 45 49  |EI .PEICHERBEREI|
00000380: 43 48 45 20 41 44 52 31  20 55 4E 44 20 41 44 52  |CHE ADR1 UND ADR|
00000390: 32 20 41 55 46 20 45 49  4E 45 20 C1 4E 5A 41 48  |2 AUF EINE .NZAH|
000003A0: 4C 20 55 45 42 45 52 45  49 4E 53 54 49 4D 4D 45  |L UEBEREINSTIMME|
000003B0: 4E 44 45 52 20 C2 59 54  45 53 2E 20 C5 52 47 45  |NDER .YTES. .RGE|
000003C0: 42 4E 49 53 20 42 45 49  20 D5 45 42 45 52 45 49  |BNIS BEI .EBEREI|
000003D0: 4E 53 54 49 4D 4D 55 4E  47 20 49 53 54 20 30 58  |NSTIMMUNG IST 0X|
000003E0: 46 46 46 46 2C 20 41 4E  44 45 52 45 4E 46 41 4C  |FFFF, ANDERENFAL|
000003F0: 4C 53 20 CE 55 4C 4C 2E  0D 0D 3C 43 4F 4D 50 20  |LS .ULL...<COMP |
00000400: 56 45 52 47 4C 45 49 43  48 54 2C 20 4F 42 20 44  |VERGLEICHT, OB D|
00000410: 49 45 20 DA 45 49 43 48  45 4E 4B 45 54 54 45 20  |IE .EICHENKETTE |
00000420: 49 4E 20 41 44 52 31 20  41 4C 50 48 41 42 45 54  |IN ADR1 ALPHABET|
00000430: 49 53 43 48 20 4B 4C 45  49 4E 45 52 20 49 53 54  |ISCH KLEINER IST|
00000440: 2E 0D 0D 3E 43 4F 4D 50  20 56 45 52 47 4C 45 49  |...>COMP VERGLEI|
00000450: 43 48 54 20 41 55 46 20  41 4C 50 48 41 42 45 54  |CHT AUF ALPHABET|
00000460: 49 53 43 48 20 47 52 4F  45 53 53 45 52 2E 0D 0D  |ISCH GROESSER...|
00000470: 43 4F 50 59 20 4B 4F 50  49 45 52 54 20 41 55 53  |COPY KOPIERT AUS|
00000480: 20 51 55 45 4C 4C 45 20  45 49 4E 45 20 C1 4E 5A  | QUELLE EINE .NZ|
00000490: 41 48 4C 20 56 4F 4E 20  C2 59 54 45 53 20 4E 41  |AHL VON .YTES NA|
000004A0: 43 48 20 5A 49 45 4C 2E  20 C2 45 49 20 55 45 42  |CH ZIEL. .EI UEB|
000004B0: 45 52 4C 41 50 50 45 4E  44 45 4E 20 D3 50 45 49  |ERLAPPENDEN .PEI|
000004C0: 43 48 45 52 42 45 52 45  49 43 48 45 4E 20 57 45  |CHERBEREICHEN WE|
000004D0: 52 44 45 4E 2C 20 53 4F  46 45 52 4E 20 4E 41 43  |RDEN, SOFERN NAC|
000004E0: 48 20 48 4F 45 48 45 52  45 4E 20 C1 44 52 45 53  |H HOEHEREN .DRES|
000004F0: 53 45 4E 20 4B 4F 50 49  45 52 54 20 57 49 52 44  |SEN KOPIERT WIRD|
00000500: 2C 20 44 49 45 20 5A 55  20 4B 4F 50 49 45 52 45  |, DIE ZU KOPIERE|
00000510: 4E 44 45 4E 20 C4 41 54  45 4E 20 56 4F 4E 20 44  |NDEN .ATEN VON D|
00000520: 45 4E 20 CB 4F 50 49 45  4E 20 55 45 42 45 52 53  |EN .OPIEN UEBERS|
00000530: 43 48 52 49 45 42 45 4E  2E 20 C4 49 45 53 20 53  |CHRIEBEN. .IES S|
00000540: 4F 4C 4C 20 49 4E 20 45  49 4E 45 52 20 53 50 41  |OLL IN EINER SPA|
00000550: 45 54 45 52 45 4E 20 C3  D0 2D D6 45 52 53 49 4F  |ETEREN ..-.ERSIO|
00000560: 4E 20 47 45 41 45 4E 44  45 52 54 20 57 45 52 44  |N GEAENDERT WERD|
00000570: 45 4E 2E 0D 0D D5 4D 20  44 49 45 20 D3 43 48 4E  |EN....M DIE .CHN|
00000580: 45 4C 4C 49 47 4B 45 49  54 20 4E 4F 43 48 20 42  |ELLIGKEIT NOCH B|
00000590: 45 53 53 45 52 20 41 4C  53 20 49 4E 20 CC 45 4B  |ESSER ALS IN .EK|
000005A0: 54 49 4F 4E 37 20 53 45  48 45 4E 20 5A 55 20 4B  |TION7 SEHEN ZU K|
000005B0: 4F 45 4E 4E 45 4E 2C 20  53 43 48 52 45 49 42 54  |OENNEN, SCHREIBT|
000005C0: 20 55 4E 53 45 52 20 D0  52 4F 47 52 41 4D 4D 42  | UNSER .ROGRAMMB|
000005D0: 45 49 53 50 49 45 4C 20  44 49 45 53 4D 41 4C 20  |EISPIEL DIESMAL |
000005E0: 32 35 36 20 C2 49 4C 44  53 43 48 49 52 4D 45 20  |256 .ILDSCHIRME |
000005F0: 4D 49 54 20 4A 45 20 45  49 4E 45 4D 20 41 4E 44  |MIT JE EINEM AND|
00000600: 45 52 45 4E 20 DA 45 49  43 48 45 4E 20 56 4F 4C  |EREN .EICHEN VOL|
00000610: 4C 2E 20 C4 49 45 53 20  44 41 55 45 52 54 20 4C  |L. .IES DAUERT L|
00000620: 45 44 49 47 4C 49 43 48  20 53 49 45 42 45 4E 20  |EDIGLICH SIEBEN |
00000630: D3 45 4B 55 4E 44 45 4E  2E 0D 2A 2F 0D 0D 0D 4D  |.EKUNDEN..*/...M|
00000640: 41 49 4E 28 29 0D 42 45  47 49 4E 0D 20 20 49 4E  |AIN().BEGIN.  IN|
00000650: 54 20 57 45 52 54 20 30  20 3B 0D 3A 20 4C 41 42  |T WERT 0 ;.: LAB|
00000660: 20 28 20 31 30 32 34 20  2C 20 57 45 52 54 20 5D  | ( 1024 , WERT ]|
00000670: 20 2C 20 31 30 30 30 20  46 49 4C 4C 20 29 0D 20  | , 1000 FILL ). |
00000680: 20 57 45 52 54 20 42 59  20 2B 2B 5D 20 49 46 20  | WERT BY ++] IF |
00000690: 4C 41 42 0D 42 45 4E 44  0D 0D 2F 2A 20 D7 45 49  |LAB.BEND../* .EI|
000006A0: 54 45 52 20 4D 49 54 20  4C 45 4B 54 49 4F 4E 39  |TER MIT LEKTION9|
000006B0: 20 2A 2F                                          | */             |

/* LEKTION8..BLOCKFUNKTIONEN..ZEICHENKET
TEN, ALSO STRINGS, KOMMEN BEIM PROGRAMMI
EREN NICHT GERADE SELTEN VOR. SIE BYTEWE
ISE MIT EINFACHEN CP-BEFEHLEN ZU BEARBEI
TEN KOSTET ZEIT. DAMIT ES SUPERSCHNELL G
EHT, GIBT ES BEREITS DIE FERTIGEN, IN MA
SCHINENSPRACHE VORLIEGENDE ROUTINEN FILL
, FIND, <>FIND, COMP, <COMP, >COMP UND C
OPY:..( ADR , WERT , ANZAHL FILL ).( ANF
 , ENDE , WERT FIND ).( ANF , ENDE , WER
T <>FIND ).( ADR1 , ADR2 , ANZAHL COMP )
.( ADR1 , ADR2 , ANZAHL <COMP ).( ADR1 ,
 ADR2 , ANZAHL >COMP ).( QUELLE , ZIEL ,
 ANZAHL COPY )..FILL FUELLT DEN SPEICHER
 AB ADR MIT EINER ANZAHL ZEICHEN VOM WER
T WERT...FIND DURCHSUCHT EINEN SPEICHERB
EREICH VON ANF BIS ENDE NACH DEM ZEICHEN
 WERT UND LIEFERT ALS ERGEBNIS DIE ADRES
SE, IN DER DAS ZEICHEN VORLIEGT, ODER NU
LL, FALLS ES NICHT IN DIESEM BEREICH GEF
UNDEN WURDE...<>FIND SUCHT NACH EINEM ZE
ICHEN UNGLEICH WERT...COMP VERGLEICHT ZW
EI SPEICHERBEREICHE ADR1 UND ADR2 AUF EI
NE ANZAHL UEBEREINSTIMMENDER BYTES. ERGE
BNIS BEI UEBEREINSTIMMUNG IST 0XFFFF, AN
DERENFALLS NULL...<COMP VERGLEICHT, OB D
IE ZEICHENKETTE IN ADR1 ALPHABETISCH KLE
INER IST...>COMP VERGLEICHT AUF ALPHABET
ISCH GROESSER...COPY KOPIERT AUS QUELLE 
EINE ANZAHL VON BYTES NACH ZIEL. BEI UEB
ERLAPPENDEN SPEICHERBEREICHEN WERDEN, SO
FERN NACH HOEHEREN ADRESSEN KOPIERT WIRD
, DIE ZU KOPIERENDEN DATEN VON DEN KOPIE
N UEBERSCHRIEBEN. DIES SOLL IN EINER SPA
ETEREN CP-VERSION GEAENDERT WERDEN...UM 
DIE SCHNELLIGKEIT NOCH BESSER ALS IN LEK
TION7 SEHEN ZU KOENNEN, SCHREIBT UNSER P
ROGRAMMBEISPIEL DIESMAL 256 BILDSCHIRME 
MIT JE EINEM ANDEREN ZEICHEN VOLL. DIES 
DAUERT LEDIGLICH SIEBEN SEKUNDEN..*/...M
AIN().BEGIN.  INT WERT 0 ;.: LAB ( 1024 
, WERT ] , 1000 FILL ).  WERT BY ++] IF 
LAB.BEND../* WEITER MIT LEKTION9 */
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL