LEKTION9
FILE INFORMATION
FILENAME(S): LEKTION9
FILE TYPE(S): SEQ
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-02 22:11:06
APPEARS ON: 1 disk(s)
FILE HASH
7ebbaee6ba7597205beedd9115a9f771fbfa4a22fbd3996ad903c129b15b00d7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE DISC53 | LEKTION9 | SEQ | Treasure Chest - ToGuMi | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: CC 45 4B 54 49 4F 4E 20 39 0D 0D D3 59 53 54 45 |.EKTION 9...YSTE| 00000010: 4D 4B 4F 4E 53 54 41 4E 54 45 4E 20 55 4E 44 20 |MKONSTANTEN UND | 00000020: D2 4F 55 54 49 4E 45 4E 0D 0D C4 41 4D 49 54 20 |.OUTINEN...AMIT | 00000030: 55 4E 54 45 52 53 43 48 49 45 44 4C 49 43 48 45 |UNTERSCHIEDLICHE| 00000040: 20 C1 44 52 45 53 53 45 4E 20 42 45 49 4D 20 C3 | .DRESSEN BEIM .| 00000050: 36 34 20 55 4E 44 20 C3 31 32 38 20 4B 45 49 4E |64 UND .128 KEIN| 00000060: 20 D0 52 4F 42 4C 45 4D 20 44 41 52 53 54 45 4C | .ROBLEM DARSTEL| 00000070: 4C 45 4E 2C 20 47 49 42 54 20 45 53 20 45 49 4E |LEN, GIBT ES EIN| 00000080: 45 4E 20 C2 45 46 45 48 4C 2C 20 44 45 52 20 46 |EN .EFEHL, DER F| 00000090: 55 45 52 20 C7 45 4D 45 49 4E 53 41 4D 4B 45 49 |UER .EMEINSAMKEI| 000000A0: 54 20 53 4F 52 47 54 2E 20 C5 49 4E 45 20 CE 55 |T SORGT. .INE .U| 000000B0: 4D 4D 45 52 2C 20 47 45 46 4F 4C 47 54 20 56 4F |MMER, GEFOLGT VO| 000000C0: 4D 20 C2 45 46 45 48 4C 20 53 59 53 43 4F 4E 2C |M .EFEHL SYSCON,| 000000D0: 20 4C 49 45 46 45 52 54 20 46 4F 4C 47 45 4E 44 | LIEFERT FOLGEND| 000000E0: 45 20 D7 45 52 54 45 3A 0D 0D 30 20 53 59 53 43 |E .ERTE:..0 SYSC| 000000F0: 4F 4E 20 3A 20 36 34 20 42 45 49 4D 20 C3 36 34 |ON : 64 BEIM .64| 00000100: 2C 20 31 32 38 20 42 45 49 4D 20 C3 31 32 38 0D |, 128 BEIM .128.| 00000110: 31 20 53 59 53 43 4F 4E 20 3A 20 C1 4E 46 41 4E |1 SYSCON : .NFAN| 00000120: 47 20 44 45 53 20 46 52 45 49 45 4E 20 D3 50 45 |G DES FREIEN .PE| 00000130: 49 43 48 45 52 53 0D 32 20 53 59 53 43 4F 4E 20 |ICHERS.2 SYSCON | 00000140: 3A 20 C5 4E 44 45 20 44 45 53 20 46 52 45 49 45 |: .NDE DES FREIE| 00000150: 4E 20 D3 50 45 49 43 48 45 52 53 0D 33 20 53 59 |N .PEICHERS.3 SY| 00000160: 53 43 4F 4E 20 3A 20 C1 44 52 45 53 53 45 20 46 |SCON : .DRESSE F| 00000170: 55 45 52 20 DA 45 49 43 48 45 4E 5A 41 48 4C 20 |UER .EICHENZAHL | 00000180: 49 4D 0D 20 20 20 20 20 20 20 20 20 20 20 D4 41 |IM. .A| 00000190: 53 54 41 54 55 52 50 55 46 46 45 52 0D 34 20 53 |STATURPUFFER.4 S| 000001A0: 59 53 43 4F 4E 20 3A 20 C1 44 52 45 53 53 45 20 |YSCON : .DRESSE | 000001B0: 44 45 53 20 D4 41 53 54 41 54 55 52 50 55 46 46 |DES .ASTATURPUFF| 000001C0: 45 52 53 0D 35 20 53 59 53 43 4F 4E 20 3A 20 C1 |ERS.5 SYSCON : .| 000001D0: 44 52 45 53 53 45 20 46 55 45 52 20 DA 45 49 43 |DRESSE FUER .EIC| 000001E0: 48 45 4E 46 41 52 42 45 0D 0D D7 41 53 20 44 45 |HENFARBE...AS DE| 000001F0: 52 20 C3 D0 2D D0 52 4F 47 52 41 4D 4D 49 45 52 |R ..-.ROGRAMMIER| 00000200: 45 52 20 41 55 BE 45 52 20 44 45 4E 20 C3 D0 2D |ER AU.ER DEN ..-| 00000210: C2 45 46 45 48 4C 45 4E 20 42 52 41 55 43 48 54 |.EFEHLEN BRAUCHT| 00000220: 2C 20 53 49 4E 44 20 46 45 52 54 49 47 45 20 D2 |, SIND FERTIGE .| 00000230: 4F 55 54 49 4E 45 4E 20 46 BD 52 20 D3 54 52 49 |OUTINEN F.R .TRI| 00000240: 4E 47 42 45 41 52 42 45 49 54 55 4E 47 20 55 4E |NGBEARBEITUNG UN| 00000250: 44 20 C5 49 4E 2D 20 55 4E 44 20 C1 55 53 47 41 |D .IN- UND .USGA| 00000260: 42 45 4E 2E 20 C4 49 45 20 D2 4F 55 54 49 4E 45 |BEN. .IE .OUTINE| 00000270: 4E 53 41 4D 4D 4C 55 4E 47 20 43 50 52 4F 55 54 |NSAMMLUNG CPROUT| 00000280: 20 45 4E 54 48 BB 4C 54 20 53 4F 5A 55 53 41 47 | ENTH.LT SOZUSAG| 00000290: 45 4E 20 44 49 45 20 C7 52 55 4E 44 41 55 53 53 |EN DIE .RUNDAUSS| 000002A0: 54 41 54 54 55 4E 47 3A 0D 0D 0D D3 54 52 49 4E |TATTUNG:....TRIN| 000002B0: 47 46 55 4E 4B 54 49 4F 4E 45 4E 0D 0D D3 54 52 |GFUNKTIONEN...TR| 000002C0: 49 4E 47 53 20 53 49 4E 44 20 45 49 4E 45 20 44 |INGS SIND EINE D| 000002D0: 55 52 43 48 20 45 49 4E 20 CE 55 4C 4C 42 59 54 |URCH EIN .ULLBYT| 000002E0: 45 20 41 42 47 45 53 43 48 4C 4F 53 53 45 4E 45 |E ABGESCHLOSSENE| 000002F0: 20 DA 45 49 43 48 45 4E 4B 45 54 54 45 2E 20 DA | .EICHENKETTE. .| 00000300: 55 52 20 D3 54 52 49 4E 47 42 45 41 52 42 45 49 |UR .TRINGBEARBEI| 00000310: 54 55 4E 47 20 44 49 45 4E 45 4E 20 56 49 45 52 |TUNG DIENEN VIER| 00000320: 20 47 52 55 4E 44 4C 45 47 45 4E 44 45 20 C6 55 | GRUNDLEGENDE .U| 00000330: 4E 4B 54 49 4F 4E 45 4E 20 4C 45 4E 2C 20 24 3C |NKTIONEN LEN, $<| 00000340: 2C 20 49 4E 43 48 41 52 20 55 4E 44 20 56 41 4C |, INCHAR UND VAL| 00000350: 2E 0D 0D 4C 45 4E 0D 2D 2D 2D 0D C4 49 45 20 C6 |...LEN.---..IE .| 00000360: 55 4E 4B 54 49 4F 4E 20 4C 45 4E 20 4C 49 45 46 |UNKTION LEN LIEF| 00000370: 45 52 54 20 44 49 45 20 CC 41 45 4E 47 45 20 45 |ERT DIE .AENGE E| 00000380: 49 4E 45 53 20 D3 54 52 49 4E 47 3A 0D 0D 20 22 |INES .TRING:.. "| 00000390: 41 42 43 22 20 4C 45 4E 0D 0D C4 41 53 20 C5 52 |ABC" LEN...AS .R| 000003A0: 47 45 42 4E 49 53 20 57 41 45 52 45 20 48 49 45 |GEBNIS WAERE HIE| 000003B0: 52 20 44 52 45 49 2E 0D 0D 24 3C 0D 2D 2D 0D 0D |R DREI...$<.--..| 000003C0: C4 49 45 53 45 20 C6 55 4E 4B 54 49 4F 4E 20 4B |.IESE .UNKTION K| 000003D0: 4F 50 49 45 52 54 20 D3 54 52 49 4E 47 53 2E 20 |OPIERT .TRINGS. | 000003E0: D3 49 45 20 46 41 45 4C 4C 54 20 45 54 57 41 53 |.IE FAELLT ETWAS| 000003F0: 20 41 55 53 20 44 45 4D 20 D2 41 48 4D 45 4E 2C | AUS DEM .AHMEN,| 00000400: 20 44 41 20 53 49 45 20 57 49 45 20 45 49 4E 20 | DA SIE WIE EIN | 00000410: CF 50 45 52 41 54 4F 52 20 4D 49 54 20 5A 57 45 |.PERATOR MIT ZWE| 00000420: 49 20 D0 41 52 41 4D 45 54 45 52 4E 20 49 4E 20 |I .ARAMETERN IN | 00000430: 44 45 4E 20 D2 45 47 49 53 54 45 52 4E 20 CE D2 |DEN .EGISTERN ..| 00000440: 20 55 4E 44 20 C8 D2 20 41 52 42 45 49 54 45 54 | UND .. ARBEITET| 00000450: 3A 0D 0D 20 5A 49 45 4C 20 51 55 45 4C 4C 45 20 |:.. ZIEL QUELLE | 00000460: 24 3C 0D 0D C4 45 52 20 D1 55 45 4C 4C 53 54 52 |$<...ER .UELLSTR| 00000470: 49 4E 47 20 57 49 52 44 20 41 4E 20 44 49 45 20 |ING WIRD AN DIE | 00000480: DA 49 45 4C 41 44 52 45 53 53 45 20 4B 4F 50 49 |.IELADRESSE KOPI| 00000490: 45 52 54 2E 20 C5 53 20 48 45 49 53 53 54 20 41 |ERT. .S HEISST A| 000004A0: 55 46 5A 55 50 41 53 53 45 4E 2C 20 44 41 53 53 |UFZUPASSEN, DASS| 000004B0: 20 44 4F 52 54 20 41 55 53 52 45 49 43 48 45 4E | DORT AUSREICHEN| 000004C0: 44 20 D0 4C 41 54 5A 20 49 53 54 2E 20 C4 49 45 |D .LATZ IST. .IE| 000004D0: 20 C6 55 4E 4B 54 49 4F 4E 20 4C 49 45 46 45 52 | .UNKTION LIEFER| 000004E0: 54 20 44 41 53 20 4D 49 54 20 CE 55 4C 4C 20 4D |T DAS MIT .ULL M| 000004F0: 41 52 4B 49 45 52 54 45 20 C5 4E 44 45 20 44 45 |ARKIERTE .NDE DE| 00000500: 53 20 4E 45 55 45 4E 20 D3 54 52 49 4E 47 53 20 |S NEUEN .TRINGS | 00000510: 41 4C 53 20 C5 52 47 45 42 4E 49 53 2E 20 C4 49 |ALS .RGEBNIS. .I| 00000520: 45 53 45 53 20 4B 41 4E 4E 20 53 4F 47 4C 45 49 |ESES KANN SOGLEI| 00000530: 43 48 20 42 45 4E 55 54 5A 54 20 57 45 52 44 45 |CH BENUTZT WERDE| 00000540: 4E 20 55 4D 20 4D 45 48 52 45 52 45 20 D3 54 52 |N UM MEHRERE .TR| 00000550: 49 4E 47 53 20 5A 55 20 45 49 4E 45 4D 20 45 49 |INGS ZU EINEM EI| 00000560: 4E 5A 49 47 45 4E 20 5A 55 20 56 45 52 45 49 4E |NZIGEN ZU VEREIN| 00000570: 45 4E 3A 0D 0D 20 5A 49 45 4C 20 53 54 52 49 4E |EN:.. ZIEL STRIN| 00000580: 47 31 20 24 3C 20 53 54 52 49 4E 47 32 20 24 3C |G1 $< STRING2 $<| 00000590: 20 53 54 52 49 4E 47 33 20 24 3C 0D 0D D3 4F 4C | STRING3 $<...OL| 000005A0: 4C 20 41 4E 20 45 49 4E 45 4E 20 42 45 52 45 49 |L AN EINEN BEREI| 000005B0: 54 53 20 42 45 53 54 45 48 45 4E 44 45 4E 20 D3 |TS BESTEHENDEN .| 000005C0: 54 52 49 4E 47 20 45 54 57 41 53 20 41 4E 47 45 |TRING ETWAS ANGE| 000005D0: 46 55 45 47 54 20 57 45 52 44 45 4E 2C 20 47 45 |FUEGT WERDEN, GE| 000005E0: 53 43 48 49 45 48 54 20 44 49 45 53 45 53 20 44 |SCHIEHT DIESES D| 000005F0: 55 52 43 48 3A 0D 0D 20 5A 49 45 4C 20 28 20 4C |URCH:.. ZIEL ( L| 00000600: 45 4E 20 29 20 2B 20 5A 55 53 41 54 5A 20 24 3C |EN ) + ZUSATZ $<| 00000610: 0D 0D 49 4E 43 48 41 52 0D 2D 2D 2D 2D 2D 2D 0D |..INCHAR.------.| 00000620: C8 49 45 52 4D 49 54 20 4C 41 45 53 53 54 20 53 |.IERMIT LAESST S| 00000630: 49 43 48 20 44 49 45 20 D0 4F 53 49 54 49 4F 4E |ICH DIE .OSITION| 00000640: 20 45 49 4E 45 53 20 DA 45 49 43 48 45 4E 53 20 | EINES .EICHENS | 00000650: 49 4E 20 45 49 4E 45 4D 20 D3 54 52 49 4E 47 20 |IN EINEM .TRING | 00000660: 42 45 53 54 49 4D 4D 45 4E 3A 0D 0D 20 20 28 20 |BESTIMMEN:.. ( | 00000670: 22 D3 54 52 49 4E 47 22 20 2C 20 27 4E 27 20 49 |".TRING" , 'N' I| 00000680: 4E 43 48 41 52 20 29 0D 0D C9 53 54 20 44 41 53 |NCHAR )...ST DAS| 00000690: 20 DA 45 49 43 48 45 4E 20 44 4F 52 54 20 4E 49 | .EICHEN DORT NI| 000006A0: 43 48 54 20 56 4F 52 48 41 4E 44 45 4E 2C 20 53 |CHT VORHANDEN, S| 000006B0: 4F 20 49 53 54 20 44 41 53 20 C5 52 47 45 42 4E |O IST DAS .RGEBN| 000006C0: 49 53 20 CE 55 4C 4C 2E 20 C1 4E 44 45 52 45 4E |IS .ULL. .NDEREN| 000006D0: 46 41 4C 4C 53 20 45 52 48 41 45 4C 54 20 4D 41 |FALLS ERHAELT MA| 000006E0: 4E 20 44 49 45 20 D0 4F 53 49 54 49 4F 4E 20 49 |N DIE .OSITION I| 000006F0: 4E 20 44 45 52 20 DA 45 49 43 48 45 4E 4B 45 54 |N DER .EICHENKET| 00000700: 54 45 2E 20 C8 49 45 52 20 57 41 45 52 45 20 44 |TE. .IER WAERE D| 00000710: 41 53 20 C5 52 47 45 42 4E 49 53 20 46 55 45 4E |AS .RGEBNIS FUEN| 00000720: 46 2E 20 D5 4D 20 44 49 45 53 45 4E 20 D7 45 52 |F. .M DIESEN .ER| 00000730: 54 20 5A 55 4D 20 DA 55 47 52 49 46 46 20 41 55 |T ZUM .UGRIFF AU| 00000740: 46 20 44 49 45 20 D0 4F 53 49 54 49 4F 4E 20 49 |F DIE .OSITION I| 00000750: 4D 20 D3 54 52 49 4E 47 20 5A 55 20 56 45 52 57 |M .TRING ZU VERW| 00000760: 45 4E 44 45 4E 2C 20 4D 55 53 53 20 45 52 20 55 |ENDEN, MUSS ER U| 00000770: 4D 20 45 49 4E 53 20 56 45 52 52 49 4E 47 45 52 |M EINS VERRINGER| 00000780: 54 20 55 4E 44 20 5A 55 52 20 D3 54 52 49 4E 47 |T UND ZUR .TRING| 00000790: 41 44 52 45 53 53 45 20 41 44 44 49 45 52 54 20 |ADRESSE ADDIERT | 000007A0: 57 45 52 44 45 4E 3A 0D 0D 20 20 53 54 52 20 28 |WERDEN:.. STR (| 000007B0: 20 2C 20 27 41 27 20 49 4E 43 48 41 52 20 29 20 | , 'A' INCHAR ) | 000007C0: 4E 49 46 20 4E 49 58 20 2B 20 31 20 2D 0D 0D 56 |NIF NIX + 1 -..V| 000007D0: 41 4C 0D 2D 2D 2D 0D C5 53 20 57 49 52 44 20 44 |AL.---..S WIRD D| 000007E0: 45 52 20 DA 41 48 4C 45 4E 57 45 52 54 20 45 49 |ER .AHLENWERT EI| 000007F0: 4E 45 52 20 49 4E 20 C6 4F 52 4D 20 56 4F 4E 20 |NER IN .ORM VON | 00000800: DA 49 46 46 45 52 4E 5A 45 49 43 48 45 4E 20 56 |.IFFERNZEICHEN V| 00000810: 4F 52 4C 49 45 47 45 4E 44 45 4E 20 DA 45 49 43 |ORLIEGENDEN .EIC| 00000820: 48 45 4E 4B 45 54 54 45 20 45 52 52 45 43 48 4E |HENKETTE ERRECHN| 00000830: 45 54 2E 20 D6 4F 52 41 4E 47 45 53 54 45 4C 4C |ET. .ORANGESTELL| 00000840: 54 45 20 CC 45 45 52 5A 45 49 43 48 45 4E 20 53 |TE .EERZEICHEN S| 00000850: 49 4E 44 20 45 52 4C 41 55 42 54 2E 20 C5 49 4E |IND ERLAUBT. .IN| 00000860: 20 4E 41 43 48 46 4F 4C 47 45 4E 44 45 53 20 CC | NACHFOLGENDES .| 00000870: 45 45 52 5A 45 49 43 48 45 4E 20 53 4F 57 49 45 |EERZEICHEN SOWIE| 00000880: 20 45 49 4E 20 CE 55 4C 4C 42 59 54 45 20 53 49 | EIN .ULLBYTE SI| 00000890: 47 4E 41 4C 49 53 49 45 52 45 4E 20 44 41 53 20 |GNALISIEREN DAS | 000008A0: C5 4E 44 45 3A 0D 0D 20 22 20 31 32 20 C4 49 53 |.NDE:.. " 12 .IS| 000008B0: 4B 45 54 54 45 4E 20 22 20 56 41 4C 0D 0D C4 41 |KETTEN " VAL...A| 000008C0: 53 20 C5 52 47 45 42 4E 49 53 20 49 53 54 20 48 |S .RGEBNIS IST H| 000008D0: 49 45 52 20 5A 57 4F 45 4C 46 2E 20 C2 45 4E 4F |IER ZWOELF. .ENO| 000008E0: 45 54 49 47 54 20 57 49 52 44 20 56 41 4C 20 42 |ETIGT WIRD VAL B| 000008F0: 45 53 4F 4E 44 45 52 53 20 49 4E 20 D6 45 52 42 |ESONDERS IN .ERB| 00000900: 49 4E 44 55 4E 47 20 4D 49 54 20 DA 41 48 4C 45 |INDUNG MIT .AHLE| 00000910: 4E 45 49 4E 47 41 42 45 4E 2E 0D 0D 0D 53 43 41 |NEINGABEN....SCA| 00000920: 4E 0D 2D 2D 2D 2D 0D D3 43 41 4E 20 44 55 52 43 |N.----..CAN DURC| 00000930: 48 53 55 43 48 54 20 45 49 4E 45 4E 20 D3 50 45 |HSUCHT EINEN .PE| 00000940: 49 43 48 45 52 42 45 52 45 49 43 48 20 56 4F 4E |ICHERBEREICH VON| 00000950: 20 41 4E 20 42 49 53 20 45 4E 20 4E 41 43 48 20 | AN BIS EN NACH | 00000960: 45 49 4E 45 52 20 DA 45 49 43 48 45 4E 4B 45 54 |EINER .EICHENKET| 00000970: 54 45 20 5A 4B 20 44 45 52 20 CC BB 4E 47 45 20 |TE ZK DER ..NGE | 00000980: 5A 4C 2E 20 C4 41 53 20 C5 52 47 45 42 4E 49 53 |ZL. .AS .RGEBNIS| 00000990: 20 45 49 4E 45 52 20 45 52 46 4F 4C 47 4C 4F 53 | EINER ERFOLGLOS| 000009A0: 45 4E 20 D3 55 43 48 45 20 49 53 54 20 CE 55 4C |EN .UCHE IST .UL| 000009B0: 4C 2C 20 45 49 4E 45 20 45 52 46 4F 4C 47 52 45 |L, EINE ERFOLGRE| 000009C0: 49 43 48 45 20 D3 55 43 48 45 20 4C 49 45 46 45 |ICHE .UCHE LIEFE| 000009D0: 52 54 20 44 49 45 20 47 45 46 55 4E 44 45 4E 45 |RT DIE GEFUNDENE| 000009E0: 20 C1 44 52 45 53 53 45 3A 0D 0D 20 20 28 20 41 | .DRESSE:.. ( A| 000009F0: 4E 20 2C 20 45 4E 20 2C 20 5A 4B 20 2C 20 5A 4C |N , EN , ZK , ZL| 00000A00: 20 53 43 41 4E 20 29 0D 0D 0D C2 49 4C 44 53 43 | SCAN )....ILDSC| 00000A10: 48 49 52 4D 2C 20 C3 55 52 53 4F 52 20 55 4E 44 |HIRM, .URSOR UND| 00000A20: 20 C6 41 52 42 45 0D 0D 4D 4F 44 53 57 41 50 0D | .ARBE..MODSWAP.| 00000A30: 2D 2D 2D 2D 2D 2D 2D 0D C2 45 49 4D 20 C3 36 34 |-------..EIM .64| 00000A40: 20 4F 48 4E 45 20 D7 49 52 4B 55 4E 47 2C 20 53 | OHNE .IRKUNG, S| 00000A50: 43 48 41 4C 54 45 54 20 4D 4F 44 53 57 41 50 20 |CHALTET MODSWAP | 00000A60: 42 45 49 4D 20 C3 31 32 38 20 5A 57 49 53 43 48 |BEIM .128 ZWISCH| 00000A70: 45 4E 20 34 30 2D 20 55 4E 44 20 38 30 2D DA 45 |EN 40- UND 80-.E| 00000A80: 49 43 48 45 4E 4D 4F 44 55 53 20 55 4D 2E 0D 0D |ICHENMODUS UM...| 00000A90: 43 4F 4C 4F 52 0D 2D 2D 2D 2D 2D 0D C5 49 4E 53 |COLOR.-----..INS| 00000AA0: 54 45 4C 4C 45 4E 20 56 4F 4E 20 DA 45 49 43 48 |TELLEN VON .EICH| 00000AB0: 45 4E 2D 2C 20 C8 49 4E 54 45 52 47 52 55 4E 44 |EN-, .INTERGRUND| 00000AC0: 2D 20 55 4E 44 20 D2 41 48 4D 45 4E 46 41 52 42 |- UND .AHMENFARB| 00000AD0: 45 20 46 55 45 52 20 44 45 4E 20 34 30 2D DA 45 |E FUER DEN 40-.E| 00000AE0: 49 43 48 45 4E 2D C2 49 4C 44 53 43 48 49 52 4D |ICHEN-.ILDSCHIRM| 00000AF0: 3A 0D 0D 20 28 20 5A 46 20 2C 20 48 46 20 2C 20 |:.. ( ZF , HF , | 00000B00: 52 46 20 43 4F 4C 4F 52 20 29 0D 0D C5 53 20 53 |RF COLOR )...S S| 00000B10: 49 4E 44 20 D7 45 52 54 45 20 56 4F 4E 20 45 49 |IND .ERTE VON EI| 00000B20: 4E 53 20 42 49 53 20 31 36 20 4D 4F 45 47 4C 49 |NS BIS 16 MOEGLI| 00000B30: 43 48 2E 0D C4 49 45 20 C1 4E 47 41 42 45 4E 20 |CH...IE .NGABEN | 00000B40: 46 55 45 52 20 48 46 20 55 4E 44 20 52 46 20 4B |FUER HF UND RF K| 00000B50: 4F 45 4E 4E 45 4E 20 45 4E 54 46 41 4C 4C 45 4E |OENNEN ENTFALLEN| 00000B60: 2E 20 C1 4C 53 4F 20 41 55 43 48 20 28 20 5A 46 |. .LSO AUCH ( ZF| 00000B70: 20 2C 20 48 46 20 43 4F 4C 4F 52 20 29 20 55 4E | , HF COLOR ) UN| 00000B80: 44 20 28 20 5A 46 20 43 4F 4C 4F 52 20 29 2E 0D |D ( ZF COLOR )..| 00000B90: 0D 41 54 0D 2D 2D 0D C3 55 52 53 4F 52 50 4F 53 |.AT.--..URSORPOS| 00000BA0: 49 54 49 4F 4E 49 45 52 55 4E 47 3A 20 28 20 59 |ITIONIERUNG: ( Y| 00000BB0: 20 2C 20 58 20 41 54 20 29 0D 0D C4 45 52 20 C3 | , X AT )...ER .| 00000BC0: 55 52 53 4F 52 20 57 49 52 44 20 49 4E 20 DA 45 |URSOR WIRD IN .E| 00000BD0: 49 4C 45 20 59 20 55 4E 44 20 D3 50 41 4C 54 45 |ILE Y UND .PALTE| 00000BE0: 20 58 20 50 4F 53 49 54 49 4F 4E 49 45 52 54 2E | X POSITIONIERT.| 00000BF0: 0D 0D 50 4F 53 58 59 0D 2D 2D 2D 2D 2D 0D C4 45 |..POSXY.-----..E| 00000C00: 52 20 C2 45 46 45 48 4C 20 50 4F 53 58 59 20 4C |R .EFEHL POSXY L| 00000C10: 49 45 46 45 52 54 20 44 49 45 20 D3 50 41 4C 54 |IEFERT DIE .PALT| 00000C20: 45 4E 50 4F 53 49 54 49 4F 4E 2E 20 C4 49 45 20 |ENPOSITION. .IE | 00000C30: DA 45 49 4C 45 4E 50 4F 53 49 54 49 4F 4E 20 57 |.EILENPOSITION W| 00000C40: 49 52 44 20 44 55 52 43 48 20 CE D2 20 55 45 42 |IRD DURCH .. UEB| 00000C50: 45 52 47 45 42 45 4E 20 55 4E 44 20 4B 41 4E 4E |ERGEBEN UND KANN| 00000C60: 20 53 4F 4D 49 54 20 44 55 52 43 48 20 50 4F 53 | SOMIT DURCH POS| 00000C70: 58 59 20 53 57 41 50 20 45 52 48 41 4C 54 45 4E |XY SWAP ERHALTEN| 00000C80: 20 57 45 52 44 45 4E 2E 0D 0D 54 41 42 0D 2D 2D | WERDEN...TAB.--| 00000C90: 2D 0D C4 45 52 20 C2 45 46 45 48 4C 20 58 20 54 |-..ER .EFEHL X T| 00000CA0: 41 42 20 50 4F 53 49 54 49 4F 4E 49 45 52 54 20 |AB POSITIONIERT | 00000CB0: 44 45 4E 20 C3 55 52 53 4F 52 20 49 4E 20 44 45 |DEN .URSOR IN DE| 00000CC0: 52 20 D3 50 41 4C 54 45 20 58 20 44 45 52 20 41 |R .PALTE X DER A| 00000CD0: 4B 54 55 45 4C 4C 45 4E 20 DA 45 49 4C 45 2E 0D |KTUELLEN .EILE..| 00000CE0: 0D C1 55 53 47 41 42 45 46 55 4E 4B 54 49 4F 4E |..USGABEFUNKTION| 00000CF0: 45 4E 0D 0D 50 55 54 43 0D 2D 2D 2D 2D 0D C4 49 |EN..PUTC.----..I| 00000D00: 45 20 C6 55 4E 4B 54 49 4F 4E 20 50 55 54 43 20 |E .UNKTION PUTC | 00000D10: 47 49 42 54 20 45 49 4E 20 DA 45 49 43 48 45 4E |GIBT EIN .EICHEN| 00000D20: 20 41 55 46 20 44 41 53 20 41 4B 54 55 45 4C 4C | AUF DAS AKTUELL| 00000D30: 45 20 C1 55 53 47 41 42 45 47 45 52 41 45 54 20 |E .USGABEGERAET | 00000D40: 41 55 53 2E 20 C4 45 52 20 C1 55 46 52 55 46 20 |AUS. .ER .UFRUF | 00000D50: 45 52 46 4F 4C 47 54 20 49 4E 20 44 45 52 20 C6 |ERFOLGT IN DER .| 00000D60: 4F 52 4D 3A 0D 0D 20 27 41 27 20 50 55 54 43 0D |ORM:.. 'A' PUTC.| 00000D70: 0D 50 55 54 4C 0D 2D 2D 2D 2D 0D C5 49 4E 20 47 |.PUTL.----..IN G| 00000D80: 41 4E 5A 45 52 20 D3 54 52 49 4E 47 20 57 49 52 |ANZER .TRING WIR| 00000D90: 44 20 41 55 53 47 45 47 45 42 45 4E 2C 20 45 54 |D AUSGEGEBEN, ET| 00000DA0: 57 41 3A 0D 20 22 C8 41 4C 4C 4F 22 20 50 55 54 |WA:. ".ALLO" PUT| 00000DB0: 4C 0D 0D 50 55 54 4E 0D 2D 2D 2D 2D 0D D0 55 54 |L..PUTN.----..UT| 00000DC0: 4E 20 47 49 42 54 20 45 49 4E 45 20 DA 41 48 4C |N GIBT EINE .AHL| 00000DD0: 20 49 4E 20 44 45 5A 49 4D 41 4C 45 52 20 C6 4F | IN DEZIMALER .O| 00000DE0: 52 4D 20 41 55 53 3A 0D 0D 20 20 31 30 30 30 20 |RM AUS:.. 1000 | 00000DF0: 50 55 54 4E 0D 20 20 36 30 20 33 34 20 2B 20 50 |PUTN. 60 34 + P| 00000E00: 55 54 4E 0D 0D 50 52 49 4E 54 0D 2D 2D 2D 2D 2D |UTN..PRINT.-----| 00000E10: 0D C5 49 4E 45 20 47 41 4E 5A 45 20 CC 49 53 54 |..INE GANZE .IST| 00000E20: 45 20 56 4F 4E 20 D3 54 52 49 4E 47 53 20 4C 41 |E VON .TRINGS LA| 00000E30: 45 53 53 54 20 53 49 43 48 20 41 55 53 47 45 42 |ESST SICH AUSGEB| 00000E40: 45 4E 3A 0D 0D 20 20 28 20 53 54 52 31 20 2C 20 |EN:.. ( STR1 , | 00000E50: 53 54 52 32 20 2C 20 53 54 52 33 20 50 52 49 4E |STR2 , STR3 PRIN| 00000E60: 54 20 29 0D 0D 0D 46 50 52 49 4E 54 0D 2D 2D 2D |T )...FPRINT.---| 00000E70: 2D 2D 2D 0D C4 45 5A 49 4D 41 4C 45 20 DA 41 48 |---..EZIMALE .AH| 00000E80: 4C 45 4E 57 45 52 54 45 20 4B 4F 45 4E 4E 45 4E |LENWERTE KOENNEN| 00000E90: 20 4D 49 54 20 C8 49 4C 46 45 20 44 45 53 20 D3 | MIT .ILFE DES .| 00000EA0: 54 45 55 45 52 5A 45 49 43 48 45 4E 53 20 25 20 |TEUERZEICHENS % | 00000EB0: 42 45 51 55 45 4D 20 49 4E 20 44 49 45 20 D3 54 |BEQUEM IN DIE .T| 00000EC0: 52 49 4E 47 41 55 53 47 41 42 45 20 45 49 4E 47 |RINGAUSGABE EING| 00000ED0: 45 42 55 4E 44 45 4E 20 57 45 52 44 45 4E 3A 0D |EBUNDEN WERDEN:.| 00000EE0: 0D 28 20 22 D3 55 4D 4D 45 20 25 20 2B 20 25 20 |.( ".UMME % + % | 00000EF0: 3D 20 25 22 20 2C 20 35 20 2C 20 33 20 2C 20 2B |= %" , 5 , 3 , +| 00000F00: 20 46 50 52 49 4E 54 20 29 0D C4 49 45 20 DA 41 | FPRINT )..IE .A| 00000F10: 48 4C 45 4E 57 45 52 54 45 20 4F 44 45 52 20 52 |HLENWERTE ODER R| 00000F20: 45 43 48 4E 45 52 49 53 43 48 45 4E 20 C1 55 53 |ECHNERISCHEN .US| 00000F30: 44 52 55 45 43 4B 45 20 57 45 52 44 45 4E 20 49 |DRUECKE WERDEN I| 00000F40: 4D 20 C1 4E 53 43 48 4C 55 53 53 20 41 4E 20 44 |M .NSCHLUSS AN D| 00000F50: 45 4E 20 D3 54 52 49 4E 47 20 45 49 4E 46 41 43 |EN .TRING EINFAC| 00000F60: 48 20 44 45 52 20 D2 45 49 48 45 4E 46 4F 4C 47 |H DER .EIHENFOLG| 00000F70: 45 20 4E 41 43 48 20 41 4C 53 20 D0 41 52 41 4D |E NACH ALS .ARAM| 00000F80: 45 54 45 52 20 55 45 42 45 52 47 45 42 45 4E 2E |ETER UEBERGEBEN.| 00000F90: 0D 0D 0D C5 49 4E 47 41 42 45 46 55 4E 4B 54 49 |....INGABEFUNKTI| 00000FA0: 4F 4E 45 4E 0D 0D 0D 47 45 54 43 0D 2D 2D 2D 2D |ONEN...GETC.----| 00000FB0: 0D C4 49 45 20 C6 55 4E 4B 54 49 4F 4E 20 47 45 |..IE .UNKTION GE| 00000FC0: 54 43 20 4C 49 45 53 54 20 45 49 4E 20 DA 45 49 |TC LIEST EIN .EI| 00000FD0: 43 48 45 4E 20 56 4F 4D 20 41 4B 54 55 45 4C 4C |CHEN VOM AKTUELL| 00000FE0: 45 4E 20 C5 49 4E 47 41 42 45 47 45 52 41 45 54 |EN .INGABEGERAET| 00000FF0: 20 45 49 4E 2E 0D 0D 4B 45 59 0D 2D 2D 2D 0D D7 | EIN...KEY.---..| 00001000: 49 45 20 47 45 54 43 2C 20 4E 55 52 20 57 49 52 |IE GETC, NUR WIR| 00001010: 44 20 41 55 46 20 45 49 4E 20 DA 45 49 43 48 45 |D AUF EIN .EICHE| 00001020: 4E 20 55 4E 47 4C 45 49 43 48 20 CE 55 4C 4C 20 |N UNGLEICH .ULL | 00001030: 47 45 57 41 52 54 45 54 2E 0D 0D 47 45 54 4C 0D |GEWARTET...GETL.| 00001040: 2D 2D 2D 2D 0D C7 45 54 4C 20 4E 49 4D 4D 54 20 |----..ETL NIMMT | 00001050: 45 49 4E 45 20 47 41 4E 5A 45 20 C5 49 4E 47 41 |EINE GANZE .INGA| 00001060: 42 45 5A 45 49 4C 45 20 41 4E 3A 0D 0D 20 28 20 |BEZEILE AN:.. ( | 00001070: 5A 49 45 4C 20 2C 20 4C 49 4D 49 54 20 47 45 54 |ZIEL , LIMIT GET| 00001080: 4C 29 0D 0D D6 45 52 47 4C 45 49 43 48 42 41 52 |L)...ERGLEICHBAR| 00001090: 20 49 53 54 20 47 45 54 4C 20 4D 49 54 20 44 45 | IST GETL MIT DE| 000010A0: 4D 20 C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C 20 49 |M .....-.EFEHL I| 000010B0: 4E 50 55 54 2E 20 C1 4E 5A 55 47 45 42 45 4E 20 |NPUT. .NZUGEBEN | 000010C0: 49 53 54 20 41 55 53 53 45 52 20 44 45 52 20 DA |IST AUSSER DER .| 000010D0: 49 45 4C 41 44 52 45 53 53 45 20 44 49 45 20 45 |IELADRESSE DIE E| 000010E0: 52 4C 41 55 42 54 45 20 C1 4E 5A 41 48 4C 20 56 |RLAUBTE .NZAHL V| 000010F0: 4F 4E 20 DA 45 49 43 48 45 4E 2E 20 C4 41 53 53 |ON .EICHEN. .ASS| 00001100: 20 41 55 53 53 45 52 20 44 45 4E 20 47 45 4C 45 | AUSSER DEN GELE| 00001110: 53 45 4E 45 4E 20 DA 45 49 43 48 45 4E 20 45 49 |SENEN .EICHEN EI| 00001120: 4E 45 20 5A 55 53 41 45 54 5A 4C 49 43 48 45 20 |NE ZUSAETZLICHE | 00001130: 41 42 53 43 48 4C 49 45 53 53 45 4E 44 45 20 D3 |ABSCHLIESSENDE .| 00001140: 54 52 49 4E 47 45 4E 44 45 4D 41 52 4B 49 45 52 |TRINGENDEMARKIER| 00001150: 55 4E 47 20 47 45 53 43 48 52 49 45 42 45 4E 20 |UNG GESCHRIEBEN | 00001160: 57 49 52 44 2C 20 47 49 4C 54 20 45 53 20 5A 55 |WIRD, GILT ES ZU| 00001170: 20 42 45 52 55 45 43 4B 53 49 43 48 54 49 47 45 | BERUECKSICHTIGE| 00001180: 4E 2E 20 D7 45 4E 4E 20 41 4C 53 4F 20 D0 4C 41 |N. .ENN ALSO .LA| 00001190: 54 5A 20 46 55 45 52 20 41 43 48 54 20 DA 45 49 |TZ FUER ACHT .EI| 000011A0: 43 48 45 4E 20 49 53 54 2C 20 44 41 52 46 20 41 |CHEN IST, DARF A| 000011B0: 4C 53 20 CC 49 4D 49 54 20 48 4F 45 43 48 53 54 |LS .IMIT HOECHST| 000011C0: 45 4E 53 20 53 49 45 42 45 4E 20 47 45 57 41 45 |ENS SIEBEN GEWAE| 000011D0: 48 4C 54 20 57 45 52 44 45 4E 2E 20 C1 4C 53 20 |HLT WERDEN. .LS | 000011E0: C5 52 47 45 42 4E 49 53 20 4C 49 45 46 45 52 54 |.RGEBNIS LIEFERT| 000011F0: 20 47 45 54 4C 20 44 49 45 20 D3 54 52 49 4E 47 | GETL DIE .TRING| 00001200: 45 4E 44 45 41 44 52 45 53 53 45 2C 20 53 4F 44 |ENDEADRESSE, SOD| 00001210: 41 53 53 20 41 4E 20 44 49 45 20 C5 49 4E 47 41 |ASS AN DIE .INGA| 00001220: 42 45 20 47 4C 45 49 43 48 20 4E 4F 43 48 20 45 |BE GLEICH NOCH E| 00001230: 54 57 41 53 20 41 4E 47 45 48 41 45 4E 47 54 20 |TWAS ANGEHAENGT | 00001240: 57 45 52 44 45 4E 20 4B 41 4E 4E 2C 20 45 54 57 |WERDEN KANN, ETW| 00001250: 41 3A 0D 0D 20 28 20 46 49 4C 45 20 2C 20 31 36 |A:.. ( FILE , 16| 00001260: 20 47 45 54 4C 20 29 20 22 2C 53 2C 57 22 20 24 | GETL ) ",S,W" $| 00001270: 3C 0D 0D D3 4F 4C 4C 54 45 20 44 49 45 20 C5 49 |<...OLLTE DIE .I| 00001280: 4E 47 41 42 45 20 4C 41 45 4E 47 45 52 20 53 45 |NGABE LAENGER SE| 00001290: 49 4E 2C 20 41 4C 53 20 44 55 52 43 48 20 4C 49 |IN, ALS DURCH LI| 000012A0: 4D 49 54 20 41 4E 47 45 47 45 42 45 4E 20 49 53 |MIT ANGEGEBEN IS| 000012B0: 54 2C 20 57 49 52 44 20 44 45 4E 4E 4F 43 48 20 |T, WIRD DENNOCH | 000012C0: 42 49 53 20 5A 55 4D 20 41 42 53 43 48 4C 49 45 |BIS ZUM ABSCHLIE| 000012D0: 53 53 45 4E 44 45 4E 20 D2 45 54 55 52 4E 20 57 |SSENDEN .ETURN W| 000012E0: 45 49 54 45 52 47 45 4C 45 53 45 4E 2C 20 44 41 |EITERGELESEN, DA| 000012F0: 4D 49 54 20 44 45 52 20 4E 41 45 43 48 53 54 45 |MIT DER NAECHSTE| 00001300: 20 C4 41 54 45 4E 53 41 54 5A 20 46 55 45 52 20 | .ATENSATZ FUER | 00001310: 44 45 4E 20 4E 41 45 43 48 53 54 45 4E 20 DA 55 |DEN NAECHSTEN .U| 00001320: 47 52 49 46 46 20 42 45 52 45 49 54 53 54 45 48 |GRIFF BEREITSTEH| 00001330: 54 2E 0D 0D 47 45 54 4E 0D 2D 2D 2D 2D 0D DA 55 |T...GETN.----..U| 00001340: 4D 20 C5 49 4E 4C 45 53 45 4E 20 56 4F 4E 20 C4 |M .INLESEN VON .| 00001350: 45 5A 49 4D 41 4C 5A 41 48 4C 45 4E 20 55 4E 44 |EZIMALZAHLEN UND| 00001360: 20 D5 4D 57 41 4E 44 45 4C 4E 20 49 4E 20 DA 41 | .MWANDELN IN .A| 00001370: 48 4C 45 4E 57 45 52 54 45 20 44 49 45 4E 54 20 |HLENWERTE DIENT | 00001380: 47 45 54 4E 20 4F 48 4E 45 20 57 45 49 54 45 52 |GETN OHNE WEITER| 00001390: 45 20 D0 41 52 41 4D 45 54 45 52 2E 20 C4 41 4D |E .ARAMETER. .AM| 000013A0: 49 54 20 45 52 55 45 42 52 49 47 54 20 53 49 43 |IT ERUEBRIGT SIC| 000013B0: 48 3A 0D 0D 20 20 53 54 52 49 4E 47 20 28 20 2C |H:.. STRING ( ,| 000013C0: 20 37 20 47 45 54 4C 20 29 20 53 57 41 50 20 56 | 7 GETL ) SWAP V| 000013D0: 41 4C 0D 0D 0D C5 58 54 45 52 4E 45 20 C7 45 52 |AL....XTERNE .ER| 000013E0: 41 45 54 45 0D 0D 4F 50 45 4E 0D 2D 2D 2D 2D 0D |AETE..OPEN.----.| 000013F0: C4 41 4D 49 54 20 57 49 52 44 20 45 49 4E 45 20 |.AMIT WIRD EINE | 00001400: 4C 4F 47 49 53 43 48 45 20 C4 41 54 45 49 20 47 |LOGISCHE .ATEI G| 00001410: 45 4F 45 46 46 4E 45 54 2E 20 C4 49 45 20 D3 59 |EOEFFNET. .IE .Y| 00001420: 4E 54 41 58 20 49 53 54 3A 0D 0D 20 28 20 4C 46 |NTAX IST:.. ( LF| 00001430: 4E 20 2C 20 47 41 20 2C 20 53 41 20 2C 20 53 54 |N , GA , SA , ST| 00001440: 52 49 4E 47 4C 49 53 54 45 20 4F 50 45 4E 20 29 |RINGLISTE OPEN )| 00001450: 0D 0D C7 45 4E 41 55 20 57 49 45 20 49 4E 20 C2 |...ENAU WIE IN .| 00001460: C1 D3 C9 C3 20 4B 41 4E 4E 20 41 4C 4C 45 53 20 |.... KANN ALLES | 00001470: 55 45 42 52 49 47 45 20 41 55 53 53 45 52 20 44 |UEBRIGE AUSSER D| 00001480: 45 52 20 4C 4F 47 49 53 43 48 45 4E 20 C6 49 4C |ER LOGISCHEN .IL| 00001490: 45 4E 55 4D 4D 45 52 20 55 4E 44 20 44 45 52 20 |ENUMMER UND DER | 000014A0: C7 45 52 41 45 54 45 41 44 52 45 53 53 45 20 45 |.ERAETEADRESSE E| 000014B0: 4E 54 46 41 4C 4C 45 4E 2C 20 45 54 57 41 3A 0D |NTFALLEN, ETWA:.| 000014C0: 0D 20 28 20 34 20 2C 20 34 20 4F 50 45 4E 20 29 |. ( 4 , 4 OPEN )| 000014D0: 0D 0D C5 53 20 4B 4F 45 4E 4E 45 4E 20 4D 45 48 |...S KOENNEN MEH| 000014E0: 52 45 52 45 20 D4 45 49 4C 53 54 52 49 4E 47 53 |RERE .EILSTRINGS| 000014F0: 20 44 55 52 43 48 20 CB 4F 4D 4D 41 20 47 45 54 | DURCH .OMMA GET| 00001500: 52 45 4E 4E 54 20 41 4E 47 45 47 45 42 45 4E 20 |RENNT ANGEGEBEN | 00001510: 57 45 52 44 45 4E 3A 0D 0D 20 28 20 38 20 2C 20 |WERDEN:.. ( 8 , | 00001520: 38 20 2C 20 38 20 2C 20 46 49 4C 45 4E 41 4D 45 |8 , 8 , FILENAME| 00001530: 20 2C 20 22 2C 53 2C 57 22 20 4F 50 45 4E 20 29 | , ",S,W" OPEN )| 00001540: 0D 0D 43 4C 4F 53 45 0D 2D 2D 2D 2D 2D 0D C4 45 |..CLOSE.-----..E| 00001550: 52 20 43 4C 4F 53 45 2D C2 45 46 45 48 4C 20 44 |R CLOSE-.EFEHL D| 00001560: 49 45 4E 54 20 5A 55 4D 20 D3 43 48 4C 49 45 53 |IENT ZUM .CHLIES| 00001570: 53 45 4E 20 45 49 4E 45 52 20 4C 4F 47 49 53 43 |SEN EINER LOGISC| 00001580: 48 45 4E 20 C4 41 54 45 49 3A 0D 0D 20 20 38 20 |HEN .ATEI:.. 8 | 00001590: 43 4C 4F 53 45 0D 0D C4 41 53 20 49 53 54 20 41 |CLOSE...AS IST A| 000015A0: 55 43 48 20 46 55 45 52 20 44 45 4E 20 C2 C1 D3 |UCH FUER DEN ...| 000015B0: C9 C3 2D D0 52 4F 47 52 41 4D 4D 49 45 52 45 52 |..-.ROGRAMMIERER| 000015C0: 20 53 49 43 48 45 52 20 4E 49 43 48 54 53 20 4E | SICHER NICHTS N| 000015D0: 45 55 45 53 2E 0D 0D CB 41 4E 41 4C 42 45 46 45 |EUES....ANALBEFE| 000015E0: 48 4C 45 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |HLE.------------| 000015F0: 0D C9 4E 20 C2 C1 D3 C9 C3 20 49 53 54 20 44 41 |..N ..... IST DA| 00001600: 53 20 CF 45 46 46 4E 45 4E 20 55 4E 44 20 D3 43 |S .EFFNEN UND .C| 00001610: 48 4C 49 45 53 53 45 4E 20 44 45 52 20 CB 41 4E |HLIESSEN DER .AN| 00001620: 41 45 4C 45 20 42 45 52 45 49 54 53 20 49 4E 20 |AELE BEREITS IN | 00001630: 44 45 4E 20 45 4E 54 53 50 52 45 43 48 45 4E 54 |DEN ENTSPRECHENT| 00001640: 45 4E 20 C2 45 46 45 48 4C 45 4E 20 28 50 52 49 |EN .EFEHLEN (PRI| 00001650: 4E 54 23 38 2C 41 24 29 20 45 4E 54 48 41 4C 54 |NT#8,A$) ENTHALT| 00001660: 45 4E 2E 20 C4 49 45 53 20 49 53 54 20 41 55 43 |EN. .IES IST AUC| 00001670: 48 20 4D 49 54 20 45 49 4E 20 C7 52 55 4E 44 2C |H MIT EIN .RUND,| 00001680: 20 57 45 53 48 41 4C 42 20 45 54 57 41 20 47 45 | WESHALB ETWA GE| 00001690: 54 23 38 2C 41 24 20 53 4F 20 4C 41 4E 47 53 41 |T#8,A$ SO LANGSA| 000016A0: 4D 20 49 53 54 2E 20 C9 4E 20 C3 D0 20 4F 45 46 |M IST. .N .. OEF| 000016B0: 46 4E 45 4E 20 55 4E 44 20 53 43 48 4C 49 45 53 |FNEN UND SCHLIES| 000016C0: 53 45 4E 20 44 41 47 45 47 45 4E 20 D3 49 45 20 |SEN DAGEGEN .IE | 000016D0: 44 49 45 20 CB 41 4E 41 45 4C 45 2E 20 C8 49 45 |DIE .ANAELE. .IE| 000016E0: 52 46 55 45 52 20 44 49 45 4E 45 4E 20 44 49 45 |RFUER DIENEN DIE| 000016F0: 20 C2 45 46 45 48 4C 45 20 23 2C 20 23 4F 20 55 | .EFEHLE #, #O U| 00001700: 4E 44 20 23 49 2E 0D 0D C4 45 52 20 C2 45 46 45 |ND #I....ER .EFE| 00001710: 48 4C 20 23 20 53 43 48 4C 49 45 53 53 54 20 44 |HL # SCHLIESST D| 00001720: 49 45 20 CB 41 4E 41 45 4C 45 20 55 4E 44 20 57 |IE .ANAELE UND W| 00001730: 41 45 48 4C 54 20 C2 49 4C 44 53 43 48 49 52 4D |AEHLT .ILDSCHIRM| 00001740: 20 55 4E 44 20 D4 41 53 54 41 54 55 52 20 41 4C | UND .ASTATUR AL| 00001750: 53 20 D3 54 41 4E 44 41 52 44 47 45 52 41 45 54 |S .TANDARDGERAET| 00001760: 45 2E 0D 0D C4 45 52 20 C2 45 46 45 48 4C 20 23 |E....ER .EFEHL #| 00001770: 4F 20 4F 45 46 46 4E 45 54 20 45 49 4E 45 4E 20 |O OEFFNET EINEN | 00001780: C1 55 53 47 41 42 42 45 4B 41 4E 41 4C 2E 20 C1 |.USGABBEKANAL. .| 00001790: 4E 5A 55 47 45 42 45 4E 20 49 53 54 20 56 4F 52 |NZUGEBEN IST VOR| 000017A0: 48 45 52 20 44 49 45 20 CC 4F 47 49 53 43 48 45 |HER DIE .OGISCHE| 000017B0: 20 C6 49 4C 45 4E 55 4D 4D 45 52 2C 20 41 4C 53 | .ILENUMMER, ALS| 000017C0: 4F 20 45 54 57 41 3A 0D 0D 20 34 20 23 4F 0D 0D |O ETWA:.. 4 #O..| 000017D0: C1 4C 4C 45 20 C1 55 53 47 41 42 45 4E 20 57 45 |.LLE .USGABEN WE| 000017E0: 52 44 45 4E 20 49 4D 20 C1 4E 53 43 48 4C 55 53 |RDEN IM .NSCHLUS| 000017F0: 53 20 41 55 46 20 44 49 45 20 45 4E 54 53 50 52 |S AUF DIE ENTSPR| 00001800: 45 43 48 45 4E 44 45 20 C4 41 54 45 49 20 55 4D |ECHENDE .ATEI UM| 00001810: 47 45 4C 45 4E 4B 54 2C 20 42 49 53 20 44 49 45 |GELENKT, BIS DIE| 00001820: 20 C4 41 54 45 49 20 47 45 53 43 48 4C 4F 53 53 | .ATEI GESCHLOSS| 00001830: 45 4E 20 57 49 52 44 2C 20 4F 44 45 52 20 41 4E |EN WIRD, ODER AN| 00001840: 44 45 52 45 20 CB 41 4E 41 45 4C 45 20 45 49 4E |DERE .ANAELE EIN| 00001850: 47 45 53 54 45 4C 4C 54 20 57 45 52 44 45 4E 2E |GESTELLT WERDEN.| 00001860: 0D 0D C4 45 52 20 C2 45 46 45 48 4C 20 23 49 20 |...ER .EFEHL #I | 00001870: 4F 45 46 46 4E 45 54 20 45 49 4E 45 4E 20 C5 49 |OEFFNET EINEN .I| 00001880: 4E 47 41 42 45 4B 41 4E 41 4C 2C 20 45 54 57 41 |NGABEKANAL, ETWA| 00001890: 3A 0D 0D 20 38 20 23 49 0D 0D C8 49 45 52 20 45 |:.. 8 #I...IER E| 000018A0: 52 46 4F 4C 47 45 4E 20 49 4D 20 C1 4E 53 43 48 |RFOLGEN IM .NSCH| 000018B0: 4C 55 53 53 20 41 4C 4C 45 20 C5 49 4E 47 41 42 |LUSS ALLE .INGAB| 000018C0: 45 4E 20 56 4F 4E 20 44 45 52 20 45 4E 54 53 50 |EN VON DER ENTSP| 000018D0: 52 45 43 48 45 4E 44 45 4E 20 C4 41 54 45 49 2E |RECHENDEN .ATEI.| 000018E0: 0D 0D C4 49 45 20 C2 45 46 45 48 4C 45 20 43 4C |...IE .EFEHLE CL| 000018F0: 4F 53 45 2C 20 23 49 20 55 4E 44 20 23 4F 20 45 |OSE, #I UND #O E| 00001900: 4E 54 48 41 4C 54 45 4E 20 41 4C 53 20 45 52 53 |NTHALTEN ALS ERS| 00001910: 54 45 53 20 44 45 4E 20 C2 45 46 45 48 4C 20 23 |TES DEN .EFEHL #| 00001920: 2C 20 53 4F 44 41 53 53 20 4B 45 49 4E 20 C4 41 |, SODASS KEIN .A| 00001930: 54 45 4E 53 41 4C 41 54 20 41 55 46 20 44 45 4D |TENSALAT AUF DEM| 00001940: 20 53 45 52 49 45 4C 4C 45 4E 20 C2 55 53 20 45 | SERIELLEN .US E| 00001950: 4E 53 54 45 48 45 4E 20 4B 41 4E 4E 2E 0D 0D 53 |NSTEHEN KANN...S| 00001960: 54 41 54 0D 2D 2D 2D 2D 0D CC 49 45 46 45 52 54 |TAT.----..IEFERT| 00001970: 20 4E 41 43 48 20 C9 CF 2D CF 50 45 52 41 54 49 | NACH ..-.PERATI| 00001980: 4F 4E 45 4E 20 44 45 4E 20 C9 4E 48 41 4C 54 20 |ONEN DEN .NHALT | 00001990: 44 45 52 20 41 55 43 48 20 49 4E 20 C2 C1 D3 C9 |DER AUCH IN ....| 000019A0: C3 20 42 45 4B 41 4E 4E 54 45 4E 20 D3 54 41 54 |. BEKANNTEN .TAT| 000019B0: 55 53 56 41 52 49 41 42 4C 45 4E 20 D3 D4 2E |USVARIABLEN ... |
LEKTION 9..SYSTEMKONSTANTEN UND ROUTINEN ..DAMIT UNTERSCHIEDLICHE ADRESSEN BEIM C 64 UND C128 KEIN PROBLEM DARSTELLEN, GIB T ES EINEN BEFEHL, DER FUER GEMEINSAMKEI T SORGT. EINE NUMMER, GEFOLGT VOM BEFEHL SYSCON, LIEFERT FOLGENDE WERTE:..0 SYSC ON : 64 BEIM C64, 128 BEIM C128.1 SYSCON : ANFANG DES FREIEN SPEICHERS.2 SYSCON : ENDE DES FREIEN SPEICHERS.3 SYSCON : A DRESSE FUER ZEICHENZAHL IM. TA STATURPUFFER.4 SYSCON : ADRESSE DES TAST ATURPUFFERS.5 SYSCON : ADRESSE FUER ZEIC HENFARBE..WAS DER CP-PROGRAMMIERER AU.ER DEN CP-BEFEHLEN BRAUCHT, SIND FERTIGE R OUTINEN F.R STRINGBEARBEITUNG UND EIN- U ND AUSGABEN. DIE ROUTINENSAMMLUNG CPROUT ENTH.LT SOZUSAGEN DIE GRUNDAUSSTATTUNG: ...STRINGFUNKTIONEN..STRINGS SIND EINE D URCH EIN NULLBYTE ABGESCHLOSSENE ZEICHEN KETTE. ZUR STRINGBEARBEITUNG DIENEN VIER GRUNDLEGENDE FUNKTIONEN LEN, $<, INCHAR UND VAL...LEN.---.DIE FUNKTION LEN LIEF ERT DIE LAENGE EINES STRING:.. "ABC" LEN ..DAS ERGEBNIS WAERE HIER DREI...$<.--.. DIESE FUNKTION KOPIERT STRINGS. SIE FAEL LT ETWAS AUS DEM RAHMEN, DA SIE WIE EIN OPERATOR MIT ZWEI PARAMETERN IN DEN REGI STERN NR UND HR ARBEITET:.. ZIEL QUELLE $<..DER QUELLSTRING WIRD AN DIE ZIELADRE SSE KOPIERT. ES HEISST AUFZUPASSEN, DASS DORT AUSREICHEND PLATZ IST. DIE FUNKTIO N LIEFERT DAS MIT NULL MARKIERTE ENDE DE S NEUEN STRINGS ALS ERGEBNIS. DIESES KAN N SOGLEICH BENUTZT WERDEN UM MEHRERE STR INGS ZU EINEM EINZIGEN ZU VEREINEN:.. ZI EL STRING1 $< STRING2 $< STRING3 $<..SOL L AN EINEN BEREITS BESTEHENDEN STRING ET WAS ANGEFUEGT WERDEN, GESCHIEHT DIESES D URCH:.. ZIEL ( LEN ) + ZUSATZ $<..INCHAR .------.HIERMIT LAESST SICH DIE POSITION EINES ZEICHENS IN EINEM STRING BESTIMME N:.. ( "STRING" , 'N' INCHAR )..IST DAS ZEICHEN DORT NICHT VORHANDEN, SO IST DA S ERGEBNIS NULL. ANDERENFALLS ERHAELT MA N DIE POSITION IN DER ZEICHENKETTE. HIER WAERE DAS ERGEBNIS FUENF. UM DIESEN WER T ZUM ZUGRIFF AUF DIE POSITION IM STRING ZU VERWENDEN, MUSS ER UM EINS VERRINGER T UND ZUR STRINGADRESSE ADDIERT WERDEN:. . STR ( , 'A' INCHAR ) NIF NIX + 1 -..V AL.---.ES WIRD DER ZAHLENWERT EINER IN F ORM VON ZIFFERNZEICHEN VORLIEGENDEN ZEIC HENKETTE ERRECHNET. VORANGESTELLTE LEERZ EICHEN SIND ERLAUBT. EIN NACHFOLGENDES L EERZEICHEN SOWIE EIN NULLBYTE SIGNALISIE REN DAS ENDE:.. " 12 DISKETTEN " VAL..DA S ERGEBNIS IST HIER ZWOELF. BENOETIGT WI RD VAL BESONDERS IN VERBINDUNG MIT ZAHLE NEINGABEN....SCAN.----.SCAN DURCHSUCHT E INEN SPEICHERBEREICH VON AN BIS EN NACH EINER ZEICHENKETTE ZK DER L.NGE ZL. DAS ERGEBNIS EINER ERFOLGLOSEN SUCHE IST NUL L, EINE ERFOLGREICHE SUCHE LIEFERT DIE G EFUNDENE ADRESSE:.. ( AN , EN , ZK , ZL SCAN )...BILDSCHIRM, CURSOR UND FARBE.. MODSWAP.-------.BEIM C64 OHNE WIRKUNG, S CHALTET MODSWAP BEIM C128 ZWISCHEN 40- U ND 80-ZEICHENMODUS UM...COLOR.-----.EINS TELLEN VON ZEICHEN-, HINTERGRUND- UND RA HMENFARBE FUER DEN 40-ZEICHEN-BILDSCHIRM :.. ( ZF , HF , RF COLOR )..ES SIND WERT E VON EINS BIS 16 MOEGLICH..DIE ANGABEN FUER HF UND RF KOENNEN ENTFALLEN. ALSO A UCH ( ZF , HF COLOR ) UND ( ZF COLOR ).. .AT.--.CURSORPOSITIONIERUNG: ( Y , X AT )..DER CURSOR WIRD IN ZEILE Y UND SPALTE X POSITIONIERT...POSXY.-----.DER BEFEHL POSXY LIEFERT DIE SPALTENPOSITION. DIE ZEILENPOSITION WIRD DURCH NR UEBERGEBEN UND KANN SOMIT DURCH POSXY SWAP ERHALTEN WERDEN...TAB.---.DER BEFEHL X TAB POSIT IONIERT DEN CURSOR IN DER SPALTE X DER A KTUELLEN ZEILE...AUSGABEFUNKTIONEN..PUTC .----.DIE FUNKTION PUTC GIBT EIN ZEICHEN AUF DAS AKTUELLE AUSGABEGERAET AUS. DER AUFRUF ERFOLGT IN DER FORM:.. 'A' PUTC. .PUTL.----.EIN GANZER STRING WIRD AUSGEG EBEN, ETWA:. "HALLO" PUTL..PUTN.----.PUT N GIBT EINE ZAHL IN DEZIMALER FORM AUS:. . 1000 PUTN. 60 34 + PUTN..PRINT.----- .EINE GANZE LISTE VON STRINGS LAESST SIC H AUSGEBEN:.. ( STR1 , STR2 , STR3 PRIN T )...FPRINT.------.DEZIMALE ZAHLENWERTE KOENNEN MIT HILFE DES STEUERZEICHENS % BEQUEM IN DIE STRINGAUSGABE EINGEBUNDEN WERDEN:..( "SUMME % + % = %" , 5 , 3 , + FPRINT ).DIE ZAHLENWERTE ODER RECHNERIS CHEN AUSDRUECKE WERDEN IM ANSCHLUSS AN D EN STRING EINFACH DER REIHENFOLGE NACH A LS PARAMETER UEBERGEBEN....EINGABEFUNKTI ONEN...GETC.----.DIE FUNKTION GETC LIEST EIN ZEICHEN VOM AKTUELLEN EINGABEGERAET EIN...KEY.---.WIE GETC, NUR WIRD AUF EI N ZEICHEN UNGLEICH NULL GEWARTET...GETL. ----.GETL NIMMT EINE GANZE EINGABEZEILE AN:.. ( ZIEL , LIMIT GETL)..VERGLEICHBAR IST GETL MIT DEM BASIC-BEFEHL INPUT. AN ZUGEBEN IST AUSSER DER ZIELADRESSE DIE E RLAUBTE ANZAHL VON ZEICHEN. DASS AUSSER DEN GELESENEN ZEICHEN EINE ZUSAETZLICHE ABSCHLIESSENDE STRINGENDEMARKIERUNG GESC HRIEBEN WIRD, GILT ES ZU BERUECKSICHTIGE N. WENN ALSO PLATZ FUER ACHT ZEICHEN IST , DARF ALS LIMIT HOECHSTENS SIEBEN GEWAE HLT WERDEN. ALS ERGEBNIS LIEFERT GETL DI E STRINGENDEADRESSE, SODASS AN DIE EINGA BE GLEICH NOCH ETWAS ANGEHAENGT WERDEN K ANN, ETWA:.. ( FILE , 16 GETL ) ",S,W" $ <..SOLLTE DIE EINGABE LAENGER SEIN, ALS DURCH LIMIT ANGEGEBEN IST, WIRD DENNOCH BIS ZUM ABSCHLIESSENDEN RETURN WEITERGEL ESEN, DAMIT DER NAECHSTE DATENSATZ FUER DEN NAECHSTEN ZUGRIFF BEREITSTEHT...GETN .----.ZUM EINLESEN VON DEZIMALZAHLEN UND UMWANDELN IN ZAHLENWERTE DIENT GETN OHN E WEITERE PARAMETER. DAMIT ERUEBRIGT SIC H:.. STRING ( , 7 GETL ) SWAP VAL...EXT ERNE GERAETE..OPEN.----.DAMIT WIRD EINE LOGISCHE DATEI GEOEFFNET. DIE SYNTAX IST :.. ( LFN , GA , SA , STRINGLISTE OPEN ) ..GENAU WIE IN BASIC KANN ALLES UEBRIGE AUSSER DER LOGISCHEN FILENUMMER UND DER GERAETEADRESSE ENTFALLEN, ETWA:.. ( 4 , 4 OPEN )..ES KOENNEN MEHRERE TEILSTRINGS DURCH KOMMA GETRENNT ANGEGEBEN WERDEN:. . ( 8 , 8 , 8 , FILENAME , ",S,W" OPEN ) ..CLOSE.-----.DER CLOSE-BEFEHL DIENT ZUM SCHLIESSEN EINER LOGISCHEN DATEI:.. 8 CLOSE..DAS IST AUCH FUER DEN BASIC-PROGR AMMIERER SICHER NICHTS NEUES...KANALBEFE HLE.------------.IN BASIC IST DAS OEFFNE N UND SCHLIESSEN DER KANAELE BEREITS IN DEN ENTSPRECHENTEN BEFEHLEN (PRINT#8,A$) ENTHALTEN. DIES IST AUCH MIT EIN GRUND, WESHALB ETWA GET#8,A$ SO LANGSAM IST. I N CP OEFFNEN UND SCHLIESSEN DAGEGEN SIE DIE KANAELE. HIERFUER DIENEN DIE BEFEHLE #, #O UND #I...DER BEFEHL # SCHLIESST D IE KANAELE UND WAEHLT BILDSCHIRM UND TAS TATUR ALS STANDARDGERAETE...DER BEFEHL # O OEFFNET EINEN AUSGABBEKANAL. ANZUGEBEN IST VORHER DIE LOGISCHE FILENUMMER, ALS O ETWA:.. 4 #O..ALLE AUSGABEN WERDEN IM ANSCHLUSS AUF DIE ENTSPRECHENDE DATEI UM GELENKT, BIS DIE DATEI GESCHLOSSEN WIRD, ODER ANDERE KANAELE EINGESTELLT WERDEN. ..DER BEFEHL #I OEFFNET EINEN EINGABEKAN AL, ETWA:.. 8 #I..HIER ERFOLGEN IM ANSCH LUSS ALLE EINGABEN VON DER ENTSPRECHENDE N DATEI...DIE BEFEHLE CLOSE, #I UND #O E NTHALTEN ALS ERSTES DEN BEFEHL #, SODASS KEIN DATENSALAT AUF DEM SERIELLEN BUS E NSTEHEN KANN...STAT.----.LIEFERT NACH IO -OPERATIONEN DEN INHALT DER AUCH IN BASI C BEKANNTEN STATUSVARIABLEN ST.
> CLICK IMAGE PREVIEW FOR FULL MODAL