ASS6.SRC

00000000: 0A 22 18 22 0A 00 2E 42  41 20 35 30 30 30 30 00  |."."...BA 50000.|
00000010: 1E 22 14 00 3B 00 38 22  1E 00 2E 45 51 20 49 52  |."..;.8"...EQ IR|
00000020: 51 56 45 43 54 4F 52 20  3D 20 24 30 33 31 34 00  |QVECTOR = $0314.|
00000030: 52 22 28 00 2E 45 51 20  4E 4F 52 4D 41 4C 49 52  |R"(..EQ NORMALIR|
00000040: 51 20 3D 20 24 45 41 33  31 00 66 22 32 00 2E 45  |Q = $EA31.f"2..E|
00000050: 51 20 43 4F 55 4E 54 20  3D 20 31 37 30 00 7D 22  |Q COUNT = 170.}"|
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 83 22 46  00 3B 00 9B 22 50 00 2E  | 171.."F.;.."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 B3 22 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 CB 22 64 00 2E  |NCOL = 253.."d..|
000000B0: 45 51 20 54 45 4D 50 53  54 4F 52 45 20 3D 20 24  |EQ TEMPSTORE = $|
000000C0: 34 39 00 E3 22 6E 00 2E  45 51 20 4C 49 4E 45 53  |49.."n..EQ LINES|
000000D0: 54 41 52 54 20 3D 20 24  34 41 00 E9 22 78 00 3B  |TART = $4A.."x.;|
000000E0: 00 07 23 82 00 3B 20 20  2A 2A 2A 20 20 53 43 48  |..#..;  ***  SCH|
000000F0: 41 4C 54 45 20 43 55 52  53 4F 52 20 41 4E 00 0D  |ALTE CURSOR AN..|
00000100: 23 8C 00 3B 00 1E 23 96  00 43 55 52 53 4F 52 41  |#..;..#..CURSORA|
00000110: 4E 20 53 45 49 00 34 23  A0 00 20 4C 44 41 23 3C  |N SEI.4#.. LDA#<|
00000120: 28 46 4C 41 53 48 43 55  52 53 29 00 46 23 AA 00  |(FLASHCURS).F#..|
00000130: 20 53 54 41 49 52 51 56  45 43 54 4F 52 00 5C 23  | STAIRQVECTOR.\#|
00000140: B4 00 20 4C 44 41 23 3E  28 46 4C 41 53 48 43 55  |.. LDA#>(FLASHCU|
00000150: 52 53 29 00 70 23 BE 00  20 53 54 41 49 52 51 56  |RS).p#.. STAIRQV|
00000160: 45 43 54 4F 52 2B 31 00  76 23 C8 00 3B 00 81 23  |ECTOR+1.v#..;..#|
00000170: D2 00 20 4C 44 41 23 30  00 92 23 DC 00 20 53 54  |.. LDA#0..#.. ST|
00000180: 41 43 55 52 53 46 4C 41  47 00 A0 23 E6 00 20 53  |ACURSFLAG..#.. S|
00000190: 54 41 43 4F 55 4E 54 00  A6 23 F0 00 3B 00 AF 23  |TACOUNT..#..;..#|
000001A0: FA 00 20 43 4C 49 00 B8  23 04 01 20 52 54 53 00  |.. CLI..#.. RTS.|
000001B0: BE 23 0E 01 3B 00 DD 23  18 01 3B 20 20 2A 2A 2A  |.#..;..#..;  ***|
000001C0: 20 20 53 43 48 41 4C 54  45 20 43 55 52 53 4F 52  |  SCHALTE CURSOR|
000001D0: 20 41 55 53 00 E3 23 22  01 3B 00 F5 23 2C 01 43  | AUS..#".;..#,.C|
000001E0: 55 52 53 4F 52 41 55 53  20 53 45 49 00 0B 24 36  |URSORAUS SEI..$6|
000001F0: 01 20 4C 44 41 23 3C 28  4E 4F 52 4D 41 4C 49 52  |. LDA#<(NORMALIR|
00000200: 51 29 00 1D 24 40 01 20  53 54 41 49 52 51 56 45  |Q)..$@. STAIRQVE|
00000210: 43 54 4F 52 00 33 24 4A  01 20 4C 44 41 23 3E 28  |CTOR.3$J. LDA#>(|
00000220: 4E 4F 52 4D 41 4C 49 52  51 29 00 47 24 54 01 20  |NORMALIRQ).G$T. |
00000230: 53 54 41 49 52 51 56 45  43 54 4F 52 2B 31 00 50  |STAIRQVECTOR+1.P|
00000240: 24 5E 01 20 43 4C 49 00  59 24 68 01 20 52 54 53  |$^. CLI.Y$h. RTS|
00000250: 00 5F 24 72 01 3B 00 7F  24 7C 01 3B 20 20 2A 2A  |._$r.;..$|.;  **|
00000260: 2A 20 46 4C 41 53 48 20  43 55 52 53 4F 52 20 52  |* FLASH CURSOR R|
00000270: 4F 55 54 49 4E 45 00 85  24 86 01 3B 00 A3 24 90  |OUTINE..$..;..$.|
00000280: 01 3B 28 44 49 45 53 45  20 52 4F 55 54 49 4E 45  |.;(DIESE ROUTINE|
00000290: 20 57 49 52 44 20 41 4C  4C 45 00 C5 24 9A 01 3B  | WIRD ALLE..$..;|
000002A0: 36 30 53 54 45 4C 20 53  45 4B 55 4E 44 45 4E 20  |60STEL SEKUNDEN |
000002B0: 41 55 46 47 45 52 55 46  45 4E 2E 29 00 CB 24 A4  |AUFGERUFEN.)..$.|
000002C0: 01 3B 00 EF 24 AE 01 3B  49 4E 4B 52 45 4D 45 4E  |.;..$..;INKREMEN|
000002D0: 54 49 45 52 45 20 44 49  45 20 49 4E 54 45 52 4E  |TIERE DIE INTERN|
000002E0: 45 20 55 48 52 2E 00 F5  24 B8 01 3B 00 0C 25 C2  |E UHR...$..;..%.|
000002F0: 01 46 4C 41 53 48 43 55  52 53 20 4A 53 52 24 46  |.FLASHCURS JSR$F|
00000300: 46 45 41 00 12 25 CC 01  3B 00 37 25 D6 01 3B 49  |FEA..%..;.7%..;I|
00000310: 4E 4B 52 45 4D 45 4E 54  49 45 52 45 20 5A 41 45  |NKREMENTIERE ZAE|
00000320: 48 4C 45 52 2E 20 57 45  4E 4E 20 32 30 2C 00 5B  |HLER. WENN 20,.[|
00000330: 25 E0 01 3B 41 45 4E 44  45 52 45 20 43 55 52 53  |%..;AENDERE CURS|
00000340: 4F 52 2E 20 57 45 4E 4E  20 4E 49 43 48 54 20 32  |OR. WENN NICHT 2|
00000350: 30 2C 00 7C 25 EA 01 3B  53 50 52 49 4E 47 45 20  |0,.|%..;SPRINGE |
00000360: 53 4F 46 4F 52 54 20 5A  55 4D 20 41 55 53 47 41  |SOFORT ZUM AUSGA|
00000370: 4E 47 2E 00 82 25 F4 01  3B 00 90 25 FE 01 20 49  |NG...%..;..%.. I|
00000380: 4E 43 43 4F 55 4E 54 00  9E 25 08 02 20 4C 44 41  |NCCOUNT..%.. LDA|
00000390: 43 4F 55 4E 54 00 AA 25  12 02 20 43 4D 50 23 32  |COUNT..%.. CMP#2|
000003A0: 30 00 BB 25 1C 02 20 42  4E 45 43 55 52 53 45 58  |0..%.. BNECURSEX|
000003B0: 49 54 00 C1 25 26 02 3B  00 E3 25 30 02 3B 5A 41  |IT..%&.;..%0.;ZA|
000003C0: 45 48 4C 45 52 20 5A 55  52 55 45 43 4B 20 41 55  |EHLER ZURUECK AU|
000003D0: 46 20 4E 55 4C 4C 20 55  4E 44 00 FB 25 3A 02 3B  |F NULL UND..%:.;|
000003E0: 54 45 53 54 20 56 4F 4E  20 43 55 52 53 46 4C 41  |TEST VON CURSFLA|
000003F0: 47 2E 00 01 26 44 02 3B  00 0C 26 4E 02 20 4C 44  |G...&D.;..&N. LD|
00000400: 41 23 30 00 1A 26 58 02  20 53 54 41 43 4F 55 4E  |A#0..&X. STACOUN|
00000410: 54 00 20 26 62 02 3B 00  31 26 6C 02 20 4C 44 41  |T. &b.;.1&l. LDA|
00000420: 43 55 52 53 46 4C 41 47  00 43 26 76 02 20 42 4E  |CURSFLAG.C&v. BN|
00000430: 45 44 52 55 43 4B 43 48  41 52 00 49 26 80 02 3B  |EDRUCKCHAR.I&..;|
00000440: 00 6E 26 8A 02 3B 44 52  55 43 4B 45 20 49 4E 56  |.n&..;DRUCKE INV|
00000450: 45 52 54 49 45 52 54 45  4E 20 42 55 43 48 53 54  |ERTIERTEN BUCHST|
00000460: 41 42 45 4E 2E 00 74 26  94 02 3B 00 85 26 9E 02  |ABEN..t&..;..&..|
00000470: 20 49 4E 43 43 55 52 53  46 4C 41 47 00 90 26 A8  | INCCURSFLAG..&.|
00000480: 02 20 4C 44 59 23 30 00  A6 26 B2 02 20 4C 44 41  |. LDY#0..&.. LDA|
00000490: 28 53 43 52 45 45 4E 4D  45 4D 29 2C 59 00 AF 26  |(SCREENMEM),Y..&|
000004A0: BC 02 20 43 4C 43 00 BC  26 C6 02 20 41 44 43 23  |.. CLC..&.. ADC#|
000004B0: 31 32 38 00 D2 26 D0 02  20 53 54 41 28 53 43 52  |128..&.. STA(SCR|
000004C0: 45 45 4E 4D 45 4D 29 2C  59 00 DE 26 DA 02 20 4C  |EENMEM),Y..&.. L|
000004D0: 44 41 23 31 34 00 F4 26  E4 02 20 53 54 41 28 53  |DA#14..&.. STA(S|
000004E0: 43 52 45 45 4E 43 4F 4C  29 2C 59 00 05 27 EE 02  |CREENCOL),Y..'..|
000004F0: 20 42 4E 45 43 55 52 53  45 58 49 54 00 0B 27 F8  | BNECURSEXIT..'.|
00000500: 02 3B 00 2C 27 02 03 3B  44 52 55 43 4B 45 20 4E  |.;.,'..;DRUCKE N|
00000510: 4F 52 4D 41 4C 45 4E 20  42 55 43 48 53 54 41 42  |ORMALEN BUCHSTAB|
00000520: 45 4E 2E 00 32 27 0C 03  3B 00 4C 27 16 03 44 52  |EN..2'..;.L'..DR|
00000530: 55 43 4B 43 48 41 52 20  44 45 43 43 55 52 53 46  |UCKCHAR DECCURSF|
00000540: 4C 41 47 00 57 27 20 03  20 4C 44 59 23 30 00 6D  |LAG.W' . LDY#0.m|
00000550: 27 2A 03 20 4C 44 41 28  53 43 52 45 45 4E 4D 45  |'*. LDA(SCREENME|
00000560: 4D 29 2C 59 00 76 27 34  03 20 53 45 43 00 83 27  |M),Y.v'4. SEC..'|
00000570: 3E 03 20 53 42 43 23 31  32 38 00 99 27 48 03 20  |>. SBC#128..'H. |
00000580: 53 54 41 28 53 43 52 45  45 4E 4D 45 4D 29 2C 59  |STA(SCREENMEM),Y|
00000590: 00 A5 27 52 03 20 4C 44  41 23 31 34 00 BB 27 5C  |..'R. LDA#14..'\|
000005A0: 03 20 53 54 41 28 53 43  52 45 45 4E 43 4F 4C 29  |. STA(SCREENCOL)|
000005B0: 2C 59 00 C1 27 66 03 3B  00 E3 27 70 03 3B 45 58  |,Y..'f.;..'p.;EX|
000005C0: 45 4B 55 54 49 45 52 45  20 52 45 53 54 20 44 45  |EKUTIERE REST DE|
000005D0: 52 20 4E 4F 52 4D 41 4C  45 4E 00 09 28 7A 03 3B  |R NORMALEN..(z.;|
000005E0: 49 4E 54 45 52 52 55 50  54 2D 52 4F 55 54 49 4E  |INTERRUPT-ROUTIN|
000005F0: 45 20 49 4D 20 4B 45 52  4E 41 4C 2D 52 4F 4D 2E  |E IM KERNAL-ROM.|
00000600: 00 0F 28 84 03 3B 00 25  28 8E 03 43 55 52 53 45  |..(..;.%(..CURSE|
00000610: 58 49 54 20 4A 4D 50 24  45 41 37 42 00 2B 28 98  |XIT JMP$EA7B.+(.|
00000620: 03 3B 00 39 28 A2 03 2E  42 41 20 34 39 31 35 32  |.;.9(...BA 49152|
00000630: 00 3F 28 AC 03 3B 00 56  28 B6 03 2E 45 51 20 54  |.?(..;.V(...EQ T|
00000640: 45 58 54 46 49 4C 45 20  3D 20 31 36 38 00 6C 28  |EXTFILE = 168.l(|
00000650: C0 03 2E 45 51 20 47 45  54 49 4E 20 3D 20 24 46  |...EQ GETIN = $F|
00000660: 46 45 34 00 72 28 CA 03  3B 00 94 28 D4 03 3B 49  |FE4.r(..;..(..;I|
00000670: 4E 49 54 49 49 45 52 45  20 54 45 58 54 46 49 4C  |NITIIERE TEXTFIL|
00000680: 45 20 5A 55 20 33 30 30  30 30 2E 00 9A 28 DE 03  |E ZU 30000...(..|
00000690: 3B 00 AC 28 E8 03 20 4C  44 41 23 3C 28 33 30 30  |;..(.. LDA#<(300|
000006A0: 30 30 29 00 BD 28 F2 03  20 53 54 41 54 45 58 54  |00)..(.. STATEXT|
000006B0: 46 49 4C 45 00 CF 28 FC  03 20 4C 44 41 23 3E 28  |FILE..(.. LDA#>(|
000006C0: 33 30 30 30 30 29 00 E2  28 06 04 20 53 54 41 54  |30000)..(.. STAT|
000006D0: 45 58 54 46 49 4C 45 2B  31 00 E8 28 10 04 3B 00  |EXTFILE+1..(..;.|
000006E0: 0E 29 1A 04 3B 49 4E 49  54 49 49 45 52 45 20 42  |.)..;INITIIERE B|
000006F0: 49 4C 44 53 43 48 49 52  4D 20 55 4E 44 20 46 41  |ILDSCHIRM UND FA|
00000700: 52 42 45 4E 2E 00 14 29  24 04 3B 00 25 29 2E 04  |RBEN...)$.;.%)..|
00000710: 20 4C 44 41 23 3C 28 31  30 32 34 29 00 37 29 38  | LDA#<(1024).7)8|
00000720: 04 20 53 54 41 53 43 52  45 45 4E 4D 45 4D 00 48  |. STASCREENMEM.H|
00000730: 29 42 04 20 4C 44 41 23  3E 28 31 30 32 34 29 00  |)B. LDA#>(1024).|
00000740: 5C 29 4C 04 20 53 54 41  53 43 52 45 45 4E 4D 45  |\)L. STASCREENME|
00000750: 4D 2B 31 00 62 29 56 04  3B 00 74 29 60 04 20 4C  |M+1.b)V.;.t)`. L|
00000760: 44 41 23 3C 28 35 35 32  39 36 29 00 86 29 6A 04  |DA#<(55296)..)j.|
00000770: 20 53 54 41 53 43 52 45  45 4E 43 4F 4C 00 98 29  | STASCREENCOL..)|
00000780: 74 04 20 4C 44 41 23 3E  28 35 35 32 39 36 29 00  |t. LDA#>(55296).|
00000790: AC 29 7E 04 20 53 54 41  53 43 52 45 45 4E 43 4F  |.)~. STASCREENCO|
000007A0: 4C 2B 31 00 B2 29 88 04  3B 00 CF 29 92 04 3B 4C  |L+1..)..;..)..;L|
000007B0: 4F 45 53 43 48 45 20 44  45 4E 20 42 49 4C 44 53  |OESCHE DEN BILDS|
000007C0: 43 48 49 52 4D 2E 00 D5  29 9C 04 3B 00 E3 29 A6  |CHIRM...)..;..).|
000007D0: 04 20 4A 53 52 24 45 35  34 34 00 E9 29 B0 04 3B  |. JSR$E544..)..;|
000007E0: 00 0A 2A BA 04 3B 53 43  48 41 4C 54 45 20 43 4F  |..*..;SCHALTE CO|
000007F0: 4D 50 55 54 45 52 20 41  55 46 20 47 52 4F 53 53  |MPUTER AUF GROSS|
00000800: 2D 00 23 2A C4 04 3B 55  4E 44 20 4B 4C 45 49 4E  |-.#*..;UND KLEIN|
00000810: 53 43 48 52 45 49 42 55  4E 47 00 29 2A CE 04 3B  |SCHREIBUNG.)*..;|
00000820: 00 35 2A D8 04 20 4C 44  41 23 31 34 00 43 2A E2  |.5*.. LDA#14.C*.|
00000830: 04 20 4A 53 52 24 45 37  31 36 00 49 2A EC 04 3B  |. JSR$E716.I*..;|
00000840: 00 65 2A F6 04 3B 53 43  48 41 4C 54 45 20 44 45  |.e*..;SCHALTE DE|
00000850: 4E 20 43 55 52 53 4F 52  20 41 4E 2E 00 6B 2A 00  |N CURSOR AN..k*.|
00000860: 05 3B 00 7C 2A 0A 05 20  4A 53 52 43 55 52 53 4F  |.;.|*.. JSRCURSO|
00000870: 52 41 4E 00 82 2A 14 05  3B 00 A4 2A 1E 05 3B 57  |RAN..*..;..*..;W|
00000880: 41 52 54 45 20 41 55 46  20 45 49 4E 45 4E 20 54  |ARTE AUF EINEN T|
00000890: 41 53 54 45 4E 44 52 55  43 4B 2E 00 AA 2A 28 05  |ASTENDRUCK...*(.|
000008A0: 3B 00 BE 2A 32 05 47 45  54 4B 45 59 20 4A 53 52  |;..*2.GETKEY JSR|
000008B0: 47 45 54 49 4E 00 CD 2A  3C 05 20 42 45 51 47 45  |GETIN..*<. BEQGE|
000008C0: 54 4B 45 59 00 D3 2A 46  05 3B 00 EF 2A 50 05 3B  |TKEY..*F.;..*P.;|
000008D0: 57 45 4E 4E 20 46 55 4E  4B 54 49 4F 4E 53 54 41  |WENN FUNKTIONSTA|
000008E0: 53 54 45 20 31 2C 00 08  2B 5A 05 3B 53 50 52 49  |STE 1,..+Z.;SPRI|
000008F0: 4E 47 45 20 5A 55 4D 20  41 55 53 47 41 4E 47 00  |NGE ZUM AUSGANG.|
00000900: 0E 2B 64 05 3B 00 1B 2B  6E 05 20 43 4D 50 23 31  |.+d.;..+n. CMP#1|
00000910: 33 33 00 2B 2B 78 05 20  42 4E 45 47 45 54 4B 45  |33.++x. BNEGETKE|
00000920: 59 31 00 38 2B 82 05 20  4A 4D 50 45 58 49 54 00  |Y1.8+.. JMPEXIT.|
00000930: 3E 2B 8C 05 3B 00 62 2B  96 05 3B 57 45 4E 4E 20  |>+..;.b+..;WENN |
00000940: 44 45 4C 45 54 45 20 54  41 53 54 45 2C 20 53 50  |DELETE TASTE, SP|
00000950: 52 49 4E 47 45 20 5A 55  52 00 76 2B A0 05 3B 4C  |RINGE ZUR.v+..;L|
00000960: 4F 45 53 43 48 52 4F 55  54 49 4E 45 2E 00 7C 2B  |OESCHROUTINE..|+|
00000970: AA 05 3B 00 8F 2B B4 05  47 45 54 4B 45 59 31 20  |..;..+..GETKEY1 |
00000980: 43 4D 50 23 32 30 00 A0  2B BE 05 20 42 45 51 44  |CMP#20..+.. BEQD|
00000990: 45 4C 45 43 52 53 52 00  A6 2B C8 05 3B 00 C4 2B  |ELECRSR..+..;..+|
000009A0: D2 05 3B 57 45 4E 4E 20  43 55 52 53 4F 52 20 4C  |..;WENN CURSOR L|
000009B0: 49 4E 4B 53 2C 20 44 49  54 4F 2E 00 CA 2B DC 05  |INKS, DITO...+..|
000009C0: 3B 00 D7 2B E6 05 20 43  4D 50 23 31 35 37 00 E8  |;..+.. CMP#157..|
000009D0: 2B F0 05 20 42 45 51 44  45 4C 45 43 52 53 52 00  |+.. BEQDELECRSR.|
000009E0: EE 2B FA 05 3B 00 07 2C  04 06 3B 57 45 4E 4E 20  |.+..;..,..;WENN |
000009F0: 43 55 52 53 4F 52 20 52  45 43 48 54 53 2C 00 1F  |CURSOR RECHTS,..|
00000A00: 2C 0E 06 3B 53 50 52 49  4E 47 45 20 56 4F 52 57  |,..;SPRINGE VORW|
00000A10: 41 45 52 54 53 2E 00 25  2C 18 06 3B 00 31 2C 22  |AERTS..%,..;.1,"|
00000A20: 06 20 43 4D 50 23 32 39  00 43 2C 2C 06 20 42 45  |. CMP#29.C,,. BE|
00000A30: 51 43 52 53 52 45 43 48  54 53 00 49 2C 36 06 3B  |QCRSRECHTS.I,6.;|
00000A40: 00 6A 2C 40 06 3B 41 4E  46 41 4E 47 20 44 45 52  |.j,@.;ANFANG DER|
00000A50: 20 4E 41 45 43 48 53 54  45 4E 20 5A 45 49 4C 45  | NAECHSTEN ZEILE|
00000A60: 3F 00 70 2C 4A 06 3B 00  82 2C 54 06 20 53 54 41  |?.p,J.;..,T. STA|
00000A70: 54 45 4D 50 53 54 4F 52  45 00 88 2C 5E 06 3B 00  |TEMPSTORE..,^.;.|
00000A80: 99 2C 68 06 20 4C 44 41  23 3C 28 31 30 36 34 29  |.,h. LDA#<(1064)|
00000A90: 00 AB 2C 72 06 20 53 54  41 4C 49 4E 45 53 54 41  |..,r. STALINESTA|
00000AA0: 52 54 00 BC 2C 7C 06 20  4C 44 41 23 3E 28 31 30  |RT..,|. LDA#>(10|
00000AB0: 36 34 29 00 D0 2C 86 06  20 53 54 41 4C 49 4E 45  |64)..,.. STALINE|
00000AC0: 53 54 41 52 54 2B 31 00  D6 2C 90 06 3B 00 E2 2C  |START+1..,..;..,|
00000AD0: 9A 06 20 4C 44 58 23 32  34 00 E8 2C A4 06 3B 00  |.. LDX#24..,..;.|
00000AE0: FE 2C AE 06 54 45 53 54  20 4C 44 41 53 43 52 45  |.,..TEST LDASCRE|
00000AF0: 45 4E 4D 45 4D 00 10 2D  B8 06 20 43 4D 50 4C 49  |ENMEM..-.. CMPLI|
00000B00: 4E 45 53 54 41 52 54 00  1E 2D C2 06 20 42 4E 45  |NESTART..-.. BNE|
00000B10: 54 45 53 54 31 00 32 2D  CC 06 20 4C 44 41 53 43  |TEST1.2-.. LDASC|
00000B20: 52 45 45 4E 4D 45 4D 2B  31 00 46 2D D6 06 20 43  |REENMEM+1.F-.. C|
00000B30: 4D 50 4C 49 4E 45 53 54  41 52 54 2B 31 00 54 2D  |MPLINESTART+1.T-|
00000B40: E0 06 20 42 4E 45 54 45  53 54 31 00 5A 2D EA 06  |.. BNETEST1.Z-..|
00000B50: 3B 00 78 2D F4 06 3B 57  45 4E 4E 20 4A 41 2C 20  |;.x-..;WENN JA, |
00000B60: 57 4F 52 44 52 41 50 20  52 4F 55 54 49 4E 45 00  |WORDRAP ROUTINE.|
00000B70: 7E 2D FE 06 3B 00 8F 2D  08 07 20 4A 53 52 57 4F  |~-..;..-.. JSRWO|
00000B80: 52 44 57 52 41 50 00 A0  2D 12 07 20 4A 4D 50 43  |RDWRAP..-.. JMPC|
00000B90: 4F 4E 54 49 4E 55 45 00  A6 2D 1C 07 3B 00 B4 2D  |ONTINUE..-..;..-|
00000BA0: 26 07 54 45 53 54 31 20  43 4C 43 00 C6 2D 30 07  |&.TEST1 CLC..-0.|
00000BB0: 20 4C 44 41 4C 49 4E 45  53 54 41 52 54 00 D2 2D  | LDALINESTART..-|
00000BC0: 3A 07 20 41 44 43 23 34  30 00 E4 2D 44 07 20 53  |:. ADC#40..-D. S|
00000BD0: 54 41 4C 49 4E 45 53 54  41 52 54 00 F2 2D 4E 07  |TALINESTART..-N.|
00000BE0: 20 42 43 43 54 45 53 54  32 00 06 2E 58 07 20 49  | BCCTEST2...X. I|
00000BF0: 4E 43 4C 49 4E 45 53 54  41 52 54 2B 31 00 14 2E  |NCLINESTART+1...|
00000C00: 62 07 54 45 53 54 32 20  44 45 58 00 21 2E 6C 07  |b.TEST2 DEX.!.l.|
00000C10: 20 42 4E 45 54 45 53 54  00 27 2E 76 07 3B 00 4C  | BNETEST.'.v.;.L|
00000C20: 2E 80 07 3B 57 45 4E 4E  20 4E 49 43 48 54 2C 20  |...;WENN NICHT, |
00000C30: 5A 49 45 48 45 20 42 55  43 48 53 54 41 42 45 20  |ZIEHE BUCHSTABE |
00000C40: 55 4E 44 00 64 2E 8A 07  3B 46 41 48 52 45 20 4E  |UND.d...;FAHRE N|
00000C50: 4F 52 4D 41 4C 20 46 4F  52 54 2E 00 6A 2E 94 07  |ORMAL FORT..j...|
00000C60: 3B 00 84 2E 9E 07 43 4F  4E 54 49 4E 55 45 20 4C  |;.....CONTINUE L|
00000C70: 44 41 54 45 4D 50 53 54  4F 52 45 00 8A 2E A8 07  |DATEMPSTORE.....|
00000C80: 3B 00 AB 2E B2 07 3B 4C  41 44 45 20 42 55 43 48  |;.....;LADE BUCH|
00000C90: 53 54 41 42 45 20 49 4E  20 54 45 58 54 46 49 4C  |STABE IN TEXTFIL|
00000CA0: 45 2E 00 B1 2E BC 07 3B  00 BC 2E C6 07 20 4C 44  |E......;..... LD|
00000CB0: 59 23 30 00 D1 2E D0 07  20 53 54 41 28 54 45 58  |Y#0..... STA(TEX|
00000CC0: 54 46 49 4C 45 29 2C 59  00 D7 2E DA 07 3B 00 FC  |TFILE),Y.....;..|
00000CD0: 2E E4 07 3B 57 41 4E 44  4C 45 20 41 53 43 49 49  |...;WANDLE ASCII|
00000CE0: 20 49 4E 20 42 49 4C 44  53 43 48 49 52 4D 43 4F  | IN BILDSCHIRMCO|
00000CF0: 44 45 2E 00 02 2F EE 07  3B 00 0F 2F F8 07 20 43  |DE.../..;../.. C|
00000D00: 4D 50 23 31 32 38 00 1C  2F 02 08 20 42 43 43 53  |MP#128../.. BCCS|
00000D10: 4B 49 50 00 30 2F 0C 08  20 53 42 43 23 36 34 3B  |KIP.0/.. SBC#64;|
00000D20: 47 52 4F 53 53 45 52 00  48 2F 16 08 53 4B 49 50  |GROSSER.H/..SKIP|
00000D30: 20 43 4D 50 23 36 34 3B  4B 4C 45 49 4E 45 52 00  | CMP#64;KLEINER.|
00000D40: 5F 2F 20 08 20 42 43 43  44 52 55 43 4B 45 3B 42  |_/ . BCCDRUCKE;B|
00000D50: 55 43 48 53 54 2E 00 6B  2F 2A 08 20 53 42 43 23  |UCHST..k/*. SBC#|
00000D60: 36 34 00 71 2F 34 08 3B  00 97 2F 3E 08 3B 44 52  |64.q/4.;../>.;DR|
00000D70: 55 43 4B 45 20 42 55 43  48 53 54 41 42 45 20 41  |UCKE BUCHSTABE A|
00000D80: 55 46 20 42 49 4C 44 53  43 48 49 52 4D 2E 00 9D  |UF BILDSCHIRM...|
00000D90: 2F 48 08 3B 00 B9 2F 52  08 44 52 55 43 4B 45 20  |/H.;../R.DRUCKE |
00000DA0: 53 54 41 28 53 43 52 45  45 4E 4D 45 4D 29 2C 59  |STA(SCREENMEM),Y|
00000DB0: 00 C5 2F 5C 08 20 4C 44  41 23 31 34 00 DB 2F 66  |../\. LDA#14../f|
00000DC0: 08 20 53 54 41 28 53 43  52 45 45 4E 43 4F 4C 29  |. STA(SCREENCOL)|
00000DD0: 2C 59 00 E1 2F 70 08 3B  00 FE 2F 7A 08 3B 4E 41  |,Y../p.;../z.;NA|
00000DE0: 45 43 48 53 54 45 20 44  52 55 43 4B 50 4F 53 49  |ECHSTE DRUCKPOSI|
00000DF0: 54 49 4F 4E 2E 00 04 30  84 08 3B 00 1E 30 8E 08  |TION...0..;..0..|
00000E00: 43 52 53 52 45 43 48 54  31 20 49 4E 43 54 45 58  |CRSRECHT1 INCTEX|
00000E10: 54 46 49 4C 45 00 2D 30  98 08 20 42 4E 45 4E 4F  |TFILE.-0.. BNENO|
00000E20: 48 49 47 48 00 40 30 A2  08 20 49 4E 43 54 45 58  |HIGH.@0.. INCTEX|
00000E30: 54 46 49 4C 45 2B 31 00  46 30 AC 08 3B 00 5E 30  |TFILE+1.F0..;.^0|
00000E40: B6 08 4E 4F 48 49 47 48  20 49 4E 43 53 43 52 45  |..NOHIGH INCSCRE|
00000E50: 45 4E 4D 45 4D 00 6E 30  C0 08 20 42 4E 45 4E 4F  |ENMEM.n0.. BNENO|
00000E60: 48 49 47 48 31 00 82 30  CA 08 20 49 4E 43 53 43  |HIGH1..0.. INCSC|
00000E70: 52 45 45 4E 4D 45 4D 2B  31 00 88 30 D4 08 3B 00  |REENMEM+1..0..;.|
00000E80: A1 30 DE 08 4E 4F 48 49  47 48 31 20 49 4E 43 53  |.0..NOHIGH1 INCS|
00000E90: 43 52 45 45 4E 43 4F 4C  00 B0 30 E8 08 20 42 4E  |CREENCOL..0.. BN|
00000EA0: 45 47 45 54 4B 45 59 00  C4 30 F2 08 20 49 4E 43  |EGETKEY..0.. INC|
00000EB0: 53 43 52 45 45 4E 43 4F  4C 2B 31 00 D3 30 FC 08  |SCREENCOL+1..0..|
00000EC0: 20 42 4E 45 47 45 54 4B  45 59 00 D9 30 06 09 3B  | BNEGETKEY..0..;|
00000ED0: 00 F6 30 10 09 3B 20 43  55 52 53 4F 52 20 52 45  |..0..; CURSOR RE|
00000EE0: 43 48 54 53 20 52 4F 55  54 49 4E 45 3A 00 1A 31  |CHTS ROUTINE:..1|
00000EF0: 1A 09 3B 20 52 45 4B 4F  4E 53 54 52 55 49 45 52  |..; REKONSTRUIER|
00000F00: 45 20 42 55 43 48 53 54  41 42 45 20 4C 49 4E 4B  |E BUCHSTABE LINK|
00000F10: 53 00 3D 31 24 09 3B 20  55 4E 44 20 53 50 52 49  |S.=1$.; UND SPRI|
00000F20: 4E 47 45 20 5A 55 52 20  48 41 55 50 54 52 4F 55  |NGE ZUR HAUPTROU|
00000F30: 54 49 4E 45 00 4B 31 2E  09 3B 20 5A 55 52 55 45  |TINE.K1..; ZURUE|
00000F40: 43 4B 00 51 31 38 09 3B  00 65 31 42 09 43 52 53  |CK.Q18.;.e1B.CRS|
00000F50: 52 45 43 48 54 53 20 4C  44 59 23 30 00 7B 31 4C  |RECHTS LDY#0.{1L|
00000F60: 09 20 4C 44 41 28 53 43  52 45 45 4E 4D 45 4D 29  |. LDA(SCREENMEM)|
00000F70: 2C 59 00 88 31 56 09 20  43 4D 50 23 31 32 38 00  |,Y..1V. CMP#128.|
00000F80: 98 31 60 09 20 42 43 43  44 52 55 43 4B 45 32 00  |.1`. BCCDRUCKE2.|
00000F90: A5 31 6A 09 20 53 42 43  23 31 32 38 00 C2 31 74  |.1j. SBC#128..1t|
00000FA0: 09 44 52 55 43 4B 45 32  20 53 54 41 28 53 43 52  |.DRUCKE2 STA(SCR|
00000FB0: 45 45 4E 4D 45 4D 29 2C  59 00 CE 31 7E 09 20 4C  |EENMEM),Y..1~. L|
00000FC0: 44 41 23 31 34 00 E4 31  88 09 20 53 54 41 28 53  |DA#14..1.. STA(S|
00000FD0: 43 52 45 45 4E 43 4F 4C  29 2C 59 00 EA 31 92 09  |CREENCOL),Y..1..|
00000FE0: 3B 00 FC 31 9C 09 20 42  4E 45 43 52 53 52 45 43  |;..1.. BNECRSREC|
00000FF0: 48 54 31 00 02 32 A6 09  3B 00 28 32 B0 09 3B 4C  |HT1..2..;.(2..;L|
00001000: 4F 45 53 43 48 2D 20 55  4E 44 20 43 55 52 53 4F  |OESCH- UND CURSO|
00001010: 52 20 4C 49 4E 4B 53 20  52 4F 55 54 49 4E 45 00  |R LINKS ROUTINE.|
00001020: 2E 32 BA 09 3B 00 47 32  C4 09 44 45 4C 45 43 52  |.2..;.G2..DELECR|
00001030: 53 52 20 4C 44 58 23 3C  28 31 30 32 34 29 00 59  |SR LDX#<(1024).Y|
00001040: 32 CE 09 20 43 50 58 53  43 52 45 45 4E 4D 45 4D  |2.. CPXSCREENMEM|
00001050: 00 67 32 D8 09 20 42 4E  45 53 54 41 52 54 00 78  |.g2.. BNESTART.x|
00001060: 32 E2 09 20 4C 44 58 23  3E 28 31 30 32 34 29 00  |2.. LDX#>(1024).|
00001070: 8C 32 EC 09 20 43 50 58  53 43 52 45 45 4E 4D 45  |.2.. CPXSCREENME|
00001080: 4D 2B 31 00 9A 32 F6 09  20 42 4E 45 53 54 41 52  |M+1..2.. BNESTAR|
00001090: 54 00 A9 32 00 0A 20 4A  4D 50 47 45 54 4B 45 59  |T..2.. JMPGETKEY|
000010A0: 00 AF 32 0A 0A 3B 00 CD  32 14 0A 3B 53 49 43 48  |..2..;..2..;SICH|
000010B0: 45 52 45 20 49 4E 48 41  4C 54 20 44 45 53 20 41  |ERE INHALT DES A|
000010C0: 4B 4B 55 2E 00 D3 32 1E  0A 3B 00 E1 32 28 0A 53  |KKU...2..;..2(.S|
000010D0: 54 41 52 54 20 50 48 41  00 E7 32 32 0A 3B 00 0B  |TART PHA..22.;..|
000010E0: 33 3C 0A 3B 52 45 4B 4F  4E 53 54 52 55 49 45 52  |3<.;REKONSTRUIER|
000010F0: 45 20 42 55 43 48 53 54  41 42 45 20 4C 49 4E 4B  |E BUCHSTABE LINK|
00001100: 53 2E 00 11 33 46 0A 3B  00 1C 33 50 0A 20 4C 44  |S...3F.;..3P. LD|
00001110: 59 23 30 00 32 33 5A 0A  20 4C 44 41 28 53 43 52  |Y#0.23Z. LDA(SCR|
00001120: 45 45 4E 4D 45 4D 29 2C  59 00 3F 33 64 0A 20 43  |EENMEM),Y.?3d. C|
00001130: 4D 50 23 31 32 38 00 4F  33 6E 0A 20 42 43 43 44  |MP#128.O3n. BCCD|
00001140: 52 55 43 4B 45 31 00 5C  33 78 0A 20 53 42 43 23  |RUCKE1.\3x. SBC#|
00001150: 31 32 38 00 79 33 82 0A  44 52 55 43 4B 45 31 20  |128.y3..DRUCKE1 |
00001160: 53 54 41 28 53 43 52 45  45 4E 4D 45 4D 29 2C 59  |STA(SCREENMEM),Y|
00001170: 00 85 33 8C 0A 20 4C 44  41 23 31 34 00 9B 33 96  |..3.. LDA#14..3.|
00001180: 0A 20 53 54 41 28 53 43  52 45 45 4E 43 4F 4C 29  |. STA(SCREENCOL)|
00001190: 2C 59 00 A1 33 A0 0A 3B  00 C6 33 AA 0A 3B 47 45  |,Y..3..;..3..;GE|
000011A0: 48 45 20 45 49 4E 45 20  50 4F 53 49 54 49 4F 4E  |HE EINE POSITION|
000011B0: 20 52 55 45 43 4B 57 41  45 52 54 53 2E 00 CC 33  | RUECKWAERTS...3|
000011C0: B4 0A 3B 00 DD 33 BE 0A  20 4C 44 41 54 45 58 54  |..;..3.. LDATEXT|
000011D0: 46 49 4C 45 00 ED 33 C8  0A 20 42 4E 45 4E 4F 48  |FILE..3.. BNENOH|
000011E0: 49 47 48 32 00 00 34 D2  0A 20 44 45 43 54 45 58  |IGH2..4.. DECTEX|
000011F0: 54 46 49 4C 45 2B 31 00  18 34 DC 0A 4E 4F 48 49  |TFILE+1..4..NOHI|
00001200: 47 48 32 20 44 45 43 54  45 58 54 46 49 4C 45 00  |GH2 DECTEXTFILE.|
00001210: 1E 34 E6 0A 3B 00 30 34  F0 0A 20 4C 44 41 53 43  |.4..;.04.. LDASC|
00001220: 52 45 45 4E 4D 45 4D 00  40 34 FA 0A 20 42 4E 45  |REENMEM.@4.. BNE|
00001230: 4E 4F 48 49 47 48 33 00  54 34 04 0B 20 44 45 43  |NOHIGH3.T4.. DEC|
00001240: 53 43 52 45 45 4E 4D 45  4D 2B 31 00 6D 34 0E 0B  |SCREENMEM+1.m4..|
00001250: 4E 4F 48 49 47 48 33 20  44 45 43 53 43 52 45 45  |NOHIGH3 DECSCREE|
00001260: 4E 4D 45 4D 00 73 34 18  0B 3B 00 85 34 22 0B 20  |NMEM.s4..;..4". |
00001270: 4C 44 41 53 43 52 45 45  4E 43 4F 4C 00 95 34 2C  |LDASCREENCOL..4,|
00001280: 0B 20 42 4E 45 4E 4F 48  49 47 48 34 00 A9 34 36  |. BNENOHIGH4..46|
00001290: 0B 20 44 45 43 53 43 52  45 45 4E 43 4F 4C 2B 31  |. DECSCREENCOL+1|
000012A0: 00 C2 34 40 0B 4E 4F 48  49 47 48 34 20 44 45 43  |..4@.NOHIGH4 DEC|
000012B0: 53 43 52 45 45 4E 43 4F  4C 00 C8 34 4A 0B 3B 00  |SCREENCOL..4J.;.|
000012C0: EC 34 54 0B 3B 50 55 4C  4C 20 41 4B 4B 55 20 55  |.4T.;PULL AKKU U|
000012D0: 4E 44 20 54 45 53 54 45  20 57 45 52 54 2E 20 57  |ND TESTE WERT. W|
000012E0: 45 4E 4E 00 08 35 5E 0B  3B 43 55 52 53 4F 52 20  |ENN..5^.;CURSOR |
000012F0: 4C 49 4E 4B 53 2C 20 41  55 53 47 41 4E 47 2E 00  |LINKS, AUSGANG..|
00001300: 0E 35 68 0B 3B 00 17 35  72 0B 20 50 4C 41 00 24  |.5h.;..5r. PLA.$|
00001310: 35 7C 0B 20 43 4D 50 23  31 35 37 00 32 35 86 0B  |5|. CMP#157.25..|
00001320: 20 42 45 51 45 58 49 54  31 00 38 35 90 0B 3B 00  | BEQEXIT1.85..;.|
00001330: 51 35 9A 0B 3B 4C 4F 45  53 43 48 45 20 42 55 43  |Q5..;LOESCHE BUC|
00001340: 48 53 54 41 42 45 4E 2E  00 57 35 A4 0B 3B 00 62  |HSTABEN..W5..;.b|
00001350: 35 AE 0B 20 4C 44 59 23  30 00 74 35 B8 0B 20 4C  |5.. LDY#0.t5.. L|
00001360: 44 41 23 33 32 3B 53 50  41 43 45 00 89 35 C2 0B  |DA#32;SPACE..5..|
00001370: 20 53 54 41 28 54 45 58  54 46 49 4C 45 29 2C 59  | STA(TEXTFILE),Y|
00001380: 00 9F 35 CC 0B 20 53 54  41 28 53 43 52 45 45 4E  |..5.. STA(SCREEN|
00001390: 4D 45 4D 29 2C 59 00 AB  35 D6 0B 20 4C 44 41 23  |MEM),Y..5.. LDA#|
000013A0: 31 34 00 C1 35 E0 0B 20  53 54 41 28 53 43 52 45  |14..5.. STA(SCRE|
000013B0: 45 4E 43 4F 4C 29 2C 59  00 C7 35 EA 0B 3B 00 DB  |ENCOL),Y..5..;..|
000013C0: 35 F4 0B 45 58 49 54 31  20 4A 4D 50 47 45 54 4B  |5..EXIT1 JMPGETK|
000013D0: 45 59 00 E1 35 FE 0B 3B  00 F4 35 08 0C 3B 48 41  |EY..5..;..5..;HA|
000013E0: 55 50 54 41 55 53 47 41  4E 47 3A 00 0F 36 12 0C  |UPTAUSGANG:..6..|
000013F0: 3B 53 43 48 41 4C 54 45  20 43 55 52 53 4F 52 20  |;SCHALTE CURSOR |
00001400: 41 42 20 55 4E 44 00 25  36 1C 0C 3B 5A 55 52 55  |AB UND.%6..;ZURU|
00001410: 45 43 4B 20 5A 55 20 42  41 53 49 43 00 2B 36 26  |ECK ZU BASIC.+6&|
00001420: 0C 3B 00 41 36 30 0C 45  58 49 54 20 4A 53 52 43  |.;.A60.EXIT JSRC|
00001430: 55 52 53 4F 52 41 55 53  00 4A 36 3A 0C 20 52 54  |URSORAUS.J6:. RT|
00001440: 53 00 50 36 44 0C 3B 00  5E 36 4E 0C 2E 42 41 20  |S.P6D.;.^6N..BA |
00001450: 35 30 31 30 30 00 64 36  58 0C 3B 00 7B 36 62 0C  |50100.d6X.;.{6b.|
00001460: 2E 45 51 20 54 45 58 54  53 41 56 45 20 3D 20 24  |.EQ TEXTSAVE = $|
00001470: 34 43 00 92 36 6C 0C 2E  45 51 20 53 43 52 4E 53  |4C..6l..EQ SCRNS|
00001480: 41 56 45 20 3D 20 24 34  45 00 A9 36 76 0C 2E 45  |AVE = $4E..6v..E|
00001490: 51 20 43 4F 4C 52 53 41  56 45 20 3D 20 24 35 30  |Q COLRSAVE = $50|
000014A0: 00 AF 36 80 0C 3B 00 D2  36 8A 0C 3B 57 45 4E 4E  |..6..;..6..;WENN|
000014B0: 20 4C 45 45 52 54 41 53  54 45 2C 20 57 41 52 54  | LEERTASTE, WART|
000014C0: 45 20 41 55 46 20 44 45  4E 00 F7 36 94 0C 3B 4E  |E AUF DEN..6..;N|
000014D0: 41 45 43 48 53 54 45 4E  20 54 41 53 54 45 4E 44  |AECHSTEN TASTEND|
000014E0: 52 55 43 4B 20 55 4E 44  20 41 55 53 47 2E 00 FD  |RUCK UND AUSG...|
000014F0: 36 9E 0C 3B 00 17 37 A8  0C 57 4F 52 44 57 52 41  |6..;..7..WORDWRA|
00001500: 50 20 4C 44 41 54 45 4D  50 53 54 4F 52 45 00 23  |P LDATEMPSTORE.#|
00001510: 37 B2 0C 20 43 4D 50 23  33 32 00 32 37 BC 0C 20  |7.. CMP#32.27.. |
00001520: 42 4E 45 41 4E 46 41 4E  47 00 47 37 C6 0C 47 45  |BNEANFANG.G7..GE|
00001530: 54 4B 45 59 32 20 4A 53  52 47 45 54 49 4E 00 57  |TKEY2 JSRGETIN.W|
00001540: 37 D0 0C 20 42 45 51 47  45 54 4B 45 59 32 00 69  |7.. BEQGETKEY2.i|
00001550: 37 DA 0C 20 53 54 41 54  45 4D 50 53 54 4F 52 45  |7.. STATEMPSTORE|
00001560: 00 72 37 E4 0C 20 52 54  53 00 78 37 EE 0C 3B 00  |.r7.. RTS.x7..;.|
00001570: 9E 37 F8 0C 3B 52 45 54  54 45 20 41 55 47 45 4E  |.7..;RETTE AUGEN|
00001580: 42 4C 49 43 4B 4C 49 43  48 45 20 54 45 58 54 46  |BLICKLICHE TEXTF|
00001590: 49 4C 45 2D 2C 00 C1 37  02 0D 3B 42 49 4C 44 53  |ILE-,..7..;BILDS|
000015A0: 43 48 49 52 4D 2D 20 55  4E 44 20 46 41 52 42 50  |CHIRM- UND FARBP|
000015B0: 4F 53 49 54 49 4F 4E 2E  00 C7 37 0C 0D 3B 00 DE  |OSITION...7..;..|
000015C0: 37 16 0D 41 4E 46 41 4E  47 20 4C 44 41 54 45 58  |7..ANFANG LDATEX|
000015D0: 54 46 49 4C 45 00 EF 37  20 0D 20 53 54 41 54 45  |TFILE..7 . STATE|
000015E0: 58 54 53 41 56 45 00 02  38 2A 0D 20 4C 44 41 54  |XTSAVE..8*. LDAT|
000015F0: 45 58 54 46 49 4C 45 2B  31 00 15 38 34 0D 20 53  |EXTFILE+1..84. S|
00001600: 54 41 54 45 58 54 53 41  56 45 2B 31 00 27 38 3E  |TATEXTSAVE+1.'8>|
00001610: 0D 20 4C 44 41 53 43 52  45 45 4E 4D 45 4D 00 38  |. LDASCREENMEM.8|
00001620: 38 48 0D 20 53 54 41 53  43 52 4E 53 41 56 45 00  |8H. STASCRNSAVE.|
00001630: 4C 38 52 0D 20 4C 44 41  53 43 52 45 45 4E 4D 45  |L8R. LDASCREENME|
00001640: 4D 2B 31 00 5F 38 5C 0D  20 53 54 41 53 43 52 4E  |M+1._8\. STASCRN|
00001650: 53 41 56 45 2B 31 00 71  38 66 0D 20 4C 44 41 53  |SAVE+1.q8f. LDAS|
00001660: 43 52 45 45 4E 43 4F 4C  00 82 38 70 0D 20 53 54  |CREENCOL..8p. ST|
00001670: 41 43 4F 4C 52 53 41 56  45 00 96 38 7A 0D 20 4C  |ACOLRSAVE..8z. L|
00001680: 44 41 53 43 52 45 45 4E  43 4F 4C 2B 31 00 A9 38  |DASCREENCOL+1..8|
00001690: 84 0D 20 53 54 41 43 4F  4C 52 53 41 56 45 2B 31  |.. STACOLRSAVE+1|
000016A0: 00 AF 38 8E 0D 3B 00 C9  38 98 0D 3B 47 45 48 45  |..8..;..8..;GEHE|
000016B0: 20 5A 55 52 55 45 43 4B  20 42 49 53 20 5A 55 4D  | ZURUECK BIS ZUM|
000016C0: 00 DC 38 A2 0D 3B 4C 45  54 5A 54 45 4E 20 53 50  |..8..;LETZTEN SP|
000016D0: 41 43 45 00 E2 38 AC 0D  3B 00 ED 38 B6 0D 20 4C  |ACE..8..;..8.. L|
000016E0: 44 58 23 30 00 F8 38 C0  0D 20 4C 44 59 23 30 00  |DX#0..8.. LDY#0.|
000016F0: 0F 39 CA 0D 47 4F 42 41  43 4B 20 4C 44 41 54 45  |.9..GOBACK LDATE|
00001700: 58 54 53 41 56 45 00 1F  39 D4 0D 20 42 4E 45 4E  |XTSAVE..9.. BNEN|
00001710: 4F 48 49 47 48 35 00 32  39 DE 0D 20 44 45 43 54  |OHIGH5.29.. DECT|
00001720: 45 58 54 53 41 56 45 2B  31 00 4A 39 E8 0D 4E 4F  |EXTSAVE+1.J9..NO|
00001730: 48 49 47 48 35 20 44 45  43 54 45 58 54 53 41 56  |HIGH5 DECTEXTSAV|
00001740: 45 00 50 39 F2 0D 3B 00  61 39 FC 0D 20 4C 44 41  |E.P9..;.a9.. LDA|
00001750: 53 43 52 4E 53 41 56 45  00 71 39 06 0E 20 42 4E  |SCRNSAVE.q9.. BN|
00001760: 45 4E 4F 48 49 47 48 36  00 84 39 10 0E 20 44 45  |ENOHIGH6..9.. DE|
00001770: 43 53 43 52 4E 53 41 56  45 2B 31 00 9C 39 1A 0E  |CSCRNSAVE+1..9..|
00001780: 4E 4F 48 49 47 48 36 20  44 45 43 53 43 52 4E 53  |NOHIGH6 DECSCRNS|
00001790: 41 56 45 00 A2 39 24 0E  3B 00 B3 39 2E 0E 20 4C  |AVE..9$.;..9.. L|
000017A0: 44 41 43 4F 4C 52 53 41  56 45 00 C3 39 38 0E 20  |DACOLRSAVE..98. |
000017B0: 42 4E 45 4E 4F 48 49 47  48 37 00 D6 39 42 0E 20  |BNENOHIGH7..9B. |
000017C0: 44 45 43 43 4F 4C 52 53  41 56 45 2B 31 00 EE 39  |DECCOLRSAVE+1..9|
000017D0: 4C 0E 4E 4F 48 49 47 48  37 20 44 45 43 43 4F 4C  |L.NOHIGH7 DECCOL|
000017E0: 52 53 41 56 45 00 F4 39  56 0E 3B 00 09 3A 60 0E  |RSAVE..9V.;..:`.|
000017F0: 20 4C 44 41 28 54 45 58  54 53 41 56 45 29 2C 59  | LDA(TEXTSAVE),Y|
00001800: 00 15 3A 6A 0E 20 43 4D  50 23 33 32 00 27 3A 74  |..:j. CMP#32.':t|
00001810: 0E 20 42 45 51 53 50 41  43 45 46 4F 55 4E 00 30  |. BEQSPACEFOUN.0|
00001820: 3A 7E 0E 20 49 4E 58 00  3F 3A 88 0E 20 42 4E 45  |:~. INX.?:.. BNE|
00001830: 47 4F 42 41 43 4B 00 45  3A 92 0E 3B 00 66 3A 9C  |GOBACK.E:..;.f:.|
00001840: 0E 3B 45 49 4E 45 20 50  4F 53 49 54 49 4F 4E 20  |.;EINE POSITION |
00001850: 56 4F 52 57 41 45 52 54  53 20 5A 55 4D 00 7D 3A  |VORWAERTS ZUM.}:|
00001860: A6 0E 3B 41 4E 46 41 4E  47 20 44 45 53 20 57 4F  |..;ANFANG DES WO|
00001870: 52 54 45 53 00 83 3A B0  0E 3B 00 9D 3A BA 0E 53  |RTES..:..;..:..S|
00001880: 50 41 43 45 46 4F 55 4E  20 49 4E 43 54 45 58 54  |PACEFOUN INCTEXT|
00001890: 53 41 56 45 00 AD 3A C4  0E 20 42 4E 45 4E 4F 48  |SAVE..:.. BNENOH|
000018A0: 49 47 48 38 00 C0 3A CE  0E 20 49 4E 43 54 45 58  |IGH8..:.. INCTEX|
000018B0: 54 53 41 56 45 2B 31 00  C6 3A D8 0E 3B 00 DE 3A  |TSAVE+1..:..;..:|
000018C0: E2 0E 4E 4F 48 49 47 48  38 20 49 4E 43 53 43 52  |..NOHIGH8 INCSCR|
000018D0: 4E 53 41 56 45 00 EE 3A  EC 0E 20 42 4E 45 4E 4F  |NSAVE..:.. BNENO|
000018E0: 48 49 47 48 39 00 01 3B  F6 0E 20 49 4E 43 53 43  |HIGH9..;.. INCSC|
000018F0: 52 4E 53 41 56 45 2B 31  00 07 3B 00 0F 3B 00 1F  |RNSAVE+1..;..;..|
00001900: 3B 0A 0F 4E 4F 48 49 47  48 39 20 49 4E 43 43 4F  |;..NOHIGH9 INCCO|
00001910: 4C 52 53 41 56 45 00 30  3B 14 0F 20 42 4E 45 4D  |LRSAVE.0;.. BNEM|
00001920: 4F 56 45 4C 4F 4F 50 00  43 3B 1E 0F 20 49 4E 43  |OVELOOP.C;.. INC|
00001930: 43 4F 4C 52 53 41 56 45  2B 31 00 49 3B 28 0F 3B  |COLRSAVE+1.I;(.;|
00001940: 00 64 3B 32 0F 3B 52 55  45 43 4B 45 20 42 55 43  |.d;2.;RUECKE BUC|
00001950: 48 53 54 41 42 45 4E 20  5A 55 4D 00 84 3B 3C 0F  |HSTABEN ZUM..;<.|
00001960: 3B 41 4E 46 41 4E 47 20  44 45 52 20 4E 41 45 43  |;ANFANG DER NAEC|
00001970: 48 53 54 45 4E 20 5A 45  49 4C 45 00 A5 3B 46 0F  |HSTEN ZEILE..;F.|
00001980: 3B 55 4E 44 20 46 55 45  4C 4C 45 20 45 4E 44 45  |;UND FUELLE ENDE|
00001990: 20 44 45 52 20 56 4F 52  48 45 52 2D 00 C0 3B 50  | DER VORHER-..;P|
000019A0: 0F 3B 5A 45 49 4C 45 20  4D 49 54 20 4C 45 45 52  |.;ZEILE MIT LEER|
000019B0: 53 54 45 4C 4C 45 4E 00  C6 3B 5A 0F 3B 00 E3 3B  |STELLEN..;Z.;..;|
000019C0: 64 0F 4D 4F 56 45 4C 4F  4F 50 20 4C 44 41 28 54  |d.MOVELOOP LDA(T|
000019D0: 45 58 54 53 41 56 45 29  2C 59 00 F8 3B 6E 0F 20  |EXTSAVE),Y..;n. |
000019E0: 53 54 41 28 54 45 58 54  46 49 4C 45 29 2C 59 00  |STA(TEXTFILE),Y.|
000019F0: FE 3B 78 0F 3B 00 13 3C  82 0F 20 4C 44 41 28 53  |.;x.;..<.. LDA(S|
00001A00: 43 52 4E 53 41 56 45 29  2C 59 00 29 3C 8C 0F 20  |CRNSAVE),Y.)<.. |
00001A10: 53 54 41 28 53 43 52 45  45 4E 4D 45 4D 29 2C 59  |STA(SCREENMEM),Y|
00001A20: 00 35 3C 96 0F 20 4C 44  41 23 31 34 00 4B 3C A0  |.5<.. LDA#14.K<.|
00001A30: 0F 20 53 54 41 28 53 43  52 45 45 4E 43 4F 4C 29  |. STA(SCREENCOL)|
00001A40: 2C 59 00 51 3C AA 0F 3B  00 5D 3C B4 0F 20 4C 44  |,Y.Q<..;.]<.. LD|
00001A50: 41 23 33 32 00 72 3C BE  0F 20 53 54 41 28 54 45  |A#32.r<.. STA(TE|
00001A60: 58 54 53 41 56 45 29 2C  59 00 87 3C C8 0F 20 53  |XTSAVE),Y..<.. S|
00001A70: 54 41 28 53 43 52 4E 53  41 56 45 29 2C 59 00 93  |TA(SCRNSAVE),Y..|
00001A80: 3C D2 0F 20 4C 44 41 23  31 34 00 A8 3C DC 0F 20  |<.. LDA#14..<.. |
00001A90: 53 54 41 28 43 4F 4C 52  53 41 56 45 29 2C 59 00  |STA(COLRSAVE),Y.|
00001AA0: AE 3C E6 0F 3B 00 B7 3C  F0 0F 20 49 4E 59 00 BD  |.<..;..<.. INY..|
00001AB0: 3C FA 0F 3B 00 C6 3C 04  10 20 44 45 58 00 D7 3C  |<..;..<.. DEX..<|
00001AC0: 0E 10 20 42 4E 45 4D 4F  56 45 4C 4F 4F 50 00 DD  |.. BNEMOVELOOP..|
00001AD0: 3C 18 10 3B 00 00 3D 22  10 3B 42 52 49 4E 47 45  |<..;..=".;BRINGE|
00001AE0: 20 54 45 58 54 46 49 4C  45 2D 2C 20 42 49 4C 44  | TEXTFILE-, BILD|
00001AF0: 53 43 48 49 52 4D 2D 00  1E 3D 2C 10 3B 55 4E 44  |SCHIRM-..=,.;UND|
00001B00: 20 46 41 52 42 50 4F 53  49 54 49 4F 4E 20 41 55  | FARBPOSITION AU|
00001B10: 46 20 44 45 4E 00 32 3D  36 10 3B 4E 45 55 45 53  |F DEN.2=6.;NEUES|
00001B20: 54 45 4E 20 53 54 41 4E  44 00 38 3D 40 10 3B 00  |TEN STAND.8=@.;.|
00001B30: 41 3D 4A 10 20 54 59 41  00 4A 3D 54 10 20 43 4C  |A=J. TYA.J=T. CL|
00001B40: 43 00 5B 3D 5E 10 20 41  44 43 54 45 58 54 46 49  |C.[=^. ADCTEXTFI|
00001B50: 4C 45 00 6C 3D 68 10 20  53 54 41 54 45 58 54 46  |LE.l=h. STATEXTF|
00001B60: 49 4C 45 00 7D 3D 72 10  20 42 43 43 4E 4F 48 49  |ILE.}=r. BCCNOHI|
00001B70: 47 48 31 30 00 90 3D 7C  10 20 49 4E 43 54 45 58  |GH10..=|. INCTEX|
00001B80: 54 46 49 4C 45 2B 31 00  96 3D 86 10 3B 00 A7 3D  |TFILE+1..=..;..=|
00001B90: 90 10 4E 4F 48 49 47 48  31 30 20 54 59 41 00 B0  |..NOHIGH10 TYA..|
00001BA0: 3D 9A 10 20 43 4C 43 00  C2 3D A4 10 20 41 44 43  |=.. CLC..=.. ADC|
00001BB0: 53 43 52 45 45 4E 4D 45  4D 00 D4 3D AE 10 20 53  |SCREENMEM..=.. S|
00001BC0: 54 41 53 43 52 45 45 4E  4D 45 4D 00 E5 3D B8 10  |TASCREENMEM..=..|
00001BD0: 20 42 43 43 4E 4F 48 49  47 48 31 31 00 F9 3D C2  | BCCNOHIGH11..=.|
00001BE0: 10 20 49 4E 43 53 43 52  45 45 4E 4D 45 4D 2B 31  |. INCSCREENMEM+1|
00001BF0: 00 FF 3D CC 10 3B 00 10  3E D6 10 4E 4F 48 49 47  |..=..;..>..NOHIG|
00001C00: 48 31 31 20 54 59 41 00  19 3E E0 10 20 43 4C 43  |H11 TYA..>.. CLC|
00001C10: 00 2B 3E EA 10 20 41 44  43 53 43 52 45 45 4E 43  |.+>.. ADCSCREENC|
00001C20: 4F 4C 00 3D 3E F4 10 20  53 54 41 53 43 52 45 45  |OL.=>.. STASCREE|
00001C30: 4E 43 4F 4C 00 4D 3E FE  10 20 42 43 43 41 55 53  |NCOL.M>.. BCCAUS|
00001C40: 47 41 4E 47 00 61 3E 08  11 20 49 4E 43 53 43 52  |GANG.a>.. INCSCR|
00001C50: 45 45 4E 43 4F 4C 2B 31  00 67 3E 12 11 3B 00 86  |EENCOL+1.g>..;..|
00001C60: 3E 1C 11 3B 5A 55 52 55  45 43 4B 20 5A 55 52 20  |>..;ZURUECK ZUR |
00001C70: 48 41 55 50 54 52 4F 55  54 49 4E 45 2E 00 8C 3E  |HAUPTROUTINE...>|
00001C80: 26 11 3B 00 9C 3E 30 11  41 55 53 47 41 4E 47 20  |&.;..>0.AUSGANG |
00001C90: 52 54 53 00 00 00                                 |RTS...          |

."."...BA 50000.."..;.8"...EQ IRQVECTOR 
= $0314.R"(..EQ NORMALIRQ = $EA31.F"2..E
Q COUNT = 170.}"<..EQ CURSFLAG = 171.."F
.;.."P..EQ SCREENMEM = 251.."Z..EQ SCREE
NCOL = 253.K"D..EQ TEMPSTORE = $49.."N..
EQ LINESTART = $4A.."X.;..#..;  ***  SCH
ALTE CURSOR AN..#..;..#..CURSORAN SEI.4#
 . LDA#<(FLASHCURS).F#.. STAIRQVECTOR.\#
.. LDA#>(FLASHCURS).P#.. STAIRQVECTOR+1.
V#H.;..#R. LDA#0..#.. STACURSFLAG. #.. S
TACOUNT..#..;..#.. CLI..#.. RTS..#..;..#
..;  ***  SCHALTE CURSOR AUS..#".;..#,.C
URSORAUS SEI..$6. LDA#<(NORMALIRQ)..$@. 
STAIRQVECTOR.3$J. LDA#>(NORMALIRQ).G$T. 
STAIRQVECTOR+1.P$^. CLI.Y$H. RTS._$R.;.
$|.;  *** FLASH CURSOR ROUTINE..$..;..$.
.;(DIESE ROUTINE WIRD ALLE.E$..;60STEL S
EKUNDEN AUFGERUFEN.).K$..;..$..;INKREMEN
TIERE DIE INTERNE UHR...$..;..%B.FLASHCU
RS JSR$FFEA..%L.;.7%V.;INKREMENTIERE ZAE
HLER. WENN 20,.[%..;AENDERE CURSOR. WENN
 NICHT 20,.|%..;SPRINGE SOFORT ZUM AUSGA
NG...%..;..%.. INCCOUNT..%.. LDACOUNT..%
.. CMP#20..%.. BNECURSEXIT.A%&.;..%0.;ZA
EHLER ZURUECK AUF NULL UND..%:.;TEST VON
 CURSFLAG...&D.;..&N. LDA#0..&X. STACOUN
T. &B.;.1&L. LDACURSFLAG.C&V. BNEDRUCKCH
AR.I&..;.N&..;DRUCKE INVERTIERTEN BUCHST
ABEN..T&..;..&.. INCCURSFLAG..&.. LDY#0.
.&.. LDA(SCREENMEM),Y..&.. CLC..&F. ADC#
128.R&P. STA(SCREENMEM),Y..&Z. LDA#14..&
.. STA(SCREENCOL),Y..'.. BNECURSEXIT..'.
.;.,'..;DRUCKE NORMALEN BUCHSTABEN..2'..
;.L'..DRUCKCHAR DECCURSFLAG.W' . LDY#0.M
'*. LDA(SCREENMEM),Y.V'4. SEC..'>. SBC#1
28..'H. STA(SCREENMEM),Y..'R. LDA#14..'\
. STA(SCREENCOL),Y.A'F.;..'P.;EXEKUTIERE
 REST DER NORMALEN..(Z.;INTERRUPT-ROUTIN
E IM KERNAL-ROM...(..;.%(..CURSEXIT JMP$
EA7B.+(..;.9(...BA 49152.?(..;.V(...EQ T
EXTFILE = 168.L(...EQ GETIN = $FFE4.R(J.
;..(T.;INITIIERE TEXTFILE ZU 30000...(..
;..(.. LDA#<(30000)..(.. STATEXTFILE.O(.
. LDA#>(30000)..(.. STATEXTFILE+1..(..;.
.)..;INITIIERE BILDSCHIRM UND FARBEN...)
$.;.%).. LDA#<(1024).7)8. STASCREENMEM.H
)B. LDA#>(1024).\)L. STASCREENMEM+1.B)V.
;.T)`. LDA#<(55296)..)J. STASCREENCOL..)
T. LDA#>(55296)..)~. STASCREENCOL+1..)..
;.O)..;LOESCHE DEN BILDSCHIRM..U)..;..).
. JSR$E544..)..;..*..;SCHALTE COMPUTER A
UF GROSS-.#*D.;UND KLEINSCHREIBUNG.)*N.;
.5*X. LDA#14.C*.. JSR$E716.I*..;.E*..;SC
HALTE DEN CURSOR AN..K*..;.|*.. JSRCURSO
RAN..*..;..*..;WARTE AUF EINEN TASTENDRU
CK...*(.;..*2.GETKEY JSRGETIN.M*<. BEQGE
TKEY.S*F.;..*P.;WENN FUNKTIONSTASTE 1,..
+Z.;SPRINGE ZUM AUSGANG..+D.;..+N. CMP#1
33.++X. BNEGETKEY1.8+.. JMPEXIT.>+..;.B+
..;WENN DELETE TASTE, SPRINGE ZUR.V+ .;L
OESCHROUTINE..|+..;..+..GETKEY1 CMP#20. 
+.. BEQDELECRSR..+H.;.D+R.;WENN CURSOR L
INKS, DITO..J+..;.W+.. CMP#157..+.. BEQD
ELECRSR..+..;..,..;WENN CURSOR RECHTS,..
,..;SPRINGE VORWAERTS..%,..;.1,". CMP#29
.C,,. BEQCRSRECHTS.I,6.;.J,@.;ANFANG DER
 NAECHSTEN ZEILE?.P,J.;..,T. STATEMPSTOR
E..,^.;..,H. LDA#<(1064)..,R. STALINESTA
RT..,|. LDA#>(1064).P,.. STALINESTART+1.
V,..;..,.. LDX#24..,..;..,..TEST LDASCRE
ENMEM..-.. CMPLINESTART..-B. BNETEST1.2-
L. LDASCREENMEM+1.F-V. CMPLINESTART+1.T-
.. BNETEST1.Z-..;.X-..;WENN JA, WORDRAP 
ROUTINE.~-..;..-.. JSRWORDWRAP. -.. JMPC
ONTINUE..-..;..-&.TEST1 CLC.F-0. LDALINE
START.R-:. ADC#40..-D. STALINESTART..-N.
 BCCTEST2...X. INCLINESTART+1...B.TEST2 
DEX.!.L. BNETEST.'.V.;.L...;WENN NICHT, 
ZIEHE BUCHSTABE UND.D...;FAHRE NORMAL FO
RT..J...;.....CONTINUE LDATEMPSTORE.....
;.....;LADE BUCHSTABE IN TEXTFILE......;
...F. LDY#0.Q.P. STA(TEXTFILE),Y.W.Z.;..
...;WANDLE ASCII IN BILDSCHIRMCODE.../..
;../.. CMP#128../.. BCCSKIP.0/.. SBC#64;
GROSSER.H/..SKIP CMP#64;KLEINER._/ . BCC
DRUCKE;BUCHST..K/*. SBC#64.Q/4.;../>.;DR
UCKE BUCHSTABE AUF BILDSCHIRM.../H.;../R
.DRUCKE STA(SCREENMEM),Y.E/\. LDA#14../F
. STA(SCREENCOL),Y../P.;../Z.;NAECHSTE D
RUCKPOSITION...0..;..0..CRSRECHT1 INCTEX
TFILE.-0.. BNENOHIGH.@0.. INCTEXTFILE+1.
F0..;.^0..NOHIGH INCSCREENMEM.N0.. BNENO
HIGH1..0J. INCSCREENMEM+1..0T.;..0..NOHI
GH1 INCSCREENCOL..0.. BNEGETKEY.D0.. INC
SCREENCOL+1.S0.. BNEGETKEY.Y0..;..0..; C
URSOR RECHTS ROUTINE:..1..; REKONSTRUIER
E BUCHSTABE LINKS.=1$.; UND SPRINGE ZUR 
HAUPTROUTINE.K1..; ZURUECK.Q18.;.E1B.CRS
RECHTS LDY#0.{1L. LDA(SCREENMEM),Y..1V. 
CMP#128..1`. BCCDRUCKE2..1J. SBC#128.B1T
.DRUCKE2 STA(SCREENMEM),Y.N1~. LDA#14..1
.. STA(SCREENCOL),Y..1..;..1.. BNECRSREC
HT1..2..;.(2..;LOESCH- UND CURSOR LINKS 
ROUTINE..2..;.G2D.DELECRSR LDX#<(1024).Y
2N. CPXSCREENMEM.G2X. BNESTART.X2.. LDX#
>(1024)..2.. CPXSCREENMEM+1..2.. BNESTAR
T..2.. JMPGETKEY..2..;.M2..;SICHERE INHA
LT DES AKKU..S2..;..2(.START PHA..22.;..
3<.;REKONSTRUIERE BUCHSTABE LINKS...3F.;
..3P. LDY#0.23Z. LDA(SCREENMEM),Y.?3D. C
MP#128.O3N. BCCDRUCKE1.\3X. SBC#128.Y3..
DRUCKE1 STA(SCREENMEM),Y..3.. LDA#14..3.
. STA(SCREENCOL),Y..3 .;.F3..;GEHE EINE 
POSITION RUECKWAERTS..L3..;..3.. LDATEXT
FILE..3H. BNENOHIGH2..4R. DECTEXTFILE+1.
.4..NOHIGH2 DECTEXTFILE..4..;.04.. LDASC
REENMEM.@4.. BNENOHIGH3.T4.. DECSCREENME
M+1.M4..NOHIGH3 DECSCREENMEM.S4..;..4". 
LDASCREENCOL..4,. BNENOHIGH4..46. DECSCR
EENCOL+1.B4@.NOHIGH4 DECSCREENCOL.H4J.;.
.4T.;PULL AKKU UND TESTE WERT. WENN..5^.
;CURSOR LINKS, AUSGANG...5H.;..5R. PLA.$
5|. CMP#157.25.. BEQEXIT1.85..;.Q5..;LOE
SCHE BUCHSTABEN..W5..;.B5.. LDY#0.T5.. L
DA#32;SPACE..5B. STA(TEXTFILE),Y..5L. ST
A(SCREENMEM),Y..5V. LDA#14.A5.. STA(SCRE
ENCOL),Y.G5..;..5..EXIT1 JMPGETKEY..5..;
..5..;HAUPTAUSGANG:..6..;SCHALTE CURSOR 
AB UND.%6..;ZURUECK ZU BASIC.+6&.;.A60.E
XIT JSRCURSORAUS.J6:. RTS.P6D.;.^6N..BA 
50100.D6X.;.{6B..EQ TEXTSAVE = $4C..6L..
EQ SCRNSAVE = $4E..6V..EQ COLRSAVE = $50
..6..;.R6..;WENN LEERTASTE, WARTE AUF DE
N..6..;NAECHSTEN TASTENDRUCK UND AUSG...
6..;..7..WORDWRAP LDATEMPSTORE.#7.. CMP#
32.27.. BNEANFANG.G7F.GETKEY2 JSRGETIN.W
7P. BEQGETKEY2.I7Z. STATEMPSTORE.R7.. RT
S.X7..;..7..;RETTE AUGENBLICKLICHE TEXTF
ILE-,.A7..;BILDSCHIRM- UND FARBPOSITION.
.G7..;..7..ANFANG LDATEXTFILE..7 . STATE
XTSAVE..8*. LDATEXTFILE+1..84. STATEXTSA
VE+1.'8>. LDASCREENMEM.88H. STASCRNSAVE.
L8R. LDASCREENMEM+1._8\. STASCRNSAVE+1.Q
8F. LDASCREENCOL..8P. STACOLRSAVE..8Z. L
DASCREENCOL+1..8.. STACOLRSAVE+1..8..;.I
8..;GEHE ZURUECK BIS ZUM..8..;LETZTEN SP
ACE..8..;..8.. LDX#0..8.. LDY#0..9J.GOBA
CK LDATEXTSAVE..9T. BNENOHIGH5.29.. DECT
EXTSAVE+1.J9..NOHIGH5 DECTEXTSAVE.P9..;.
A9.. LDASCRNSAVE.Q9.. BNENOHIGH6..9.. DE
CSCRNSAVE+1..9..NOHIGH6 DECSCRNSAVE..9$.
;..9.. LDACOLRSAVE.C98. BNENOHIGH7.V9B. 
DECCOLRSAVE+1..9L.NOHIGH7 DECCOLRSAVE..9
V.;..:`. LDA(TEXTSAVE),Y..:J. CMP#32.':T
. BEQSPACEFOUN.0:~. INX.?:.. BNEGOBACK.E
:..;.F:..;EINE POSITION VORWAERTS ZUM.}:
..;ANFANG DES WORTES..:..;..:..SPACEFOUN
 INCTEXTSAVE..:D. BNENOHIGH8..:N. INCTEX
TSAVE+1.F:X.;..:..NOHIGH8 INCSCRNSAVE..:
.. BNENOHIGH9..;.. INCSCRNSAVE+1..;..;..
;..NOHIGH9 INCCOLRSAVE.0;.. BNEMOVELOOP.
C;.. INCCOLRSAVE+1.I;(.;.D;2.;RUECKE BUC
HSTABEN ZUM..;<.;ANFANG DER NAECHSTEN ZE
ILE..;F.;UND FUELLE ENDE DER VORHER-..;P
.;ZEILE MIT LEERSTELLEN.F;Z.;..;D.MOVELO
OP LDA(TEXTSAVE),Y..;N. STA(TEXTFILE),Y.
.;X.;..<.. LDA(SCRNSAVE),Y.)<.. STA(SCRE
ENMEM),Y.5<.. LDA#14.K< . STA(SCREENCOL)
,Y.Q<..;.]<.. LDA#32.R<.. STA(TEXTSAVE),
Y..<H. STA(SCRNSAVE),Y..<R. LDA#14..<.. 
STA(COLRSAVE),Y..<..;..<.. INY..<..;.F<.
. DEX.W<.. BNEMOVELOOP..<..;..=".;BRINGE
 TEXTFILE-, BILDSCHIRM-..=,.;UND FARBPOS
ITION AUF DEN.2=6.;NEUESTEN STAND.8=@.;.
A=J. TYA.J=T. CLC.[=^. ADCTEXTFILE.L=H. 
STATEXTFILE.}=R. BCCNOHIGH10..=|. INCTEX
TFILE+1..=..;..=..NOHIGH10 TYA..=.. CLC.
B=.. ADCSCREENMEM.T=.. STASCREENMEM..=..
 BCCNOHIGH11..=B. INCSCREENMEM+1..=L.;..
>V.NOHIGH11 TYA..>.. CLC.+>.. ADCSCREENC
OL.=>.. STASCREENCOL.M>.. BCCAUSGANG.A>.
. INCSCREENCOL+1.G>..;..>..;ZURUECK ZUR 
HAUPTROUTINE...>&.;..>0.AUSGANG RTS...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL