OBJ TEIL 5
FILE INFORMATION
FILENAME(S): OBJ TEIL 5
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 01:12:53
APPEARS ON: 2 disk(s)
FILE HASH
60bbd2c05326d1f9240231d77e8db21aeebd924ee16cabc680de56e1a2b17762
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10811 SEITE A | OBJ TEIL 5 | PRG | C64er, DuncanTwain | 28 | 0 | DOWNLOAD FILE |
| 10811 SEITE A | OBJ TEIL 5 | PRG | DuncanTwain | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E6 1F 0A 00 2E 42 41 20 35 30 30 30 30 00 |.......BA 50000.| 00000010: EC 1F 14 00 3B 00 06 20 1E 00 2E 45 51 20 49 52 |....;.. ...EQ IR| 00000020: 51 56 45 43 54 4F 52 20 3D 20 24 30 33 31 34 00 |QVECTOR = $0314.| 00000030: 20 20 28 00 2E 45 51 20 4E 4F 52 4D 41 4C 49 52 | (..EQ NORMALIR| 00000040: 51 20 3D 20 24 45 41 33 31 00 34 20 32 00 2E 45 |Q = $EA31.4 2..E| 00000050: 51 20 43 4F 55 4E 54 20 3D 20 31 37 30 00 4B 20 |Q COUNT = 170.K | 00000060: 3C 00 2E 45 51 20 43 55 52 53 46 4C 41 47 20 3D |<..EQ CURSFLAG =| 00000070: 20 31 37 31 00 51 20 46 00 3B 00 69 20 50 00 2E | 171.Q F.;.i P..| 00000080: 45 51 20 53 43 52 45 45 4E 4D 45 4D 20 3D 20 32 |EQ SCREENMEM = 2| 00000090: 35 31 00 81 20 5A 00 2E 45 51 20 53 43 52 45 45 |51.. Z..EQ SCREE| 000000A0: 4E 43 4F 4C 20 3D 20 32 35 33 00 87 20 64 00 3B |NCOL = 253.. d.;| 000000B0: 00 8D 20 6E 00 3B 00 93 20 78 00 3B 00 B6 20 82 |.. n.;.. x.;.. .| 000000C0: 00 3B 20 20 2A 2A 2A 20 20 53 43 48 41 4C 54 45 |.; *** SCHALTE| 000000D0: 20 43 55 52 53 4F 52 20 41 4E 20 20 2A 2A 2A 00 | CURSOR AN ***.| 000000E0: BC 20 8C 00 3B 00 CD 20 96 00 43 55 52 53 4F 52 |. ..;.. ..CURSOR| 000000F0: 41 4E 20 53 45 49 00 E3 20 A0 00 20 4C 44 41 23 |AN SEI.. .. LDA#| 00000100: 3C 28 46 4C 41 53 48 43 55 52 53 29 00 F5 20 AA |<(FLASHCURS).. .| 00000110: 00 20 53 54 41 49 52 51 56 45 43 54 4F 52 00 0B |. STAIRQVECTOR..| 00000120: 21 B4 00 20 4C 44 41 23 3E 28 46 4C 41 53 48 43 |!.. LDA#>(FLASHC| 00000130: 55 52 53 29 00 1F 21 BE 00 20 53 54 41 49 52 51 |URS)..!.. STAIRQ| 00000140: 56 45 43 54 4F 52 2B 31 00 25 21 C8 00 3B 00 30 |VECTOR+1.%!..;.0| 00000150: 21 D2 00 20 4C 44 41 23 30 00 41 21 DC 00 20 53 |!.. LDA#0.A!.. S| 00000160: 54 41 43 55 52 53 46 4C 41 47 00 4F 21 E6 00 20 |TACURSFLAG.O!.. | 00000170: 53 54 41 43 4F 55 4E 54 00 55 21 F0 00 3B 00 5E |STACOUNT.U!..;.^| 00000180: 21 FA 00 20 43 4C 49 00 67 21 04 01 20 52 54 53 |!.. CLI.g!.. RTS| 00000190: 00 6D 21 0E 01 3B 00 73 21 18 01 3B 00 79 21 22 |.m!..;.s!..;.y!"| 000001A0: 01 3B 00 9C 21 2C 01 3B 20 20 2A 2A 2A 20 20 53 |.;..!,.; *** S| 000001B0: 43 48 41 4C 54 45 20 43 55 52 53 4F 52 20 41 55 |CHALTE CURSOR AU| 000001C0: 53 20 2A 2A 2A 00 A2 21 36 01 3B 00 B4 21 40 01 |S ***..!6.;..!@.| 000001D0: 43 55 52 53 4F 52 41 55 53 20 53 45 49 00 CA 21 |CURSORAUS SEI..!| 000001E0: 4A 01 20 4C 44 41 23 3C 28 4E 4F 52 4D 41 4C 49 |J. LDA#<(NORMALI| 000001F0: 52 51 29 00 DC 21 54 01 20 53 54 41 49 52 51 56 |RQ)..!T. STAIRQV| 00000200: 45 43 54 4F 52 00 F2 21 5E 01 20 4C 44 41 23 3E |ECTOR..!^. LDA#>| 00000210: 28 4E 4F 52 4D 41 4C 49 52 51 29 00 06 22 68 01 |(NORMALIRQ).."h.| 00000220: 20 53 54 41 49 52 51 56 45 43 54 4F 52 2B 31 00 | STAIRQVECTOR+1.| 00000230: 0F 22 72 01 20 43 4C 49 00 18 22 7C 01 20 52 54 |."r. CLI.."|. RT| 00000240: 53 00 1E 22 86 01 3B 00 24 22 90 01 3B 00 2A 22 |S.."..;.$"..;.*"| 00000250: 9A 01 3B 00 50 22 A4 01 3B 20 20 2A 2A 2A 20 20 |..;.P"..; *** | 00000260: 46 4C 41 53 48 20 43 55 52 53 4F 52 20 52 4F 55 |FLASH CURSOR ROU| 00000270: 54 49 4E 45 20 20 2A 2A 2A 00 56 22 AE 01 3B 00 |TINE ***.V"..;.| 00000280: 7F 22 B8 01 3B 28 44 49 45 53 45 20 52 4F 55 54 |."..;(DIESE ROUT| 00000290: 49 4E 45 20 57 49 52 44 20 4A 45 44 45 53 20 36 |INE WIRD JEDES 6| 000002A0: 30 5A 49 47 53 54 45 4C 00 9F 22 C2 01 3B 45 49 |0ZIGSTEL.."..;EI| 000002B0: 4E 45 52 20 53 45 4B 55 4E 44 45 20 41 55 46 47 |NER SEKUNDE AUFG| 000002C0: 45 52 55 46 45 4E 2E 29 00 A5 22 CC 01 3B 00 C9 |ERUFEN.).."..;..| 000002D0: 22 D6 01 3B 49 4E 4B 52 45 4D 45 4E 54 49 45 52 |"..;INKREMENTIER| 000002E0: 45 20 44 49 45 20 49 4E 54 45 52 4E 45 20 55 48 |E DIE INTERNE UH| 000002F0: 52 2E 00 CF 22 E0 01 3B 00 E6 22 EA 01 46 4C 41 |R..."..;.."..FLA| 00000300: 53 48 43 55 52 53 20 4A 53 52 24 46 46 45 41 00 |SHCURS JSR$FFEA.| 00000310: EC 22 F4 01 3B 00 11 23 FE 01 3B 49 4E 4B 52 45 |."..;..#..;INKRE| 00000320: 4D 45 4E 54 49 45 52 45 20 5A 41 45 48 4C 45 52 |MENTIERE ZAEHLER| 00000330: 2E 20 57 45 4E 4E 20 32 30 2C 00 35 23 08 02 3B |. WENN 20,.5#..;| 00000340: 41 45 4E 44 45 52 45 20 43 55 52 53 4F 52 2E 20 |AENDERE CURSOR. | 00000350: 57 45 4E 4E 20 4E 49 43 48 54 20 32 30 2C 00 56 |WENN NICHT 20,.V| 00000360: 23 12 02 3B 53 50 52 49 4E 47 45 20 53 4F 46 4F |#..;SPRINGE SOFO| 00000370: 52 54 20 5A 55 4D 20 41 55 53 47 41 4E 47 2E 00 |RT ZUM AUSGANG..| 00000380: 5C 23 1C 02 3B 00 6A 23 26 02 20 49 4E 43 43 4F |\#..;.j#&. INCCO| 00000390: 55 4E 54 00 78 23 30 02 20 4C 44 41 43 4F 55 4E |UNT.x#0. LDACOUN| 000003A0: 54 00 84 23 3A 02 20 43 4D 50 23 32 30 00 95 23 |T..#:. CMP#20..#| 000003B0: 44 02 20 42 4E 45 43 55 52 53 45 58 49 54 00 9B |D. BNECURSEXIT..| 000003C0: 23 4E 02 3B 00 BD 23 58 02 3B 5A 41 45 48 4C 45 |#N.;..#X.;ZAEHLE| 000003D0: 52 20 5A 55 52 55 45 43 4B 20 41 55 46 20 4E 55 |R ZURUECK AUF NU| 000003E0: 4C 4C 20 55 4E 44 00 D5 23 62 02 3B 54 45 53 54 |LL UND..#b.;TEST| 000003F0: 20 56 4F 4E 20 43 55 52 53 46 4C 41 47 2E 00 DB | VON CURSFLAG...| 00000400: 23 6C 02 3B 00 E6 23 76 02 20 4C 44 41 23 30 00 |#l.;..#v. LDA#0.| 00000410: F4 23 80 02 20 53 54 41 43 4F 55 4E 54 00 FA 23 |.#.. STACOUNT..#| 00000420: 8A 02 3B 00 0B 24 94 02 20 4C 44 41 43 55 52 53 |..;..$.. LDACURS| 00000430: 46 4C 41 47 00 1D 24 9E 02 20 42 4E 45 44 52 55 |FLAG..$.. BNEDRU| 00000440: 43 4B 43 48 41 52 00 23 24 A8 02 3B 00 48 24 B2 |CKCHAR.#$..;.H$.| 00000450: 02 3B 44 52 55 43 4B 45 20 49 4E 56 45 52 54 49 |.;DRUCKE INVERTI| 00000460: 45 52 54 45 4E 20 42 55 43 48 53 54 41 42 45 4E |ERTEN BUCHSTABEN| 00000470: 2E 00 4E 24 BC 02 3B 00 5F 24 C6 02 20 49 4E 43 |..N$..;._$.. INC| 00000480: 43 55 52 53 46 4C 41 47 00 6A 24 D0 02 20 4C 44 |CURSFLAG.j$.. LD| 00000490: 59 23 30 00 80 24 DA 02 20 4C 44 41 28 53 43 52 |Y#0..$.. LDA(SCR| 000004A0: 45 45 4E 4D 45 4D 29 2C 59 00 89 24 E4 02 20 43 |EENMEM),Y..$.. C| 000004B0: 4C 43 00 96 24 EE 02 20 41 44 43 23 31 32 38 00 |LC..$.. ADC#128.| 000004C0: AC 24 F8 02 20 53 54 41 28 53 43 52 45 45 4E 4D |.$.. STA(SCREENM| 000004D0: 45 4D 29 2C 59 00 B8 24 02 03 20 4C 44 41 23 31 |EM),Y..$.. LDA#1| 000004E0: 34 00 CE 24 0C 03 20 53 54 41 28 53 43 52 45 45 |4..$.. STA(SCREE| 000004F0: 4E 43 4F 4C 29 2C 59 00 DF 24 16 03 20 42 4E 45 |NCOL),Y..$.. BNE| 00000500: 43 55 52 53 45 58 49 54 00 E5 24 20 03 3B 00 06 |CURSEXIT..$ .;..| 00000510: 25 2A 03 3B 44 52 55 43 4B 45 20 4E 4F 52 4D 41 |%*.;DRUCKE NORMA| 00000520: 4C 45 4E 20 42 55 43 48 53 54 41 42 45 4E 2E 00 |LEN BUCHSTABEN..| 00000530: 0C 25 34 03 3B 00 26 25 3E 03 44 52 55 43 4B 43 |.%4.;.&%>.DRUCKC| 00000540: 48 41 52 20 44 45 43 43 55 52 53 46 4C 41 47 00 |HAR DECCURSFLAG.| 00000550: 31 25 48 03 20 4C 44 59 23 30 00 47 25 52 03 20 |1%H. LDY#0.G%R. | 00000560: 4C 44 41 28 53 43 52 45 45 4E 4D 45 4D 29 2C 59 |LDA(SCREENMEM),Y| 00000570: 00 50 25 5C 03 20 53 45 43 00 5D 25 66 03 20 53 |.P%\. SEC.]%f. S| 00000580: 42 43 23 31 32 38 00 73 25 70 03 20 53 54 41 28 |BC#128.s%p. STA(| 00000590: 53 43 52 45 45 4E 4D 45 4D 29 2C 59 00 7F 25 7A |SCREENMEM),Y..%z| 000005A0: 03 20 4C 44 41 23 31 34 00 95 25 84 03 20 53 54 |. LDA#14..%.. ST| 000005B0: 41 28 53 43 52 45 45 4E 43 4F 4C 29 2C 59 00 9B |A(SCREENCOL),Y..| 000005C0: 25 8E 03 3B 00 A1 25 98 03 3B 00 C3 25 A2 03 3B |%..;..%..;..%..;| 000005D0: 45 58 45 4B 55 54 49 45 52 45 20 52 45 53 54 20 |EXEKUTIERE REST | 000005E0: 44 45 52 20 4E 4F 52 4D 41 4C 45 4E 00 E9 25 AC |DER NORMALEN..%.| 000005F0: 03 3B 49 4E 54 45 52 52 55 50 54 2D 52 4F 55 54 |.;INTERRUPT-ROUT| 00000600: 49 4E 45 20 49 4D 20 4B 45 52 4E 41 4C 2D 52 4F |INE IM KERNAL-RO| 00000610: 4D 2E 00 EF 25 B6 03 3B 00 05 26 C0 03 43 55 52 |M...%..;..&..CUR| 00000620: 53 45 58 49 54 20 4A 4D 50 24 45 41 37 42 00 0B |SEXIT JMP$EA7B..| 00000630: 26 CA 03 3B 00 11 26 D4 03 3B 00 17 26 DE 03 3B |&..;..&..;..&..;| 00000640: 00 1D 26 E8 03 3B 00 2B 26 F2 03 2E 42 41 20 34 |..&..;.+&...BA 4| 00000650: 39 31 35 32 00 31 26 FC 03 3B 00 48 26 06 04 2E |9152.1&..;.H&...| 00000660: 45 51 20 54 45 58 54 46 49 4C 45 20 3D 20 31 36 |EQ TEXTFILE = 16| 00000670: 38 00 4E 26 10 04 3B 00 64 26 1A 04 2E 45 51 20 |8.N&..;.d&...EQ | 00000680: 47 45 54 49 4E 20 3D 20 24 46 46 45 34 00 6A 26 |GETIN = $FFE4.j&| 00000690: 24 04 3B 00 70 26 2E 04 3B 00 92 26 38 04 3B 49 |$.;.p&..;..&8.;I| 000006A0: 4E 49 54 49 49 45 52 45 20 54 45 58 54 46 49 4C |NITIIERE TEXTFIL| 000006B0: 45 20 5A 55 20 33 30 30 30 30 2E 00 98 26 42 04 |E ZU 30000...&B.| 000006C0: 3B 00 AA 26 4C 04 20 4C 44 41 23 3C 28 33 30 30 |;..&L. LDA#<(300| 000006D0: 30 30 29 00 BB 26 56 04 20 53 54 41 54 45 58 54 |00)..&V. STATEXT| 000006E0: 46 49 4C 45 00 CD 26 60 04 20 4C 44 41 23 3E 28 |FILE..&`. LDA#>(| 000006F0: 33 30 30 30 30 29 00 E0 26 6A 04 20 53 54 41 54 |30000)..&j. STAT| 00000700: 45 58 54 46 49 4C 45 2B 31 00 E6 26 74 04 3B 00 |EXTFILE+1..&t.;.| 00000710: 0C 27 7E 04 3B 49 4E 49 54 49 49 45 52 45 20 42 |.'~.;INITIIERE B| 00000720: 49 4C 44 53 43 48 49 52 4D 20 55 4E 44 20 46 41 |ILDSCHIRM UND FA| 00000730: 52 42 45 4E 2E 00 12 27 88 04 3B 00 23 27 92 04 |RBEN...'..;.#'..| 00000740: 20 4C 44 41 23 3C 28 31 30 32 34 29 00 35 27 9C | LDA#<(1024).5'.| 00000750: 04 20 53 54 41 53 43 52 45 45 4E 4D 45 4D 00 46 |. STASCREENMEM.F| 00000760: 27 A6 04 20 4C 44 41 23 3E 28 31 30 32 34 29 00 |'.. LDA#>(1024).| 00000770: 5A 27 B0 04 20 53 54 41 53 43 52 45 45 4E 4D 45 |Z'.. STASCREENME| 00000780: 4D 2B 31 00 60 27 BA 04 3B 00 72 27 C4 04 20 4C |M+1.`'..;.r'.. L| 00000790: 44 41 23 3C 28 35 35 32 39 36 29 00 84 27 CE 04 |DA#<(55296)..'..| 000007A0: 20 53 54 41 53 43 52 45 45 4E 43 4F 4C 00 96 27 | STASCREENCOL..'| 000007B0: D8 04 20 4C 44 41 23 3E 28 35 35 32 39 36 29 00 |.. LDA#>(55296).| 000007C0: AA 27 E2 04 20 53 54 41 53 43 52 45 45 4E 43 4F |.'.. STASCREENCO| 000007D0: 4C 2B 31 00 B0 27 EC 04 3B 00 CD 27 F6 04 3B 4C |L+1..'..;..'..;L| 000007E0: 4F 45 53 43 48 45 20 44 45 4E 20 42 49 4C 44 53 |OESCHE DEN BILDS| 000007F0: 43 48 49 52 4D 2E 00 D3 27 00 05 3B 00 E1 27 0A |CHIRM...'..;..'.| 00000800: 05 20 4A 53 52 24 45 35 34 34 00 E7 27 14 05 3B |. JSR$E544..'..;| 00000810: 00 08 28 1E 05 3B 53 43 48 41 4C 54 45 20 43 4F |..(..;SCHALTE CO| 00000820: 4D 50 55 54 45 52 20 41 55 46 20 47 52 4F 53 53 |MPUTER AUF GROSS| 00000830: 2D 00 21 28 28 05 3B 55 4E 44 20 4B 4C 45 49 4E |-.!((.;UND KLEIN| 00000840: 53 43 48 52 45 49 42 55 4E 47 00 27 28 32 05 3B |SCHREIBUNG.'(2.;| 00000850: 00 33 28 3C 05 20 4C 44 41 23 31 34 00 41 28 46 |.3(<. LDA#14.A(F| 00000860: 05 20 4A 53 52 24 45 37 31 36 00 47 28 50 05 3B |. JSR$E716.G(P.;| 00000870: 00 63 28 5A 05 3B 53 43 48 41 4C 54 45 20 44 45 |.c(Z.;SCHALTE DE| 00000880: 4E 20 43 55 52 53 4F 52 20 41 4E 2E 00 69 28 64 |N CURSOR AN..i(d| 00000890: 05 3B 00 7A 28 6E 05 20 4A 53 52 43 55 52 53 4F |.;.z(n. JSRCURSO| 000008A0: 52 41 4E 00 80 28 78 05 3B 00 86 28 82 05 3B 00 |RAN..(x.;..(..;.| 000008B0: 8C 28 8C 05 3B 00 AE 28 96 05 3B 57 41 52 54 45 |.(..;..(..;WARTE| 000008C0: 20 41 55 46 20 45 49 4E 45 4E 20 54 41 53 54 45 | AUF EINEN TASTE| 000008D0: 4E 44 52 55 43 4B 2E 00 B4 28 A0 05 3B 00 C8 28 |NDRUCK...(..;..(| 000008E0: AA 05 47 45 54 4B 45 59 20 4A 53 52 47 45 54 49 |..GETKEY JSRGETI| 000008F0: 4E 00 D7 28 B4 05 20 42 45 51 47 45 54 4B 45 59 |N..(.. BEQGETKEY| 00000900: 00 DD 28 BE 05 3B 00 0E 29 C8 05 3B 57 45 4E 4E |..(..;..)..;WENN| 00000910: 20 46 55 4E 4B 54 49 4F 4E 53 54 41 53 54 45 20 | FUNKTIONSTASTE | 00000920: 31 2C 20 53 50 52 49 4E 47 45 20 5A 55 4D 20 41 |1, SPRINGE ZUM A| 00000930: 55 53 47 41 4E 47 2E 00 14 29 D2 05 3B 00 21 29 |USGANG...)..;.!)| 00000940: DC 05 20 43 4D 50 23 31 33 33 00 31 29 E6 05 20 |.. CMP#133.1).. | 00000950: 42 4E 45 47 45 54 4B 45 59 31 00 3E 29 F0 05 20 |BNEGETKEY1.>).. | 00000960: 4A 4D 50 45 58 49 54 00 44 29 FA 05 3B 00 68 29 |JMPEXIT.D)..;.h)| 00000970: 04 06 3B 57 45 4E 4E 20 44 45 4C 45 54 45 20 54 |..;WENN DELETE T| 00000980: 41 53 54 45 2C 20 53 50 52 49 4E 47 45 20 5A 55 |ASTE, SPRINGE ZU| 00000990: 52 00 7C 29 0E 06 3B 4C 4F 45 53 43 48 52 4F 55 |R.|)..;LOESCHROU| 000009A0: 54 49 4E 45 2E 00 82 29 18 06 3B 00 95 29 22 06 |TINE...)..;..)".| 000009B0: 47 45 54 4B 45 59 31 20 43 4D 50 23 32 30 00 A6 |GETKEY1 CMP#20..| 000009C0: 29 2C 06 20 42 45 51 44 45 4C 45 43 52 53 52 00 |),. BEQDELECRSR.| 000009D0: AC 29 36 06 3B 00 CA 29 40 06 3B 57 45 4E 4E 20 |.)6.;..)@.;WENN | 000009E0: 43 55 52 53 4F 52 20 4C 49 4E 4B 53 2C 20 44 49 |CURSOR LINKS, DI| 000009F0: 54 4F 2E 00 D0 29 4A 06 3B 00 DD 29 54 06 20 43 |TO...)J.;..)T. C| 00000A00: 4D 50 23 31 35 37 00 EE 29 5E 06 20 42 45 51 44 |MP#157..)^. BEQD| 00000A10: 45 4C 45 43 52 53 52 00 F4 29 68 06 3B 00 20 2A |ELECRSR..)h.;. *| 00000A20: 72 06 3B 57 45 4E 4E 20 43 55 52 53 4F 52 20 52 |r.;WENN CURSOR R| 00000A30: 45 43 48 54 53 2C 20 53 50 52 49 4E 47 45 20 56 |ECHTS, SPRINGE V| 00000A40: 4F 52 57 41 45 52 54 53 2E 00 26 2A 7C 06 3B 00 |ORWAERTS..&*|.;.| 00000A50: 32 2A 86 06 20 43 4D 50 23 32 39 00 44 2A 90 06 |2*.. CMP#29.D*..| 00000A60: 20 42 45 51 43 52 53 52 45 43 48 54 53 00 4A 2A | BEQCRSRECHTS.J*| 00000A70: 9A 06 3B 00 50 2A A4 06 3B 00 56 2A AE 06 3B 00 |..;.P*..;.V*..;.| 00000A80: 77 2A B8 06 3B 4C 41 44 45 20 42 55 43 48 53 54 |w*..;LADE BUCHST| 00000A90: 41 42 45 20 49 4E 20 54 45 58 54 46 49 4C 45 2E |ABE IN TEXTFILE.| 00000AA0: 00 7D 2A C2 06 3B 00 88 2A CC 06 20 4C 44 59 23 |.}*..;..*.. LDY#| 00000AB0: 30 00 9D 2A D6 06 20 53 54 41 28 54 45 58 54 46 |0..*.. STA(TEXTF| 00000AC0: 49 4C 45 29 2C 59 00 A3 2A E0 06 3B 00 CB 2A EA |ILE),Y..*..;..*.| 00000AD0: 06 3B 56 45 52 57 41 4E 44 4C 45 20 41 53 43 49 |.;VERWANDLE ASCI| 00000AE0: 49 20 5A 55 20 42 49 4C 44 53 43 48 49 52 4D 43 |I ZU BILDSCHIRMC| 00000AF0: 4F 44 45 2E 00 D1 2A F4 06 3B 00 DE 2A FE 06 20 |ODE...*..;..*.. | 00000B00: 43 4D 50 23 31 32 38 00 EB 2A 08 07 20 42 43 43 |CMP#128..*.. BCC| 00000B10: 53 4B 49 50 00 09 2B 12 07 20 53 42 43 23 36 34 |SKIP..+.. SBC#64| 00000B20: 3B 47 52 4F 53 53 45 52 20 42 55 43 48 53 54 41 |;GROSSER BUCHSTA| 00000B30: 42 45 00 2B 2B 1C 07 53 4B 49 50 20 43 4D 50 23 |BE.++..SKIP CMP#| 00000B40: 36 34 3B 4B 4C 45 49 4E 45 52 20 42 55 43 48 53 |64;KLEINER BUCHS| 00000B50: 54 41 42 45 00 3A 2B 26 07 20 42 43 43 44 52 55 |TABE.:+&. BCCDRU| 00000B60: 43 4B 45 00 46 2B 30 07 20 53 42 43 23 36 34 00 |CKE.F+0. SBC#64.| 00000B70: 4C 2B 3A 07 3B 00 72 2B 44 07 3B 44 52 55 43 4B |L+:.;.r+D.;DRUCK| 00000B80: 45 20 42 55 43 48 53 54 41 42 45 20 41 55 46 20 |E BUCHSTABE AUF | 00000B90: 42 49 4C 44 53 43 48 49 52 4D 2E 00 78 2B 4E 07 |BILDSCHIRM..x+N.| 00000BA0: 3B 00 94 2B 58 07 44 52 55 43 4B 45 20 53 54 41 |;..+X.DRUCKE STA| 00000BB0: 28 53 43 52 45 45 4E 4D 45 4D 29 2C 59 00 A0 2B |(SCREENMEM),Y..+| 00000BC0: 62 07 20 4C 44 41 23 31 34 00 B6 2B 6C 07 20 53 |b. LDA#14..+l. S| 00000BD0: 54 41 28 53 43 52 45 45 4E 43 4F 4C 29 2C 59 00 |TA(SCREENCOL),Y.| 00000BE0: BC 2B 76 07 3B 00 D9 2B 80 07 3B 4E 41 45 43 48 |.+v.;..+..;NAECH| 00000BF0: 53 54 45 20 44 52 55 43 4B 50 4F 53 49 54 49 4F |STE DRUCKPOSITIO| 00000C00: 4E 2E 00 DF 2B 8A 07 3B 00 F9 2B 94 07 43 52 53 |N...+..;..+..CRS| 00000C10: 52 45 43 48 54 31 20 49 4E 43 54 45 58 54 46 49 |RECHT1 INCTEXTFI| 00000C20: 4C 45 00 08 2C 9E 07 20 42 4E 45 4E 4F 48 49 47 |LE..,.. BNENOHIG| 00000C30: 48 00 1B 2C A8 07 20 49 4E 43 54 45 58 54 46 49 |H..,.. INCTEXTFI| 00000C40: 4C 45 2B 31 00 21 2C B2 07 3B 00 39 2C BC 07 4E |LE+1.!,..;.9,..N| 00000C50: 4F 48 49 47 48 20 49 4E 43 53 43 52 45 45 4E 4D |OHIGH INCSCREENM| 00000C60: 45 4D 00 49 2C C6 07 20 42 4E 45 4E 4F 48 49 47 |EM.I,.. BNENOHIG| 00000C70: 48 31 00 5D 2C D0 07 20 49 4E 43 53 43 52 45 45 |H1.],.. INCSCREE| 00000C80: 4E 4D 45 4D 2B 31 00 63 2C DA 07 3B 00 7C 2C E4 |NMEM+1.c,..;.|,.| 00000C90: 07 4E 4F 48 49 47 48 31 20 49 4E 43 53 43 52 45 |.NOHIGH1 INCSCRE| 00000CA0: 45 4E 43 4F 4C 00 8B 2C EE 07 20 42 4E 45 47 45 |ENCOL..,.. BNEGE| 00000CB0: 54 4B 45 59 00 9F 2C F8 07 20 49 4E 43 53 43 52 |TKEY..,.. INCSCR| 00000CC0: 45 45 4E 43 4F 4C 2B 31 00 AE 2C 02 08 20 42 4E |EENCOL+1..,.. BN| 00000CD0: 45 47 45 54 4B 45 59 00 B4 2C 0C 08 3B 00 BA 2C |EGETKEY..,..;..,| 00000CE0: 16 08 3B 00 C0 2C 20 08 3B 00 DC 2C 2A 08 3B 43 |..;.., .;..,*.;C| 00000CF0: 55 52 53 4F 52 20 52 45 43 48 54 53 20 52 4F 55 |URSOR RECHTS ROU| 00000D00: 54 49 4E 45 3A 00 FF 2C 34 08 3B 52 45 4B 4F 4E |TINE:..,4.;REKON| 00000D10: 53 54 52 55 49 45 52 45 20 42 55 43 48 53 54 41 |STRUIERE BUCHSTA| 00000D20: 42 45 20 4C 49 4E 4B 53 00 29 2D 3E 08 3B 55 4E |BE LINKS.)->.;UN| 00000D30: 44 20 53 50 52 49 4E 47 45 20 5A 55 52 20 48 41 |D SPRINGE ZUR HA| 00000D40: 55 50 54 52 4F 55 54 49 4E 45 20 5A 55 52 55 45 |UPTROUTINE ZURUE| 00000D50: 43 4B 00 2F 2D 48 08 3B 00 43 2D 52 08 43 52 53 |CK./-H.;.C-R.CRS| 00000D60: 52 45 43 48 54 53 20 4C 44 59 23 30 00 59 2D 5C |RECHTS LDY#0.Y-\| 00000D70: 08 20 4C 44 41 28 53 43 52 45 45 4E 4D 45 4D 29 |. LDA(SCREENMEM)| 00000D80: 2C 59 00 66 2D 66 08 20 43 4D 50 23 31 32 38 00 |,Y.f-f. CMP#128.| 00000D90: 76 2D 70 08 20 42 43 43 44 52 55 43 4B 45 32 00 |v-p. BCCDRUCKE2.| 00000DA0: 83 2D 7A 08 20 53 42 43 23 31 32 38 00 A0 2D 84 |.-z. SBC#128..-.| 00000DB0: 08 44 52 55 43 4B 45 32 20 53 54 41 28 53 43 52 |.DRUCKE2 STA(SCR| 00000DC0: 45 45 4E 4D 45 4D 29 2C 59 00 AC 2D 8E 08 20 4C |EENMEM),Y..-.. L| 00000DD0: 44 41 23 31 34 00 C2 2D 98 08 20 53 54 41 28 53 |DA#14..-.. STA(S| 00000DE0: 43 52 45 45 4E 43 4F 4C 29 2C 59 00 C8 2D A2 08 |CREENCOL),Y..-..| 00000DF0: 3B 00 DA 2D AC 08 20 42 4E 45 43 52 53 52 45 43 |;..-.. BNECRSREC| 00000E00: 48 54 31 00 E0 2D B6 08 3B 00 E6 2D C0 08 3B 00 |HT1..-..;..-..;.| 00000E10: EC 2D CA 08 3B 00 13 2E D4 08 3B 4C 4F 45 53 43 |.-..;.....;LOESC| 00000E20: 48 2D 20 55 4E 44 20 43 55 52 53 4F 52 20 4C 49 |H- UND CURSOR LI| 00000E30: 4E 4B 53 20 52 4F 55 54 49 4E 45 3A 00 19 2E DE |NKS ROUTINE:....| 00000E40: 08 3B 00 32 2E E8 08 44 45 4C 45 43 52 53 52 20 |.;.2...DELECRSR | 00000E50: 4C 44 58 23 3C 28 31 30 32 34 29 00 44 2E F2 08 |LDX#<(1024).D...| 00000E60: 20 43 50 58 53 43 52 45 45 4E 4D 45 4D 00 52 2E | CPXSCREENMEM.R.| 00000E70: FC 08 20 42 4E 45 53 54 41 52 54 00 63 2E 06 09 |.. BNESTART.c...| 00000E80: 20 4C 44 58 23 3E 28 31 30 32 34 29 00 77 2E 10 | LDX#>(1024).w..| 00000E90: 09 20 43 50 58 53 43 52 45 45 4E 4D 45 4D 2B 31 |. CPXSCREENMEM+1| 00000EA0: 00 86 2E 1A 09 20 42 45 51 47 45 54 4B 45 59 00 |..... BEQGETKEY.| 00000EB0: 8C 2E 24 09 3B 00 AA 2E 2E 09 3B 53 49 43 48 45 |..$.;.....;SICHE| 00000EC0: 52 45 20 49 4E 48 41 4C 54 20 44 45 53 20 41 4B |RE INHALT DES AK| 00000ED0: 4B 55 2E 00 B0 2E 38 09 3B 00 BE 2E 42 09 53 54 |KU....8.;...B.ST| 00000EE0: 41 52 54 20 50 48 41 00 C4 2E 4C 09 3B 00 E8 2E |ART PHA...L.;...| 00000EF0: 56 09 3B 52 45 4B 4F 4E 53 54 52 55 49 45 52 45 |V.;REKONSTRUIERE| 00000F00: 20 42 55 43 48 53 54 41 42 45 20 4C 49 4E 4B 53 | BUCHSTABE LINKS| 00000F10: 2E 00 EE 2E 60 09 3B 00 F9 2E 6A 09 20 4C 44 59 |....`.;...j. LDY| 00000F20: 23 30 00 0F 2F 74 09 20 4C 44 41 28 53 43 52 45 |#0../t. LDA(SCRE| 00000F30: 45 4E 4D 45 4D 29 2C 59 00 1C 2F 7E 09 20 43 4D |ENMEM),Y../~. CM| 00000F40: 50 23 31 32 38 00 2C 2F 88 09 20 42 43 43 44 52 |P#128.,/.. BCCDR| 00000F50: 55 43 4B 45 31 00 39 2F 92 09 20 53 42 43 23 31 |UCKE1.9/.. SBC#1| 00000F60: 32 38 00 56 2F 9C 09 44 52 55 43 4B 45 31 20 53 |28.V/..DRUCKE1 S| 00000F70: 54 41 28 53 43 52 45 45 4E 4D 45 4D 29 2C 59 00 |TA(SCREENMEM),Y.| 00000F80: 62 2F A6 09 20 4C 44 41 23 31 34 00 78 2F B0 09 |b/.. LDA#14.x/..| 00000F90: 20 53 54 41 28 53 43 52 45 45 4E 43 4F 4C 29 2C | STA(SCREENCOL),| 00000FA0: 59 00 7E 2F BA 09 3B 00 A3 2F C4 09 3B 47 45 48 |Y.~/..;../..;GEH| 00000FB0: 45 20 45 49 4E 45 20 50 4F 53 49 54 49 4F 4E 20 |E EINE POSITION | 00000FC0: 52 55 45 43 4B 57 41 45 52 54 53 2E 00 A9 2F CE |RUECKWAERTS.../.| 00000FD0: 09 3B 00 BA 2F D8 09 20 4C 44 41 54 45 58 54 46 |.;../.. LDATEXTF| 00000FE0: 49 4C 45 00 CA 2F E2 09 20 42 4E 45 4E 4F 48 49 |ILE../.. BNENOHI| 00000FF0: 47 48 32 00 DD 2F EC 09 20 44 45 43 54 45 58 54 |GH2../.. DECTEXT| 00001000: 46 49 4C 45 2B 31 00 F5 2F F6 09 4E 4F 48 49 47 |FILE+1../..NOHIG| 00001010: 48 32 20 44 45 43 54 45 58 54 46 49 4C 45 00 FB |H2 DECTEXTFILE..| 00001020: 2F 00 0A 3B 00 0D 30 0A 0A 20 4C 44 41 53 43 52 |/..;..0.. LDASCR| 00001030: 45 45 4E 4D 45 4D 00 1D 30 14 0A 20 42 4E 45 4E |EENMEM..0.. BNEN| 00001040: 4F 48 49 47 48 33 00 31 30 1E 0A 20 44 45 43 53 |OHIGH3.10.. DECS| 00001050: 43 52 45 45 4E 4D 45 4D 2B 31 00 4A 30 28 0A 4E |CREENMEM+1.J0(.N| 00001060: 4F 48 49 47 48 33 20 44 45 43 53 43 52 45 45 4E |OHIGH3 DECSCREEN| 00001070: 4D 45 4D 00 50 30 32 0A 3B 00 62 30 3C 0A 20 4C |MEM.P02.;.b0<. L| 00001080: 44 41 53 43 52 45 45 4E 43 4F 4C 00 72 30 46 0A |DASCREENCOL.r0F.| 00001090: 20 42 4E 45 4E 4F 48 49 47 48 34 00 86 30 50 0A | BNENOHIGH4..0P.| 000010A0: 20 44 45 43 53 43 52 45 45 4E 43 4F 4C 2B 31 00 | DECSCREENCOL+1.| 000010B0: 9F 30 5A 0A 4E 4F 48 49 47 48 34 20 44 45 43 53 |.0Z.NOHIGH4 DECS| 000010C0: 43 52 45 45 4E 43 4F 4C 00 A5 30 64 0A 3B 00 C9 |CREENCOL..0d.;..| 000010D0: 30 6E 0A 3B 50 55 4C 4C 20 41 4B 4B 55 20 55 4E |0n.;PULL AKKU UN| 000010E0: 44 20 54 45 53 54 45 20 57 45 52 54 2E 20 57 45 |D TESTE WERT. WE| 000010F0: 4E 4E 00 E5 30 78 0A 3B 43 55 52 53 4F 52 20 4C |NN..0x.;CURSOR L| 00001100: 49 4E 4B 53 2C 20 41 55 53 47 41 4E 47 2E 00 EB |INKS, AUSGANG...| 00001110: 30 82 0A 3B 00 F4 30 8C 0A 20 50 4C 41 00 01 31 |0..;..0.. PLA..1| 00001120: 96 0A 20 43 4D 50 23 31 35 37 00 0F 31 A0 0A 20 |.. CMP#157..1.. | 00001130: 42 45 51 45 58 49 54 31 00 15 31 AA 0A 3B 00 2E |BEQEXIT1..1..;..| 00001140: 31 B4 0A 3B 4C 4F 45 53 43 48 45 20 42 55 43 48 |1..;LOESCHE BUCH| 00001150: 53 54 41 42 45 4E 2E 00 34 31 BE 0A 3B 00 3F 31 |STABEN..41..;.?1| 00001160: C8 0A 20 4C 44 59 23 30 00 51 31 D2 0A 20 4C 44 |.. LDY#0.Q1.. LD| 00001170: 41 23 33 32 3B 53 50 41 43 45 00 66 31 DC 0A 20 |A#32;SPACE.f1.. | 00001180: 53 54 41 28 54 45 58 54 46 49 4C 45 29 2C 59 00 |STA(TEXTFILE),Y.| 00001190: 7C 31 E6 0A 20 53 54 41 28 53 43 52 45 45 4E 4D ||1.. STA(SCREENM| 000011A0: 45 4D 29 2C 59 00 88 31 F0 0A 20 4C 44 41 23 31 |EM),Y..1.. LDA#1| 000011B0: 34 00 9E 31 FA 0A 20 53 54 41 28 53 43 52 45 45 |4..1.. STA(SCREE| 000011C0: 4E 43 4F 4C 29 2C 59 00 A4 31 04 0B 3B 00 B8 31 |NCOL),Y..1..;..1| 000011D0: 0E 0B 45 58 49 54 31 20 4A 4D 50 47 45 54 4B 45 |..EXIT1 JMPGETKE| 000011E0: 59 00 BE 31 18 0B 3B 00 C4 31 22 0B 3B 00 CA 31 |Y..1..;..1".;..1| 000011F0: 2C 0B 3B 00 D0 31 36 0B 3B 00 E3 31 40 0B 3B 48 |,.;..16.;..1@.;H| 00001200: 41 55 50 54 41 55 53 47 41 4E 47 3A 00 10 32 4A |AUPTAUSGANG:..2J| 00001210: 0B 3B 53 43 48 41 4C 54 45 20 43 55 52 53 4F 52 |.;SCHALTE CURSOR| 00001220: 20 41 42 20 55 4E 44 20 5A 55 52 55 45 43 4B 20 | AB UND ZURUECK | 00001230: 5A 55 20 42 41 53 49 43 2E 00 16 32 54 0B 3B 00 |ZU BASIC...2T.;.| 00001240: 2C 32 5E 0B 45 58 49 54 20 4A 53 52 43 55 52 53 |,2^.EXIT JSRCURS| 00001250: 4F 52 41 55 53 00 35 32 68 0B 20 52 54 53 00 00 |ORAUS.52h. RTS..| 00001260: 00 |. |
X......BA 50000.....;.. ...EQ IRQVECTOR = $0314. (..EQ NORMALIRQ = $EA31.4 2..E Q COUNT = 170.K <..EQ CURSFLAG = 171.Q F .;.I P..EQ SCREENMEM = 251.. Z..EQ SCREE NCOL = 253.. D.;.. N.;.. X.;.. ..; *** SCHALTE CURSOR AN ***.. ..;.M ..CURSOR AN SEI.. . LDA#<(FLASHCURS).. .. STAIRQ VECTOR..!.. LDA#>(FLASHCURS)..!.. STAIRQ VECTOR+1.%!H.;.0!R. LDA#0.A!.. STACURSFL AG.O!.. STACOUNT.U!..;.^!.. CLI.G!.. RTS .M!..;.S!..;.Y!".;..!,.; *** SCHALTE C URSOR AUS ***..!6.;..!@.CURSORAUS SEI.J! J. LDA#<(NORMALIRQ)..!T. STAIRQVECTOR..! ^. LDA#>(NORMALIRQ).."H. STAIRQVECTOR+1. ."R. CLI.."|. RTS.."..;.$"..;.*"..;.P".. ; *** FLASH CURSOR ROUTINE ***.V"..;. "..;(DIESE ROUTINE WIRD JEDES 60ZIGSTEL .."B.;EINER SEKUNDE AUFGERUFEN.).."L.;.I "V.;INKREMENTIERE DIE INTERNE UHR..O"..; .."..FLASHCURS JSR$FFEA.."..;..#..;INKRE MENTIERE ZAEHLER. WENN 20,.5#..;AENDERE CURSOR. WENN NICHT 20,.V#..;SPRINGE SOFO RT ZUM AUSGANG..\#..;.J#&. INCCOUNT.X#0. LDACOUNT..#:. CMP#20..#D. BNECURSEXIT.. #N.;..#X.;ZAEHLER ZURUECK AUF NULL UND.U #B.;TEST VON CURSFLAG...#L.;..#V. LDA#0. .#.. STACOUNT..#..;..$.. LDACURSFLAG..$. . BNEDRUCKCHAR.#$..;.H$..;DRUCKE INVERTI ERTEN BUCHSTABEN..N$..;._$F. INCCURSFLAG .J$P. LDY#0..$Z. LDA(SCREENMEM),Y..$.. C LC..$.. ADC#128..$.. STA(SCREENMEM),Y..$ .. LDA#14.N$.. STA(SCREENCOL),Y..$.. BNE CURSEXIT..$ .;..%*.;DRUCKE NORMALEN BUCH STABEN...%4.;.&%>.DRUCKCHAR DECCURSFLAG. 1%H. LDY#0.G%R. LDA(SCREENMEM),Y.P%\. SE C.]%F. SBC#128.S%P. STA(SCREENMEM),Y.%Z . LDA#14..%.. STA(SCREENCOL),Y..%..;..%. .;.C%..;EXEKUTIERE REST DER NORMALEN..%. .;INTERRUPT-ROUTINE IM KERNAL-ROM...%..; ..&..CURSEXIT JMP$EA7B..&J.;..&T.;..&..; ..&..;.+&...BA 49152.1&..;.H&...EQ TEXTF ILE = 168.N&..;.D&...EQ GETIN = $FFE4.J& $.;.P&..;..&8.;INITIIERE TEXTFILE ZU 300 00...&B.;..&L. LDA#<(30000)..&V. STATEXT FILE.M&`. LDA#>(30000)..&J. STATEXTFILE+ 1..&T.;..'~.;INITIIERE BILDSCHIRM UND FA RBEN...'..;.#'.. LDA#<(1024).5'.. STASCR EENMEM.F'.. LDA#>(1024).Z'.. STASCREENME M+1.`'..;.R'D. LDA#<(55296)..'N. STASCRE ENCOL..'X. LDA#>(55296)..'.. STASCREENCO L+1..'..;.M'..;LOESCHE DEN BILDSCHIRM..S '..;..'.. JSR$E544..'..;..(..;SCHALTE CO MPUTER AUF GROSS-.!((.;UND KLEINSCHREIBU NG.'(2.;.3(<. LDA#14.A(F. JSR$E716.G(P.; .C(Z.;SCHALTE DEN CURSOR AN..I(D.;.Z(N. JSRCURSORAN..(X.;..(..;..(..;..(..;WARTE AUF EINEN TASTENDRUCK...( .;.H(..GETKEY JSRGETIN.W(.. BEQGETKEY..(..;..)H.;WENN FUNKTIONSTASTE 1, SPRINGE ZUM AUSGANG.. .)R.;.!).. CMP#133.1).. BNEGETKEY1.>).. JMPEXIT.D)..;.H)..;WENN DELETE TASTE, SP RINGE ZUR.|)..;LOESCHROUTINE...)..;..)". GETKEY1 CMP#20..),. BEQDELECRSR..)6.;.J) @.;WENN CURSOR LINKS, DITO..P)J.;..)T. C MP#157..)^. BEQDELECRSR..)H.;. *R.;WENN CURSOR RECHTS, SPRINGE VORWAERTS..&*|.;. 2*.. CMP#29.D*.. BEQCRSRECHTS.J*..;.P*.. ;.V*..;.W*..;LADE BUCHSTABE IN TEXTFILE. .}*B.;..*L. LDY#0..*V. STA(TEXTFILE),Y.. *..;.K*..;VERWANDLE ASCII ZU BILDSCHIRMC ODE..Q*..;..*.. CMP#128..*.. BCCSKIP..+. . SBC#64;GROSSER BUCHSTABE.++..SKIP CMP# 64;KLEINER BUCHSTABE.:+&. BCCDRUCKE.F+0. SBC#64.L+:.;.R+D.;DRUCKE BUCHSTABE AUF BILDSCHIRM..X+N.;..+X.DRUCKE STA(SCREENM EM),Y. +B. LDA#14..+L. STA(SCREENCOL),Y. .+V.;.Y+..;NAECHSTE DRUCKPOSITION...+..; ..+..CRSRECHT1 INCTEXTFILE..,.. BNENOHIG H..,.. INCTEXTFILE+1.!,..;.9,..NOHIGH IN CSCREENMEM.I,F. BNENOHIGH1.],P. INCSCREE NMEM+1.C,Z.;.|,..NOHIGH1 INCSCREENCOL.., .. BNEGETKEY..,.. INCSCREENCOL+1..,.. BN EGETKEY..,..;..,..;.., .;..,*.;CURSOR RE CHTS ROUTINE:..,4.;REKONSTRUIERE BUCHSTA BE LINKS.)->.;UND SPRINGE ZUR HAUPTROUTI NE ZURUECK./-H.;.C-R.CRSRECHTS LDY#0.Y-\ . LDA(SCREENMEM),Y.F-F. CMP#128.V-P. BCC DRUCKE2..-Z. SBC#128. -..DRUCKE2 STA(SCR EENMEM),Y..-.. LDA#14.B-.. STA(SCREENCOL ),Y.H-..;.Z-.. BNECRSRECHT1..-..;..-..;. .-J.;...T.;LOESCH- UND CURSOR LINKS ROUT INE:.....;.2...DELECRSR LDX#<(1024).D... CPXSCREENMEM.R... BNESTART.C... LDX#>(1 024).W... CPXSCREENMEM+1..... BEQGETKEY. ..$.;.....;SICHERE INHALT DES AKKU....8. ;...B.START PHA.D.L.;...V.;REKONSTRUIERE BUCHSTABE LINKS....`.;...J. LDY#0../T. LDA(SCREENMEM),Y../~. CMP#128.,/.. BCCDR UCKE1.9/.. SBC#128.V/..DRUCKE1 STA(SCREE NMEM),Y.B/.. LDA#14.X/.. STA(SCREENCOL), Y.~/..;../D.;GEHE EINE POSITION RUECKWAE RTS.../N.;../X. LDATEXTFILE.J/.. BNENOHI GH2../.. DECTEXTFILE+1../..NOHIGH2 DECTE XTFILE../..;..0.. LDASCREENMEM..0.. BNEN OHIGH3.10.. DECSCREENMEM+1.J0(.NOHIGH3 D ECSCREENMEM.P02.;.B0<. LDASCREENCOL.R0F. BNENOHIGH4..0P. DECSCREENCOL+1..0Z.NOHI GH4 DECSCREENCOL..0D.;.I0N.;PULL AKKU UN D TESTE WERT. WENN..0X.;CURSOR LINKS, AU SGANG...0..;..0.. PLA..1.. CMP#157..1 . BEQEXIT1..1..;..1..;LOESCHE BUCHSTABEN.. 41..;.?1H. LDY#0.Q1R. LDA#32;SPACE.F1.. STA(TEXTFILE),Y.|1.. STA(SCREENMEM),Y..1 .. LDA#14..1.. STA(SCREENCOL),Y..1..;..1 ..EXIT1 JMPGETKEY..1..;.D1".;.J1,.;.P16. ;..1@.;HAUPTAUSGANG:..2J.;SCHALTE CURSOR AB UND ZURUECK ZU BASIC...2T.;.,2^.EXIT JSRCURSORAUS.52H. RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL