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

LEKTION5

FILE INFORMATION

FILENAME(S): LEKTION5

FILE TYPE(S): SEQ

FILE SIZE: 1.7K

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

APPEARS ON: 1 disk(s)

FILE HASH

d100d7cf54dfb05368d7081add1ecb25e2de05f5756c439ef3eccc979da2ea6f

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COMMODORE DISC53 LEKTION5 SEQ Treasure Chest - ToGuMi 23 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 2F 2A 20 CC 45 4B 54 49  4F 4E 35 0D 0D D3 50 52  |/* .EKTION5...PR|
00000010: 55 45 4E 47 45 20 55 4E  44 20 CD 41 52 4B 45 4E  |UENGE UND .ARKEN|
00000020: 0D 0D CF 48 4E 45 20 C7  CF D4 CF 20 55 4E 44 20  |...HNE .... UND |
00000030: C9 C6 20 49 4E 20 44 45  52 20 45 49 4E 45 4E 20  |.. IN DER EINEN |
00000040: 4F 44 45 52 20 41 4E 44  45 52 45 4E 20 C1 52 54  |ODER ANDEREN .RT|
00000050: 20 4B 4F 4D 4D 54 20 4B  45 49 4E 20 D0 52 4F 47  | KOMMT KEIN .ROG|
00000060: 52 41 4D 4D 20 41 55 53  2E 20 C3 D0 20 42 45 53  |RAMM AUS. .. BES|
00000070: 49 54 5A 54 20 44 49 45  20 D3 50 52 55 4E 47 42  |ITZT DIE .PRUNGB|
00000080: 45 46 45 48 4C 45 20 47  4F 2C 20 49 46 20 55 4E  |EFEHLE GO, IF UN|
00000090: 44 20 4E 49 46 2E 0D 0D  C7 4F 20 56 45 52 5A 57  |D NIF....O VERZW|
000000A0: 45 49 47 54 20 53 54 45  54 53 2C 20 49 46 20 42  |EIGT STETS, IF B|
000000B0: 45 49 20 45 49 4E 45 4D  20 D7 45 52 54 20 55 4E  |EI EINEM .ERT UN|
000000C0: 47 4C 45 49 43 48 20 CE  55 4C 4C 20 55 4E 44 20  |GLEICH .ULL UND |
000000D0: 4E 49 46 20 42 45 49 4D  20 D7 45 52 54 20 CE 55  |NIF BEIM .ERT .U|
000000E0: 4C 4C 2E 20 D3 50 52 55  45 4E 47 45 20 4B 4F 45  |LL. .PRUENGE KOE|
000000F0: 4E 4E 45 4E 20 4E 55 52  20 49 4E 4E 45 52 48 41  |NNEN NUR INNERHA|
00000100: 4C 42 20 45 49 4E 45 52  20 C6 55 4E 4B 54 49 4F  |LB EINER .UNKTIO|
00000110: 4E 20 53 54 41 54 54 46  49 4E 44 45 4E 2E 20 D3  |N STATTFINDEN. .|
00000120: 54 41 54 54 20 DA 45 49  4C 45 4E 4E 55 4D 4D 45  |TATT .EILENNUMME|
00000130: 52 4E 20 46 49 4E 44 45  4E 20 D3 50 52 55 4E 47  |RN FINDEN .PRUNG|
00000140: 4D 41 52 4B 45 4E 20 D6  45 52 57 45 4E 44 55 4E  |MARKEN .ERWENDUN|
00000150: 47 2C 20 44 49 45 20 44  55 52 43 48 20 45 49 4E  |G, DIE DURCH EIN|
00000160: 45 4E 20 C4 4F 50 50 45  4C 50 55 4E 4B 54 2C 20  |EN .OPPELPUNKT, |
00000170: 44 45 4D 20 44 45 52 20  CE 41 4D 45 20 44 45 52  |DEM DER .AME DER|
00000180: 20 D3 50 52 55 4E 47 4D  41 52 4B 45 20 46 4F 4C  | .PRUNGMARKE FOL|
00000190: 47 54 2C 20 44 45 46 49  4E 49 45 52 54 20 57 45  |GT, DEFINIERT WE|
000001A0: 52 44 45 4E 2E 20 C4 41  4D 49 54 20 49 53 54 20  |RDEN. .AMIT IST |
000001B0: 44 49 45 20 D0 52 4F 47  52 41 4D 4D 49 45 52 55  |DIE .ROGRAMMIERU|
000001C0: 4E 47 20 45 49 4E 45 52  20 C6 55 4E 4B 54 49 4F  |NG EINER .UNKTIO|
000001D0: 4E 2C 20 44 49 45 20 45  49 4E 45 4E 20 47 41 4E  |N, DIE EINEN GAN|
000001E0: 5A 45 4E 20 D3 54 52 49  4E 47 20 41 55 53 47 49  |ZEN .TRING AUSGI|
000001F0: 42 54 2C 20 4B 45 49 4E  20 D0 52 4F 42 4C 45 4D  |BT, KEIN .ROBLEM|
00000200: 20 4D 45 48 52 2E 20 C4  49 45 20 D3 50 52 55 4E  | MEHR. .IE .PRUN|
00000210: 47 4D 41 52 4B 45 20 42  52 41 55 43 48 54 20 44  |GMARKE BRAUCHT D|
00000220: 45 4D 20 C3 4F 4D 50 49  4C 45 52 20 42 45 49 20  |EM .OMPILER BEI |
00000230: 44 45 52 20 D5 45 42 45  52 53 45 54 5A 55 4E 47  |DER .EBERSETZUNG|
00000240: 20 44 45 52 20 D3 50 52  55 4E 47 41 4E 57 45 49  | DER .PRUNGANWEI|
00000250: 53 55 4E 47 20 4E 4F 43  48 20 4E 49 43 48 54 20  |SUNG NOCH NICHT |
00000260: 42 45 4B 41 4E 4E 54 20  5A 55 20 53 45 49 4E 2E  |BEKANNT ZU SEIN.|
00000270: 20 C4 41 44 55 52 43 48  20 53 49 4E 44 20 D6 4F  | .ADURCH SIND .O|
00000280: 52 57 41 45 52 54 53 53  50 52 55 45 4E 47 45 20  |RWAERTSSPRUENGE |
00000290: 4D 4F 45 47 4C 49 43 48  2E 20 D7 55 52 44 45 20  |MOEGLICH. .URDE |
000002A0: 45 49 4E 45 20 D3 50 52  55 4E 47 4D 41 52 4B 45  |EINE .PRUNGMARKE|
000002B0: 20 56 45 52 47 45 53 53  45 4E 2C 20 53 50 52 49  | VERGESSEN, SPRI|
000002C0: 4E 47 54 20 44 45 52 20  C3 4F 4D 50 49 4C 45 52  |NGT DER .OMPILER|
000002D0: 20 49 4E 20 44 45 4E 20  C5 44 49 54 4F 52 2C 20  | IN DEN .DITOR, |
000002E0: 57 4F 42 45 49 20 41 4C  4C 45 52 44 49 4E 47 53  |WOBEI ALLERDINGS|
000002F0: 20 44 45 52 20 C3 55 52  53 4F 52 20 4E 49 43 48  | DER .URSOR NICH|
00000300: 54 20 48 49 4E 54 45 52  20 44 45 4D 20 55 4E 42  |T HINTER DEM UNB|
00000310: 45 4B 41 4E 4E 54 45 4E  20 D7 4F 52 54 20 53 54  |EKANNTEN .ORT ST|
00000320: 45 48 54 2C 20 53 4F 4E  44 45 52 4E 20 48 49 4E  |EHT, SONDERN HIN|
00000330: 54 45 52 20 44 45 4D 20  C5 4E 44 45 20 44 45 52  |TER DEM .NDE DER|
00000340: 20 C6 55 4E 4B 54 49 4F  4E 2C 20 49 4E 20 44 45  | .UNKTION, IN DE|
00000350: 52 20 45 49 4E 45 20 D3  50 52 55 4E 47 4D 41 52  |R EINE .PRUNGMAR|
00000360: 4B 45 20 46 45 48 4C 54  2E 20 2A 2F 0D 0D 0D 44  |KE FEHLT. */...D|
00000370: 45 46 20 5D 5D 2B 2B 20  5D 2B 2B 20 42 59 20 5D  |EF ]]++ ]++ BY ]|
00000380: 3B 0D 0D 56 4F 49 44 20  50 55 54 43 28 20 29 0D  |;..VOID PUTC( ).|
00000390: 42 45 47 49 4E 0D 20 20  41 43 20 42 59 20 3D 20  |BEGIN.  AC BY = |
000003A0: 30 58 46 46 44 32 20 53  59 53 0D 42 45 4E 44 0D  |0XFFD2 SYS.BEND.|
000003B0: 0D 56 4F 49 44 20 50 55  54 4C 28 20 29 0D 49 4E  |.VOID PUTL( ).IN|
000003C0: 54 20 5A 47 20 3B 0D 42  45 47 49 4E 0D 20 20 5A  |T ZG ;.BEGIN.  Z|
000003D0: 47 20 3D 20 47 4F 20 52  44 0D 3A 20 57 52 20 50  |G = GO RD.: WR P|
000003E0: 55 54 43 0D 3A 20 52 44  20 5A 47 20 5D 5D 2B 2B  |UTC.: RD ZG ]]++|
000003F0: 20 49 46 20 57 52 0D 42  45 4E 44 0D 0D 43 48 41  | IF WR.BEND..CHA|
00000400: 52 20 47 45 54 43 28 20  29 0D 42 45 47 49 4E 0D  |R GETC( ).BEGIN.|
00000410: 20 20 30 58 46 46 45 34  20 53 59 53 20 41 43 20  |  0XFFE4 SYS AC |
00000420: 42 59 20 5D 0D 42 45 4E  44 0D 0D 43 48 41 52 20  |BY ].BEND..CHAR |
00000430: 4B 45 59 28 20 29 0D 42  45 47 49 4E 0D 3A 20 4E  |KEY( ).BEGIN.: N|
00000440: 45 58 54 20 47 45 54 43  20 4E 49 46 20 4E 45 58  |EXT GETC NIF NEX|
00000450: 54 0D 42 45 4E 44 0D 0D  4D 41 49 4E 28 29 0D 42  |T.BEND..MAIN().B|
00000460: 45 47 49 4E 0D 22 2F 31  34 37 2F 4E 0D 20 20 20  |EGIN."/147/N.   |
00000470: 20 20 20 20 20 20 D0 52  49 4D 41 20 D4 45 58 54  |      .RIMA .EXT|
00000480: 41 55 53 47 41 42 45 2F  4E 2F 4E 0D C4 41 53 20  |AUSGABE/N/N..AS |
00000490: 53 4F 4C 4C 54 45 4E 20  D3 49 45 20 45 49 4E 4D  |SOLLTEN .IE EINM|
000004A0: 41 4C 20 50 52 4F 42 49  45 52 45 4E 2E 2F 4E 0D  |AL PROBIEREN./N.|
000004B0: C5 49 4E 46 41 43 48 20  44 45 4E 20 C2 49 4C 44  |.INFACH DEN .ILD|
000004C0: 53 43 48 49 52 4D 20 56  4F 4C 4C 53 43 48 52 45  |SCHIRM VOLLSCHRE|
000004D0: 49 42 45 4E 2C 2F 4E 0D  5A 55 20 C2 45 47 49 4E  |IBEN,/N.ZU .EGIN|
000004E0: 4E 20 55 4E 44 20 41 4D  20 C5 4E 44 45 20 44 4F  |N UND AM .NDE DO|
000004F0: 50 50 45 4C 54 45 20 C1  4E 2D 2F 4E 0D 46 55 45  |PPELTE .N-/N.FUE|
00000500: 48 52 55 4E 47 53 5A 45  49 43 48 45 4E 20 53 45  |HRUNGSZEICHEN SE|
00000510: 54 5A 45 4E 20 55 4E 44  20 44 49 45 2F 4E 0D D2  |TZEN UND DIE/N..|
00000520: 45 54 55 52 4E 5A 45 49  43 48 45 4E 2C 20 44 49  |ETURNZEICHEN, DI|
00000530: 45 20 44 45 52 20 C3 4F  4D 50 49 4C 45 52 20 41  |E DER .OMPILER A|
00000540: 4C 53 2F 4E 0D CC 45 45  52 5A 45 49 43 48 45 4E  |LS/N..EERZEICHEN|
00000550: 20 41 4E 53 45 48 45 4E  20 57 55 45 52 44 45 20  | ANSEHEN WUERDE |
00000560: 44 55 52 43 48 2F 4E 0D  2F 2F 4E 20 45 52 53 45  |DURCH/N.//N ERSE|
00000570: 54 5A 45 4E 2E 2F 4E 2F  4E 0D C4 49 45 20 C6 55  |TZEN./N/N..IE .U|
00000580: 4E 4B 54 49 4F 4E 20 50  55 54 4C 20 4B 41 4E 4E  |NKTION PUTL KANN|
00000590: 20 57 45 49 54 20 4D 45  48 52 20 41 4C 53 2F 4E  | WEIT MEHR ALS/N|
000005A0: 0D 45 49 4E 45 4E 20 47  41 4E 5A 45 4E 20 C2 49  |.EINEN GANZEN .I|
000005B0: 4C 44 53 43 48 49 52 4D  20 41 55 53 47 45 42 45  |LDSCHIRM AUSGEBE|
000005C0: 4E 2E 2F 4E 2F 4E 0D C4  49 45 20 C6 55 4E 4B 54  |N./N/N..IE .UNKT|
000005D0: 49 4F 4E 20 47 45 54 43  20 4C 49 45 53 54 20 45  |ION GETC LIEST E|
000005E0: 49 4E 20 DA 45 49 43 48  45 4E 2F 4E 0D 45 49 4E  |IN .EICHEN/N.EIN|
000005F0: 2C 20 4B 45 59 20 4D 41  43 48 54 20 44 41 53 53  |, KEY MACHT DASS|
00000600: 45 4C 42 45 2C 20 57 41  52 54 45 54 20 41 42 45  |ELBE, WARTET ABE|
00000610: 52 2F 4E 0D 42 49 53 20  4B 45 49 4E 20 CE 55 4C  |R/N.BIS KEIN .UL|
00000620: 4C 42 59 54 45 20 4D 45  48 52 20 4B 4F 4D 4D 54  |LBYTE MEHR KOMMT|
00000630: 2E 2F 4E 2F 4E 2F 4E 0D  D7 45 49 54 45 52 20 4D  |./N/N/N..EITER M|
00000640: 49 54 20 42 45 4C 49 45  42 49 47 45 52 20 D4 41  |IT BELIEBIGER .A|
00000650: 53 54 45 22 20 50 55 54  4C 20 4B 45 59 0D 42 45  |STE" PUTL KEY.BE|
00000660: 4E 44 0D 0D 2F 2A 20 C4  49 45 53 4D 41 4C 2C 20  |ND../* .IESMAL, |
00000670: 44 41 20 44 41 53 20 D7  41 52 54 45 4E 20 41 55  |DA DAS .ARTEN AU|
00000680: 46 20 45 49 4E 45 4E 20  D4 41 53 54 45 4E 44 52  |F EINEN .ASTENDR|
00000690: 55 43 4B 20 4D 49 54 20  4B 45 59 20 52 45 41 4C  |UCK MIT KEY REAL|
000006A0: 49 53 49 45 52 54 20 57  55 52 44 45 2C 20 4B 4F  |ISIERT WURDE, KO|
000006B0: 45 4E 4E 45 4E 20 D3 49  45 20 41 55 43 48 20 4D  |ENNEN .IE AUCH M|
000006C0: 49 54 20 CD 45 4E 55 45  50 55 4E 4B 54 20 36 20  |IT .ENUEPUNKT 6 |
000006D0: 53 54 41 52 54 45 4E 2E  20 D7 45 49 54 45 52 20  |STARTEN. .EITER |
000006E0: 4D 49 54 20 4C 45 4B 54  49 4F 4E 36 20 2A 2F 0D  |MIT LEKTION6 */.|

/* LEKTION5..SPRUENGE UND MARKEN..OHNE G
OTO UND IF IN DER EINEN ODER ANDEREN ART
 KOMMT KEIN PROGRAMM AUS. CP BESITZT DIE
 SPRUNGBEFEHLE GO, IF UND NIF...GO VERZW
EIGT STETS, IF BEI EINEM WERT UNGLEICH N
ULL UND NIF BEIM WERT NULL. SPRUENGE KOE
NNEN NUR INNERHALB EINER FUNKTION STATTF
INDEN. STATT ZEILENNUMMERN FINDEN SPRUNG
MARKEN VERWENDUNG, DIE DURCH EINEN DOPPE
LPUNKT, DEM DER NAME DER SPRUNGMARKE FOL
GT, DEFINIERT WERDEN. DAMIT IST DIE PROG
RAMMIERUNG EINER FUNKTION, DIE EINEN GAN
ZEN STRING AUSGIBT, KEIN PROBLEM MEHR. D
IE SPRUNGMARKE BRAUCHT DEM COMPILER BEI 
DER UEBERSETZUNG DER SPRUNGANWEISUNG NOC
H NICHT BEKANNT ZU SEIN. DADURCH SIND VO
RWAERTSSPRUENGE MOEGLICH. WURDE EINE SPR
UNGMARKE VERGESSEN, SPRINGT DER COMPILER
 IN DEN EDITOR, WOBEI ALLERDINGS DER CUR
SOR NICHT HINTER DEM UNBEKANNTEN WORT ST
EHT, SONDERN HINTER DEM ENDE DER FUNKTIO
N, IN DER EINE SPRUNGMARKE FEHLT. */...D
EF ]]++ ]++ BY ];..VOID PUTC( ).BEGIN.  
AC BY = 0XFFD2 SYS.BEND..VOID PUTL( ).IN
T ZG ;.BEGIN.  ZG = GO RD.: WR PUTC.: RD
 ZG ]]++ IF WR.BEND..CHAR GETC( ).BEGIN.
  0XFFE4 SYS AC BY ].BEND..CHAR KEY( ).B
EGIN.: NEXT GETC NIF NEXT.BEND..MAIN().B
EGIN."/147/N.         PRIMA TEXTAUSGABE/
N/N.DAS SOLLTEN SIE EINMAL PROBIEREN./N.
EINFACH DEN BILDSCHIRM VOLLSCHREIBEN,/N.
ZU BEGINN UND AM ENDE DOPPELTE AN-/N.FUE
HRUNGSZEICHEN SETZEN UND DIE/N.RETURNZEI
CHEN, DIE DER COMPILER ALS/N.LEERZEICHEN
 ANSEHEN WUERDE DURCH/N.//N ERSETZEN./N/
N.DIE FUNKTION PUTL KANN WEIT MEHR ALS/N
.EINEN GANZEN BILDSCHIRM AUSGEBEN./N/N.D
IE FUNKTION GETC LIEST EIN ZEICHEN/N.EIN
, KEY MACHT DASSELBE, WARTET ABER/N.BIS 
KEIN NULLBYTE MEHR KOMMT./N/N/N.WEITER M
IT BELIEBIGER TASTE" PUTL KEY.BEND../* D
IESMAL, DA DAS WARTEN AUF EINEN TASTENDR
UCK MIT KEY REALISIERT WURDE, KOENNEN SI
E AUCH MIT MENUEPUNKT 6 STARTEN. WEITER 
MIT LEKTION6 */.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL