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

128-64 SYS

FILE INFORMATION

FILENAME(S): 128-64 SYS

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-02 16:41:30

APPEARS ON: 1 disk(s)

FILE HASH

20cb333df658623cc0d48324f557e1e047fda8ae984587c7c8d84ffc4f6f6e6e

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
15825 SH 25 128-64 SYS PRG Treasure Chest - PrettyOldPixel 23 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
00000010: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
00000020: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
00000030: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
00000040: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
00000050: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
00000060: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
00000070: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
00000080: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
00000090: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
000000A0: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
000000B0: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
000000C0: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
000000D0: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
000000E0: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 01 01  |................|
000000F0: 01 01 01 01 01 01 01 01  01 01 01 01 01 01 4C 4F  |..............LO|
00000100: 43 4B 20 4C 45 53 45 4E  22 00 E8 2C 1A 2B 53 54  |CK LESEN"..,.+ST|
00000110: 41 20 24 30 30 3B 20 41  4C 53 20 41 55 46 54 52  |A $00; ALS AUFTR|
00000120: 41 47 20 46 55 45 52 20  50 55 46 46 45 52 20 30  |AG FUER PUFFER 0|
00000130: 00 0C 2D 1C 2B 57 41 52  54 45 4E 20 4C 44 41 20  |..-.+WARTEN LDA |
00000140: 24 30 30 3B 20 53 54 41  54 55 53 20 50 55 46 46  |$00; STATUS PUFF|
00000150: 45 52 20 30 00 34 2D 20  2B 42 4D 49 20 57 41 52  |ER 0.4- +BMI WAR|
00000160: 54 45 4E 3B 20 46 41 4C  4C 53 20 4E 4F 43 48 20  |TEN; FALLS NOCH |
00000170: 4E 49 43 48 54 20 46 45  52 54 49 47 00 50 2D 2A  |NICHT FERTIG.P-*|
00000180: 2B 43 4D 50 20 23 31 3B  20 46 45 48 4C 45 52 20  |+CMP #1; FEHLER |
00000190: 41 42 46 52 41 47 45 4E  00 73 2D 34 2B 42 4E 45  |ABFRAGEN.s-4+BNE|
000001A0: 20 80 45 3B 20 46 41 4C  4C 53 20 46 45 48 4C 45  | .E; FALLS FEHLE|
000001B0: 52 20 41 55 46 A1 52 45  54 45 4E 00 79 2D 5C 2B  |R AUF.RETEN.y-\+|
000001C0: 3B 00 A3 2D 66 2B 44 4E  41 4D 45 20 4C 44 41 20  |;..-f+DNAME LDA |
000001D0: 50 55 46 46 45 52 AA 31  34 34 2C 58 3B 20 44 49  |PUFFER.144,X; DI|
000001E0: 53 4B 4E 41 4D 45 4E 20  48 4F C3 00 CB 2D 70 2B  |SKNAMEN HO...-p+|
000001F0: 53 54 41 20 41 55 53 47  41 42 45 2C 58 3B 20 49  |STA AUSGABE,X; I|
00000200: 4E 20 44 45 4E 20 41 55  53 47 41 42 45 50 55 46  |N DEN AUSGABEPUF|
00000210: 46 45 52 00 D3 2D 7A 2B  49 4E 58 00 F3 2D 84 2B  |FER..-z+INX..-.+|
00000220: 43 50 58 20 23 32 30 3B  20 4E 41 4D 45 20 55 4E  |CPX #20; NAME UN|
00000230: 44 20 49 44 20 4B 4F 4D  50 88 54 00 14 2E 8E 2B  |D ID KOMP.T....+|
00000240: 42 4E 45 20 44 4E 41 4D  45 3B 20 57 45 49 54 45  |BNE DNAME; WEITE|
00000250: 52 20 46 41 4C 4C 53 20  4E 45 49 4E 00 1A 2E EC  |R FALLS NEIN....|
00000260: 2C 3B 00 3E 2E F6 2C 82  20 4C 44 41 20 50 55 46  |,;.>..,. LDA PUF|
00000270: 46 45 52 3B 20 42 4C 4F  43 4B 5A 45 49 47 45 52  |FER; BLOCKZEIGER|
00000280: 20 54 52 41 43 4B 00 62  2E 00 2D 42 45 51 20 80  | TRACK.b..-BEQ .|
00000290: 45 3B 20 46 41 4C 4C 53  20 4E 41 45 43 48 53 54  |E; FALLS NAECHST|
000002A0: 45 52 20 54 52 41 43 4B  20 30 00 6E 2E 0A 2D 53  |ER TRACK 0.n..-S|
000002B0: 54 41 20 24 30 36 00 92  2E 14 2D 4C 44 41 20 50  |TA $06....-LDA P|
000002C0: 55 46 46 45 52 AA 31 3B  20 42 4C 4F 43 4B 5A 45  |UFFER.1; BLOCKZE|
000002D0: 49 47 45 52 20 53 45 4B  A4 52 00 9E 2E 1E 2D 53  |IGER SEK.R....-S|
000002E0: 54 41 20 24 30 37 00 C2  2E 28 2D 4C 44 41 20 23  |TA $07...(-LDA #|
000002F0: 24 38 30 3B 20 4A 4F 42  43 4F 44 45 20 22 42 4C  |$80; JOBCODE "BL|
00000300: 4F 43 4B 20 4C 45 53 45  4E 22 00 E9 2E 32 2D 53  |OCK LESEN"...2-S|
00000310: 54 41 20 24 30 30 3B 20  41 4C 53 20 41 55 46 54  |TA $00; ALS AUFT|
00000320: 52 41 47 20 46 55 45 52  20 50 55 46 46 45 52 20  |RAG FUER PUFFER |
00000330: 30 00 0E 2F 3C 2D 57 41  52 54 45 4E 31 20 4C 44  |0../<-WARTEN1 LD|
00000340: 41 20 24 30 30 3B 20 53  54 41 54 55 53 20 50 55  |A $00; STATUS PU|
00000350: 46 46 45 52 20 30 00 37  2F 46 2D 42 4D 49 20 57  |FFER 0.7/F-BMI W|
00000360: 41 52 54 45 4E 31 3B 20  46 41 4C 4C 53 20 4E 4F  |ARTEN1; FALLS NO|
00000370: 43 48 20 4E 49 43 48 54  20 46 45 52 54 49 47 00  |CH NICHT FERTIG.|
00000380: 4A 2F B4 2D 4C 44 41 20  23 B1 50 55 46 46 45 52  |J/.-LDA #.PUFFER|
00000390: AA 32 00 5B 2F BE 2D 53  54 41 20 5A 45 49 47 45  |.2.[/.-STA ZEIGE|
000003A0: 52 AA 31 00 7F 2F C8 2D  4C 44 41 20 23 B3 50 55  |R.1../.-LDA #.PU|
000003B0: 46 46 45 52 AA 32 3B 20  41 4E 46 41 4E 47 20 31  |FFER.2; ANFANG 1|
000003C0: 2E 20 45 B5 52 41 47 00  B1 2F D2 2D 4E 4F 43 48  |. E.RAG../.-NOCH|
000003D0: 4D 41 4C 20 53 54 41 20  5A 45 49 47 45 52 3B 20  |MAL STA ZEIGER; |
000003E0: 5A 45 49 47 45 52 20 49  4E 20 50 55 46 46 45 52  |ZEIGER IN PUFFER|
000003F0: 20 48 45 52 53 54 45 4C  C3 00 BC 2F E6 2D 4C 44  | HERSTEL.../.-LD|
00000400: 59 20 23 30 00 DA 2F F0  2D 4C 44 41 20 28 5A 45  |Y #0../.-LDA (ZE|
00000410: 49 47 45 52 29 2C 59 3B  20 46 49 88 59 50 20 48  |IGER),Y; FI.YP H|
00000420: 4F C3 00 F6 2F FA 2D 42  45 51 20 57 45 49 54 45  |O.../.-BEQ WEITE|
00000430: 52 3B 20 46 41 4C 4C 53  20 44 45 88 45 44 00 02  |R; FALLS DE.ED..|
00000440: 30 18 2E 4C 44 59 20 23  32 32 00 23 30 22 2E 4C  |0..LDY #22.#0".L|
00000450: 44 41 20 28 5A 45 49 47  45 52 29 2C 59 3B 20 4D  |DA (ZEIGER),Y; M|
00000460: 41 52 4B 49 45 8A 47 20  48 4F C3 00 42 30 2C 2E  |ARKIE.G HO..B0,.|
00000470: 42 4D 49 20 57 45 49 54  45 52 3B 20 46 41 4C 4C  |BMI WEITER; FALL|
00000480: 53 20 4D 41 52 4B 49 45  52 54 00 6F 30 36 2E 53  |S MARKIERT.o06.S|
00000490: 54 41 20 41 55 53 47 41  42 45 2C 58 3B 20 53 91  |TA AUSGABE,X; S.|
000004A0: 53 54 20 49 4E 20 44 45  4E 20 41 55 53 47 41 42  |ST IN DEN AUSGAB|
000004B0: 45 50 55 46 46 45 52 00  7C 30 40 2E 49 4E 58 3A  |EPUFFER.|0@.INX:|
000004C0: 20 49 4E 59 00 A2 30 42  2E 4C 44 41 20 28 5A 45  | INY..0B.LDA (ZE|
000004D0: 49 47 45 52 29 2C 59 3B  20 52 45 53 45 52 56 49  |IGER),Y; RESERVI|
000004E0: 45 52 54 45 20 42 59 54  45 53 00 B9 30 44 2E 53  |ERTE BYTES..0D.S|
000004F0: 54 41 20 41 55 53 47 41  42 45 2C 58 3B 20 48 4F  |TA AUSGABE,X; HO|
00000500: C3 00 C6 30 46 2E 49 4E  58 3A 20 49 4E 59 00 E9  |...0F.INX: INY..|
00000510: 30 47 2E 4C 44 41 20 28  5A 45 49 47 45 52 29 2C  |0G.LDA (ZEIGER),|
00000520: 59 3B 20 28 53 54 41 52  54 41 44 52 45 53 53 45  |Y; (STARTADRESSE|
00000530: 29 00 0B 31 48 2E 53 54  41 20 41 55 53 47 41 42  |)..1H.STA AUSGAB|
00000540: 45 2C 58 3B 20 55 4E 44  20 55 45 42 45 52 47 45  |E,X; UND UEBERGE|
00000550: 42 45 4E 00 13 31 49 2E  49 4E 58 00 2D 31 4A 2E  |BEN..1I.INX.-1J.|
00000560: 4C 44 59 20 23 33 3B 20  41 4E 46 41 4E 47 20 46  |LDY #3; ANFANG F|
00000570: 49 C3 41 4D 45 00 52 31  54 2E 4E 41 4D 45 20 4C  |I.AME.R1T.NAME L|
00000580: 44 41 20 28 5A 45 49 47  45 52 29 2C 59 3B 20 5A  |DA (ZEIGER),Y; Z|
00000590: 45 49 43 48 45 4E 20 48  4F C3 00 7E 31 5E 2E 53  |EICHEN HO..~1^.S|
000005A0: 54 41 20 41 55 53 47 41  42 45 2C 58 3B 20 55 4E  |TA AUSGABE,X; UN|
000005B0: 44 20 49 4E 20 44 45 4E  20 41 55 53 47 41 42 45  |D IN DEN AUSGABE|
000005C0: 50 55 46 46 45 52 00 86  31 68 2E 49 4E 58 00 AF  |PUFFER..1h.INX..|
000005D0: 31 72 2E 42 4E 45 20 4F  4B 3B 20 46 41 4C 4C 53  |1r.BNE OK; FALLS|
000005E0: 20 50 55 46 46 45 52 20  4E 4F 43 48 20 4E 49 43  | PUFFER NOCH NIC|
000005F0: 48 54 20 56 4F 4C 4C 00  C3 31 AE 2E 53 54 59 20  |HT VOLL..1..STY |
00000600: 94 3B 20 59 20 52 45 54  54 45 4E 00 EB 31 B8 2E  |.; Y RETTEN..1..|
00000610: 52 54 53 3B 20 52 55 45  43 4B 47 41 42 45 20 44  |RTS; RUECKGABE D|
00000620: 45 52 20 4B 91 54 52 4F  4C 4C 45 20 41 4E 53 20  |ER K.TROLLE ANS |
00000630: 44 4F 53 00 F1 31 C8 32  3B 00 04 32 D2 32 45 49  |DOS..1.2;..2.2EI|
00000640: 4E 53 50 52 47 20 4C 44  58 20 23 30 00 28 32 DC  |NSPRG LDX #0.(2.|
00000650: 32 4C 44 59 20 94 3B 20  52 45 47 49 53 54 45 52  |2LDY .; REGISTER|
00000660: 20 57 49 45 44 45 52 20  48 45 52 53 54 45 4C C3  | WIEDER HERSTEL.|
00000670: 00 33 32 FA 32 4F 4B 20  49 4E 59 00 59 32 04 33  |.32.2OK INY.Y2.3|
00000680: 43 50 59 20 23 31 39 3B  20 88 5A 54 45 53 20 5A  |CPY #19; .ZTES Z|
00000690: 45 49 43 48 45 4E 20 44  45 53 20 4E 41 4D 45 4E  |EICHEN DES NAMEN|
000006A0: 53 00 7F 32 0E 33 42 4E  45 20 4E 41 4D 45 3B 20  |S..2.3BNE NAME; |
000006B0: 46 41 4C 4C 53 20 4E 4F  43 48 20 4E 49 43 48 54  |FALLS NOCH NICHT|
000006C0: 20 46 45 52 54 49 47 00  95 32 2C 33 57 45 49 54  | FERTIG..2,3WEIT|
000006D0: 45 52 20 4C 44 41 20 5A  45 49 47 45 52 00 B1 32  |ER LDA ZEIGER..2|
000006E0: 36 33 43 4C 43 3B 20 41  44 44 49 54 49 91 20 56  |63CLC; ADDITI. V|
000006F0: B0 42 45 52 45 49 54 45  4E 00 D9 32 40 33 41 44  |.BEREITEN..2@3AD|
00000700: 43 20 23 33 32 3B 20 5A  45 49 47 45 52 20 41 55  |C #32; ZEIGER AU|
00000710: 46 20 4E 41 45 43 48 53  54 45 4E 20 45 B5 52 41  |F NAECHSTEN E.RA|
00000720: 47 00 FF 32 4A 33 42 43  43 20 4E 4F 43 48 4D 41  |G..2J3BCC NOCHMA|
00000730: 4C 3B 20 46 41 4C 4C 53  20 4E 4F 43 48 20 45 49  |L; FALLS NOCH EI|
00000740: 4E 20 45 B5 52 41 47 00  1F 33 54 33 42 43 53 20  |N E.RAG..3T3BCS |
00000750: 82 3B 20 53 91 53 54 20  4E 41 45 43 48 53 54 45  |.; S.ST NAECHSTE|
00000760: 4E 20 42 4C 4F 43 4B 00  25 33 86 33 3B 00 46 33  |N BLOCK.%3.3;.F3|
00000770: 90 33 80 45 20 4C 44 41  20 23 24 46 46 3B 20 5A  |.3.E LDA #$FF; Z|
00000780: 45 49 43 48 45 4E 20 46  55 45 52 20 80 45 00 6E  |EICHEN FUER .E.n|
00000790: 33 9A 33 53 54 41 20 41  55 53 47 41 42 45 2C 58  |3.3STA AUSGABE,X|
000007A0: 3B 20 49 4E 20 44 45 4E  20 41 55 53 47 41 42 45  |; IN DEN AUSGABE|
000007B0: 50 55 46 46 45 52 00 90  33 A4 33 52 54 53 3B 20  |PUFFER..3.3RTS; |
000007C0: 4B 91 54 52 4F 4C 4C 45  20 5A 55 52 55 45 43 4B  |K.TROLLE ZURUECK|
000007D0: 20 41 4E 53 20 44 4F 53  00 96 33 C2 33 3B 00 CF  | ANS DOS..3.3;..|
000007E0: 33 53 34 50 52 4F 47 80  20 2E C6 20 22 1E 20 20  |3S4PROG. .. ".  |
000007F0: 44 49 53 4B 2D 4E 41 4D  45 3A 20 20 20 20 20 20  |DISK-NAME:      |
00000800: 20 20 20 20 20 20 20 20  20 20 20 20 20 49 44 3A  |             ID:|
00000810: 20 20 20 20 20 20 22 00  06 34 58 34 54 45 58 54  |      "..4X4TEXT|
00000820: 31 20 2E C6 20 22 4D 49  54 20 43 55 52 53 4F 52  |1 .. "MIT CURSOR|
00000830: 54 41 53 54 45 4E 20 41  55 53 57 41 45 48 4C 45  |TASTEN AUSWAEHLE|
00000840: 4E 20 55 4E 44 20 52 45  54 55 52 4E 9E 22 00 36  |N UND RETURN.".6|
00000850: 34 62 34 54 45 58 54 32  20 2E C6 20 22 4D 2D 52  |4b4TEXT2 .. "M-R|
00000860: 22 3A 20 2E 42 59 54 45  20 B3 41 55 53 47 41 42  |": .BYTE .AUSGAB|
00000870: 45 2C 20 B1 41 55 53 47  41 42 45 2C 20 30 00 67  |E, .AUSGABE, 0.g|
00000880: 34 6C 34 54 45 58 54 33  20 2E C6 20 22 4D 2D 45  |4l4TEXT3 .. "M-E|
00000890: 22 3A 20 2E 42 59 54 45  20 B3 24 30 35 30 30 AA  |": .BYTE .$0500.|
000008A0: 45 49 4E 53 50 52 47 AB  50 52 4F 47 41 4E 46 00  |EINSPRG.PROGANF.|
000008B0: 88 34 76 34 2E 42 59 54  45 20 B1 24 30 35 30 30  |.4v4.BYTE .$0500|
000008C0: AA 45 49 4E 53 50 52 47  AB 50 52 4F 47 41 4E 46  |.EINSPRG.PROGANF|
000008D0: 00 8E 34 B0 36 3B 00 A9  34 BA 36 3B 20 4C 41 44  |..4.6;..4.6; LAD|
000008E0: 45 AB 20 AD 20 53 54 41  52 54 52 4F 55 54 49 4E  |E. . STARTROUTIN|
000008F0: 45 00 AF 34 C4 36 3B 00  BF 34 E2 36 54 45 58 54  |E..4.6;..4.6TEXT|
00000900: 34 20 4A 53 52 20 93 00  CB 34 EC 36 53 54 58 20  |4 JSR ...4.6STX |
00000910: 24 32 44 00 EA 34 F6 36  53 54 59 20 24 32 45 3B  |$2D..4.6STY $2E;|
00000920: 20 5A 45 49 47 45 52 20  50 52 4F 47 52 41 4D 4D  | ZEIGER PROGRAMM|
00000930: 80 45 00 F8 34 14 3A 4A  53 52 20 24 41 35 33 33  |.E..4.:JSR $A533|
00000940: 00 20 35 16 3A 4C 44 41  20 23 31 3A 20 4A 53 52  |. 5.:LDA #1: JSR|
00000950: 20 A0 3B 20 4C 41 44 45  4B 41 4E 41 4C 20 53 43  | .; LADEKANAL SC|
00000960: 48 4C 49 45 53 53 45 4E  00 43 35 1B 3A 4A 53 52  |HLIESSEN.C5.:JSR|
00000970: 20 43 4C 45 41 52 3B 20  42 49 4C 44 53 43 48 49  | CLEAR; BILDSCHI|
00000980: 52 4D 20 4C 4F 45 53 43  48 45 4E 00 50 35 1D 3A  |RM LOESCHEN.P5.:|
00000990: 50 4C 41 3A 20 50 4C 41  00 62 35 20 3A 4C 44 41  |PLA: PLA.b5 :LDA|
000009A0: 20 23 24 41 37 3A 20 50  48 41 00 89 35 22 3A 4C  | #$A7: PHA..5":L|
000009B0: 44 41 20 23 24 41 45 3A  20 50 48 41 3B 20 53 54  |DA #$AE: PHA; ST|
000009C0: 41 43 4B 20 41 4B 54 55  41 4C 49 53 49 45 52 45  |ACK AKTUALISIERE|
000009D0: 4E 00 AF 35 24 3A 46 49  4E 20 4A 4D 50 20 24 41  |N..5$:FIN JMP $A|
000009E0: 36 35 39 3B 20 4B B0 52  45 4B 54 45 52 20 52 55  |659; K.REKTER RU|
000009F0: 45 43 4B 53 50 8A 47 00  B6 35 3E 3A 2E 80 00 00  |ECKSP.G..5>:....|
00000A00: 00                                                |.               |
........................................
........................................
........................................
........................................
........................................
........................................
..............LOCK LESEN"..,.+STA $00; A
LS AUFTRAG FUER PUFFER 0..-.+WARTEN LDA 
$00; STATUS PUFFER 0.4- +BMI WARTEN; FAL
LS NOCH NICHT FERTIG.P-*+CMP #1; FEHLER 
ABFRAGEN.S-4+BNE .E; FALLS FEHLER AUF.RE
TEN.Y-\+;..-F+DNAME LDA PUFFER.144,X; DI
SKNAMEN HOC.K-P+STA AUSGABE,X; IN DEN AU
SGABEPUFFER.S-Z+INX..-.+CPX #20; NAME UN
D ID KOMP.T....+BNE DNAME; WEITER FALLS 
NEIN....,;.>..,. LDA PUFFER; BLOCKZEIGER
 TRACK.B..-BEQ .E; FALLS NAECHSTER TRACK
 0.N..-STA $06....-LDA PUFFER.1; BLOCKZE
IGER SEK.R....-STA $07.B.(-LDA #$80; JOB
CODE "BLOCK LESEN"...2-STA $00; ALS AUFT
RAG FUER PUFFER 0../<-WARTEN1 LDA $00; S
TATUS PUFFER 0.7/F-BMI WARTEN1; FALLS NO
CH NICHT FERTIG.J/.-LDA #.PUFFER.2.[/.-S
TA ZEIGER.1./H-LDA #.PUFFER.2; ANFANG 1
. E.RAG../R-NOCHMAL STA ZEIGER; ZEIGER I
N PUFFER HERSTELC../.-LDY #0.Z/.-LDA (ZE
IGER),Y; FI.YP HOC../.-BEQ WEITER; FALLS
 DE.ED..0..LDY #22.#0".LDA (ZEIGER),Y; M
ARKIE.G HOC.B0,.BMI WEITER; FALLS MARKIE
RT.O06.STA AUSGABE,X; S.ST IN DEN AUSGAB
EPUFFER.|0@.INX: INY..0B.LDA (ZEIGER),Y;
 RESERVIERTE BYTES..0D.STA AUSGABE,X; HO
C.F0F.INX: INY..0G.LDA (ZEIGER),Y; (STAR
TADRESSE)..1H.STA AUSGABE,X; UND UEBERGE
BEN..1I.INX.-1J.LDY #3; ANFANG FICAME.R1
T.NAME LDA (ZEIGER),Y; ZEICHEN HOC.~1^.S
TA AUSGABE,X; UND IN DEN AUSGABEPUFFER..
1H.INX..1R.BNE OK; FALLS PUFFER NOCH NIC
HT VOLL.C1..STY .; Y RETTEN..1..RTS; RUE
CKGABE DER K.TROLLE ANS DOS..1H2;..2R2EI
NSPRG LDX #0.(2.2LDY .; REGISTER WIEDER 
HERSTELC.32.2OK INY.Y2.3CPY #19; .ZTES Z
EICHEN DES NAMENS.2.3BNE NAME; FALLS NO
CH NICHT FERTIG..2,3WEITER LDA ZEIGER..2
63CLC; ADDITI. V.BEREITEN.Y2@3ADC #32; Z
EIGER AUF NAECHSTEN E.RAG..2J3BCC NOCHMA
L; FALLS NOCH EIN E.RAG..3T3BCS .; S.ST 
NAECHSTEN BLOCK.%3.3;.F3.3.E LDA #$FF; Z
EICHEN FUER .E.N3.3STA AUSGABE,X; IN DEN
 AUSGABEPUFFER..3.3RTS; K.TROLLE ZURUECK
 ANS DOS..3B3;.O3S4PROG. .F ".  DISK-NAM
E:                   ID:      "..4X4TEXT
1 .F "MIT CURSORTASTEN AUSWAEHLEN UND RE
TURN.".64B4TEXT2 .F "M-R": .BYTE .AUSGAB
E, .AUSGABE, 0.G4L4TEXT3 .F "M-E": .BYTE
 .$0500.EINSPRG.PROGANF..4V4.BYTE .$0500
.EINSPRG.PROGANF..4.6;..4.6; LADE. . STA
RTROUTINE..4D6;..4.6TEXT4 JSR ..K4.6STX 
$2D..4.6STY $2E; ZEIGER PROGRAMM.E..4.:J
SR $A533. 5.:LDA #1: JSR  ; LADEKANAL SC
HLIESSEN.C5.:JSR CLEAR; BILDSCHIRM LOESC
HEN.P5.:PLA: PLA.B5 :LDA #$A7: PHA..5":L
DA #$AE: PHA; STACK AKTUALISIEREN..5$:FI
N JMP $A659; K.REKTER RUECKSP.G..5>:....
.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL