WINDOW.SRC
FILE INFORMATION
FILENAME(S): WINDOW.SRC
FILE TYPE(S): PRG
FILE SIZE: 9K
FIRST SEEN: 2025-11-30 01:12:40
APPEARS ON: 2 disk(s)
FILE HASH
b2fb2f301ade45a2450bebddbb16e8f1977b5b1e525c8c6c454b77a9765eadda
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SH 12 86 VORDERS | WINDOW.SRC | PRG | C64er, DuncanTwain | 28 | 2 | DOWNLOAD FILE |
| SH 12 86 VORDERS | WINDOW.SRC | PRG | DuncanTwain | 28 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 9E 39 AC 34 30 39 36 3A 2E 4F |.......9.4096:.O|
00000010: 50 54 20 4F 2C 4F 4F 00 23 08 0F 00 AC B2 24 43 |PT O,OO.#.....$C|
00000020: 30 30 30 00 49 08 14 00 58 4C 4F 20 20 B2 20 24 |000.I...XLO . $|
00000030: 46 37 20 3B 4B 4F B0 44 49 4E 41 54 45 4E 20 44 |F7 ;KO.DINATEN D|
00000040: 45 52 20 4C 49 4E 4B 45 4E 00 71 08 15 00 59 4C |ER LINKEN.q...YL|
00000050: 4F 20 20 B2 20 24 46 38 20 3B 4F 42 45 52 45 4E |O . $F8 ;OBEREN|
00000060: 20 45 43 4B 45 20 44 45 53 20 57 49 4E 44 4F 57 | ECKE DES WINDOW|
00000070: 53 00 98 08 16 00 58 52 55 20 20 B2 20 24 46 39 |S.....XRU . $F9|
00000080: 20 3B 4B 4F B0 44 49 4E 41 54 45 4E 20 44 45 52 | ;KO.DINATEN DER|
00000090: 20 52 45 43 48 54 45 4E 00 C1 08 17 00 59 52 55 | RECHTEN.....YRU|
000000A0: 20 20 B2 20 24 46 41 20 3B 55 4E 54 45 52 45 4E | . $FA ;UNTEREN|
000000B0: 20 45 43 4B 45 20 44 45 53 20 57 49 4E 44 4F 57 | ECKE DES WINDOW|
000000C0: 53 00 E2 08 18 00 5A 53 50 20 20 B2 20 24 41 41 |S.....ZSP . $AA|
000000D0: 20 3B 5A 57 49 53 43 48 45 4E 53 50 45 49 43 48 | ;ZWISCHENSPEICH|
000000E0: 45 52 00 06 09 1A 00 46 4B 45 59 20 B2 20 24 46 |ER.....FKEY . $F|
000000F0: 42 20 3B 53 50 45 49 43 48 45 52 20 46 2E 20 46 |B ;SPEICHER F. F|
00000100: 54 41 53 54 45 4E 00 1E 09 1C 00 43 4E 54 20 20 |TASTEN.....CNT |
00000110: B2 20 24 35 37 20 3B 5A 41 45 48 4C 45 52 00 42 |. $57 ;ZAEHLER.B|
00000120: 09 1E 00 43 55 58 20 20 B2 20 24 41 38 20 3B 52 |...CUX . $A8 ;R|
00000130: 45 4C 41 54 49 56 45 20 43 55 52 53 B0 B9 49 54 |ELATIVE CURS..IT|
00000140: 49 91 00 68 09 1F 00 43 55 59 20 20 B2 20 24 41 |I..h...CUY . $A|
00000150: 39 20 3B 49 4E 4E 45 52 48 41 4C 42 20 44 45 53 |9 ;INNERHALB DES|
00000160: 20 57 49 4E 44 4F 57 53 00 8A 09 20 00 50 4F 4C | WINDOWS... .POL|
00000170: 20 20 B2 20 24 41 41 20 3B 5A 57 45 49 AB 42 59 | . $AA ;ZWEI.BY|
00000180: 54 45 20 5A 41 45 48 4C 45 52 00 AE 09 21 00 50 |TE ZAEHLER...!.P|
00000190: 4F 48 20 20 B2 20 24 41 42 20 3B 46 55 45 52 20 |OH . $AB ;FUER |
000001A0: 44 49 56 45 52 53 45 20 5A 57 45 43 4B 45 00 D2 |DIVERSE ZWECKE..|
000001B0: 09 22 00 B9 20 20 B2 20 24 46 43 20 3B B9 49 54 |.".. . $FC ;.IT|
000001C0: 49 91 20 49 4D 20 54 45 58 54 53 50 45 49 43 48 |I. IM TEXTSPEICH|
000001D0: 45 52 00 F5 09 24 00 5A 42 52 20 20 B2 20 24 46 |ER...$.ZBR . $F|
000001E0: 44 20 3B 42 52 45 49 54 45 20 44 45 53 20 57 49 |D ;BREITE DES WI|
000001F0: 4E 44 4F 57 53 00 17 0A 26 00 5A 41 4E 20 20 B2 |NDOWS...&.ZAN .|
00000200: 20 24 46 45 20 3B 48 4F 45 48 45 20 44 45 53 20 | $FE ;HOEHE DES |
00000210: 57 49 4E 44 4F 57 53 00 3E 0A 28 00 4D B9 20 B2 |WINDOWS.>.(.M. .|
00000220: 20 24 46 46 20 3B 4C 41 45 4E 47 45 20 44 45 53 | $FF ;LAENGE DES|
00000230: 20 54 45 58 54 53 50 45 49 43 48 45 52 53 00 5B | TEXTSPEICHERS.[|
00000240: 0A 2A 00 53 54 5A 20 20 B2 20 24 32 32 20 3B 53 |.*.STZ . $22 ;S|
00000250: 54 52 49 4E 47 5A 45 49 47 45 52 00 79 0A 2C 00 |TRINGZEIGER.y.,.|
00000260: 53 54 41 54 20 B2 20 24 39 30 20 3B 53 54 41 54 |STAT . $90 ;STAT|
00000270: 55 53 20 AB 20 42 59 54 45 00 99 0A 2E 00 43 46 |US . BYTE.....CF|
00000280: 4C 47 20 B2 20 24 43 43 20 3B 46 4C 41 47 20 46 |LG . $CC ;FLAG F|
00000290: 55 45 52 20 43 55 52 53 B0 00 C1 0A 30 00 43 52 |UER CURS....0.CR|
000002A0: 45 50 20 B2 20 24 43 44 20 3B 5A 41 45 48 4C 45 |EP . $CD ;ZAEHLE|
000002B0: 52 20 46 2E 20 43 55 52 53 B0 42 4C 49 4E 4B 45 |R F. CURS.BLINKE|
000002C0: 4E 00 DE 0A 32 00 8B 4C 47 20 B2 20 24 31 31 20 |N...2..LG . $11 |
000002D0: 3B 46 4C 41 47 20 46 2E 20 85 2C A1 2C 87 00 06 |;FLAG F. .,.,...|
000002E0: 0B 34 00 54 46 4C 47 20 B2 20 24 30 44 20 3B 54 |.4.TFLG . $0D ;T|
000002F0: 59 50 46 4C 41 47 20 28 4E 55 4D 45 52 2E AD 53 |YPFLAG (NUMER..S|
00000300: 54 52 49 4E 47 29 00 15 0B 36 00 43 47 4C 20 20 |TRING)...6.CGL |
00000310: B2 20 24 37 41 00 3C 0B 38 00 43 47 48 20 20 B2 |. $7A.<.8.CGH .|
00000320: 20 24 37 42 20 3B 5A 45 49 47 45 52 20 44 2E 20 | $7B ;ZEIGER D. |
00000330: 43 48 52 A1 AB 52 4F 55 54 49 4E 45 00 62 0B 3A |CHR..ROUTINE.b.:|
00000340: 00 5A 43 47 4C 20 B2 20 24 34 42 20 3B 5A 57 49 |.ZCGL . $4B ;ZWI|
00000350: 53 43 48 45 4E 53 50 45 49 43 48 45 52 20 46 55 |SCHENSPEICHER FU|
00000360: 45 52 00 7E 0B 3B 00 5A 43 47 48 20 B2 20 24 34 |ER.~.;.ZCGH . $4|
00000370: 43 20 3B 43 48 52 A1 AB 5A 45 49 47 45 52 00 99 |C ;CHR..ZEIGER..|
00000380: 0B 3C 00 5A 56 4C 20 20 B2 20 24 34 39 20 3B 5A |.<.ZVL . $49 ;Z|
00000390: 45 49 47 45 52 20 41 55 46 00 B5 0B 3D 00 5A 56 |EIGER AUF...=.ZV|
000003A0: 48 20 20 B2 20 24 34 41 20 3B 56 41 52 49 41 42 |H . $4A ;VARIAB|
000003B0: C3 57 45 52 54 00 C4 0B 3E 00 43 4F 4C 4C 20 B2 |.WERT...>.COLL .|
000003C0: 20 24 31 34 00 E6 0B 3F 00 43 4F 4C 48 20 B2 20 | $14...?.COLH . |
000003D0: 24 31 35 20 3B 5A 45 49 47 45 52 20 49 4E 20 46 |$15 ;ZEIGER IN F|
000003E0: 41 52 42 52 41 4D 00 0A 0C 40 00 56 52 41 4D 20 |ARBRAM...@.VRAM |
000003F0: B2 24 32 38 38 20 3B 48 49 47 48 AB 42 59 54 45 |.$288 ;HIGH.BYTE|
00000400: 20 56 49 44 45 4F AB 52 41 4D 00 2B 0C 42 00 43 | VIDEO.RAM.+.B.C|
00000410: 43 4F 4C 20 B2 24 32 38 36 20 3B 46 41 52 42 45 |COL .$286 ;FARBE|
00000420: 20 44 45 53 20 43 55 52 53 B0 53 00 54 0C 44 00 | DES CURS.S.T.D.|
00000430: 45 52 4C 5A 54 20 B2 24 33 33 43 3B 54 41 42 2E |ERLZT .$33C;TAB.|
00000440: 20 46 2E 20 45 52 4C 41 55 42 54 45 20 5A 45 49 | F. ERLAUBTE ZEI|
00000450: 43 48 45 4E 00 7A 0C 64 00 52 42 59 54 45 20 20 |CHEN.z.d.RBYTE |
00000460: B2 20 24 42 37 39 45 20 3B 31 AB 42 59 54 45 AB |. $B79E ;1.BYTE.|
00000470: 57 45 52 54 20 4C 45 53 45 4E 00 A0 0C 66 00 50 |WERT LESEN...f.P|
00000480: 4B 4F 4D 20 20 20 B2 20 24 41 45 46 44 20 3B 41 |KOM . $AEFD ;A|
00000490: 55 46 20 4B 4F 4D 4D 41 20 50 52 55 45 46 45 4E |UF KOMMA PRUEFEN|
000004A0: 00 C8 0C 67 00 50 43 48 41 52 20 20 B2 20 24 41 |...g.PCHAR . $A|
000004B0: 45 46 46 20 3B 41 55 46 20 5A 45 49 43 48 45 4E |EFF ;AUF ZEICHEN|
000004C0: 20 50 52 55 45 46 45 4E 00 EE 0C 68 00 46 52 4D | PRUEFEN...h.FRM|
000004D0: 45 56 4C 20 B2 20 24 41 44 39 45 20 3B 41 55 53 |EVL . $AD9E ;AUS|
000004E0: 44 52 55 43 4B 20 41 55 57 45 52 54 45 4E 00 11 |DRUCK AUWERTEN..|
000004F0: 0D 6A 00 B8 53 54 52 20 B2 20 24 42 36 41 33 20 |.j..STR . $B6A3 |
00000500: 3B 53 54 52 49 4E 47 56 45 52 57 41 4C 54 55 4E |;STRINGVERWALTUN|
00000510: 47 00 31 0D 6C 00 43 CB 54 20 20 20 B2 20 24 30 |G.1.l.C.T . $0|
00000520: 30 37 39 20 3B 88 5A 54 45 53 20 5A 2E 20 48 4F |079 ;.ZTES Z. HO|
00000530: C3 00 54 0D 6E 00 43 A1 20 20 20 B2 20 24 30 30 |..T.n.C. . $00|
00000540: 37 33 20 3B 4E 41 45 43 48 53 54 45 53 20 5A 2E |73 ;NAECHSTES Z.|
00000550: 20 48 4F C3 00 68 0D 70 00 A1 20 20 20 20 B2 20 | HO..h.p.. . |
00000560: 24 46 46 45 34 20 3B A1 00 90 0D 72 00 5A 41 4E |$FFE4 ;....r.ZAN|
00000570: 46 4C 20 20 B2 20 24 45 43 46 30 20 3B 54 41 42 |FL . $ECF0 ;TAB|
00000580: 2E 20 44 2E 20 42 49 4C 44 53 43 48 49 52 4D AB |. D. BILDSCHIRM.|
00000590: 00 B1 0D 73 00 5A 41 4E 46 48 20 20 B2 20 24 44 |...s.ZANFH . $D|
000005A0: 39 20 20 20 3B 5A 45 49 C3 41 4E 46 41 45 4E 47 |9 ;ZEI.ANFAENG|
000005B0: 45 00 D2 0D 74 00 43 53 45 54 20 20 20 B2 20 24 |E...t.CSET . $|
000005C0: 46 46 46 30 20 3B 43 55 52 53 B0 20 53 45 54 5A |FFF0 ;CURS. SETZ|
000005D0: 45 4E 00 F7 0D 76 00 50 88 20 20 20 B2 20 24 42 |EN...v.P. . $B|
000005E0: 31 31 33 20 3B 50 52 55 45 46 2E 20 41 55 46 20 |113 ;PRUEF. AUF |
000005F0: 42 55 43 48 53 54 2E 00 1B 0E 78 00 53 56 41 52 |BUCHST....x.SVAR|
00000600: 20 20 20 B2 20 24 42 30 38 42 20 3B 56 41 52 49 | . $B08B ;VARI|
00000610: 41 42 4C 45 20 53 55 43 48 45 4E 00 41 0E 7A 00 |ABLE SUCHEN.A.z.|
00000620: 43 47 53 45 54 20 20 B2 20 24 41 42 37 36 20 3B |CGSET . $AB76 ;|
00000630: 43 48 52 A1 5A 45 49 47 45 52 20 53 45 54 5A 45 |CHR.ZEIGER SETZE|
00000640: 4E 00 60 0E 7C 00 53 54 48 4F 4C 20 20 B2 20 24 |N.`.|.STHOL . $|
00000650: 42 34 38 37 20 3B 53 54 52 49 4E 47 20 48 4F C3 |B487 ;STRING HO.|
00000660: 00 85 0E 7E 00 50 52 53 45 54 20 20 B2 20 24 42 |...~.PRSET . $B|
00000670: 37 45 32 20 3B 50 52 47 5A 45 49 47 45 52 20 53 |7E2 ;PRGZEIGER S|
00000680: 45 54 5A 45 4E 00 AC 0E 80 00 53 54 52 56 41 52 |ETZEN.....STRVAR|
00000690: 20 B2 20 24 41 39 44 41 20 3B 53 54 52 49 4E 47 | . $A9DA ;STRING|
000006A0: 20 41 4E 20 56 41 52 20 5A 55 57 2E 00 D0 0E 82 | AN VAR ZUW.....|
000006B0: 00 50 52 42 59 54 45 20 B2 20 24 42 37 46 31 20 |.PRBYTE . $B7F1 |
000006C0: 3B 53 2E 4F 2E 20 4E 41 43 48 20 4B 4F 4D 4D 41 |;S.O. NACH KOMMA|
000006D0: 00 F2 0E 84 00 43 52 42 59 54 45 20 B2 20 24 42 |.....CRBYTE . $B|
000006E0: 37 39 42 20 3B 53 2E 4F 2E 20 4D 49 54 20 43 48 |79B ;S.O. MIT CH|
000006F0: 52 A1 00 F8 0E C8 00 3B 00 10 0F CD 00 3B 20 41 |R......;.....; A|
00000700: 55 53 47 41 42 45 20 49 4E 20 57 49 4E 44 4F 57 |USGABE IN WINDOW|
00000710: 00 16 0F D2 00 3B 00 2D 0F D7 00 99 20 4A 53 52 |.....;.-.... JSR|
00000720: 20 B9 87 20 3B 54 45 58 54 20 48 4F C3 00 54 0F | .. ;TEXT HO..T.|
00000730: DC 00 4A 4D 50 20 57 54 45 58 54 20 3B 55 4E 44 |..JMP WTEXT ;UND|
00000740: 20 49 4E 20 57 49 4E 44 4F 57 20 53 43 48 52 45 | IN WINDOW SCHRE|
00000750: 49 42 45 4E 00 5A 0F 2C 01 3B 00 72 0F 31 01 3B |IBEN.Z.,.;.r.1.;|
00000760: 20 45 49 4E 47 41 42 45 20 49 4E 20 57 49 4E 44 | EINGABE IN WIND|
00000770: 4F 57 00 78 0F 36 01 3B 00 95 0F 38 01 3B 20 20 |OW.x.6.;...8.; |
00000780: 20 AB 20 50 41 52 41 4D 45 54 45 52 20 45 49 4E | . PARAMETER EIN|
00000790: 4C 45 53 45 4E 00 9B 0F 39 01 3B 00 B6 0F 3B 01 |LESEN...9.;...;.|
000007A0: 85 20 4A 53 52 20 B9 87 20 3B 4B 4F B0 44 2E 20 |. JSR .. ;KO.D. |
000007B0: 26 20 54 45 58 54 00 D2 0F 40 01 4C 44 41 20 23 |& TEXT...@.LDA #|
000007C0: B3 45 52 4C 5A 54 3A 4C 44 58 20 23 B1 45 52 4C |.ERLZT:LDX #.ERL|
000007D0: 5A 54 00 FA 0F 45 01 4A 53 52 20 52 53 54 52 49 |ZT...E.JSR RSTRI|
000007E0: 4E 47 20 3B 45 52 4C 41 55 42 54 45 20 5A 45 49 |NG ;ERLAUBTE ZEI|
000007F0: 43 48 45 4E 20 4C 45 53 45 4E 00 1C 10 4A 01 54 |CHEN LESEN...J.T|
00000800: 58 41 3A 42 4E 45 20 50 45 42 20 3B 41 4C 54 45 |XA:BNE PEB ;ALTE|
00000810: 20 45 49 4E 53 54 45 4C 4C 55 4E 47 00 42 10 4C | EINSTELLUNG.B.L|
00000820: 01 53 54 41 20 28 50 4F 4C 29 2C 59 20 3B 54 41 |.STA (POL),Y ;TA|
00000830: 42 20 4D 49 54 20 30 20 B6 43 48 4C 49 45 53 53 |B MIT 0 .CHLIESS|
00000840: 45 4E 00 63 10 4F 01 50 45 42 20 4A 53 52 20 43 |EN.c.O.PEB JSR C|
00000850: CB 54 3A 43 4D 50 20 23 22 2C 22 3A 42 4E 45 20 |.T:CMP #",":BNE |
00000860: 50 45 41 00 89 10 54 01 4A 53 52 20 43 52 42 59 |PEA...T.JSR CRBY|
00000870: 54 45 20 3B 41 4E 5A 41 48 4C 20 44 2E 20 46 54 |TE ;ANZAHL D. FT|
00000880: 41 53 54 45 4E 20 48 4F C3 00 A0 10 59 01 43 50 |ASTEN HO....Y.CP|
00000890: 58 20 23 30 39 20 3B 56 47 4C 2E 20 B3 B2 20 38 |X #09 ;VGL. .. 8|
000008A0: 00 C3 10 5B 01 42 43 53 20 50 45 41 20 3B 4E 45 |...[.BCS PEA ;NE|
000008B0: 49 4E 20 AB 20 4E 49 43 48 54 20 42 45 41 43 48 |IN . NICHT BEACH|
000008C0: 54 45 4E 00 E6 10 5E 01 54 58 41 3A 41 44 43 20 |TEN...^.TXA:ADC |
000008D0: 23 31 33 33 20 3B 49 4E 20 C6 49 49 20 55 4D 52 |#133 ;IN .II UMR|
000008E0: 45 43 48 4E 45 4E 00 02 11 5F 01 53 54 41 20 46 |ECHNEN..._.STA F|
000008F0: 4B 45 59 20 3B 55 4E 44 20 53 50 45 49 43 48 45 |KEY ;UND SPEICHE|
00000900: 52 4E 00 13 11 63 01 50 45 41 20 4C 44 41 20 23 |RN...c.PEA LDA #|
00000910: 22 3B 22 00 37 11 68 01 4A 53 52 20 50 43 48 41 |";".7.h.JSR PCHA|
00000920: 52 20 3B 41 55 46 20 53 45 4D 49 4B 4F 4C 91 20 |R ;AUF SEMIKOL. |
00000930: 50 52 55 45 46 45 4E 00 3D 11 90 01 3B 00 5A 11 |PRUEFEN.=...;.Z.|
00000940: 95 01 3B 20 20 20 AB 20 45 49 4E 47 41 42 45 20 |..; . EINGABE |
00000950: 56 B0 42 45 52 45 49 54 45 4E 00 60 11 9A 01 3B |V.BEREITEN.`...;|
00000960: 00 82 11 9F 01 48 4F 4D 20 4C 44 59 20 23 30 30 |.....HOM LDY #00|
00000970: 3A 53 54 59 20 43 55 58 20 3B 43 55 52 53 B0 20 |:STY CUX ;CURS. |
00000980: 49 4E 00 A0 11 A4 01 53 54 59 20 43 55 59 20 3B |IN.....STY CUY ;|
00000990: 4C 49 4E 4B 45 20 4F 42 45 52 45 20 45 43 4B 45 |LINKE OBERE ECKE|
000009A0: 00 B8 11 A9 01 53 54 59 20 43 46 4C 47 20 3B 43 |.....STY CFLG ;C|
000009B0: 55 52 53 B0 20 45 49 4E 00 CF 11 AE 01 53 54 59 |URS. EIN.....STY|
000009C0: 20 B9 20 3B 41 4E 20 54 45 58 C0 46 41 4E 47 00 | . ;AN TEX.FANG.|
000009D0: D5 11 F4 01 3B 00 E7 11 F9 01 3B 20 20 20 AB 20 |....;.....; . |
000009E0: 45 49 4E 47 41 42 45 00 ED 11 FE 01 3B 00 10 12 |EINGABE.....;...|
000009F0: 03 02 45 49 4E 20 4A 53 52 20 43 55 53 57 52 54 |..EIN JSR CUSWRT|
00000A00: 20 3B 54 45 58 54 20 53 43 48 52 45 49 42 45 4E | ;TEXT SCHREIBEN|
00000A10: 00 33 12 08 02 45 49 41 20 4A 53 52 20 A1 20 3B |.3...EIA JSR . ;|
00000A20: 5A 45 49 43 48 45 4E 20 56 91 20 54 41 53 54 41 |ZEICHEN V. TASTA|
00000A30: 54 55 52 00 44 12 0A 02 42 45 51 20 45 49 41 20 |TUR.D...BEQ EIA |
00000A40: 3B 48 4F C3 00 68 12 0D 02 4C 44 58 20 23 30 32 |;HO..h...LDX #02|
00000A50: 3A 53 54 58 20 43 52 45 50 20 3B 52 45 50 45 41 |:STX CREP ;REPEA|
00000A60: 54 46 55 4E 4B 54 49 91 00 6E 12 0E 02 3B 00 92 |TFUNKTI..n...;..|
00000A70: 12 0F 02 3B 20 20 20 AB 20 50 52 55 45 46 55 4E |...; . PRUEFUN|
00000A80: 47 20 41 55 46 20 53 91 44 45 52 5A 45 49 43 48 |G AUF S.DERZEICH|
00000A90: 45 4E 00 98 12 10 02 3B 00 C0 12 12 02 43 4D 50 |EN.....;.....CMP|
00000AA0: 20 23 22 85 22 3A 42 43 43 20 45 34 20 3B 41 55 | #".":BCC E4 ;AU|
00000AB0: 46 20 46 54 41 53 54 45 20 50 52 55 45 46 45 4E |F FTASTE PRUEFEN|
00000AC0: 00 E2 12 17 02 43 4D 50 20 46 4B 45 59 20 3B 50 |.....CMP FKEY ;P|
00000AD0: 52 2E 20 45 52 4C 41 55 42 54 45 20 46 54 41 53 |R. ERLAUBTE FTAS|
00000AE0: 54 45 00 F9 12 19 02 42 43 43 20 45 35 20 3B 4A |TE.....BCC E5 ;J|
00000AF0: 41 20 AB 20 57 49 45 20 8E 00 1D 13 1C 02 43 4D |A . WIE ......CM|
00000B00: 50 20 23 22 8C 22 AA 31 20 3B 50 52 2E 20 4E 49 |P #".".1 ;PR. NI|
00000B10: 43 48 54 20 96 2E 20 46 54 41 53 54 45 00 3E 13 |CHT .. FTASTE.>.|
00000B20: 1E 02 42 43 43 20 45 49 41 20 3B 4A 41 20 AB 20 |..BCC EIA ;JA . |
00000B30: 4E 49 43 48 54 20 42 45 41 43 48 54 45 4E 00 54 |NICHT BEACHTEN.T|
00000B40: 13 21 02 45 34 20 43 4D 50 20 23 31 33 20 3B 50 |.!.E4 CMP #13 ;P|
00000B50: 52 2E 20 8E 00 68 13 23 02 42 4E 45 20 45 33 20 |R. ..h.#.BNE E3 |
00000B60: 3B 4E 49 43 48 54 20 8E 00 7A 13 26 02 45 35 20 |;NICHT ..z.&.E5 |
00000B70: 4A 4D 50 20 52 45 54 20 3B 8E 00 98 13 2B 02 45 |JMP RET ;....+.E|
00000B80: 33 20 4C 44 58 20 43 55 58 20 3B 43 55 52 53 B0 |3 LDX CUX ;CURS.|
00000B90: B9 49 54 49 91 20 49 4E 00 B4 13 2D 02 4C 44 59 |.ITI. IN...-.LDY|
00000BA0: 20 43 55 59 20 3B 58 AD 59 20 AB 20 52 45 47 49 | CUY ;X.Y . REGI|
00000BB0: 53 54 45 52 00 D2 13 30 02 43 4D 50 20 23 20 31 |STER...0.CMP # 1|
00000BC0: 39 3A 42 45 51 20 48 4F 4D 20 20 20 20 3B 48 4F |9:BEQ HOM ;HO|
00000BD0: 4D 45 00 F2 13 35 02 43 4D 50 20 23 31 34 31 3A |ME...5.CMP #141:|
00000BE0: 42 45 51 20 53 52 45 54 20 20 20 3B 53 48 8B 54 |BEQ SRET ;SH.T|
00000BF0: AB 8E 00 15 14 3A 02 43 4D 50 20 23 20 32 39 3A |.....:.CMP # 29:|
00000C00: 42 45 51 20 43 B7 20 20 20 3B 43 55 52 53 B0 20 |BEQ C. ;CURS. |
00000C10: 52 49 47 48 54 00 39 14 3F 02 43 4D 50 20 23 20 |RIGHT.9.?.CMP # |
00000C20: 31 37 3A 42 45 51 20 43 55 53 44 20 20 20 3B 43 |17:BEQ CUSD ;C|
00000C30: 55 52 53 B0 20 44 4F 57 4E 00 5B 14 44 02 43 4D |URS. DOWN.[.D.CM|
00000C40: 50 20 23 31 34 35 3A 42 45 51 20 43 55 53 55 20 |P #145:BEQ CUSU |
00000C50: 20 20 3B 43 55 52 53 B0 20 55 50 00 7F 14 49 02 | ;CURS. UP...I.|
00000C60: 43 4D 50 20 23 31 35 37 3A 42 45 51 20 43 55 53 |CMP #157:BEQ CUS|
00000C70: 4C 20 20 20 3B 43 55 52 53 B0 20 4C 45 46 54 00 |L ;CURS. LEFT.|
00000C80: 9D 14 4E 02 43 4D 50 20 23 20 32 30 3A 42 45 51 |..N.CMP # 20:BEQ|
00000C90: 20 44 45 4C 20 20 20 20 3B 44 45 88 45 00 BD 14 | DEL ;DE.E...|
00000CA0: 53 02 43 4D 50 20 23 31 34 38 3A 42 45 51 20 49 |S.CMP #148:BEQ I|
00000CB0: 4E 53 54 20 20 20 3B 49 4E 53 45 52 54 00 DA 14 |NST ;INSERT...|
00000CC0: 58 02 43 4D 50 20 23 31 34 37 3A 42 45 51 20 9C |X.CMP #147:BEQ .|
00000CD0: 20 20 20 20 3B 43 4C 45 41 52 00 E0 14 5D 02 3B | ;CLEAR...].;|
00000CE0: 00 08 15 62 02 3B 20 20 20 AB 20 50 52 55 45 46 |...b.; . PRUEF|
00000CF0: 55 4E 47 20 41 55 46 20 45 52 4C 41 55 42 54 45 |UNG AUF ERLAUBTE|
00000D00: 20 5A 45 49 43 48 45 4E 00 0E 15 67 02 3B 00 31 | ZEICHEN...g.;.1|
00000D10: 15 6C 02 4C 44 59 20 23 32 35 35 20 3B 59 20 41 |.l.LDY #255 ;Y A|
00000D20: 4C 53 20 5A 45 49 47 45 52 20 49 4E 20 54 41 42 |LS ZEIGER IN TAB|
00000D30: 2E 00 4E 15 71 02 45 49 42 20 49 4E 59 20 3B 5A |..N.q.EIB INY ;Z|
00000D40: 45 49 47 45 52 20 45 52 48 4F 45 48 45 4E 00 74 |EIGER ERHOEHEN.t|
00000D50: 15 73 02 4C 44 58 20 45 52 4C 5A 54 2C 59 20 3B |.s.LDX ERLZT,Y ;|
00000D60: 5A 45 49 43 48 45 4E 20 41 55 53 20 54 41 42 2E |ZEICHEN AUS TAB.|
00000D70: 20 48 4F C3 00 8A 15 76 02 42 45 51 20 45 49 41 | HO....v.BEQ EIA|
00000D80: 20 3B 54 41 42 45 4C C3 80 45 00 B1 15 7B 02 43 | ;TABEL..E...{.C|
00000D90: 4D 50 20 45 52 4C 5A 54 2C 59 20 3B 50 52 2E 20 |MP ERLZT,Y ;PR. |
00000DA0: 45 52 4C 41 55 42 54 45 53 20 5A 45 49 43 48 45 |ERLAUBTES ZEICHE|
00000DB0: 4E 00 D0 15 7D 02 42 45 51 20 45 49 45 20 3B 45 |N...}.BEQ EIE ;E|
00000DC0: 52 4C 41 55 42 54 45 53 20 5A 45 49 43 48 45 4E |RLAUBTES ZEICHEN|
00000DD0: 00 F5 15 80 02 43 50 58 20 23 22 85 22 3A 42 4E |.....CPX #".":BN|
00000DE0: 45 20 45 49 43 20 3B 41 55 46 20 46 31 20 50 52 |E EIC ;AUF F1 PR|
00000DF0: 55 45 46 45 4E 00 1A 16 85 02 43 4D 50 20 23 22 |UEFEN.....CMP #"|
00000E00: 30 22 20 3B 46 31 20 AB 20 41 55 46 20 5A 8B 46 |0" ;F1 . AUF Z.F|
00000E10: 45 52 20 50 52 55 45 46 45 4E 00 26 16 87 02 42 |ER PRUEFEN.&...B|
00000E20: 43 43 20 45 49 42 00 35 16 8A 02 43 4D 50 20 23 |CC EIB.5...CMP #|
00000E30: 22 39 22 AA 31 00 52 16 8C 02 42 43 43 20 45 49 |"9".1.R...BCC EI|
00000E40: 45 20 3B 5A 8B 46 45 52 20 AB 20 45 52 4C 41 55 |E ;Z.FER . ERLAU|
00000E50: 42 54 00 73 16 8F 02 45 49 43 20 43 50 58 20 23 |BT.s...EIC CPX #|
00000E60: 22 86 22 20 3B 41 55 46 20 46 33 20 50 52 55 45 |"." ;AUF F3 PRUE|
00000E70: 46 45 4E 00 7F 16 91 02 42 4E 45 20 45 49 44 00 |FEN.....BNE EID.|
00000E80: A4 16 94 02 4A 53 52 20 50 88 20 3B 46 33 20 AB |....JSR P. ;F3 .|
00000E90: 20 41 55 46 20 42 55 43 48 53 54 2E 20 50 52 55 | AUF BUCHST. PRU|
00000EA0: 45 46 45 4E 00 C5 16 99 02 42 43 53 20 45 49 45 |EFEN.....BCS EIE|
00000EB0: 20 3B 42 55 43 48 53 54 41 42 45 20 AB 20 45 52 | ;BUCHSTABE . ER|
00000EC0: 4C 41 55 42 54 00 E6 16 9E 02 45 49 44 20 43 50 |LAUBT.....EID CP|
00000ED0: 58 20 23 22 87 22 20 3B 41 55 46 20 46 35 20 50 |X #"." ;AUF F5 P|
00000EE0: 52 55 45 46 45 4E 00 F2 16 A0 02 42 4E 45 20 45 |RUEFEN.....BNE E|
00000EF0: 49 42 00 19 17 A3 02 43 4D 50 20 23 22 C1 22 3A |IB.....CMP #".":|
00000F00: 42 43 43 20 45 49 42 20 3B 46 35 20 AB 20 41 55 |BCC EIB ;F5 . AU|
00000F10: 46 20 47 45 53 48 8B 54 2E 00 3C 17 A8 02 43 4D |F GESH.T..<...CM|
00000F20: 50 20 23 22 DA 22 AA 31 20 3B 42 55 43 48 53 54 |P #".".1 ;BUCHST|
00000F30: 41 42 45 4E 20 50 52 55 45 46 45 4E 00 58 17 AD |ABEN PRUEFEN.X..|
00000F40: 02 42 43 53 20 45 49 42 20 3B 4B 45 49 4E 20 42 |.BCS EIB ;KEIN B|
00000F50: 55 43 48 53 54 41 42 45 00 78 17 B2 02 45 49 45 |UCHSTABE.x...EIE|
00000F60: 20 4C 44 59 20 B9 20 3B B9 49 54 49 91 20 49 4D | LDY . ;.ITI. IM|
00000F70: 20 54 45 58 54 53 50 2E 00 A1 17 B7 02 50 54 45 | TEXTSP......PTE|
00000F80: 58 54 20 53 54 41 20 54 45 58 54 54 2C 59 20 3B |XT STA TEXTT,Y ;|
00000F90: 5A 45 49 43 48 45 4E 20 53 50 45 49 43 48 45 52 |ZEICHEN SPEICHER|
00000FA0: 4E 00 A7 17 BC 02 3B 00 C7 17 C1 02 3B 20 20 20 |N.....;.....; |
00000FB0: AB 20 53 91 44 45 52 5A 45 49 43 48 45 4E AB 42 |. S.DERZEICHEN.B|
00000FC0: 45 48 AF 4C 55 4E 47 00 CD 17 C6 02 3B 00 EE 17 |EH.LUNG.....;...|
00000FD0: CB 02 43 B7 20 4A 4D 50 20 49 4E 43 55 20 3B 43 |..C. JMP INCU ;C|
00000FE0: 55 52 53 B0 20 4E 2E 20 52 45 43 48 54 53 00 13 |URS. N. RECHTS..|
00000FF0: 18 D0 02 53 52 45 54 20 4C 44 58 20 23 30 30 20 |...SRET LDX #00 |
00001000: 3B 43 55 53 2E 20 41 4E 20 5A 45 49 C3 41 4E 46 |;CUS. AN ZEI.ANF|
00001010: 41 4E 47 00 36 18 D5 02 4C 44 41 20 B9 3A 53 42 |ANG.6...LDA .:SB|
00001020: 43 20 43 55 58 20 3B B9 20 4E 45 55 20 42 45 52 |C CUX ;. NEU BER|
00001030: 45 43 48 4E 45 4E 00 5E 18 DA 02 2E 42 59 54 45 |ECHNEN.^....BYTE|
00001040: 20 24 32 43 20 3B 4E 41 45 43 48 53 54 45 4E 20 | $2C ;NAECHSTEN |
00001050: 42 45 46 2E 20 41 55 53 4C 41 53 53 45 4E 00 7F |BEF. AUSLASSEN..|
00001060: 18 DF 02 43 55 53 44 20 4C 44 41 20 B9 3A 49 4E |...CUSD LDA .:IN|
00001070: 59 20 3B 43 55 52 53 B0 5A 45 49 4C 45 AA 31 00 |Y ;CURS.ZEILE.1.|
00001080: 8B 18 E4 02 43 50 59 20 5A 41 4E 00 A5 18 E9 02 |....CPY ZAN.....|
00001090: 42 43 53 20 43 44 42 20 3B 43 55 59 20 5A 55 20 |BCS CDB ;CUY ZU |
000010A0: 47 52 4F 53 53 00 C2 18 EE 02 41 44 43 20 5A 42 |GROSS.....ADC ZB|
000010B0: 52 20 3B B9 20 4E 45 55 20 42 45 52 45 43 48 4E |R ;. NEU BERECHN|
000010C0: 45 4E 00 EA 18 F3 02 2E 42 59 54 45 20 24 32 34 |EN......BYTE $24|
000010D0: 20 3B 4E 41 45 43 48 53 54 45 4E 20 42 45 46 2E | ;NAECHSTEN BEF.|
000010E0: 20 41 55 53 4C 41 53 53 45 4E 00 04 19 F8 02 43 | AUSLASSEN.....C|
000010F0: 44 42 20 44 45 59 20 3B 43 55 52 53 B0 5A 45 49 |DB DEY ;CURS.ZEI|
00001100: 4C 45 AB 31 00 1F 19 FD 02 43 44 41 20 53 54 41 |LE.1.....CDA STA|
00001110: 20 B9 20 3B B9 20 53 50 45 49 43 48 45 52 4E 00 | . ;. SPEICHERN.|
00001120: 3B 19 02 03 4A 4D 50 20 53 43 55 52 53 20 3B 43 |;...JMP SCURS ;C|
00001130: 55 52 53 B0 20 53 45 54 5A 45 4E 00 4A 19 07 03 |URS. SETZEN.J...|
00001140: 43 55 53 55 20 4C 44 41 20 B9 00 71 19 0C 03 43 |CUSU LDA ..q...C|
00001150: 50 59 20 23 30 30 3A 42 45 51 20 43 44 41 20 3B |PY #00:BEQ CDA ;|
00001160: 43 55 52 53 2E 20 49 4E 20 31 2E 20 5A 45 49 4C |CURS. IN 1. ZEIL|
00001170: 45 00 8E 19 11 03 53 42 43 20 5A 42 52 20 3B B9 |E.....SBC ZBR ;.|
00001180: 20 4E 45 55 20 42 45 52 45 43 48 4E 45 4E 00 AC | NEU BERECHNEN..|
00001190: 19 16 03 42 43 53 20 43 44 42 20 3B 55 4E 42 45 |...BCS CDB ;UNBE|
000011A0: 44 49 4E 47 54 45 52 20 53 50 8A 47 00 CB 19 1B |DINGTER SP.G....|
000011B0: 03 9C 20 4A 53 52 20 43 4C 45 41 52 20 3B 54 45 |.. JSR CLEAR ;TE|
000011C0: 58 54 20 4C 4F 45 53 43 48 45 4E 00 E9 19 20 03 |XT LOESCHEN... .|
000011D0: 4A 4D 50 20 48 4F 4D 20 3B 5A 55 52 20 48 4F 4D |JMP HOM ;ZUR HOM|
000011E0: 45 AB 52 4F 55 54 49 4E 45 00 0A 1A 25 03 44 45 |E.ROUTINE...%.DE|
000011F0: 4C 20 4C 44 59 20 B9 3A 42 45 51 20 49 4E 43 42 |L LDY .:BEQ INCB|
00001200: 20 3B 54 45 58 C0 46 41 4E 47 00 2C 1A 2A 03 44 | ;TEX.FANG.,.*.D|
00001210: 45 42 20 4C 44 41 20 54 45 58 54 54 2C 59 3A 53 |EB LDA TEXTT,Y:S|
00001220: 54 41 20 54 45 58 54 54 AB 31 2C 59 00 4E 1A 2F |TA TEXTT.1,Y.N./|
00001230: 03 49 4E 59 3A 42 4E 45 20 44 45 42 20 3B 54 45 |.INY:BNE DEB ;TE|
00001240: 58 54 20 56 45 52 53 43 48 49 45 42 45 4E 00 61 |XT VERSCHIEBEN.a|
00001250: 1A 34 03 4C 44 41 20 23 33 32 3A 4C 44 58 20 4D |.4.LDA #32:LDX M|
00001260: B9 00 84 1A 39 03 53 54 41 20 54 45 58 54 54 AB |....9.STA TEXTT.|
00001270: 31 2C 58 20 3B 53 50 41 43 45 20 41 4E 20 54 45 |1,X ;SPACE AN TE|
00001280: 58 54 80 45 00 A3 1A 3E 03 43 55 53 4C 20 4A 4D |XT.E...>.CUSL JM|
00001290: 50 20 44 45 43 55 20 3B 43 55 52 53 B0 20 4C 49 |P DECU ;CURS. LI|
000012A0: 4E 4B 53 00 B3 1A 43 03 49 4E 53 54 20 4C 44 59 |NKS...C.INST LDY|
000012B0: 20 4D B9 00 D5 1A 48 03 49 4E 41 20 4C 44 41 20 | M....H.INA LDA |
000012C0: 54 45 58 54 54 AB 31 2C 59 3A 53 54 41 20 54 45 |TEXTT.1,Y:STA TE|
000012D0: 58 54 54 2C 59 00 F5 1A 4D 03 44 45 59 3A 43 50 |XTT,Y...M.DEY:CP|
000012E0: 59 20 B9 20 3B 54 45 58 54 20 56 45 52 53 43 48 |Y . ;TEXT VERSCH|
000012F0: 49 45 42 45 4E 00 19 1B 52 03 42 4E 45 20 49 4E |IEBEN...R.BNE IN|
00001300: 41 20 3B 42 49 53 20 5A 55 52 20 41 55 47 45 4E |A ;BIS ZUR AUGEN|
00001310: 42 4C 2E 20 B9 49 54 49 91 00 25 1B 57 03 4C 44 |BL. .ITI..%.W.LD|
00001320: 41 20 23 33 32 00 46 1B 5C 03 53 54 41 20 54 45 |A #32.F.\.STA TE|
00001330: 58 54 54 2C 59 20 3B 53 50 41 43 45 20 45 49 4E |XTT,Y ;SPACE EIN|
00001340: 46 55 45 47 45 4E 00 65 1B 61 03 42 4E 45 20 49 |FUEGEN.e.a.BNE I|
00001350: 4E 43 42 20 3B 55 4E 42 45 44 49 4E 47 54 45 52 |NCB ;UNBEDINGTER|
00001360: 20 53 50 8A 47 00 6B 1B 84 03 3B 00 85 1B 89 03 | SP.G.k...;.....|
00001370: 3B 20 20 20 AB 20 43 55 52 53 B0 42 45 57 45 47 |; . CURS.BEWEG|
00001380: 55 4E 47 45 4E 00 8B 1B 8E 03 3B 00 A9 1B 93 03 |UNGEN.....;.....|
00001390: 49 4E 43 55 20 4C 44 58 20 43 55 58 20 3B 43 55 |INCU LDX CUX ;CU|
000013A0: 52 53 B0 20 52 49 47 48 54 00 BF 1B 98 03 4C 44 |RS. RIGHT.....LD|
000013B0: 59 20 43 55 59 20 3B 43 B9 20 4C 41 44 45 4E 00 |Y CUY ;C. LADEN.|
000013C0: D3 1B 9D 03 49 4E 58 20 3B 53 50 41 4C 54 45 20 |....INX ;SPALTE |
000013D0: AA 20 31 00 FA 1B A2 03 43 50 58 20 5A 42 52 3A |. 1.....CPX ZBR:|
000013E0: 42 4E 45 20 49 4E 43 43 20 3B 4B 45 49 4E 45 20 |BNE INCC ;KEINE |
000013F0: 4E 45 55 45 20 5A 45 49 4C 45 00 12 1C A7 03 4C |NEUE ZEILE.....L|
00001400: 44 58 20 23 30 30 20 3B 5A 45 49 C3 41 4E 46 41 |DX #00 ;ZEI.ANFA|
00001410: 4E 47 00 25 1C AC 03 49 4E 59 20 3B 5A 45 49 4C |NG.%...INY ;ZEIL|
00001420: 45 20 AA 20 31 00 31 1C B1 03 43 50 59 20 5A 41 |E . 1.1...CPY ZA|
00001430: 4E 00 56 1C B6 03 42 45 51 20 49 4E 43 42 20 3B |N.V...BEQ INCB ;|
00001440: 43 55 52 53 B0 20 52 49 47 48 54 20 55 4E 4D 4F |CURS. RIGHT UNMO|
00001450: 45 47 4C 49 43 48 00 75 1C BB 03 49 4E 43 43 20 |EGLICH.u...INCC |
00001460: 49 4E 43 20 B9 20 3B B9 2E 20 49 4E 20 54 45 58 |INC . ;.. IN TEX|
00001470: 54 20 AA 20 31 00 98 1C C0 03 53 43 55 52 53 20 |T . 1.....SCURS |
00001480: 53 54 58 20 43 55 58 20 3B 52 45 4C 2E 20 43 55 |STX CUX ;REL. CU|
00001490: 52 53 B0 B9 49 54 49 91 00 AF 1C C2 03 53 54 59 |RS..ITI......STY|
000014A0: 20 43 55 59 20 3B 53 50 45 49 43 48 45 52 4E 00 | CUY ;SPEICHERN.|
000014B0: D4 1C C5 03 49 4E 43 42 20 4A 4D 50 20 45 49 4E |....INCB JMP EIN|
000014C0: 20 3B 5A 55 52 20 45 49 4E 47 41 42 45 53 43 48 | ;ZUR EINGABESCH|
000014D0: 4C 45 8B 45 00 F1 1C CA 03 44 45 43 55 20 4C 44 |LE.E.....DECU LD|
000014E0: 59 20 43 55 59 20 3B 43 55 52 53 B0 20 4C 45 46 |Y CUY ;CURS. LEF|
000014F0: 54 00 FD 1C CF 03 4C 44 58 20 43 55 58 00 1F 1D |T.....LDX CUX...|
00001500: D4 03 42 4E 45 20 44 45 43 42 20 3B 4E 49 43 48 |..BNE DECB ;NICH|
00001510: 54 20 41 4D 20 5A 45 49 C3 41 4E 46 41 4E 47 00 |T AM ZEI.ANFANG.|
00001520: 33 1D D9 03 4C 44 58 20 5A 42 52 20 3B 5A 45 49 |3...LDX ZBR ;ZEI|
00001530: C3 80 45 00 3B 1D DE 03 54 59 41 00 5F 1D E0 03 |..E.;...TYA._...|
00001540: 42 45 51 20 49 4E 43 42 20 3B 43 55 52 53 B0 20 |BEQ INCB ;CURS. |
00001550: 4C 45 46 54 20 55 4E 4D 4F 45 47 4C 49 43 48 00 |LEFT UNMOEGLICH.|
00001560: 72 1D E3 03 44 45 59 20 3B 5A 45 49 4C 45 20 AB |r...DEY ;ZEILE .|
00001570: 20 31 00 8B 1D E8 03 44 45 43 42 20 44 45 58 20 | 1.....DECB DEX |
00001580: 3B 53 50 41 4C 54 45 20 AB 20 31 00 A5 1D ED 03 |;SPALTE . 1.....|
00001590: 44 45 43 20 B9 20 3B B9 2E 20 49 4E 20 54 45 58 |DEC . ;.. IN TEX|
000015A0: 54 20 AB 20 31 00 B3 1D F2 03 4A 4D 50 20 53 43 |T . 1.....JMP SC|
000015B0: 55 52 53 00 B9 1D 4C 04 3B 00 D2 1D 51 04 3B 20 |URS...L.;...Q.; |
000015C0: 20 20 AB 20 80 45 20 44 45 52 20 45 49 4E 47 41 | . .E DER EINGA|
000015D0: 42 45 00 D8 1D 56 04 3B 00 F4 1D 5B 04 52 45 54 |BE...V.;...[.RET|
000015E0: 20 53 54 58 20 43 46 4C 47 20 3B 43 55 52 53 B0 | STX CFLG ;CURS.|
000015F0: 20 41 55 53 00 19 1E 60 04 53 42 43 20 23 22 85 | AUS...`.SBC #".|
00001600: 22 AB 32 20 3B 46 54 41 53 54 45 4E 4E 52 2E 20 |".2 ;FTASTENNR. |
00001610: 45 52 52 45 43 48 4E 45 4E 00 2E 1E 65 04 42 43 |ERRECHNEN...e.BC|
00001620: 53 20 52 45 41 20 3B 4E 49 43 48 54 20 8E 00 45 |S REA ;NICHT ..E|
00001630: 1E 6A 04 4C 44 41 20 23 30 30 20 3B 30 30 20 46 |.j.LDA #00 ;00 F|
00001640: 55 45 52 20 8E 00 67 1E 6F 04 52 45 41 20 53 54 |UER ..g.o.REA ST|
00001650: 41 20 53 54 41 54 20 3B 49 4E 20 53 54 20 53 50 |A STAT ;IN ST SP|
00001660: 45 49 43 48 45 52 4E 00 8B 1E 74 04 4A 53 52 20 |EICHERN...t.JSR |
00001670: 57 54 45 58 54 20 3B 54 45 58 54 20 41 55 46 20 |WTEXT ;TEXT AUF |
00001680: 42 53 20 41 55 53 47 45 42 45 4E 00 A9 1E 79 04 |BS AUSGEBEN...y.|
00001690: 52 45 42 20 4C 44 41 20 54 45 58 54 54 AB 31 2C |REB LDA TEXTT.1,|
000016A0: 58 3A 43 4D 50 20 23 33 32 00 C7 1E 7E 04 42 4E |X:CMP #32...~.BN|
000016B0: 45 20 52 45 43 20 3B 54 45 58 54 20 4E 41 43 48 |E REC ;TEXT NACH|
000016C0: 20 55 45 42 45 52 AB 00 E7 1E 80 04 44 45 58 20 | UEBER......DEX |
000016D0: 3B 46 4C 55 45 53 53 49 47 45 4E 20 4C 45 45 52 |;FLUESSIGEN LEER|
000016E0: 5A 45 49 43 48 45 4E 00 00 1F 83 04 42 4E 45 20 |ZEICHEN.....BNE |
000016F0: 52 45 42 20 3B 44 55 52 43 48 53 55 43 48 45 4E |REB ;DURCHSUCHEN|
00001700: 00 10 1F 88 04 52 45 43 20 4C 44 41 20 23 30 30 |.....REC LDA #00|
00001710: 00 30 1F 8D 04 53 54 41 20 54 45 58 54 54 2C 58 |.0...STA TEXTT,X|
00001720: 20 3B 30 30 20 46 55 45 52 20 54 45 58 54 80 45 | ;00 FUER TEXT.E|
00001730: 00 47 1F 92 04 53 54 41 20 8B 4C 47 20 3B 30 30 |.G...STA .LG ;00|
00001740: 20 46 55 45 52 20 85 00 65 1F 97 04 4A 53 52 20 | FUER ..e...JSR |
00001750: 53 56 41 52 20 3B 56 41 52 49 41 42 4C 45 20 53 |SVAR ;VARIABLE S|
00001760: 55 43 48 45 4E 00 72 1F 9C 04 42 49 54 20 54 46 |UCHEN.r...BIT TF|
00001770: 4C 47 00 96 1F A1 04 42 50 4C 20 53 59 4E 45 52 |LG.....BPL SYNER|
00001780: 52 20 3B 4E 55 4D 45 52 49 53 43 48 45 20 56 41 |R ;NUMERISCHE VA|
00001790: 52 49 41 42 4C 45 00 B7 1F A6 04 53 54 41 20 5A |RIABLE.....STA Z|
000017A0: 56 4C 20 3B 5A 45 49 47 45 52 20 41 55 46 20 56 |VL ;ZEIGER AUF V|
000017B0: 41 52 49 41 42 4C 45 00 CE 1F AB 04 53 54 59 20 |ARIABLE.....STY |
000017C0: 5A 56 48 20 3B 53 50 45 49 43 48 45 52 4E 00 EF |ZVH ;SPEICHERN..|
000017D0: 1F B0 04 4C 44 41 20 43 47 4C 3A 4C 44 59 20 43 |...LDA CGL:LDY C|
000017E0: 47 48 20 3B 43 48 52 A1 AB 5A 45 49 47 45 52 00 |GH ;CHR..ZEIGER.|
000017F0: FC 1F B5 04 53 54 41 20 5A 43 47 4C 00 1C 20 BA |....STA ZCGL.. .|
00001800: 04 53 54 59 20 5A 43 47 48 20 3B 5A 57 49 53 43 |.STY ZCGH ;ZWISC|
00001810: 48 45 4E 53 50 45 49 43 48 45 52 4E 00 40 20 BF |HENSPEICHERN.@ .|
00001820: 04 4C 44 41 20 50 54 45 58 54 AA 31 20 3B 41 4E |.LDA PTEXT.1 ;AN|
00001830: 46 41 4E 47 53 41 44 52 45 53 53 45 20 44 45 53 |FANGSADRESSE DES|
00001840: 00 63 20 C4 04 4C 44 59 20 50 54 45 58 54 AA 32 |.c ..LDY PTEXT.2|
00001850: 20 3B 54 45 58 54 45 53 20 55 45 42 45 52 47 45 | ;TEXTES UEBERGE|
00001860: 42 45 4E 00 87 20 C9 04 4A 53 52 20 53 54 48 4F |BEN.. ..JSR STHO|
00001870: 4C 3A 4A 53 52 20 50 52 53 45 54 20 3B 53 54 52 |L:JSR PRSET ;STR|
00001880: 49 4E 47 20 48 4F C3 00 AD 20 CE 04 4A 53 52 20 |ING HO... ..JSR |
00001890: 53 54 52 56 41 52 20 3B 55 4E 44 20 44 45 52 20 |STRVAR ;UND DER |
000018A0: 56 41 52 2E 20 5A 55 57 45 49 53 45 4E 00 D0 20 |VAR. ZUWEISEN.. |
000018B0: D3 04 4C 44 41 20 5A 43 47 4C 3A 4C 44 59 20 5A |..LDA ZCGL:LDY Z|
000018C0: 43 47 48 20 3B 43 48 52 A1 AB 5A 45 49 47 45 52 |CGH ;CHR..ZEIGER|
000018D0: 00 EE 20 D8 04 4A 4D 50 20 43 47 53 45 54 20 3B |.. ..JMP CGSET ;|
000018E0: 57 49 45 44 45 52 48 45 52 53 54 45 4C C3 00 F4 |WIEDERHERSTEL...|
000018F0: 20 DD 04 3B 00 16 21 E2 04 53 59 4E 45 52 52 20 | ..;..!..SYNERR |
00001900: 4A 4D 50 20 24 41 46 30 38 20 3B 53 59 4E 54 41 |JMP $AF08 ;SYNTA|
00001910: 58 20 45 52 52 B0 00 1C 21 D0 07 3B 00 34 21 D5 |X ERR...!..;.4!.|
00001920: 07 3B 20 20 20 AB 20 55 4E 54 45 52 52 4F 55 54 |.; . UNTERROUT|
00001930: 49 4E 45 4E 00 3A 21 DA 07 3B 00 54 21 DF 07 3B |INEN.:!..;.T!..;|
00001940: 20 20 20 20 20 20 AB 20 43 55 52 53 B0 20 53 45 | . CURS. SE|
00001950: 54 5A 45 4E 00 5A 21 E4 07 3B 00 80 21 E9 07 43 |TZEN.Z!..;..!..C|
00001960: 55 53 57 52 54 20 43 4C 43 3A 4C 44 41 20 43 55 |USWRT CLC:LDA CU|
00001970: 59 20 3B 41 55 53 20 52 45 4C 41 54 49 56 45 52 |Y ;AUS RELATIVER|
00001980: 00 9C 21 EE 07 41 44 43 20 59 4C 4F 3A 54 41 58 |..!..ADC YLO:TAX|
00001990: 20 3B 43 55 52 53 B0 B9 49 54 49 91 00 BB 21 F3 | ;CURS..ITI...!.|
000019A0: 07 4C 44 41 20 43 55 58 20 3B B6 4F 4C 55 54 45 |.LDA CUX ;.OLUTE|
000019B0: 20 43 55 52 53 B0 B9 49 54 49 91 00 D6 21 F8 07 | CURS..ITI...!..|
000019C0: 41 44 43 20 58 4C 4F 3A 54 41 59 20 3B 42 45 52 |ADC XLO:TAY ;BER|
000019D0: 45 43 48 4E 45 4E 00 F1 21 FD 07 4A 53 52 20 43 |ECHNEN..!..JSR C|
000019E0: 53 45 54 20 3B 43 55 52 53 B0 20 53 45 54 5A 45 |SET ;CURS. SETZE|
000019F0: 4E 00 F7 21 34 08 3B 00 1D 22 39 08 3B 20 20 20 |N..!4.;.."9.; |
00001A00: 20 20 20 AB 20 54 45 58 54 20 49 4E 20 57 49 4E | . TEXT IN WIN|
00001A10: 44 4F 57 20 53 43 48 52 45 49 42 45 4E 00 23 22 |DOW SCHREIBEN.#"|
00001A20: 3E 08 3B 00 45 22 43 08 57 54 45 58 54 20 4C 44 |>.;.E"C.WTEXT LD|
00001A30: 58 20 23 30 30 20 3B 5A 45 49 47 45 52 20 49 4E |X #00 ;ZEIGER IN|
00001A40: 20 54 45 58 54 00 66 22 48 08 4C 44 41 20 59 4C | TEXT.f"H.LDA YL|
00001A50: 4F 3A 53 54 41 20 43 4E 54 20 3B 5A 45 49 C3 5A |O:STA CNT ;ZEI.Z|
00001A60: 41 45 48 4C 45 52 00 80 22 4D 08 57 54 41 20 4C |AEHLER.."M.WTA L|
00001A70: 44 59 20 43 4E 54 20 3B 42 53 AB 5A 45 49 4C 45 |DY CNT ;BS.ZEILE|
00001A80: 00 9B 22 52 08 4C 44 41 20 5A 41 4E 46 4C 2C 59 |.."R.LDA ZANFL,Y|
00001A90: 20 3B 5A 45 49 47 45 52 20 49 4E 00 BB 22 57 08 | ;ZEIGER IN.."W.|
00001AA0: 53 54 41 20 50 4F 4C 20 3B 42 49 4C 44 53 43 48 |STA POL ;BILDSCH|
00001AB0: 49 52 4D 53 50 45 49 43 48 45 52 00 DC 22 5C 08 |IRMSPEICHER.."\.|
00001AC0: 53 54 41 20 43 4F 4C 4C 20 3B 55 4E 44 20 46 41 |STA COLL ;UND FA|
00001AD0: 52 42 52 41 4D 20 53 45 54 5A 45 4E 00 F2 22 61 |RBRAM SETZEN.."a|
00001AE0: 08 4C 44 41 20 5A 41 4E 46 48 2C 59 3A AF 20 23 |.LDA ZANFH,Y:. #|
00001AF0: 30 33 00 0A 23 66 08 50 48 41 3A B0 41 20 56 52 |03..#f.PHA:.A VR|
00001B00: 41 4D 3A 53 54 41 20 50 4F 48 00 23 23 6B 08 50 |AM:STA POH.##k.P|
00001B10: 4C 41 3A B0 41 20 23 24 44 38 3A 53 54 41 20 43 |LA:.A #$D8:STA C|
00001B20: 4F 4C 48 00 42 23 70 08 4C 44 59 20 58 4C 4F 20 |OLH.B#p.LDY XLO |
00001B30: 3B 53 50 41 4C 54 45 4E 20 AB 20 5A 41 45 48 4C |;SPALTEN . ZAEHL|
00001B40: 45 52 00 63 23 75 08 57 54 42 20 4C 44 41 20 54 |ER.c#u.WTB LDA T|
00001B50: 45 58 54 54 2C 58 20 3B 5A 45 49 43 48 45 4E 20 |EXTT,X ;ZEICHEN |
00001B60: 48 4F C3 00 83 23 7A 08 42 43 57 AF 20 42 4D 49 |HO...#z.BCW. BMI|
00001B70: 20 42 43 41 20 3B 55 4D 57 AF 4C 55 4E 47 20 C6 | BCA ;UMW.LUNG .|
00001B80: 49 49 AB 00 A0 23 7F 08 43 4D 50 20 23 39 36 3A |II...#..CMP #96:|
00001B90: 42 43 43 20 42 43 41 20 3B 43 4F 44 45 20 49 4E |BCC BCA ;CODE IN|
00001BA0: 00 C1 23 84 08 AF 20 23 25 31 31 30 31 31 31 31 |..#... #%1101111|
00001BB0: 31 20 3B 42 49 4C 44 53 43 48 49 52 4D 43 4F 44 |1 ;BILDSCHIRMCOD|
00001BC0: 45 00 CD 23 89 08 42 4E 45 20 42 43 42 00 E2 23 |E..#..BNE BCB..#|
00001BD0: 8E 08 42 43 41 20 AF 20 23 25 31 30 31 31 31 31 |..BCA . #%101111|
00001BE0: 31 31 00 00 24 93 08 42 43 42 20 42 50 4C 20 42 |11..$..BCB BPL B|
00001BF0: 43 45 3A 45 B0 20 23 25 31 31 30 30 30 30 30 30 |CE:E. #%11000000|
00001C00: 00 26 24 98 08 42 43 45 20 53 54 41 20 28 50 4F |.&$..BCE STA (PO|
00001C10: 4C 29 2C 59 20 3B 5A 45 49 43 48 45 4E 20 49 4E |L),Y ;ZEICHEN IN|
00001C20: 20 42 53 52 41 4D 00 42 24 9D 08 4C 44 41 20 43 | BSRAM.B$..LDA C|
00001C30: 43 4F 4C 20 3B 53 43 48 52 45 49 42 45 4E 20 55 |COL ;SCHREIBEN U|
00001C40: 4E 44 00 61 24 A2 08 53 54 41 20 28 43 4F 4C 4C |ND.a$..STA (COLL|
00001C50: 29 2C 59 20 3B 46 41 52 42 45 20 53 45 54 5A 45 |),Y ;FARBE SETZE|
00001C60: 4E 00 7D 24 A7 08 49 4E 58 20 3B 5A 45 49 47 45 |N.}$..INX ;ZEIGE|
00001C70: 52 20 49 4E 20 54 45 58 54 20 AA 20 31 00 99 24 |R IN TEXT . 1..$|
00001C80: AC 08 49 4E 59 20 3B 53 50 41 4C 54 45 4E 5A 41 |..INY ;SPALTENZA|
00001C90: 45 48 4C 45 52 20 AA 20 31 00 A5 24 B1 08 43 50 |EHLER . 1..$..CP|
00001CA0: 59 20 58 52 55 00 C9 24 B6 08 42 43 43 20 57 54 |Y XRU..$..BCC WT|
00001CB0: 42 20 3B 4E 4F 43 48 20 4E 49 43 48 54 20 88 5A |B ;NOCH NICHT .Z|
00001CC0: 54 45 20 53 50 41 4C 54 45 00 E6 24 BB 08 49 4E |TE SPALTE..$..IN|
00001CD0: 43 20 43 4E 54 20 3B 5A 45 49 C3 5A 41 45 48 4C |C CNT ;ZEI.ZAEHL|
00001CE0: 45 52 20 AA 20 31 00 01 25 C0 08 43 50 58 20 4D |ER . 1..%..CPX M|
00001CF0: B9 20 3B 50 52 2E 20 41 55 46 20 54 45 58 54 80 |. ;PR. AUF TEXT.|
00001D00: 45 00 20 25 C5 08 42 43 43 20 57 54 41 20 3B 4E |E. %..BCC WTA ;N|
00001D10: 4F 43 48 20 4E 49 43 48 54 20 54 45 58 54 80 45 |OCH NICHT TEXT.E|
00001D20: 00 28 25 CA 08 52 54 53 00 2E 25 FC 08 3B 00 50 |.(%..RTS..%..;.P|
00001D30: 25 01 09 3B 20 20 20 20 20 20 AB 20 4B 4F B0 44 |%..; . KO.D|
00001D40: 49 4E 41 54 45 4E 50 41 41 52 20 4C 45 53 45 4E |INATENPAAR LESEN|
00001D50: 00 56 25 06 09 3B 00 7C 25 0B 09 52 4B 4F B0 44 |.V%..;.|%..RKO.D|
00001D60: 20 4A 53 52 20 50 4B 4F 4D 20 3B 41 55 46 20 4B | JSR PKOM ;AUF K|
00001D70: 4F 4D 4D 41 20 50 52 55 45 46 45 4E 00 A1 25 10 |OMMA PRUEFEN..%.|
00001D80: 09 53 54 58 20 5A 53 50 20 3B 5A 41 45 48 4C 45 |.STX ZSP ;ZAEHLE|
00001D90: 52 20 46 55 45 52 20 4B 4F B0 44 49 4E 41 54 45 |R FUER KO.DINATE|
00001DA0: 4E 00 C0 25 15 09 4A 53 52 20 52 42 59 54 45 20 |N..%..JSR RBYTE |
00001DB0: 3B 42 59 54 45 AB 57 45 52 54 20 4C 45 53 45 4E |;BYTE.WERT LESEN|
00001DC0: 00 E4 25 1A 09 43 50 58 20 23 34 30 20 3B 50 52 |..%..CPX #40 ;PR|
00001DD0: 2E 20 B3 20 34 30 20 28 58 AB 4B 4F B0 44 49 4E |. . 40 (X.KO.DIN|
00001DE0: 41 54 45 29 00 09 26 1F 09 42 43 53 20 49 4C 4C |ATE)..&..BCS ILL|
00001DF0: 45 52 52 20 3B 4E 45 49 4E 20 AB 20 46 45 48 4C |ERR ;NEIN . FEHL|
00001E00: 45 52 4D 45 4C 44 55 4E 47 00 2F 26 24 09 4C 44 |ERMELDUNG./&$.LD|
00001E10: 59 20 5A 53 50 3A 53 54 58 20 58 4C 4F 2C 59 20 |Y ZSP:STX XLO,Y |
00001E20: 3B 57 45 52 54 20 53 50 45 49 43 48 45 52 4E 00 |;WERT SPEICHERN.|
00001E30: 4F 26 29 09 4A 53 52 20 50 52 42 59 54 45 20 3B |O&).JSR PRBYTE ;|
00001E40: 42 59 54 45 AB 57 45 52 54 20 4C 45 53 45 4E 00 |BYTE.WERT LESEN.|
00001E50: 6C 26 2E 09 43 50 58 20 23 32 35 20 3B 50 52 2E |l&..CPX #25 ;PR.|
00001E60: 20 B3 20 32 35 20 28 59 AB 4B 2E 29 00 81 26 33 | . 25 (Y.K.)..&3|
00001E70: 09 42 43 53 20 49 4C 4C 45 52 52 20 3B 4E 45 49 |.BCS ILLERR ;NEI|
00001E80: 4E 00 A4 26 38 09 4C 44 59 20 5A 53 50 3A 53 54 |N..&8.LDY ZSP:ST|
00001E90: 58 20 58 4C 4F AA 31 2C 59 20 3B 53 50 45 49 43 |X XLO.1,Y ;SPEIC|
00001EA0: 48 45 52 4E 00 AC 26 3D 09 52 54 53 00 B2 26 42 |HERN..&=.RTS..&B|
00001EB0: 09 3B 00 D8 26 47 09 49 4C 4C 45 52 52 20 4A 4D |.;..&G.ILLERR JM|
00001EC0: 50 20 24 42 32 34 38 20 3B 49 4C 4C 45 47 41 4C |P $B248 ;ILLEGAL|
00001ED0: 20 51 2E 20 45 52 52 B0 00 DE 26 60 09 3B 00 03 | Q. ERR...&`.;..|
00001EE0: 27 65 09 3B 20 20 20 20 20 20 AB 20 57 49 4E 44 |'e.; . WIND|
00001EF0: 4F 57 50 41 52 41 4D 45 54 45 52 20 26 20 54 45 |OWPARAMETER & TE|
00001F00: 58 54 AB 00 1D 27 6A 09 3B 20 20 20 20 20 20 20 |XT...'j.; |
00001F10: 20 53 54 52 49 4E 47 20 4C 45 53 45 4E 00 23 27 | STRING LESEN.#'|
00001F20: 6B 09 3B 00 44 27 74 09 B9 87 20 4C 44 58 20 23 |k.;.D't... LDX #|
00001F30: 30 30 20 3B 31 2E 4B 4F B0 44 49 4E 41 54 45 4E |00 ;1.KO.DINATEN|
00001F40: 50 41 41 52 00 5B 27 79 09 4A 53 52 20 52 4B 4F |PAAR.['y.JSR RKO|
00001F50: B0 44 AA 33 20 3B 4C 45 53 45 4E 00 78 27 7E 09 |.D.3 ;LESEN.x'~.|
00001F60: 4C 44 58 20 23 30 32 3A 4A 53 52 20 52 4B 4F B0 |LDX #02:JSR RKO.|
00001F70: 44 20 3B 32 2E 20 27 27 00 9B 27 83 09 49 4E 43 |D ;2. ''..'..INC|
00001F80: 20 58 52 55 20 3B 28 42 45 53 53 45 52 20 56 45 | XRU ;(BESSER VE|
00001F90: 52 41 52 42 45 49 54 42 41 52 29 00 C2 27 88 09 |RARBEITBAR)..'..|
00001FA0: 53 45 43 3A 4C 44 41 20 58 52 55 20 3B 42 52 45 |SEC:LDA XRU ;BRE|
00001FB0: 49 54 45 20 44 45 53 20 57 49 4E 44 4F 57 53 20 |ITE DES WINDOWS |
00001FC0: AA 31 00 D9 27 8D 09 53 42 43 20 58 4C 4F 20 3B |.1..'..SBC XLO ;|
00001FD0: 42 45 52 45 43 48 4E 45 4E 00 F5 27 92 09 42 43 |BERECHNEN..'..BC|
00001FE0: 43 20 49 4C 4C 45 52 52 20 3B B3 30 20 AB 20 46 |C ILLERR ;.0 . F|
00001FF0: 45 48 4C 45 52 00 10 28 97 09 53 54 41 20 5A 42 |EHLER..(..STA ZB|
00002000: 52 20 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4E |R ;UND SPEICHERN|
00002010: 00 2F 28 9C 09 54 58 41 20 3B 48 4F 45 48 45 20 |./(..TXA ;HOEHE |
00002020: 44 45 53 20 57 49 4E 44 4F 57 53 20 AA 20 31 00 |DES WINDOWS . 1.|
00002030: 46 28 A1 09 53 42 43 20 59 4C 4F 20 3B 42 45 52 |F(..SBC YLO ;BER|
00002040: 45 43 48 4E 45 4E 00 65 28 A6 09 42 43 43 20 49 |ECHNEN.e(..BCC I|
00002050: 4C 4C 45 52 52 3A 41 44 43 20 23 30 30 3A 53 54 |LLERR:ADC #00:ST|
00002060: 41 20 5A 41 4E 00 84 28 AB 09 54 41 58 20 3B 48 |A ZAN..(..TAX ;H|
00002070: 4F 45 48 45 20 28 49 4E 20 58 AB 52 45 47 2E 29 |OEHE (IN X.REG.)|
00002080: 20 4D 49 54 00 AB 28 B0 09 4C 44 41 20 23 30 30 | MIT..(..LDA #00|
00002090: 20 3B 42 52 45 49 54 45 20 4D 41 4C 4E 45 48 4D | ;BREITE MALNEHM|
000020A0: 45 4E 20 B2 20 4C 41 45 4E 47 45 00 CE 28 B5 09 |EN . LAENGE..(..|
000020B0: 50 4F 41 20 41 44 43 20 5A 42 52 20 3B 44 45 53 |POA ADC ZBR ;DES|
000020C0: 20 45 49 4E 47 41 42 45 54 45 58 54 45 53 00 EC | EINGABETEXTES..|
000020D0: 28 BA 09 42 43 53 20 49 4C 4C 45 52 52 20 3B B1 |(..BCS ILLERR ;.|
000020E0: 32 35 35 20 AB 20 46 45 48 4C 45 52 00 FC 28 BF |255 . FEHLER..(.|
000020F0: 09 44 45 58 3A 42 4E 45 20 50 4F 41 00 19 29 C4 |.DEX:BNE POA..).|
00002100: 09 53 54 41 20 4D B9 20 3B 4C 41 45 4E 47 45 20 |.STA M. ;LAENGE |
00002110: 53 50 45 49 43 48 45 52 4E 00 39 29 C9 09 43 4C |SPEICHERN.9)..CL|
00002120: 45 41 52 20 4C 44 59 20 23 30 30 20 3B 54 45 58 |EAR LDY #00 ;TEX|
00002130: 54 53 50 45 49 43 48 45 52 00 4F 29 CE 09 4C 44 |TSPEICHER.O)..LD|
00002140: 41 20 23 33 32 20 3B 4C 4F 45 53 43 48 45 4E 00 |A #32 ;LOESCHEN.|
00002150: 71 29 D3 09 43 4C 45 41 20 53 54 41 20 54 45 58 |q)..CLEA STA TEX|
00002160: 54 54 2C 59 3A 49 4E 59 3A 42 4E 45 20 43 4C 45 |TT,Y:INY:BNE CLE|
00002170: 41 00 77 29 28 0A 3B 00 9D 29 2D 0A 3B 20 20 20 |A.w)(.;..)-.; |
00002180: 20 20 20 AB 20 53 54 52 49 4E 47 20 4C 45 53 45 | . STRING LESE|
00002190: 4E 20 26 20 53 50 45 49 43 48 45 52 4E 00 A3 29 |N & SPEICHERN..)|
000021A0: 32 0A 3B 00 C8 29 37 0A 52 53 54 52 49 4E 47 54 |2.;..)7.RSTRINGT|
000021B0: 20 4C 44 41 20 50 54 45 58 54 AA 31 20 3B 5A 45 | LDA PTEXT.1 ;ZE|
000021C0: 49 47 45 52 20 41 55 46 00 E6 29 3C 0A 4C 44 58 |IGER AUF..)<.LDX|
000021D0: 20 50 54 45 58 54 AA 32 20 3B 54 45 58 54 53 50 | PTEXT.2 ;TEXTSP|
000021E0: 45 49 43 48 45 52 00 07 2A 41 0A 52 53 54 52 49 |EICHER..*A.RSTRI|
000021F0: 4E 47 20 53 54 41 20 50 4F 4C 20 3B 5A 45 49 47 |NG STA POL ;ZEIG|
00002200: 45 52 20 46 55 45 52 00 29 2A 46 0A 53 54 58 20 |ER FUER.)*F.STX |
00002210: 50 4F 48 20 3B 53 50 45 49 43 48 45 8A 47 20 44 |POH ;SPEICHE.G D|
00002220: 2E 20 53 54 52 49 4E 47 53 00 48 2A 4B 0A 4A 53 |. STRINGS.H*K.JS|
00002230: 52 20 43 CB 54 20 3B 88 5A 54 45 53 20 5A 45 49 |R C.T ;.ZTES ZEI|
00002240: 43 48 45 4E 20 48 4F C3 00 64 2A 50 0A 43 4D 50 |CHEN HO..d*P.CMP|
00002250: 20 23 22 2C 22 20 3B 50 52 2E 20 41 55 46 20 4B | #"," ;PR. AUF K|
00002260: 4F 4D 4D 41 00 8B 2A 55 0A 42 4E 45 20 52 53 54 |OMMA..*U.BNE RST|
00002270: 45 20 3B 4E 45 49 4E 20 AB 20 4B 45 49 4E 20 53 |E ;NEIN . KEIN S|
00002280: 54 52 49 4E 47 20 46 4F 4C 47 54 00 AF 2A 5A 0A |TRING FOLGT..*Z.|
00002290: 4A 53 52 20 43 A1 3A 4A 53 52 20 46 52 4D 45 56 |JSR C.:JSR FRMEV|
000022A0: 4C 20 3B 53 54 52 49 4E 47 20 4C 45 53 45 4E 00 |L ;STRING LESEN.|
000022B0: CD 2A 5F 0A 4A 53 52 20 B8 53 54 52 20 3B 26 20 |.*_.JSR .STR ;& |
000022C0: 50 41 52 41 4D 45 54 45 52 20 48 4F C3 00 D9 2A |PARAMETER HO...*|
000022D0: 64 0A 4C 44 59 20 23 30 30 00 FD 2A 69 0A 54 41 |d.LDY #00..*i.TA|
000022E0: 58 20 3B 4C 41 45 4E 47 45 20 44 2E 20 53 54 52 |X ;LAENGE D. STR|
000022F0: 49 4E 47 20 49 4E 20 58 AB 52 45 47 2E 00 16 2B |ING IN X.REG...+|
00002300: 6E 0A 42 45 51 20 52 53 54 45 20 3B 4C 41 45 4E |n.BEQ RSTE ;LAEN|
00002310: 47 45 20 B2 20 30 00 36 2B 73 0A 52 53 54 42 20 |GE . 0.6+s.RSTB |
00002320: 4C 44 41 20 28 53 54 5A 29 2C 59 20 3B 53 54 52 |LDA (STZ),Y ;STR|
00002330: 49 4E 47 20 49 4E 00 59 2B 78 0A 53 54 41 20 28 |ING IN.Y+x.STA (|
00002340: 50 4F 4C 29 2C 59 20 3B 53 50 45 49 43 48 45 52 |POL),Y ;SPEICHER|
00002350: 20 28 50 4F 4C AD 48 20 B2 00 7E 2B 7D 0A 49 4E | (POL.H ..~+}.IN|
00002360: 59 20 3B 41 4E 46 41 4E 47 53 41 44 52 45 53 53 |Y ;ANFANGSADRESS|
00002370: 45 29 20 56 45 52 53 43 48 49 45 42 45 4E 00 8F |E) VERSCHIEBEN..|
00002380: 2B 82 0A 44 45 58 3A 42 4E 45 20 52 53 54 42 00 |+..DEX:BNE RSTB.|
00002390: 9C 2B 87 0A 52 53 54 45 20 52 54 53 00 A2 2B B8 |.+..RSTE RTS..+.|
000023A0: 0B 3B 00 B9 2B BD 0B 3B 20 20 20 AB 20 54 45 58 |.;..+..; . TEX|
000023B0: 54 53 50 45 49 43 48 45 52 00 BF 2B C2 0B 3B 00 |TSPEICHER..+..;.|
000023C0: CD 2B C7 0B 54 45 58 54 54 20 B2 20 AC 00 00 00 |.+..TEXTT . ....|
.......9.4096:.OPT O,OO.#.....$C000.I...
XLO . $F7 ;KO.DINATEN DER LINKEN.Q...YL
O . $F8 ;OBEREN ECKE DES WINDOWS.....XR
U . $F9 ;KO.DINATEN DER RECHTEN.A...YRU
. $FA ;UNTEREN ECKE DES WINDOWS.....ZS
P . $AA ;ZWISCHENSPEICHER.....FKEY . $F
B ;SPEICHER F. FTASTEN.....CNT . $57 ;Z
AEHLER.B...CUX . $A8 ;RELATIVE CURS..IT
I..H...CUY . $A9 ;INNERHALB DES WINDOWS
... .POL . $AA ;ZWEI.BYTE ZAEHLER...!.P
OH . $AB ;FUER DIVERSE ZWECKE.R.".. .
$FC ;.ITI. IM TEXTSPEICHER...$.ZBR . $F
D ;BREITE DES WINDOWS...&.ZAN . $FE ;HO
EHE DES WINDOWS.>.(.M. . $FF ;LAENGE DES
TEXTSPEICHERS.[.*.STZ . $22 ;STRINGZEI
GER.Y.,.STAT . $90 ;STATUS . BYTE.....CF
LG . $CC ;FLAG FUER CURS..A.0.CREP . $CD
;ZAEHLER F. CURS.BLINKEN...2..LG . $11
;FLAG F. .,.,....4.TFLG . $0D ;TYPFLAG (
NUMER..STRING)...6.CGL . $7A.<.8.CGH .
$7B ;ZEIGER D. CHR..ROUTINE.B.:.ZCGL .
$4B ;ZWISCHENSPEICHER FUER.~.;.ZCGH . $4
C ;CHR..ZEIGER...<.ZVL . $49 ;ZEIGER AU
F...=.ZVH . $4A ;VARIABCWERT.D.>.COLL .
$14...?.COLH . $15 ;ZEIGER IN FARBRAM..
.@.VRAM .$288 ;HIGH.BYTE VIDEO.RAM.+.B.C
COL .$286 ;FARBE DES CURS.S.T.D.ERLZT .$
33C;TAB. F. ERLAUBTE ZEICHEN.Z.D.RBYTE
. $B79E ;1.BYTE.WERT LESEN. .F.PKOM .
$AEFD ;AUF KOMMA PRUEFEN.H.G.PCHAR . $A
EFF ;AUF ZEICHEN PRUEFEN...H.FRMEVL . $A
D9E ;AUSDRUCK AUWERTEN...J..STR . $B6A3
;STRINGVERWALTUNG.1.L.CKT . $0079 ;.ZT
ES Z. HOC.T.N.C. . $0073 ;NAECHSTES Z.
HOC.H.P.. . $FFE4 ;....R.ZANFL . $E
CF0 ;TAB. D. BILDSCHIRM....S.ZANFH . $D
9 ;ZEICANFAENGE.R.T.CSET . $FFF0 ;CU
RS. SETZEN...V.P. . $B113 ;PRUEF. AUF
BUCHST....X.SVAR . $B08B ;VARIABLE SUC
HEN.A.Z.CGSET . $AB76 ;CHR.ZEIGER SETZE
N.`.|.STHOL . $B487 ;STRING HOC...~.PRS
ET . $B7E2 ;PRGZEIGER SETZEN.....STRVAR
. $A9DA ;STRING AN VAR ZUW..P...PRBYTE
. $B7F1 ;S.O. NACH KOMMA.....CRBYTE . $B
79B ;S.O. MIT CHR....H.;...M.; AUSGABE I
N WINDOW...R.;.-.W.. JSR .. ;TEXT HOC.T.
..JMP WTEXT ;UND IN WINDOW SCHREIBEN.Z.,
.;.R.1.; EINGABE IN WINDOW.X.6.;...8.;
. PARAMETER EINLESEN...9.;...;.. JSR ..
;KO.D. & TEXT.R.@.LDA #.ERLZT:LDX #.ERL
ZT...E.JSR RSTRING ;ERLAUBTE ZEICHEN LES
EN...J.TXA:BNE PEB ;ALTE EINSTELLUNG.B.L
.STA (POL),Y ;TAB MIT 0 .CHLIESSEN.C.O.P
EB JSR CKT:CMP #",":BNE PEA...T.JSR CRBY
TE ;ANZAHL D. FTASTEN HOC. .Y.CPX #09 ;V
GL. .. 8.C.[.BCS PEA ;NEIN . NICHT BEACH
TEN...^.TXA:ADC #133 ;IN FII UMRECHNEN..
._.STA FKEY ;UND SPEICHERN...C.PEA LDA #
";".7.H.JSR PCHAR ;AUF SEMIKOL. PRUEFEN.
=...;.Z...; . EINGABE V.BEREITEN.`...;
.....HOM LDY #00:STY CUX ;CURS. IN. ...S
TY CUY ;LINKE OBERE ECKE.....STY CFLG ;C
URS. EIN.O...STY . ;AN TEX.FANG.U...;...
..; . EINGABE.....;.....EIN JSR CUSWRT
;TEXT SCHREIBEN.3...EIA JSR . ;ZEICHEN
V. TASTATUR.D...BEQ EIA ;HOC.H...LDX #02
:STX CREP ;REPEATFUNKTI..N...;.....; .
PRUEFUNG AUF S.DERZEICHEN.....;.....CMP
#".":BCC E4 ;AUF FTASTE PRUEFEN.....CMP
FKEY ;PR. ERLAUBTE FTASTE.....BCC E5 ;J
A . WIE ......CMP #".".1 ;PR. NICHT .. F
TASTE.>...BCC EIA ;JA . NICHT BEACHTEN.T
.!.E4 CMP #13 ;PR. ..H.#.BNE E3 ;NICHT .
.Z.&.E5 JMP RET ;....+.E3 LDX CUX ;CURS.
.ITI. IN...-.LDY CUY ;X.Y . REGISTER.R.0
.CMP # 19:BEQ HOM ;HOME...5.CMP #141:
BEQ SRET ;SH.T.....:.CMP # 29:BEQ C.
;CURS. RIGHT.9.?.CMP # 17:BEQ CUSD ;C
URS. DOWN.[.D.CMP #145:BEQ CUSU ;CURS.
UP..I.CMP #157:BEQ CUSL ;CURS. LEFT.
..N.CMP # 20:BEQ DEL ;DE.E...S.CMP #1
48:BEQ INST ;INSERT.Z.X.CMP #147:BEQ .
;CLEAR...].;...B.; . PRUEFUNG AUF
ERLAUBTE ZEICHEN...G.;.1.L.LDY #255 ;Y A
LS ZEIGER IN TAB..N.Q.EIB INY ;ZEIGER ER
HOEHEN.T.S.LDX ERLZT,Y ;ZEICHEN AUS TAB.
HOC...V.BEQ EIA ;TABELC.E...{.CMP ERLZT
,Y ;PR. ERLAUBTES ZEICHEN.P.}.BEQ EIE ;E
RLAUBTES ZEICHEN.....CPX #".":BNE EIC ;A
UF F1 PRUEFEN.....CMP #"0" ;F1 . AUF Z.F
ER PRUEFEN.&...BCC EIB.5...CMP #"9".1.R.
..BCC EIE ;Z.FER . ERLAUBT.S...EIC CPX #
"." ;AUF F3 PRUEFEN....BNE EID.....JSR
P. ;F3 . AUF BUCHST. PRUEFEN.E...BCS EIE
;BUCHSTABE . ERLAUBT.....EID CPX #"." ;
AUF F5 PRUEFEN... .BNE EIB.....CMP #"A":
BCC EIB ;F5 . AUF GESH.T..<...CMP #"Z".1
;BUCHSTABEN PRUEFEN.X...BCS EIB ;KEIN B
UCHSTABE.X...EIE LDY . ;.ITI. IM TEXTSP.
.....PTEXT STA TEXTT,Y ;ZEICHEN SPEICHER
N.....;.G.A.; . S.DERZEICHEN.BEH.LUNG.
M.F.;...K.C. JMP INCU ;CURS. N. RECHTS..
.P.SRET LDX #00 ;CUS. AN ZEICANFANG.6.U.
LDA .:SBC CUX ;. NEU BERECHNEN.^.Z..BYTE
$2C ;NAECHSTEN BEF. AUSLASSEN....CUSD
LDA .:INY ;CURS.ZEILE.1.....CPY ZAN.....
BCS CDB ;CUY ZU GROSS.B...ADC ZBR ;. NEU
BERECHNEN......BYTE $24 ;NAECHSTEN BEF.
AUSLASSEN.....CDB DEY ;CURS.ZEILE.1....
.CDA STA . ;. SPEICHERN.;...JMP SCURS ;C
URS. SETZEN.J...CUSU LDA ..Q...CPY #00:B
EQ CDA ;CURS. IN 1. ZEILE.....SBC ZBR ;.
NEU BERECHNEN.....BCS CDB ;UNBEDINGTER
SP.G.K.... JSR CLEAR ;TEXT LOESCHEN... .
JMP HOM ;ZUR HOME.ROUTINE...%.DEL LDY .:
BEQ INCB ;TEX.FANG.,.*.DEB LDA TEXTT,Y:S
TA TEXTT.1,Y.N./.INY:BNE DEB ;TEXT VERSC
HIEBEN.A.4.LDA #32:LDX M....9.STA TEXTT.
1,X ;SPACE AN TEXT.E...>.CUSL JMP DECU ;
CURS. LINKS...C.INST LDY M..U.H.INA LDA
TEXTT.1,Y:STA TEXTT,Y...M.DEY:CPY . ;TEX
T VERSCHIEBEN...R.BNE INA ;BIS ZUR AUGEN
BL. .ITI..%.W.LDA #32.F.\.STA TEXTT,Y ;S
PACE EINFUEGEN.E.A.BNE INCB ;UNBEDINGTER
SP.G.K...;.....; . CURS.BEWEGUNGEN...
..;.....INCU LDX CUX ;CURS. RIGHT.....LD
Y CUY ;C. LADEN.S...INX ;SPALTE . 1.....
CPX ZBR:BNE INCC ;KEINE NEUE ZEILE.....L
DX #00 ;ZEICANFANG.%...INY ;ZEILE . 1.1.
..CPY ZAN.V...BEQ INCB ;CURS. RIGHT UNMO
EGLICH.U...INCC INC . ;.. IN TEXT . 1...
..SCURS STX CUX ;REL. CURS..ITI....B.STY
CUY ;SPEICHERN.T.E.INCB JMP EIN ;ZUR EI
NGABESCHLE.E...J.DECU LDY CUY ;CURS. LEF
T...O.LDX CUX...T.BNE DECB ;NICHT AM ZEI
CANFANG.3.Y.LDX ZBR ;ZEIC.E.;...TYA._...
BEQ INCB ;CURS. LEFT UNMOEGLICH.R...DEY
;ZEILE . 1.....DECB DEX ;SPALTE . 1.....
DEC . ;.. IN TEXT . 1.....JMP SCURS...L.
;.R.Q.; . .E DER EINGABE.X.V.;...[.RET
STX CFLG ;CURS. AUS...`.SBC #".".2 ;FTA
STENNR. ERRECHNEN...E.BCS REA ;NICHT ..E
.J.LDA #00 ;00 FUER ..G.O.REA STA STAT ;
IN ST SPEICHERN...T.JSR WTEXT ;TEXT AUF
BS AUSGEBEN...Y.REB LDA TEXTT.1,X:CMP #3
2.G.~.BNE REC ;TEXT NACH UEBER......DEX
;FLUESSIGEN LEERZEICHEN.....BNE REB ;DUR
CHSUCHEN.....REC LDA #00.0...STA TEXTT,X
;00 FUER TEXT.E.G...STA .LG ;00 FUER ..
E...JSR SVAR ;VARIABLE SUCHEN.R...BIT TF
LG.....BPL SYNERR ;NUMERISCHE VARIABLE..
...STA ZVL ;ZEIGER AUF VARIABLE.N...STY
ZVH ;SPEICHERN.....LDA CGL:LDY CGH ;CHR.
.ZEIGER.....STA ZCGL.. ..STY ZCGH ;ZWISC
HENSPEICHERN.@ ..LDA PTEXT.1 ;ANFANGSADR
ESSE DES.C D.LDY PTEXT.2 ;TEXTES UEBERGE
BEN.. I.JSR STHOL:JSR PRSET ;STRING HOC.
. N.JSR STRVAR ;UND DER VAR. ZUWEISEN.P
S.LDA ZCGL:LDY ZCGH ;CHR..ZEIGER.. X.JMP
CGSET ;WIEDERHERSTELC.. ..;..!..SYNERR
JMP $AF08 ;SYNTAX ERR...!P.;.4!U.; . U
NTERROUTINEN.:!Z.;.T!..; . CURS. SE
TZEN.Z!..;..!..CUSWRT CLC:LDA CUY ;AUS R
ELATIVER..!..ADC YLO:TAX ;CURS..ITI...!.
.LDA CUX ;.OLUTE CURS..ITI..V!..ADC XLO:
TAY ;BERECHNEN..!..JSR CSET ;CURS. SETZE
N..!4.;.."9.; . TEXT IN WINDOW SCHR
EIBEN.#">.;.E"C.WTEXT LDX #00 ;ZEIGER IN
TEXT.F"H.LDA YLO:STA CNT ;ZEICZAEHLER..
"M.WTA LDY CNT ;BS.ZEILE.."R.LDA ZANFL,Y
;ZEIGER IN.."W.STA POL ;BILDSCHIRMSPEIC
HER.."\.STA COLL ;UND FARBRAM SETZEN.."A
.LDA ZANFH,Y:. #03..#F.PHA:.A VRAM:STA P
OH.##K.PLA:.A #$D8:STA COLH.B#P.LDY XLO
;SPALTEN . ZAEHLER.C#U.WTB LDA TEXTT,X ;
ZEICHEN HOC..#Z.BCW. BMI BCA ;UMW.LUNG F
II.. #.CMP #96:BCC BCA ;CODE IN.A#... #
%11011111 ;BILDSCHIRMCODE.M#..BNE BCB..#
..BCA . #%10111111..$..BCB BPL BCE:E. #%
11000000.&$..BCE STA (POL),Y ;ZEICHEN IN
BSRAM.B$..LDA CCOL ;SCHREIBEN UND.A$..S
TA (COLL),Y ;FARBE SETZEN.}$..INX ;ZEIGE
R IN TEXT . 1..$..INY ;SPALTENZAEHLER .
1..$..CPY XRU.I$..BCC WTB ;NOCH NICHT .Z
TE SPALTE..$..INC CNT ;ZEICZAEHLER . 1..
%..CPX M. ;PR. AUF TEXT.E. %E.BCC WTA ;N
OCH NICHT TEXT.E.(%J.RTS..%..;.P%..;
. KO.DINATENPAAR LESEN.V%..;.|%..RKO.D
JSR PKOM ;AUF KOMMA PRUEFEN..%..STX ZSP
;ZAEHLER FUER KO.DINATEN..%..JSR RBYTE
;BYTE.WERT LESEN..%..CPX #40 ;PR. . 40 (
X.KO.DINATE)..&..BCS ILLERR ;NEIN . FEHL
ERMELDUNG./&$.LDY ZSP:STX XLO,Y ;WERT SP
EICHERN.O&).JSR PRBYTE ;BYTE.WERT LESEN.
L&..CPX #25 ;PR. . 25 (Y.K.)..&3.BCS ILL
ERR ;NEIN..&8.LDY ZSP:STX XLO.1,Y ;SPEIC
HERN..&=.RTS..&B.;.X&G.ILLERR JMP $B248
;ILLEGAL Q. ERR...&`.;..'E.; . WIND
OWPARAMETER & TEXT...'J.; STRING
LESEN.#'K.;.D'T... LDX #00 ;1.KO.DINATEN
PAAR.['Y.JSR RKO.D.3 ;LESEN.X'~.LDX #02:
JSR RKO.D ;2. ''..'..INC XRU ;(BESSER VE
RARBEITBAR).B'..SEC:LDA XRU ;BREITE DES
WINDOWS .1.Y'..SBC XLO ;BERECHNEN..'..BC
C ILLERR ;.0 . FEHLER..(..STA ZBR ;UND S
PEICHERN./(..TXA ;HOEHE DES WINDOWS . 1.
F(..SBC YLO ;BERECHNEN.E(..BCC ILLERR:AD
C #00:STA ZAN..(..TAX ;HOEHE (IN X.REG.)
MIT..(..LDA #00 ;BREITE MALNEHMEN . LAE
NGE.N(..POA ADC ZBR ;DES EINGABETEXTES..
(..BCS ILLERR ;.255 . FEHLER..(..DEX:BNE
POA..)D.STA M. ;LAENGE SPEICHERN.9)I.CL
EAR LDY #00 ;TEXTSPEICHER.O)N.LDA #32 ;L
OESCHEN.Q)S.CLEA STA TEXTT,Y:INY:BNE CLE
A.W)(.;..)-.; . STRING LESEN & SPEI
CHERN..)2.;.H)7.RSTRINGT LDA PTEXT.1 ;ZE
IGER AUF..)<.LDX PTEXT.2 ;TEXTSPEICHER..
*A.RSTRING STA POL ;ZEIGER FUER.)*F.STX
POH ;SPEICHE.G D. STRINGS.H*K.JSR CKT ;.
ZTES ZEICHEN HOC.D*P.CMP #"," ;PR. AUF K
OMMA..*U.BNE RSTE ;NEIN . KEIN STRING FO
LGT..*Z.JSR C.:JSR FRMEVL ;STRING LESEN.
M*_.JSR .STR ;& PARAMETER HOC.Y*D.LDY #0
0..*I.TAX ;LAENGE D. STRING IN X.REG...+
N.BEQ RSTE ;LAENGE . 0.6+S.RSTB LDA (STZ
),Y ;STRING IN.Y+X.STA (POL),Y ;SPEICHER
(POL.H ..~+}.INY ;ANFANGSADRESSE) VERSC
HIEBEN..+..DEX:BNE RSTB..+..RSTE RTS..+.
.;..+..; . TEXTSPEICHER..+B.;.M+G.TEXT
T . ....
> CLICK IMAGE PREVIEW FOR FULL MODAL