EDIT 1
FILE INFORMATION
FILENAME(S): EDIT 1
FILE TYPE(S): PRG
FILE SIZE: 14.4K
FIRST SEEN: 2025-10-20 14:29:46
APPEARS ON: 4 disk(s)
FILE HASH
79f3a4351a0560360ef83c1f90c25a238df4aeeb77cb28cba200ed668110633c
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | EDIT 1 | PRG | Treasure Chest - Klaus Der Suhler | 10 | 13 | DOWNLOAD FILE |
| GRUNDWERKSDISK 1 | EDIT 1 | PRG | Treasure Chest - Klaus Der Suhler | 8 | 10 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | EDIT 1 | PRG | Treasure Chest - Klaus Der Suhler | 10 | 13 | DOWNLOAD FILE |
| ORION CEBIT | EDIT 1 | PRG | Treasure Chest - OzzyC64 | 14 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 88 39 3B 3B 3B 2D 2D 2D 20 D1 55 45 4C 4C 44 41 |.9;;;--- .UELLDA| 00000010: 54 45 49 20 45 44 49 54 20 31 00 20 00 20 00 3B |TEI EDIT 1. . .;| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 |*******.;* * | 00000050: 20 20 20 20 20 20 C5 20 C4 20 C9 20 D4 20 CF 20 | . . . . . | 00000060: D2 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 2A |. * *| 00000070: 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 45 44 49 54 |*********. .EDIT| 000000A0: 49 4E 49 54 3A 4C 44 58 23 31 32 38 3B C5 44 49 |INIT:LDX#128;.DI| 000000B0: 54 4F 52 20 49 4E 49 54 49 41 4C 49 53 49 45 52 |TOR INITIALISIER| 000000C0: 45 4E 00 53 54 58 53 43 52 4F 4C 4C 46 4C 41 47 |EN.STXSCROLLFLAG| 000000D0: 00 4C 44 41 46 4C 41 47 53 3B 4B 45 49 4E 20 D5 |.LDAFLAGS;KEIN .| 000000E0: 50 44 41 54 45 00 41 4E 44 23 25 31 31 31 31 31 |PDATE.AND#%11111| 000000F0: 31 31 00 53 54 41 46 4C 41 47 53 00 4C 44 41 41 |11.STAFLAGS.LDAA| 00000100: 53 53 46 4C 32 3B 41 53 53 46 4C 32 20 52 55 45 |SSFL2;ASSFL2 RUE| 00000110: 43 4B 53 45 54 5A 45 4E 00 41 4E 44 23 25 31 31 |CKSETZEN.AND#%11| 00000120: 31 31 31 31 31 30 00 53 54 41 41 53 53 46 4C 32 |111110.STAASSFL2| 00000130: 00 52 54 53 00 20 00 45 44 49 54 4F 52 3A 4C 44 |.RTS. .EDITOR:LD| 00000140: 58 23 30 3B DA 45 49 4C 45 20 31 00 53 54 58 43 |X#0;.EILE 1.STXC| 00000150: 5A 45 49 4C 2B 31 00 53 54 58 42 49 4C 44 5A 45 |ZEIL+1.STXBILDZE| 00000160: 49 4C 45 2B 31 00 49 4E 58 00 53 54 58 43 5A 45 |ILE+1.INX.STXCZE| 00000170: 49 4C 00 53 54 58 43 53 50 41 4C 3B D3 50 41 4C |IL.STXCSPAL;.PAL| 00000180: 54 45 20 31 00 53 54 58 42 49 4C 44 5A 45 49 4C |TE 1.STXBILDZEIL| 00000190: 45 00 4A 53 52 45 44 49 54 49 4E 49 54 3B C5 44 |E.JSREDITINIT;.D| 000001A0: 49 54 20 49 4E 49 54 2E 00 4A 53 52 43 4C 52 53 |IT INIT..JSRCLRS| 000001B0: 43 52 3B C2 49 4C 44 20 4C 4F 45 53 43 48 45 4E |CR;.ILD LOESCHEN| 000001C0: 00 4A 53 52 4E 45 58 54 5A 45 49 00 4A 53 52 42 |.JSRNEXTZEI.JSRB| 000001D0: 49 4C 44 3B C2 49 4C 44 20 41 55 46 42 41 55 45 |ILD;.ILD AUFBAUE| 000001E0: 4E 00 45 44 42 45 46 3A 4A 53 52 43 52 53 52 4F |N.EDBEF:JSRCRSRO| 000001F0: 4E 3B C3 55 52 53 4F 52 20 41 4E 00 4A 53 52 47 |N;.URSOR AN.JSRG| 00000200: 45 54 3B DA 45 49 43 48 45 4E 20 48 4F 4C 45 4E |ET;.EICHEN HOLEN| 00000210: 00 53 54 41 4C 41 53 54 43 48 52 00 50 48 41 00 |.STALASTCHR.PHA.| 00000220: 4A 53 52 43 52 53 52 4F 46 46 3B C3 55 52 53 4F |JSRCRSROFF;.URSO| 00000230: 52 20 41 55 53 00 50 4C 41 00 43 4D 50 23 31 33 |R AUS.PLA.CMP#13| 00000240: 3B 3C D2 45 54 55 52 4E 3E 20 3F 00 42 4E 45 4E |;<.ETURN> ?.BNEN| 00000250: 4F 43 52 00 20 00 3B 2A 2A 20 D2 C5 D4 D5 D2 CE |OCR. .;** ......| 00000260: 20 D4 41 53 54 45 20 41 42 41 52 42 45 49 54 45 | .ASTE ABARBEITE| 00000270: 4E 00 4A 53 52 55 50 44 41 54 45 4E 3B CA 41 00 |N.JSRUPDATEN;.A.| 00000280: 4C 44 41 46 4C 41 47 53 3B 49 4E 53 45 52 54 20 |LDAFLAGS;INSERT | 00000290: 3F 00 41 4E 44 23 34 00 42 45 51 4E 4F 49 4E 53 |?.AND#4.BEQNOINS| 000002A0: 00 53 45 43 00 4C 44 41 43 5A 45 49 4C 3B 5A 41 |.SEC.LDACZEIL;ZA| 000002B0: 48 4C 31 3D 4D 4F 4D 2E 20 DA 45 49 4C 45 2B 31 |HL1=MOM. .EILE+1| 000002C0: 00 41 44 43 23 30 00 53 54 41 5A 41 48 4C 31 00 |.ADC#0.STAZAHL1.| 000002D0: 4C 44 41 43 5A 45 49 4C 2B 31 00 41 44 43 23 30 |LDACZEIL+1.ADC#0| 000002E0: 00 53 54 41 5A 41 48 4C 31 2B 31 00 4A 53 52 44 |.STAZAHL1+1.JSRD| 000002F0: 45 4C 45 44 42 55 00 4A 53 52 49 4E 53 5A 45 49 |ELEDBU.JSRINSZEI| 00000300: 4C 45 3B DA 45 49 4C 45 20 45 49 4E 46 55 45 47 |LE;.EILE EINFUEG| 00000310: 45 4E 00 4E 4F 49 4E 53 3A 4C 44 41 43 53 50 41 |EN.NOINS:LDACSPA| 00000320: 4C 3B D3 43 52 4F 4C 4C 45 4E 20 3F 00 43 4D 50 |L;.CROLLEN ?.CMP| 00000330: 23 33 32 00 50 48 50 3B C5 52 47 45 42 4E 49 53 |#32.PHP;.RGEBNIS| 00000340: 20 4D 45 52 4B 45 4E 00 4C 44 58 23 30 3B D3 50 | MERKEN.LDX#0;.P| 00000350: 41 4C 54 45 20 30 00 53 54 58 53 50 41 4C 54 45 |ALTE 0.STXSPALTE| 00000360: 00 49 4E 58 00 53 54 58 43 53 50 41 4C 00 4A 53 |.INX.STXCSPAL.JS| 00000370: 52 44 4F 57 4E 3B C5 49 4E 45 20 DA 45 49 4C 45 |RDOWN;.INE .EILE| 00000380: 20 54 49 45 46 45 52 00 50 4C 50 00 42 43 53 4E | TIEFER.PLP.BCSN| 00000390: 45 57 53 43 52 45 45 4E 3B D3 43 52 4F 4C 4C 45 |EWSCREEN;.CROLLE| 000003A0: 4E 00 4C 44 41 46 4C 41 47 53 3B 49 4E 53 45 52 |N.LDAFLAGS;INSER| 000003B0: 54 20 3F 00 41 4E 44 23 34 00 42 45 51 45 44 42 |T ?.AND#4.BEQEDB| 000003C0: 45 46 00 4E 45 57 53 43 52 45 45 4E 3A 4A 53 52 |EF.NEWSCREEN:JSR| 000003D0: 42 49 4C 44 3B CE 45 55 45 53 20 C2 49 4C 44 20 |BILD;.EUES .ILD | 000003E0: 42 45 49 20 C9 4E 53 45 52 54 00 4A 4D 50 45 44 |BEI .NSERT.JMPED| 000003F0: 42 45 46 3B CE 41 43 48 53 54 45 53 20 DA 45 49 |BEF;.ACHSTES .EI| 00000400: 43 48 45 4E 00 20 00 3B 2A 2A 20 C1 4E 44 45 52 |CHEN. .;** .NDER| 00000410: 45 20 D4 41 53 54 45 4E 00 4E 4F 43 52 3A 42 49 |E .ASTEN.NOCR:BI| 00000420: 54 46 4C 41 47 53 3B 51 55 4F 54 45 20 CD 4F 44 |TFLAGS;QUOTE .OD| 00000430: 45 20 3F 00 42 56 43 54 53 54 53 54 3B CE 45 49 |E ?.BVCTSTST;.EI| 00000440: 4E 00 4C 44 41 4C 41 53 54 43 48 52 00 4A 4D 50 |N.LDALASTCHR.JMP| 00000450: 54 45 58 54 42 45 46 45 00 54 53 54 53 54 3A 4C |TEXTBEFE.TSTST:L| 00000460: 44 41 53 54 54 41 53 54 3B C3 D4 D2 CC 2D D4 41 |DASTTAST;....-.A| 00000470: 53 54 45 20 3F 00 41 4E 44 23 34 00 42 4E 45 2A |STE ?.AND#4.BNE*| 00000480: 2B 35 00 4A 4D 50 54 45 58 54 42 45 46 3B CE 45 |+5.JMPTEXTBEF;.E| 00000490: 49 4E 00 20 00 3B 2A 2A 20 C3 D4 D2 CC 20 D4 41 |IN. .;** .... .A| 000004A0: 53 54 45 00 4C 44 58 23 30 3B C5 44 49 54 4F 52 |STE.LDX#0;.DITOR| 000004B0: 2D C2 45 46 45 48 4C 20 48 4F 4C 45 4E 00 4A 53 |-.EFEHL HOLEN.JS| 000004C0: 52 43 4C 52 4C 49 4E 45 3B D3 54 41 54 55 53 20 |RCLRLINE;.TATUS | 000004D0: DA 45 49 4C 45 20 4C 4F 45 53 43 48 45 4E 00 4C |.EILE LOESCHEN.L| 000004E0: 44 41 5A 45 49 4C 45 00 4C 44 58 53 50 41 4C 54 |DAZEILE.LDXSPALT| 000004F0: 45 00 53 54 41 5A 41 48 4C 32 00 53 54 58 5A 41 |E.STAZAHL2.STXZA| 00000500: 48 4C 32 2B 31 00 4A 53 52 48 4F 4D 45 00 4C 44 |HL2+1.JSRHOME.LD| 00000510: 41 23 53 54 41 54 43 4F 4C 3B C6 41 52 42 45 20 |A#STATCOL;.ARBE | 00000520: 41 45 4E 44 45 52 4E 00 4A 53 52 53 43 52 41 55 |AENDERN.JSRSCRAU| 00000530: 53 00 4C 44 58 23 38 00 4A 53 52 57 52 49 54 45 |S.LDX#8.JSRWRITE| 00000540: 00 4A 53 52 43 52 53 52 4F 4E 3B C3 55 52 53 4F |.JSRCRSRON;.URSO| 00000550: 52 20 4F 4E 00 47 45 54 32 3A 43 4C 49 3B C2 45 |R ON.GET2:CLI;.E| 00000560: 46 45 48 4C 20 48 4F 4C 45 4E 00 4A 53 52 47 45 |FEHL HOLEN.JSRGE| 00000570: 54 52 00 42 45 51 47 45 54 32 00 53 45 49 00 43 |TR.BEQGET2.SEI.C| 00000580: 4D 50 23 31 33 3B C3 D2 20 3F 00 42 45 51 45 4E |MP#13;.. ?.BEQEN| 00000590: 44 47 45 54 32 3B CB 45 49 4E 20 C2 45 46 45 48 |DGET2;.EIN .EFEH| 000005A0: 4C 00 43 4D 50 23 27 41 3B C5 49 4E 47 41 42 45 |L.CMP#'A;.INGABE| 000005B0: 20 47 55 45 4C 54 49 47 20 3F 00 42 43 43 47 45 | GUELTIG ?.BCCGE| 000005C0: 54 32 00 43 4D 50 23 27 5A 2B 31 00 42 43 53 47 |T2.CMP#'Z+1.BCSG| 000005D0: 45 54 32 00 4A 53 52 53 43 52 41 4E 5A 3B C5 49 |ET2.JSRSCRANZ;.I| 000005E0: 4E 47 41 42 45 20 41 4E 5A 45 49 47 45 4E 00 45 |NGABE ANZEIGEN.E| 000005F0: 4E 44 47 45 54 32 3A 50 48 41 00 4A 53 52 43 52 |NDGET2:PHA.JSRCR| 00000600: 53 52 4F 46 46 00 4C 44 58 5A 41 48 4C 32 3B C3 |SROFF.LDXZAHL2;.| 00000610: 55 52 53 4F 52 20 57 49 44 45 52 20 41 55 46 20 |URSOR WIDER AUF | 00000620: 41 4C 54 45 20 D0 4F 53 49 54 49 4F 4E 00 4C 44 |ALTE .OSITION.LD| 00000630: 59 5A 41 48 4C 32 2B 31 00 4A 53 52 53 45 54 43 |YZAHL2+1.JSRSETC| 00000640: 52 53 52 00 50 4C 41 00 20 00 53 45 49 3B C2 45 |RSR.PLA. .SEI;.E| 00000650: 46 45 48 4C 20 53 55 43 48 45 4E 00 4C 44 58 23 |FEHL SUCHEN.LDX#| 00000660: 45 44 42 45 46 54 41 42 2D 45 44 42 45 46 45 48 |EDBEFTAB-EDBEFEH| 00000670: 4C 45 2D 31 00 53 55 43 48 45 44 42 45 46 3A 43 |LE-1.SUCHEDBEF:C| 00000680: 4D 50 45 44 42 45 46 45 48 4C 45 2C 58 00 42 45 |MPEDBEFEHLE,X.BE| 00000690: 51 46 4F 45 44 42 45 46 3B 47 45 46 55 4E 44 45 |QFOEDBEF;GEFUNDE| 000006A0: 4E 00 44 45 58 00 42 50 4C 53 55 43 48 45 44 42 |N.DEX.BPLSUCHEDB| 000006B0: 45 46 00 4C 44 58 23 32 30 3B C2 45 46 45 48 4C |EF.LDX#20;.EFEHL| 000006C0: 20 55 4E 42 45 4B 41 4E 4E 54 00 4A 53 52 45 44 | UNBEKANNT.JSRED| 000006D0: 45 52 52 4F 52 00 4A 4D 50 45 44 42 45 46 00 20 |ERROR.JMPEDBEF. | 000006E0: 00 46 4F 45 44 42 45 46 3A 43 4D 50 23 27 59 3B |.FOEDBEF:CMP#'Y;| 000006F0: 59 2D C2 45 46 45 48 4C 20 3F 00 42 45 51 4E 4F |Y-.EFEHL ?.BEQNO| 00000700: 55 44 00 43 4D 50 23 31 33 3B 3C D2 C5 D4 D5 D2 |UD.CMP#13;<.....| 00000710: CE 3E 20 3F 00 42 45 51 4E 4F 55 44 00 54 58 41 |.> ?.BEQNOUD.TXA| 00000720: 3B C2 45 46 45 48 4C 53 4E 55 4D 4D 45 52 20 4D |;.EFEHLSNUMMER M| 00000730: 45 52 4B 45 4E 00 50 48 41 00 4A 53 52 55 50 44 |ERKEN.PHA.JSRUPD| 00000740: 41 54 45 4E 00 50 4C 41 00 4E 4F 55 44 43 4F 4E |ATEN.PLA.NOUDCON| 00000750: 54 3A 41 53 4C 3B C2 45 46 45 48 4C 41 44 52 45 |T:ASL;.EFEHLADRE| 00000760: 53 53 45 20 48 4F 4C 45 4E 00 54 41 58 00 4C 44 |SSE HOLEN.TAX.LD| 00000770: 41 45 44 42 45 46 54 41 42 2B 31 2C 58 00 50 48 |AEDBEFTAB+1,X.PH| 00000780: 41 00 4C 44 41 45 44 42 45 46 54 41 42 2C 58 00 |A.LDAEDBEFTAB,X.| 00000790: 50 48 41 00 52 54 53 3B 5A 55 4D 20 C2 45 46 45 |PHA.RTS;ZUM .EFE| 000007A0: 48 4C 20 53 50 52 49 4E 47 45 4E 00 4E 4F 55 44 |HL SPRINGEN.NOUD| 000007B0: 3A 54 58 41 00 4A 4D 50 4E 4F 55 44 43 4F 4E 54 |:TXA.JMPNOUDCONT| 000007C0: 00 20 00 3B D4 41 42 45 4C 4C 45 20 44 45 52 20 |. .;.ABELLE DER | 000007D0: C5 44 49 54 4F 52 42 45 46 45 48 4C 45 20 4D 49 |.DITORBEFEHLE MI| 000007E0: 54 20 C1 44 52 45 53 53 45 4E 00 45 44 42 45 46 |T .DRESSEN.EDBEF| 000007F0: 45 48 4C 45 3A 2E 42 59 22 58 45 4E 44 43 4D 57 |EHLE:.BY"XENDCMW| 00000800: 49 50 54 47 4F 46 53 51 41 42 59 5A 4B 4C 52 22 |IPTGOFSQABYZKLR"| 00000810: 2C 31 33 00 45 44 42 45 46 54 41 42 3A 2E 57 4F |,13.EDBEFTAB:.WO| 00000820: 44 45 4C 54 45 58 54 2D 31 3B 58 2D D4 45 58 54 |DELTEXT-1;X-.EXT| 00000830: 20 4C 4F 45 53 43 48 45 4E 00 2E 57 4F 44 45 4C | LOESCHEN..WODEL| 00000840: 4C 49 4E 45 2D 31 3B 45 2D DA 45 49 4C 45 20 4C |LINE-1;E-.EILE L| 00000850: 4F 45 53 43 48 45 4E 00 2E 57 4F 4E 45 57 4C 49 |OESCHEN..WONEWLI| 00000860: 4E 45 2D 31 3B 4E 2D DA 45 49 4C 45 20 45 49 4E |NE-1;N-.EILE EIN| 00000870: 46 55 45 47 45 4E 00 2E 57 4F 42 4C 4F 43 4B 44 |FUEGEN..WOBLOCKD| 00000880: 45 4C 2D 31 3B 44 2D C2 4C 4F 43 4B 20 4C 4F 45 |EL-1;D-.LOCK LOE| 00000890: 53 43 48 45 4E 00 2E 57 4F 42 4C 4F 43 4B 43 4F |SCHEN..WOBLOCKCO| 000008A0: 50 59 2D 31 3B 43 2D C2 4C 4F 43 4B 20 4B 4F 50 |PY-1;C-.LOCK KOP| 000008B0: 49 45 52 45 4E 00 2E 57 4F 42 4C 4F 43 4B 4D 4F |IEREN..WOBLOCKMO| 000008C0: 56 45 2D 31 3B 4D 2D C2 4C 4F 43 4B 20 56 45 52 |VE-1;M-.LOCK VER| 000008D0: 53 43 48 49 45 42 45 4E 00 2E 57 4F 42 4C 4F 57 |SCHIEBEN..WOBLOW| 000008E0: 52 49 54 45 2D 31 3B 57 2D C2 4C 4F 43 4B 20 44 |RITE-1;W-.LOCK D| 000008F0: 52 55 43 4B 45 4E 00 2E 57 4F 54 4F 47 49 4E 53 |RUCKEN..WOTOGINS| 00000900: 2D 31 3B 49 2D C9 4E 53 45 52 54 20 CD 4F 44 45 |-1;I-.NSERT .ODE| 00000910: 00 2E 57 4F 54 4F 47 50 41 43 4B 2D 31 3B 50 2D |..WOTOGPACK-1;P-| 00000920: D0 41 43 4B 20 CD 4F 44 45 00 2E 57 4F 54 4F 47 |.ACK .ODE..WOTOG| 00000930: 46 4F 52 4D 2D 31 3B 54 2D C6 4F 52 4D 41 54 20 |FORM-1;T-.ORMAT | 00000940: CD 4F 44 45 00 2E 57 4F 47 4F 54 4F 2D 31 3B 47 |.ODE..WOGOTO-1;G| 00000950: 2D C7 4F 54 4F 20 DA 45 49 4C 45 00 2E 57 4F 4F |-.OTO .EILE..WOO| 00000960: 4C 44 2D 31 3B 4F 2D CF 4C 44 20 C2 45 46 45 48 |LD-1;O-.LD .EFEH| 00000970: 4C 00 2E 57 4F 46 49 4E 44 2D 31 3B 46 2D D3 55 |L..WOFIND-1;F-.U| 00000980: 43 48 45 4E 00 2E 57 4F 52 45 50 4C 41 43 45 2D |CHEN..WOREPLACE-| 00000990: 31 3B 53 2D C5 52 53 45 54 5A 45 4E 00 2E 57 4F |1;S-.RSETZEN..WO| 000009A0: 45 4E 44 45 44 49 54 2D 31 3B 51 2D DA 55 4D 20 |ENDEDIT-1;Q-.UM | 000009B0: CD 45 4E 55 45 00 2E 57 4F 42 4C 4F 42 45 47 2D |.ENUE..WOBLOBEG-| 000009C0: 31 3B 41 2D C2 4C 4F 43 4B 20 C1 4E 46 41 4E 47 |1;A-.LOCK .NFANG| 000009D0: 00 2E 57 4F 42 4C 4F 45 4E 44 45 2D 31 3B 42 2D |..WOBLOENDE-1;B-| 000009E0: C2 4C 4F 43 4B 20 C5 4E 44 45 00 2E 57 4F 44 45 |.LOCK .NDE..WODE| 000009F0: 4C 4B 4F 52 52 2D 31 3B 59 2D CB 4F 52 52 45 4B |LKORR-1;Y-.ORREK| 00000A00: 54 55 52 20 4C 4F 45 53 43 48 45 4E 00 2E 57 4F |TUR LOESCHEN..WO| 00000A10: 44 45 4C 42 4C 4F 44 45 46 2D 31 3B 5A 2D C2 4C |DELBLODEF-1;Z-.L| 00000A20: 4F 43 4B 44 45 46 2E 20 4C 4F 45 53 43 48 45 4E |OCKDEF. LOESCHEN| 00000A30: 00 2E 57 4F 4B 49 4C 4C 2D 31 3B 4B 2D DA 45 49 |..WOKILL-1;K-.EI| 00000A40: 4C 45 4E 49 4E 48 41 4C 54 20 4C 4F 45 53 43 48 |LENINHALT LOESCH| 00000A50: 45 4E 00 2E 57 4F 4C 45 4B 49 4C 4C 2D 31 3B 4C |EN..WOLEKILL-1;L| 00000A60: 2D CC 49 4E 4B 53 20 56 4F 4D 20 C3 55 52 53 4F |-.INKS VOM .URSO| 00000A70: 52 20 4C 4F 45 53 43 48 45 4E 00 2E 57 4F 52 49 |R LOESCHEN..WORI| 00000A80: 4B 49 4C 4C 2D 31 3B 52 2D D2 45 43 48 54 53 20 |KILL-1;R-.ECHTS | 00000A90: 56 4F 4D 20 C3 55 52 53 4F 52 20 4C 4F 45 53 43 |VOM .URSOR LOESC| 00000AA0: 48 45 4E 00 2E 57 4F 45 44 42 45 46 2D 31 3B 52 |HEN..WOEDBEF-1;R| 00000AB0: 45 54 55 52 4E 00 20 00 45 4E 44 45 44 49 54 3A |ETURN. .ENDEDIT:| 00000AC0: 4A 53 52 43 52 53 52 4F 46 46 3B DA 55 4D 20 CD |JSRCRSROFF;.UM .| 00000AD0: 45 4E 55 45 00 4A 4D 50 4D 41 49 4E 00 20 00 46 |ENUE.JMPMAIN. .F| 00000AE0: 41 52 42 45 3A 4C 44 41 23 54 45 58 54 43 4F 4C |ARBE:LDA#TEXTCOL| 00000AF0: 3B C6 41 52 42 45 20 41 55 53 47 45 42 45 4E 00 |;.ARBE AUSGEBEN.| 00000B00: 4A 53 52 53 43 52 41 55 53 3B D4 45 58 54 46 41 |JSRSCRAUS;.EXTFA| 00000B10: 52 42 45 00 4A 53 52 42 4C 4F 43 4B 54 45 53 54 |RBE.JSRBLOCKTEST| 00000B20: 3B C3 52 53 52 20 49 4D 20 C2 4C 4F 43 4B 20 3F |;.RSR IM .LOCK ?| 00000B30: 00 43 4D 50 23 32 32 00 42 4E 45 46 41 52 42 4E |.CMP#22.BNEFARBN| 00000B40: 4F 52 4D 00 4C 44 41 23 42 4C 43 4B 43 4F 4C 3B |ORM.LDA#BLCKCOL;| 00000B50: C2 4C 4F 43 4B 46 41 52 42 45 00 4A 53 52 53 43 |.LOCKFARBE.JSRSC| 00000B60: 52 41 55 53 00 46 41 52 42 4E 4F 52 4D 3A 52 54 |RAUS.FARBNORM:RT| 00000B70: 53 00 20 00 54 45 58 54 42 45 46 3A 4A 53 52 46 |S. .TEXTBEF:JSRF| 00000B80: 41 52 42 45 3B D4 45 58 54 42 45 46 45 48 4C 00 |ARBE;.EXTBEFEHL.| 00000B90: 4C 44 41 4C 41 53 54 43 48 52 00 53 45 49 00 4A |LDALASTCHR.SEI.J| 00000BA0: 53 52 46 4B 54 54 41 53 54 3B C6 55 4E 4B 54 49 |SRFKTTAST;.UNKTI| 00000BB0: 4F 4E 53 54 41 53 54 45 20 3F 00 43 4D 50 23 30 |ONSTASTE ?.CMP#0| 00000BC0: 00 42 4E 45 54 53 54 43 52 53 52 3B CE 45 49 4E |.BNETSTCRSR;.EIN| 00000BD0: 00 4C 44 41 23 31 32 38 00 53 54 41 53 43 52 4F |.LDA#128.STASCRO| 00000BE0: 4C 4C 46 4C 41 47 00 42 4E 45 54 4F 45 44 42 45 |LLFLAG.BNETOEDBE| 00000BF0: 46 00 54 53 54 43 52 53 52 3A 4C 44 41 4C 41 53 |F.TSTCRSR:LDALAS| 00000C00: 54 43 48 52 3B C3 D2 D3 D2 2D D4 41 53 54 45 20 |TCHR;....-.ASTE | 00000C10: 3F 00 4A 53 52 43 52 53 52 54 41 53 54 00 43 4D |?.JSRCRSRTAST.CM| 00000C20: 50 23 30 00 42 45 51 54 4F 45 44 42 45 46 00 20 |P#0.BEQTOEDBEF. | 00000C30: 00 4C 44 41 4C 41 53 54 43 48 52 00 43 4D 50 23 |.LDALASTCHR.CMP#| 00000C40: 32 30 3B C4 C5 CC 2D D4 41 53 54 45 20 3F 00 42 |20;...-.ASTE ?.B| 00000C50: 45 51 44 4F 55 50 44 41 54 45 00 43 4D 50 23 31 |EQDOUPDATE.CMP#1| 00000C60: 34 38 3B C9 CE D3 2D D4 41 53 54 45 20 3F 00 42 |48;...-.ASTE ?.B| 00000C70: 45 51 44 4F 55 50 44 41 54 45 00 41 4E 44 23 25 |EQDOUPDATE.AND#%| 00000C80: 31 31 31 31 31 31 31 3B C5 49 4E 47 41 42 45 20 |1111111;.INGABE | 00000C90: 5A 55 4C 41 45 53 53 49 47 20 3F 00 43 4D 50 23 |ZULAESSIG ?.CMP#| 00000CA0: 33 32 00 42 43 43 54 4F 45 44 42 45 46 00 43 4D |32.BCCTOEDBEF.CM| 00000CB0: 50 23 39 36 00 42 43 53 54 4F 45 44 42 45 46 00 |P#96.BCSTOEDBEF.| 00000CC0: 44 4F 55 50 44 41 54 45 3A 4A 53 52 45 44 55 50 |DOUPDATE:JSREDUP| 00000CD0: 44 41 54 45 4E 00 4C 44 41 46 4C 41 47 53 3B C9 |DATEN.LDAFLAGS;.| 00000CE0: 4E 53 45 52 54 20 CD 4F 44 45 20 3F 00 41 4E 44 |NSERT .ODE ?.AND| 00000CF0: 23 34 00 42 45 51 55 50 44 41 42 55 3B CE 45 49 |#4.BEQUPDABU;.EI| 00000D00: 4E 00 4C 44 41 4C 41 53 54 43 48 52 00 43 4D 50 |N.LDALASTCHR.CMP| 00000D10: 23 32 30 3B C4 C5 CC 00 42 45 51 55 50 44 41 42 |#20;....BEQUPDAB| 00000D20: 55 00 43 4D 50 23 31 34 38 3B C9 CE D3 00 42 45 |U.CMP#148;....BE| 00000D30: 51 55 50 44 41 42 55 00 4A 53 52 44 4F 49 4E 53 |QUPDABU.JSRDOINS| 00000D40: 54 41 53 54 3B DA 45 49 43 48 45 4E 20 45 49 4E |TAST;.EICHEN EIN| 00000D50: 46 55 45 47 45 4E 00 4A 53 52 44 4F 45 44 50 52 |FUEGEN.JSRDOEDPR| 00000D60: 49 3B 41 4E 5A 45 49 47 45 4E 00 55 50 44 41 42 |I;ANZEIGEN.UPDAB| 00000D70: 55 3A 4C 44 41 4C 41 53 54 43 48 52 00 43 4D 50 |U:LDALASTCHR.CMP| 00000D80: 23 32 30 3B C4 C5 CC 00 42 45 51 44 45 4C 54 41 |#20;....BEQDELTA| 00000D90: 53 54 00 43 4D 50 23 31 34 38 3B C9 CE D3 00 42 |ST.CMP#148;....B| 00000DA0: 45 51 49 4E 53 54 41 53 54 00 54 45 58 54 42 45 |EQINSTAST.TEXTBE| 00000DB0: 46 45 3A 4C 44 59 43 53 50 41 4C 3B DA 45 49 43 |FE:LDYCSPAL;.EIC| 00000DC0: 48 45 4E 2D 3E C2 55 46 46 45 52 00 44 45 59 00 |HEN->.UFFER.DEY.| 00000DD0: 53 54 41 45 44 42 55 46 46 45 52 2C 59 00 4A 53 |STAEDBUFFER,Y.JS| 00000DE0: 52 53 43 52 41 4E 5A 3B C1 4E 5A 45 49 47 45 4E |RSCRANZ;.NZEIGEN| 00000DF0: 00 43 4D 50 23 27 22 3B D1 55 4F 54 45 20 3F 00 |.CMP#'";.UOTE ?.| 00000E00: 42 4E 45 4E 4F 51 55 4F 54 45 00 4C 44 41 23 36 |BNENOQUOTE.LDA#6| 00000E10: 34 3B C6 4C 41 47 20 55 4D 44 52 45 48 45 4E 00 |4;.LAG UMDREHEN.| 00000E20: 45 4F 52 46 4C 41 47 53 00 53 54 41 46 4C 41 47 |EORFLAGS.STAFLAG| 00000E30: 53 00 4E 4F 51 55 4F 54 45 3A 4C 44 41 23 31 35 |S.NOQUOTE:LDA#15| 00000E40: 37 3B C3 55 52 53 4F 52 20 4C 49 4E 4B 53 00 4A |7;.URSOR LINKS.J| 00000E50: 53 52 53 43 52 41 55 53 00 4A 53 52 52 49 47 48 |SRSCRAUS.JSRRIGH| 00000E60: 54 00 54 4F 45 44 42 45 46 3A 4A 4D 50 45 44 42 |T.TOEDBEF:JMPEDB| 00000E70: 45 46 00 20 00 44 45 4C 54 41 53 54 3A 4A 53 52 |EF. .DELTAST:JSR| 00000E80: 45 49 4E 46 41 43 48 5A 45 49 3B C4 C5 CC 2D D4 |EINFACHZEI;...-.| 00000E90: 41 53 54 45 00 4C 44 59 43 53 50 41 4C 00 44 45 |ASTE.LDYCSPAL.DE| 00000EA0: 59 00 43 50 59 23 37 39 3B 4C 45 54 5A 54 45 20 |Y.CPY#79;LETZTE | 00000EB0: D0 4F 53 49 54 4F 4E 00 42 45 51 54 4F 45 44 42 |.OSITON.BEQTOEDB| 00000EC0: 45 46 3B CA 41 00 4C 45 46 54 53 48 49 46 54 3A |EF;.A.LEFTSHIFT:| 00000ED0: 4C 44 41 45 44 42 55 46 46 45 52 2B 31 2C 59 3B |LDAEDBUFFER+1,Y;| 00000EE0: C9 4E 48 41 4C 54 20 4C 49 4E 4B 53 20 53 43 48 |.NHALT LINKS SCH| 00000EF0: 49 45 42 45 4E 00 53 54 41 45 44 42 55 46 46 45 |IEBEN.STAEDBUFFE| 00000F00: 52 2C 59 00 49 4E 59 00 43 50 59 23 37 39 00 42 |R,Y.INY.CPY#79.B| 00000F10: 4E 45 4C 45 46 54 53 48 49 46 54 00 4C 44 41 23 |NELEFTSHIFT.LDA#| 00000F20: 33 32 3B D3 50 41 43 45 20 41 4E 48 41 45 4E 47 |32;.PACE ANHAENG| 00000F30: 45 4E 00 53 54 41 45 44 42 55 46 46 45 52 2B 37 |EN.STAEDBUFFER+7| 00000F40: 39 00 4A 4D 50 45 44 50 52 49 00 20 00 49 4E 53 |9.JMPEDPRI. .INS| 00000F50: 54 41 53 54 3A 4A 53 52 44 4F 49 4E 53 54 41 53 |TAST:JSRDOINSTAS| 00000F60: 54 3B C9 CE D3 2D D4 41 53 54 45 00 4A 4D 50 45 |T;...-.ASTE.JMPE| 00000F70: 44 50 52 49 00 20 00 44 4F 49 4E 53 54 41 53 54 |DPRI. .DOINSTAST| 00000F80: 3A 4A 53 52 45 49 4E 46 41 43 48 5A 45 49 00 4C |:JSREINFACHZEI.L| 00000F90: 44 41 45 44 42 55 46 46 45 52 2B 37 39 3B D3 54 |DAEDBUFFER+79;.T| 00000FA0: 45 4C 4C 45 20 46 52 45 49 20 3F 00 43 4D 50 23 |ELLE FREI ?.CMP#| 00000FB0: 33 32 00 42 45 51 49 4E 53 4D 4F 45 47 4C 49 43 |32.BEQINSMOEGLIC| 00000FC0: 48 00 4A 4D 50 42 45 45 50 3B CE 45 49 4E 00 49 |H.JMPBEEP;.EIN.I| 00000FD0: 4E 53 4D 4F 45 47 4C 49 43 48 3A 4C 44 59 43 53 |NSMOEGLICH:LDYCS| 00000FE0: 50 41 4C 00 43 50 59 23 38 30 00 42 4E 45 2A 2B |PAL.CPY#80.BNE*+| 00000FF0: 33 00 52 54 53 00 4C 44 59 23 37 39 3B C9 4E 48 |3.RTS.LDY#79;.NH| 00001000: 41 4C 54 20 52 45 43 48 54 53 53 43 48 49 45 42 |ALT RECHTSSCHIEB| 00001010: 45 4E 00 52 49 47 48 54 53 48 49 46 54 3A 4C 44 |EN.RIGHTSHIFT:LD| 00001020: 41 45 44 42 55 46 46 45 52 2D 31 2C 59 00 53 54 |AEDBUFFER-1,Y.ST| 00001030: 41 45 44 42 55 46 46 45 52 2C 59 00 44 45 59 00 |AEDBUFFER,Y.DEY.| 00001040: 43 50 59 43 53 50 41 4C 00 42 50 4C 52 49 47 48 |CPYCSPAL.BPLRIGH| 00001050: 54 53 48 49 46 54 00 4C 44 41 23 33 32 3B D3 50 |TSHIFT.LDA#32;.P| 00001060: 41 43 45 20 45 49 4E 46 55 45 47 45 4E 00 53 54 |ACE EINFUEGEN.ST| 00001070: 41 45 44 42 55 46 46 45 52 2C 59 00 52 54 53 00 |AEDBUFFER,Y.RTS.| 00001080: 20 00 45 44 50 52 49 3A 4A 53 52 44 4F 45 44 50 | .EDPRI:JSRDOEDP| 00001090: 52 49 3B 45 44 42 55 46 46 45 52 20 41 4E 5A 45 |RI;EDBUFFER ANZE| 000010A0: 49 47 45 4E 00 4A 4D 50 45 44 42 45 46 00 44 4F |IGEN.JMPEDBEF.DO| 000010B0: 45 44 50 52 49 3A 4A 53 52 46 49 41 4E 5A 50 4F |EDPRI:JSRFIANZPO| 000010C0: 53 3B D0 4F 53 2E 20 CF 46 46 53 45 54 20 45 52 |S;.OS. .FFSET ER| 000010D0: 4D 49 54 54 45 4C 4E 00 4C 44 41 53 50 41 4C 54 |MITTELN.LDASPALT| 000010E0: 45 00 50 48 41 00 4C 44 41 5A 45 49 4C 45 00 50 |E.PHA.LDAZEILE.P| 000010F0: 48 41 00 4C 44 59 23 30 3B C5 52 53 54 45 20 C2 |HA.LDY#0;.RSTE .| 00001100: 49 4C 44 50 4F 53 2E 00 53 54 59 53 50 41 4C 54 |ILDPOS..STYSPALT| 00001110: 45 00 50 4C 49 4E 45 32 3A 4C 44 41 45 44 42 55 |E.PLINE2:LDAEDBU| 00001120: 46 46 45 52 2C 59 3B C1 4E 5A 45 49 47 45 50 4F |FFER,Y;.NZEIGEPO| 00001130: 53 49 54 49 4F 4E 20 3F 00 43 50 59 4D 45 4D 31 |SITION ?.CPYMEM1| 00001140: 00 42 43 43 4E 4F 50 52 49 33 3B CE 45 49 4E 00 |.BCCNOPRI3;.EIN.| 00001150: 4A 53 52 53 43 52 41 4E 5A 3B C1 4E 5A 45 49 47 |JSRSCRANZ;.NZEIG| 00001160: 45 4E 00 4E 4F 50 52 49 33 3A 49 4E 59 00 4C 44 |EN.NOPRI3:INY.LD| 00001170: 41 53 50 41 4C 54 45 3B D3 43 48 4F 4E 20 34 30 |ASPALTE;.CHON 40| 00001180: 20 DA 45 49 43 48 45 4E 20 3F 00 43 4D 50 23 34 | .EICHEN ?.CMP#4| 00001190: 30 00 42 4E 45 50 4C 49 4E 45 32 3B CE 45 49 4E |0.BNEPLINE2;.EIN| 000011A0: 00 46 45 52 54 49 47 3A 50 4C 41 00 54 41 58 00 |.FERTIG:PLA.TAX.| 000011B0: 50 4C 41 00 54 41 59 00 4A 4D 50 53 45 54 43 52 |PLA.TAY.JMPSETCR| 000011C0: 53 52 00 20 00 41 5A 50 52 49 3A 4C 44 41 53 50 |SR. .AZPRI:LDASP| 000011D0: 41 4C 54 45 3B 41 4E 5A 45 49 42 55 46 20 41 4E |ALTE;ANZEIBUF AN| 000011E0: 5A 45 49 47 45 4E 00 50 48 41 3B D7 45 52 54 45 |ZEIGEN.PHA;.ERTE| 000011F0: 20 52 45 54 54 45 4E 00 4C 44 41 5A 45 49 4C 45 | RETTEN.LDAZEILE| 00001200: 00 50 48 41 00 4C 44 58 23 30 00 53 54 58 4D 45 |.PHA.LDX#0.STXME| 00001210: 4D 32 3B CC 41 42 45 4C 50 4F 53 49 54 49 4F 4E |M2;.ABELPOSITION| 00001220: 3D 30 00 53 54 58 4D 45 4D 33 3B CB 4F 4D 4D 45 |=0.STXMEM3;.OMME| 00001230: 4E 54 41 52 50 4F 53 49 54 49 4F 4E 3D 30 00 53 |NTARPOSITION=0.S| 00001240: 54 58 53 50 41 4C 54 45 00 4A 53 52 46 49 41 4E |TXSPALTE.JSRFIAN| 00001250: 5A 50 4F 53 3B D3 54 41 52 54 50 4F 53 49 54 49 |ZPOS;.TARTPOSITI| 00001260: 4F 4E 20 42 45 52 45 43 48 4E 45 4E 00 43 4C 43 |ON BERECHNEN.CLC| 00001270: 00 4C 44 41 4D 45 4D 31 00 41 44 43 23 34 30 00 |.LDAMEM1.ADC#40.| 00001280: 53 54 41 4D 45 4D 34 3B C5 4E 44 50 4F 53 49 54 |STAMEM4;.NDPOSIT| 00001290: 49 4F 4E 00 4C 44 58 23 30 00 4C 44 41 41 4E 5A |ION.LDX#0.LDAANZ| 000012A0: 45 49 42 55 46 3B CB 4F 4D 4D 45 4E 54 41 52 5A |EIBUF;.OMMENTARZ| 000012B0: 45 49 4C 45 00 43 4D 50 23 27 3B 00 42 45 51 4C |EILE.CMP#';.BEQL| 000012C0: 42 4C 4E 4F 53 00 4C 44 41 46 4C 41 47 53 3B C6 |BLNOS.LDAFLAGS;.| 000012D0: 4F 52 4D 41 54 20 41 4E 20 3F 00 41 4E 44 23 32 |ORMAT AN ?.AND#2| 000012E0: 00 42 45 51 4C 42 4C 4E 4F 53 3B 4E 45 49 4E 00 |.BEQLBLNOS;NEIN.| 000012F0: 4C 44 41 4D 45 4D 31 00 50 48 41 00 4C 44 41 23 |LDAMEM1.PHA.LDA#| 00001300: 27 3A 3B CC 41 42 45 4C 50 4F 53 20 53 45 54 5A |':;.ABELPOS SETZ| 00001310: 45 4E 00 4A 53 52 49 4E 53 54 52 00 53 54 59 4D |EN.JSRINSTR.STYM| 00001320: 45 4D 32 3B 49 4E 20 4D 45 4D 32 00 4C 44 41 23 |EM2;IN MEM2.LDA#| 00001330: 27 3B 3B CB 4F 4D 4D 45 4E 54 50 4F 53 20 53 45 |';;.OMMENTPOS SE| 00001340: 54 5A 45 4E 00 4A 53 52 49 4E 53 54 52 00 44 45 |TZEN.JSRINSTR.DE| 00001350: 59 00 53 54 59 4D 45 4D 33 3B D0 4F 53 2E 2D 31 |Y.STYMEM3;.OS.-1| 00001360: 20 49 4E 20 4D 45 4D 33 00 50 4C 41 00 53 54 41 | IN MEM3.PLA.STA| 00001370: 4D 45 4D 31 00 4C 44 58 23 30 00 4C 44 41 4D 45 |MEM1.LDX#0.LDAME| 00001380: 4D 32 00 42 4E 45 4C 42 4C 4E 4F 53 3B DA 45 49 |M2.BNELBLNOS;.EI| 00001390: 4C 45 20 45 4E 54 48 41 45 4C 54 20 CC 41 42 45 |LE ENTHAELT .ABE| 000013A0: 4C 00 4C 44 41 23 31 32 3B 31 32 20 CC 45 45 52 |L.LDA#12;12 .EER| 000013B0: 5A 45 49 43 48 45 4E 00 53 54 41 5A 41 48 4C 31 |ZEICHEN.STAZAHL1| 000013C0: 00 4A 53 52 53 50 41 43 45 53 00 4C 42 4C 4E 4F |.JSRSPACES.LBLNO| 000013D0: 53 3A 4C 44 59 23 30 3B DA 45 49 4C 45 20 41 55 |S:LDY#0;.EILE AU| 000013E0: 53 47 45 42 45 4E 00 4C 49 4E 45 42 41 55 3A 4C |SGEBEN.LINEBAU:L| 000013F0: 44 41 41 4E 5A 45 49 42 55 46 2C 59 00 42 45 51 |DAANZEIBUF,Y.BEQ| 00001400: 46 45 52 54 49 47 32 3B DA 45 49 4C 45 4E 45 4E |FERTIG2;.EILENEN| 00001410: 44 45 20 45 52 52 45 49 43 48 54 00 43 50 58 4D |DE ERREICHT.CPXM| 00001420: 45 4D 31 00 42 43 43 4E 4F 54 53 43 52 45 45 4E |EM1.BCCNOTSCREEN| 00001430: 3B D0 4F 53 49 54 49 4F 4E 20 4E 49 43 48 54 20 |;.OSITION NICHT | 00001440: 49 4D 20 C6 45 4E 53 54 45 52 00 4A 53 52 53 43 |IM .ENSTER.JSRSC| 00001450: 52 41 4E 5A 00 4E 4F 54 53 43 52 45 45 4E 3A 49 |RANZ.NOTSCREEN:I| 00001460: 4E 58 00 4C 44 41 41 4E 5A 45 49 42 55 46 00 43 |NX.LDAANZEIBUF.C| 00001470: 4D 50 23 27 3B 00 42 45 51 4E 4F 54 42 45 46 4F |MP#';.BEQNOTBEFO| 00001480: 50 31 3B CB 4F 4D 4D 45 4E 54 41 52 5A 45 49 4C |P1;.OMMENTARZEIL| 00001490: 45 00 4C 44 41 46 4C 41 47 53 3B C6 4F 52 4D 41 |E.LDAFLAGS;.ORMA| 000014A0: 54 20 41 4E 20 3F 00 41 4E 44 23 32 00 42 45 51 |T AN ?.AND#2.BEQ| 000014B0: 4E 4F 54 42 45 46 4F 50 31 3B 4E 45 49 4E 00 43 |NOTBEFOP1;NEIN.C| 000014C0: 50 58 23 31 35 3B C2 45 46 45 48 4C 45 4E 44 45 |PX#15;.EFEHLENDE| 000014D0: 20 45 52 52 45 49 43 48 54 3F 00 42 4E 45 4E 4F | ERREICHT?.BNENO| 000014E0: 54 42 45 46 4F 50 31 00 43 50 58 4D 45 4D 31 3B |TBEFOP1.CPXMEM1;| 000014F0: D0 4F 53 49 54 49 4F 4E 20 49 4D 20 C6 45 4E 53 |.OSITION IM .ENS| 00001500: 54 45 52 20 3F 00 42 43 43 4E 4F 54 53 43 52 45 |TER ?.BCCNOTSCRE| 00001510: 45 4E 31 00 4C 44 41 23 33 32 3B 45 49 4E 20 CC |EN1.LDA#32;EIN .| 00001520: 45 45 52 5A 45 49 43 48 45 4E 20 41 55 53 47 45 |EERZEICHEN AUSGE| 00001530: 42 45 4E 00 4A 53 52 53 43 52 41 4E 5A 00 4E 4F |BEN.JSRSCRANZ.NO| 00001540: 54 53 43 52 45 45 4E 31 3A 49 4E 58 3B 4E 41 45 |TSCREEN1:INX;NAE| 00001550: 43 48 53 54 45 20 D0 4F 53 49 54 49 4F 4E 00 4E |CHSTE .OSITION.N| 00001560: 4F 54 42 45 46 4F 50 31 3A 43 50 59 23 30 00 42 |OTBEFOP1:CPY#0.B| 00001570: 45 51 4E 4F 54 42 45 46 4F 50 00 43 50 59 4D 45 |EQNOTBEFOP.CPYME| 00001580: 4D 32 00 42 4E 45 4E 4F 54 42 45 46 4F 50 32 00 |M2.BNENOTBEFOP2.| 00001590: 4C 44 41 23 31 32 3B CC 41 42 45 4C 45 4E 44 45 |LDA#12;.ABELENDE| 000015A0: 2D 3E D4 41 42 55 4C 41 54 4F 52 50 4F 53 49 54 |->.ABULATORPOSIT| 000015B0: 49 4F 4E 20 31 32 00 53 54 41 5A 41 48 4C 31 00 |ION 12.STAZAHL1.| 000015C0: 4A 53 52 53 50 41 43 45 53 00 4E 4F 54 42 45 46 |JSRSPACES.NOTBEF| 000015D0: 4F 50 32 3A 43 50 59 4D 45 4D 33 00 42 4E 45 4E |OP2:CPYMEM3.BNEN| 000015E0: 4F 54 42 45 46 4F 50 00 4C 44 41 23 33 31 3B CB |OTBEFOP.LDA#31;.| 000015F0: 4F 4D 4D 45 4E 54 41 52 2D 3E D4 41 42 2E 50 4F |OMMENTAR->.AB.PO| 00001600: 53 2E 20 33 31 00 53 54 41 5A 41 48 4C 31 00 4A |S. 31.STAZAHL1.J| 00001610: 53 52 53 50 41 43 45 53 00 4E 4F 54 42 45 46 4F |SRSPACES.NOTBEFO| 00001620: 50 3A 49 4E 59 3B 57 45 49 54 45 52 20 42 49 53 |P:INY;WEITER BIS| 00001630: 20 C6 45 4E 53 54 45 52 45 4E 44 45 20 45 52 52 | .ENSTERENDE ERR| 00001640: 45 49 43 48 54 00 43 50 58 4D 45 4D 34 00 42 43 |EICHT.CPXMEM4.BC| 00001650: 43 4C 49 4E 45 42 41 55 00 46 45 52 54 49 47 32 |CLINEBAU.FERTIG2| 00001660: 3A 50 4C 41 3B 57 45 52 54 45 20 5A 55 52 55 45 |:PLA;WERTE ZURUE| 00001670: 43 4B 48 4F 4C 45 4E 00 54 41 58 00 50 4C 41 00 |CKHOLEN.TAX.PLA.| 00001680: 54 41 59 00 4A 4D 50 53 45 54 43 52 53 52 00 20 |TAY.JMPSETCRSR. | 00001690: 00 53 50 41 43 45 53 3A 43 50 58 5A 41 48 4C 31 |.SPACES:CPXZAHL1| 000016A0: 3B D4 41 42 55 4C 41 54 4F 52 20 5A 41 48 4C 31 |;.ABULATOR ZAHL1| 000016B0: 00 42 43 53 53 50 41 43 45 53 45 4E 44 3B 42 45 |.BCSSPACESEND;BE| 000016C0: 52 45 49 54 53 20 45 52 52 45 49 43 48 54 00 43 |REITS ERREICHT.C| 000016D0: 50 58 4D 45 4D 31 00 42 43 43 53 50 41 43 45 53 |PXMEM1.BCCSPACES| 000016E0: 46 4F 52 54 3B 4E 4F 43 48 20 4E 49 43 48 54 20 |FORT;NOCH NICHT | 000016F0: 49 4D 20 C6 45 4E 53 54 45 52 00 43 50 58 4D 45 |IM .ENSTER.CPXME| 00001700: 4D 34 00 42 43 53 53 50 41 43 45 53 45 4E 44 3B |M4.BCSSPACESEND;| 00001710: C6 45 4E 53 54 45 52 45 4E 44 45 20 45 52 52 45 |.ENSTERENDE ERRE| 00001720: 49 43 48 54 00 4C 44 41 23 33 32 3B C1 55 53 47 |ICHT.LDA#32;.USG| 00001730: 41 42 45 20 49 4D 20 C6 45 4E 53 54 45 52 00 4A |ABE IM .ENSTER.J| 00001740: 53 52 53 43 52 41 4E 5A 00 53 50 41 43 45 53 46 |SRSCRANZ.SPACESF| 00001750: 4F 52 54 3A 49 4E 58 3B CE 45 58 54 20 D0 4F 53 |ORT:INX;.EXT .OS| 00001760: 49 54 49 4F 4E 00 42 4E 45 53 50 41 43 45 53 00 |ITION.BNESPACES.| 00001770: 53 50 41 43 45 53 45 4E 44 3A 52 54 53 00 20 00 |SPACESEND:RTS. .| 00001780: 49 4E 53 54 52 3A 53 54 41 4D 45 4D 31 3B DA 45 |INSTR:STAMEM1;.E| 00001790: 49 43 48 45 4E 20 49 4E 20 41 4E 5A 45 49 42 55 |ICHEN IN ANZEIBU| 000017A0: 46 20 53 55 43 48 45 4E 00 4C 44 59 23 24 46 45 |F SUCHEN.LDY#$FE| 000017B0: 00 54 4E 43 41 3A 49 4E 59 00 4E 43 41 3A 49 4E |.TNCA:INY.NCA:IN| 000017C0: 59 00 4C 44 41 41 4E 5A 45 49 42 55 46 2C 59 3B |Y.LDAANZEIBUF,Y;| 000017D0: DA 45 49 43 48 45 4E 20 48 4F 4C 45 4E 00 42 4E |.EICHEN HOLEN.BN| 000017E0: 45 4E 4F 54 52 45 41 44 59 41 00 49 53 52 41 3A |ENOTREADYA.ISRA:| 000017F0: 4C 44 59 23 30 3B DA 45 49 4C 45 4E 45 4E 44 45 |LDY#0;.EILENENDE| 00001800: 00 52 54 53 00 4E 4F 54 52 45 41 44 59 41 3A 43 |.RTS.NOTREADYA:C| 00001810: 4D 50 4D 45 4D 31 00 42 4E 45 2A 2B 33 00 52 54 |MPMEM1.BNE*+3.RT| 00001820: 53 3B C7 45 46 55 4E 44 45 4E 00 43 4D 50 23 33 |S;.EFUNDEN.CMP#3| 00001830: 39 3B C1 50 4F 53 54 52 4F 50 48 00 42 45 51 54 |9;.POSTROPH.BEQT| 00001840: 4E 43 41 3B CE 45 58 54 20 DA 45 49 43 48 45 4E |NCA;.EXT .EICHEN| 00001850: 20 55 45 42 45 52 53 50 52 49 4E 47 45 4E 00 43 | UEBERSPRINGEN.C| 00001860: 4D 50 23 27 3B 3B D2 45 53 54 20 CB 4F 4D 4D 45 |MP#';;.EST .OMME| 00001870: 52 54 41 52 00 42 45 51 49 53 52 41 00 43 4D 50 |RTAR.BEQISRA.CMP| 00001880: 23 27 22 3B DA 45 49 43 48 45 4E 4B 45 54 54 45 |#'";.EICHENKETTE| 00001890: 00 42 4E 45 4E 43 41 00 53 45 41 51 55 45 4E 44 |.BNENCA.SEAQUEND| 000018A0: 41 3A 49 4E 59 3B 55 45 42 45 52 4C 45 53 45 4E |A:INY;UEBERLESEN| 000018B0: 00 4C 44 41 41 4E 5A 45 49 42 55 46 2C 59 00 42 |.LDAANZEIBUF,Y.B| 000018C0: 45 51 49 53 52 41 00 43 4D 50 23 27 22 00 42 45 |EQISRA.CMP#'".BE| 000018D0: 51 4E 43 41 00 42 4E 45 53 45 41 51 55 45 4E 44 |QNCA.BNESEAQUEND| 000018E0: 41 00 20 00 46 49 41 4E 5A 50 4F 53 3A 4C 44 41 |A. .FIANZPOS:LDA| 000018F0: 43 53 50 41 4C 3B C1 4E 5A 45 49 47 45 50 4F 53 |CSPAL;.NZEIGEPOS| 00001900: 2E 20 45 52 4D 49 54 54 45 4C 4E 00 43 4D 50 23 |. ERMITTELN.CMP#| 00001910: 33 32 3B 42 49 53 20 D3 50 41 4C 54 45 20 33 31 |32;BIS .PALTE 31| 00001920: 20 D0 4F 53 49 54 49 4F 4E 20 30 00 42 43 43 49 | .OSITION 0.BCCI| 00001930: 4E 44 33 31 00 41 4E 44 23 25 31 31 31 31 31 30 |ND31.AND#%111110| 00001940: 30 30 3B C4 41 4E 4E 20 49 4E 20 38 27 45 52 20 |00;.ANN IN 8'ER | 00001950: D3 43 48 52 49 54 54 45 4E 00 53 45 43 00 53 42 |.CHRITTEN.SEC.SB| 00001960: 43 23 33 32 2D 38 00 43 4D 50 23 34 31 3B 52 45 |C#32-8.CMP#41;RE| 00001970: 43 48 54 45 52 20 D2 41 4E 44 20 45 52 52 45 49 |CHTER .AND ERREI| 00001980: 43 48 54 3F 00 42 43 43 2A 2B 32 2B 32 00 4C 44 |CHT?.BCC*+2+2.LD| 00001990: 41 23 34 30 3B CA 41 2D 3E CB 4F 52 52 45 4B 54 |A#40;.A->.ORREKT| 000019A0: 55 52 00 53 54 41 4D 45 4D 31 00 52 54 53 00 49 |UR.STAMEM1.RTS.I| 000019B0: 4E 44 33 31 3A 4C 44 41 23 30 00 53 54 41 4D 45 |ND31:LDA#0.STAME| 000019C0: 4D 31 00 52 54 53 00 20 00 55 50 44 41 54 45 4E |M1.RTS. .UPDATEN| 000019D0: 3A 42 49 54 46 4C 41 47 53 3B D5 50 44 41 54 45 |:BITFLAGS;.PDATE| 000019E0: 00 42 50 4C 4E 4F 55 50 44 41 54 45 00 4C 44 41 |.BPLNOUPDATE.LDA| 000019F0: 46 4C 41 47 53 3B D5 50 44 41 54 45 20 4C 4F 45 |FLAGS;.PDATE LOE| 00001A00: 53 43 48 45 4E 00 41 4E 44 23 25 31 31 31 31 31 |SCHEN.AND#%11111| 00001A10: 31 00 53 54 41 46 4C 41 47 53 00 41 4E 44 23 31 |1.STAFLAGS.AND#1| 00001A20: 3B D0 41 43 4B 20 41 4E 20 3F 00 42 45 51 4E 4F |;.ACK AN ?.BEQNO| 00001A30: 50 41 43 4B 00 4C 44 41 46 4C 41 47 53 3B C6 4F |PACK.LDAFLAGS;.O| 00001A40: 52 4D 41 54 20 41 4E 20 3F 00 41 4E 44 23 32 00 |RMAT AN ?.AND#2.| 00001A50: 42 45 51 4E 4F 46 4F 52 4D 00 4A 53 52 46 41 52 |BEQNOFORM.JSRFAR| 00001A60: 42 45 00 4A 53 52 45 44 55 4E 50 41 43 4B 3B DA |BE.JSREDUNPACK;.| 00001A70: 45 49 4C 45 20 41 4E 5A 45 49 47 45 4E 00 4A 53 |EILE ANZEIGEN.JS| 00001A80: 52 44 4F 45 44 50 52 49 00 4A 53 52 50 41 43 4B |RDOEDPRI.JSRPACK| 00001A90: 00 4A 4D 50 4E 4F 50 41 43 4B 00 4E 4F 46 4F 52 |.JMPNOPACK.NOFOR| 00001AA0: 4D 3A 4A 53 52 50 41 43 4B 00 4A 53 52 46 41 52 |M:JSRPACK.JSRFAR| 00001AB0: 42 45 00 4A 53 52 44 4F 45 44 50 52 49 00 4E 4F |BE.JSRDOEDPRI.NO| 00001AC0: 50 41 43 4B 3A 4C 44 41 43 5A 45 49 4C 3B DA 45 |PACK:LDACZEIL;.E| 00001AD0: 49 4C 45 20 46 45 53 54 4C 45 47 45 4E 00 53 54 |ILE FESTLEGEN.ST| 00001AE0: 41 5A 41 48 4C 31 00 4C 44 41 43 5A 45 49 4C 2B |AZAHL1.LDACZEIL+| 00001AF0: 31 00 53 54 41 5A 41 48 4C 31 2B 31 00 4A 53 52 |1.STAZAHL1+1.JSR| 00001B00: 43 48 41 4E 47 45 3B 55 4E 44 20 53 50 45 49 43 |CHANGE;UND SPEIC| 00001B10: 48 45 52 4E 00 4E 4F 55 50 44 41 54 45 3A 52 54 |HERN.NOUPDATE:RT| 00001B20: 53 00 20 00 45 44 55 50 44 41 54 45 4E 3A 42 49 |S. .EDUPDATEN:BI| 00001B30: 54 46 4C 41 47 53 3B D5 50 44 41 54 45 00 42 4D |TFLAGS;.PDATE.BM| 00001B40: 49 4E 4F 4D 45 4D 54 53 54 00 43 4C 43 00 4C 44 |INOMEMTST.CLC.LD| 00001B50: 41 54 58 54 50 4F 49 4E 54 3B 41 55 46 20 D3 50 |ATXTPOINT;AUF .P| 00001B60: 45 49 43 48 45 52 50 4C 41 54 5A 20 54 45 53 54 |EICHERPLATZ TEST| 00001B70: 45 4E 00 41 44 43 23 38 31 00 53 54 41 5A 41 48 |EN.ADC#81.STAZAH| 00001B80: 4C 31 00 4C 44 41 54 58 54 50 4F 49 4E 54 2B 31 |L1.LDATXTPOINT+1| 00001B90: 00 41 44 43 23 30 00 53 54 41 5A 41 48 4C 31 2B |.ADC#0.STAZAHL1+| 00001BA0: 31 3B 5A 41 48 4C 31 3D 54 45 58 54 45 4E 44 45 |1;ZAHL1=TEXTENDE| 00001BB0: 2B 38 31 00 42 43 53 45 44 4C 4F 4D 45 4D 00 4C |+81.BCSEDLOMEM.L| 00001BC0: 44 41 54 58 54 45 4E 44 3B 4D 49 54 20 D4 45 58 |DATXTEND;MIT .EX| 00001BD0: 54 53 50 45 49 43 48 45 52 45 4E 44 45 20 56 45 |TSPEICHERENDE VE| 00001BE0: 52 47 4C 45 49 43 48 45 4E 00 53 54 41 5A 41 48 |RGLEICHEN.STAZAH| 00001BF0: 4C 32 00 4C 44 41 54 58 54 45 4E 44 2B 31 00 53 |L2.LDATXTEND+1.S| 00001C00: 54 41 5A 41 48 4C 32 2B 31 00 4A 53 52 56 45 52 |TAZAHL2+1.JSRVER| 00001C10: 47 4C 45 49 43 48 00 42 43 43 4E 4F 4D 45 4D 54 |GLEICH.BCCNOMEMT| 00001C20: 53 54 00 45 44 4C 4F 4D 45 4D 3A 4C 44 58 23 31 |ST.EDLOMEM:LDX#1| 00001C30: 35 3B DA 55 20 57 45 4E 49 47 20 D3 50 45 49 43 |5;.U WENIG .PEIC| 00001C40: 48 45 52 00 4A 53 52 45 44 45 52 52 4F 52 00 50 |HER.JSREDERROR.P| 00001C50: 4C 41 00 50 4C 41 00 4A 4D 50 45 44 42 45 46 00 |LA.PLA.JMPEDBEF.| 00001C60: 4E 4F 4D 45 4D 54 53 54 3A 42 49 54 46 4C 41 47 |NOMEMTST:BITFLAG| 00001C70: 53 3B 55 50 44 41 54 45 00 42 50 4C 2A 2B 33 00 |S;UPDATE.BPL*+3.| 00001C80: 52 54 53 00 4A 53 52 44 45 4C 45 44 42 55 3B C2 |RTS.JSRDELEDBU;.| 00001C90: 55 46 46 45 52 20 4C 4F 45 53 43 48 45 4E 00 4C |UFFER LOESCHEN.L| 00001CA0: 44 41 43 5A 45 49 4C 00 53 54 41 5A 41 48 4C 31 |DACZEIL.STAZAHL1| 00001CB0: 00 4C 44 41 43 5A 45 49 4C 2B 31 00 53 54 41 5A |.LDACZEIL+1.STAZ| 00001CC0: 41 48 4C 31 2B 31 00 4A 53 52 5A 41 44 52 3B DA |AHL1+1.JSRZADR;.| 00001CD0: 45 49 4C 45 20 48 4F 4C 45 4E 00 4C 44 59 23 30 |EILE HOLEN.LDY#0| 00001CE0: 00 54 52 41 4E 53 3A 4A 53 52 48 4F 4C 5A 47 00 |.TRANS:JSRHOLZG.| 00001CF0: 42 45 51 45 4E 44 54 52 41 4E 53 3B DA 45 49 4C |BEQENDTRANS;.EIL| 00001D00: 45 4E 45 4E 44 45 00 53 54 41 45 44 42 55 46 46 |ENENDE.STAEDBUFF| 00001D10: 45 52 2C 59 00 49 4E 59 00 42 4E 45 54 52 41 4E |ER,Y.INY.BNETRAN| 00001D20: 53 00 45 4E 44 54 52 41 4E 53 3A 4C 44 41 46 4C |S.ENDTRANS:LDAFL| 00001D30: 41 47 53 3B 55 50 44 41 54 45 00 4F 52 41 23 31 |AGS;UPDATE.ORA#1| 00001D40: 32 38 00 53 54 41 46 4C 41 47 53 00 41 4E 44 23 |28.STAFLAGS.AND#| 00001D50: 32 3B C6 4F 52 4D 41 54 20 3F 00 42 4E 45 2A 2B |2;.ORMAT ?.BNE*+| 00001D60: 33 00 52 54 53 00 4A 4D 50 45 44 55 4E 50 41 43 |3.RTS.JMPEDUNPAC| 00001D70: 4B 3B CA 41 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A |K;.A. .;********| 00001D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00001DA0: 3B 2A 20 2A 20 20 20 20 20 20 20 D3 54 41 54 55 |;* * .TATU| 00001DB0: 53 5A 45 49 4C 45 20 44 52 55 43 4B 45 4E 20 20 |SZEILE DRUCKEN | 00001DC0: 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A | * *.;******| 00001DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001DE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001DF0: 2A 00 20 00 53 54 41 5A 45 49 3A 4A 53 52 50 55 |*. .STAZEI:JSRPU| 00001E00: 53 43 48 00 4C 44 41 53 50 41 4C 54 45 3B D0 4F |SCH.LDASPALTE;.O| 00001E10: 53 2E 20 4D 45 52 4B 45 4E 00 50 48 41 00 4C 44 |S. MERKEN.PHA.LD| 00001E20: 41 5A 45 49 4C 45 00 50 48 41 00 54 41 58 3B C1 |AZEILE.PHA.TAX;.| 00001E30: 43 43 55 3D 5A 45 49 4C 45 2D 31 00 44 45 58 00 |CCU=ZEILE-1.DEX.| 00001E40: 54 58 41 00 43 4C 43 3B C1 43 43 55 20 2B 20 4F |TXA.CLC;.CCU + O| 00001E50: 42 45 52 53 54 45 20 DA 45 49 4C 45 00 41 44 43 |BERSTE .EILE.ADC| 00001E60: 42 49 4C 44 5A 45 49 4C 45 00 53 54 41 43 5A 45 |BILDZEILE.STACZE| 00001E70: 49 4C 3B 3D 20 41 4B 54 55 45 4C 4C 45 20 DA 45 |IL;= AKTUELLE .E| 00001E80: 49 4C 45 00 4C 44 41 42 49 4C 44 5A 45 49 4C 45 |ILE.LDABILDZEILE| 00001E90: 2B 31 00 41 44 43 23 30 00 53 54 41 43 5A 45 49 |+1.ADC#0.STACZEI| 00001EA0: 4C 2B 31 00 4A 53 52 48 4F 4D 45 00 4C 44 58 23 |L+1.JSRHOME.LDX#| 00001EB0: 31 36 3B DA 45 49 4C 45 4E 54 45 58 54 00 4A 53 |16;.EILENTEXT.JS| 00001EC0: 52 57 52 49 54 45 00 4C 44 41 43 5A 45 49 4C 3B |RWRITE.LDACZEIL;| 00001ED0: DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 41 55 53 |.EILENNUMMER AUS| 00001EE0: 47 45 42 45 4E 00 53 54 41 5A 41 48 4C 31 00 4C |GEBEN.STAZAHL1.L| 00001EF0: 44 41 43 5A 45 49 4C 2B 31 00 53 54 41 5A 41 48 |DACZEIL+1.STAZAH| 00001F00: 4C 31 2B 31 00 4A 53 52 5A 41 48 4C 44 45 5A 4F |L1+1.JSRZAHLDEZO| 00001F10: 55 54 00 4C 44 41 23 31 37 3B DA 45 49 4C 45 4E |UT.LDA#17;.EILEN| 00001F20: 50 4F 53 49 54 49 4F 4E 20 41 55 53 47 45 42 45 |POSITION AUSGEBE| 00001F30: 4E 00 4A 53 52 53 43 52 54 41 42 00 4C 44 58 23 |N.JSRSCRTAB.LDX#| 00001F40: 31 38 00 4A 53 52 57 52 49 54 45 00 4C 44 41 23 |18.JSRWRITE.LDA#| 00001F50: 30 00 53 54 41 5A 41 48 4C 31 2B 31 00 4C 44 41 |0.STAZAHL1+1.LDA| 00001F60: 43 53 50 41 4C 00 53 54 41 5A 41 48 4C 31 00 4A |CSPAL.STAZAHL1.J| 00001F70: 53 52 5A 41 48 4C 44 45 5A 4F 55 54 00 4C 44 41 |SRZAHLDEZOUT.LDA| 00001F80: 23 32 34 3B D3 54 41 55 53 20 41 4E 5A 45 49 47 |#24;.TAUS ANZEIG| 00001F90: 45 4E 00 4A 53 52 53 43 52 54 41 42 00 4C 44 58 |EN.JSRSCRTAB.LDX| 00001FA0: 23 31 37 00 4A 53 52 57 52 49 54 45 00 4C 44 41 |#17.JSRWRITE.LDA| 00001FB0: 23 33 3B 34 20 D3 54 41 54 55 53 46 4C 41 47 53 |#3;4 .TATUSFLAGS| 00001FC0: 00 53 54 41 4D 45 4D 31 00 53 48 4F 57 3A 4C 44 |.STAMEM1.SHOW:LD| 00001FD0: 58 4D 45 4D 31 00 4C 44 41 46 4C 41 47 53 3B C2 |XMEM1.LDAFLAGS;.| 00001FE0: 49 54 20 45 52 4D 49 54 54 45 4C 4E 00 41 4E 44 |IT ERMITTELN.AND| 00001FF0: 42 49 54 53 2C 58 3B 55 4E 44 20 4E 41 43 48 20 |BITS,X;UND NACH | 00002000: 2B 2F 2D 20 57 41 4E 44 45 4C 4E 00 42 45 51 4D |+/- WANDELN.BEQM| 00002010: 49 00 4C 44 41 23 27 2B 00 42 49 54 00 4D 49 3A |I.LDA#'+.BIT.MI:| 00002020: 4C 44 41 23 27 2D 00 4C 44 59 53 54 5A 45 49 50 |LDA#'-.LDYSTZEIP| 00002030: 4F 53 2C 58 3B D3 50 41 4C 54 45 20 48 4F 4C 45 |OS,X;.PALTE HOLE| 00002040: 4E 00 4C 44 58 23 30 00 50 48 41 3B 55 4E 44 20 |N.LDX#0.PHA;UND | 00002050: 41 4E 5A 45 49 47 45 4E 00 4A 53 52 53 45 54 43 |ANZEIGEN.JSRSETC| 00002060: 52 53 52 00 50 4C 41 00 4A 53 52 53 43 52 41 4E |RSR.PLA.JSRSCRAN| 00002070: 5A 00 44 45 43 4D 45 4D 31 3B C1 4C 4C 45 20 C6 |Z.DECMEM1;.LLE .| 00002080: 4C 41 47 47 45 4E 20 3F 00 42 50 4C 53 48 4F 57 |LAGGEN ?.BPLSHOW| 00002090: 3B 4E 45 49 4E 00 4C 44 41 23 54 45 58 54 43 4F |;NEIN.LDA#TEXTCO| 000020A0: 4C 00 4A 53 52 53 43 52 41 55 53 00 4C 44 41 23 |L.JSRSCRAUS.LDA#| 000020B0: 30 00 53 54 41 52 56 53 00 50 4C 41 00 54 41 58 |0.STARVS.PLA.TAX| 000020C0: 00 50 4C 41 00 54 41 59 00 4A 53 52 53 45 54 43 |.PLA.TAY.JSRSETC| 000020D0: 52 53 52 00 4A 4D 50 50 55 4C 4C 00 20 00 42 49 |RSR.JMPPULL. .BI| 000020E0: 54 53 3A 2E 42 59 36 34 2C 34 2C 32 2C 31 3B C6 |TS:.BY64,4,2,1;.| 000020F0: 4C 41 47 47 45 4E 00 53 54 5A 45 49 50 4F 53 3A |LAGGEN.STZEIPOS:| 00002100: 2E 42 59 33 39 2C 33 35 2C 33 31 2C 32 37 3B D0 |.BY39,35,31,27;.| 00002110: 4F 53 49 54 49 4F 4E 45 4E 00 20 00 53 43 52 54 |OSITIONEN. .SCRT| 00002120: 41 42 3A 43 4D 50 53 50 41 4C 54 45 3B C2 49 4C |AB:CMPSPALTE;.IL| 00002130: 44 53 43 48 49 52 4D 20 D4 41 42 55 4C 41 54 4F |DSCHIRM .ABULATO| 00002140: 52 00 42 43 53 2A 2B 33 00 52 54 53 00 50 48 41 |R.BCS*+3.RTS.PHA| 00002150: 3B D0 4F 53 49 54 49 4F 4E 20 2B 31 00 4C 44 41 |;.OSITION +1.LDA| 00002160: 23 33 32 00 4A 53 52 42 53 4F 55 54 00 50 4C 41 |#32.JSRBSOUT.PLA| 00002170: 00 42 4E 45 53 43 52 54 41 42 00 20 00 43 52 53 |.BNESCRTAB. .CRS| 00002180: 52 4F 4E 3A 4C 44 41 23 30 3B C3 55 52 53 4F 52 |RON:LDA#0;.URSOR| 00002190: 20 41 4E 53 43 48 41 4C 54 45 4E 00 53 54 41 42 | ANSCHALTEN.STAB| 000021A0: 4C 49 46 4C 41 47 00 52 54 53 00 20 00 43 52 53 |LIFLAG.RTS. .CRS| 000021B0: 52 4F 46 46 3A 49 4E 43 42 4C 49 46 4C 41 47 3B |ROFF:INCBLIFLAG;| 000021C0: C3 55 52 53 4F 52 20 41 55 53 53 43 48 41 4C 54 |.URSOR AUSSCHALT| 000021D0: 45 4E 00 4C 44 41 43 52 53 54 41 54 3B C3 52 53 |EN.LDACRSTAT;.RS| 000021E0: 52 20 41 4E 20 3F 00 42 4E 45 2A 2B 33 00 52 54 |R AN ?.BNE*+3.RT| 000021F0: 53 00 4C 44 41 42 4C 49 46 4C 41 47 2B 32 3B 41 |S.LDABLIFLAG+2;A| 00002200: 42 53 43 48 41 4C 54 45 4E 00 4C 44 58 24 32 38 |BSCHALTEN.LDX$28| 00002210: 37 00 4C 44 59 23 30 00 53 54 59 43 52 53 54 41 |7.LDY#0.STYCRSTA| 00002220: 54 00 4A 4D 50 24 45 41 31 33 00 20 00 3B 2A 2A |T.JMP$EA13. .;**| 00002230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002250: 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 20 20 |*****.;* * | 00002260: C5 49 4E 45 20 D3 45 49 54 45 20 41 4E 5A 45 49 |.INE .EITE ANZEI| 00002270: 47 45 4E 20 20 20 20 20 20 20 20 2A 20 2A 00 3B |GEN * *.;| 00002280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000022A0: 2A 2A 2A 2A 2A 2A 2A 00 20 00 42 49 4C 44 3A 4A |*******. .BILD:J| 000022B0: 53 52 53 54 41 5A 45 49 3B D3 54 41 54 55 53 5A |SRSTAZEI;.TATUSZ| 000022C0: 45 49 4C 45 00 4C 44 41 42 49 4C 44 5A 45 49 4C |EILE.LDABILDZEIL| 000022D0: 45 3B C1 44 52 2E 20 44 45 52 20 45 52 55 54 45 |E;.DR. DER ERUTE| 000022E0: 4E 20 DA 45 49 4C 45 00 53 54 41 5A 41 48 4C 31 |N .EILE.STAZAHL1| 000022F0: 00 4C 44 41 42 49 4C 44 5A 45 49 4C 45 2B 31 00 |.LDABILDZEILE+1.| 00002300: 53 54 41 5A 41 48 4C 31 2B 31 00 4A 53 52 42 49 |STAZAHL1+1.JSRBI| 00002310: 4C 44 5A 41 44 52 00 4C 44 41 53 50 41 4C 54 45 |LDZADR.LDASPALTE| 00002320: 3B D0 4F 53 2E 20 4D 45 52 4B 45 4E 00 50 48 41 |;.OS. MERKEN.PHA| 00002330: 00 4C 44 41 5A 45 49 4C 45 00 53 54 41 5A 41 48 |.LDAZEILE.STAZAH| 00002340: 4C 33 00 50 48 41 00 4C 44 58 23 31 3B C1 55 53 |L3.PHA.LDX#1;.US| 00002350: 47 41 42 45 20 41 42 20 45 52 53 54 45 52 20 DA |GABE AB ERSTER .| 00002360: 45 49 4C 45 00 4C 49 3A 4A 53 52 43 4C 52 4C 49 |EILE.LI:JSRCLRLI| 00002370: 4E 45 3B DA 45 49 4C 45 20 4C 4F 45 53 43 48 45 |NE;.EILE LOESCHE| 00002380: 4E 00 54 58 41 00 50 48 41 00 4C 44 59 23 30 3B |N.TXA.PHA.LDY#0;| 00002390: 45 52 53 54 45 20 D0 4F 53 2E 00 53 54 59 53 50 |ERSTE .OS..STYSP| 000023A0: 41 4C 54 45 00 4C 44 41 23 54 45 58 54 43 4F 4C |ALTE.LDA#TEXTCOL| 000023B0: 3B C6 41 52 42 45 20 41 55 53 47 45 42 45 4E 00 |;.ARBE AUSGEBEN.| 000023C0: 4A 53 52 53 43 52 41 55 53 00 43 4C 43 00 44 45 |JSRSCRAUS.CLC.DE| 000023D0: 58 00 54 58 41 00 49 4E 58 00 41 44 43 42 49 4C |X.TXA.INX.ADCBIL| 000023E0: 44 5A 45 49 4C 45 3B C1 55 46 20 C2 4C 4F 43 4B |DZEILE;.UF .LOCK| 000023F0: 20 54 45 53 54 45 4E 00 53 54 41 5A 41 48 4C 31 | TESTEN.STAZAHL1| 00002400: 00 4C 44 41 23 30 00 41 44 43 42 49 4C 44 5A 45 |.LDA#0.ADCBILDZE| 00002410: 49 4C 45 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 |ILE+1.STAZAHL1+1| 00002420: 00 4A 53 52 42 4C 4F 43 4B 54 45 53 54 00 43 4D |.JSRBLOCKTEST.CM| 00002430: 50 23 32 32 00 42 4E 45 4E 4F 52 4D 43 4F 4C 3B |P#22.BNENORMCOL;| 00002440: 4B 45 49 4E 20 C2 4C 4F 43 4B 00 4C 44 41 23 42 |KEIN .LOCK.LDA#B| 00002450: 4C 43 4B 43 4F 4C 3B C2 4C 4F 43 48 46 41 52 42 |LCKCOL;.LOCHFARB| 00002460: 45 00 4A 53 52 53 43 52 41 55 53 00 4E 4F 52 4D |E.JSRSCRAUS.NORM| 00002470: 43 4F 4C 3A 43 50 58 5A 41 48 4C 33 3B C3 55 52 |COL:CPXZAHL3;.UR| 00002480: 53 4F 52 5A 45 49 4C 45 20 3F 00 42 4E 45 4C 49 |SORZEILE ?.BNELI| 00002490: 4E 45 00 42 49 54 46 4C 41 47 53 3B 55 50 44 41 |NE.BITFLAGS;UPDA| 000024A0: 54 45 20 3F 00 42 50 4C 4C 49 4E 45 00 4A 53 52 |TE ?.BPLLINE.JSR| 000024B0: 44 4F 45 44 50 52 49 3B C2 55 46 46 45 52 20 41 |DOEDPRI;.UFFER A| 000024C0: 4E 5A 45 49 47 45 4E 00 4A 4D 50 4E 45 58 54 4C |NZEIGEN.JMPNEXTL| 000024D0: 49 4E 45 00 4C 49 4E 45 3A 4C 44 59 23 30 3B DA |INE.LINE:LDY#0;.| 000024E0: 45 49 4C 45 20 41 4E 5A 45 49 47 45 4E 00 4C 49 |EILE ANZEIGEN.LI| 000024F0: 4E 45 4C 3A 4A 53 52 48 4F 4C 5A 47 00 53 54 41 |NEL:JSRHOLZG.STA| 00002500: 41 4E 5A 45 49 42 55 46 2C 59 00 42 45 51 54 4F |ANZEIBUF,Y.BEQTO| 00002510: 4E 45 4C 49 00 49 4E 59 00 43 50 59 23 38 30 3B |NELI.INY.CPY#80;| 00002520: DA 45 49 4C 45 4E 45 4E 44 45 20 3F 00 42 4E 45 |.EILENENDE ?.BNE| 00002530: 4C 49 4E 45 4C 00 54 4F 4E 45 4C 49 3A 4A 53 52 |LINEL.TONELI:JSR| 00002540: 41 5A 50 52 49 00 4E 45 58 54 4C 49 4E 45 3A 4C |AZPRI.NEXTLINE:L| 00002550: 44 59 23 30 3B CE 45 58 54 20 DA 45 49 4C 45 4E |DY#0;.EXT .EILEN| 00002560: 41 44 52 45 53 53 45 00 4A 53 52 54 45 58 54 4C |ADRESSE.JSRTEXTL| 00002570: 49 4E 45 00 42 45 51 45 54 00 50 4C 41 3B C1 4C |INE.BEQET.PLA;.L| 00002580: 4C 45 20 DA 45 49 4C 45 4E 20 3F 00 54 41 58 00 |LE .EILEN ?.TAX.| 00002590: 49 4E 58 00 43 50 58 23 32 35 00 42 4E 45 4C 49 |INX.CPX#25.BNELI| 000025A0: 3B 4E 45 49 4E 00 42 49 52 54 3A 50 4C 41 3B C6 |;NEIN.BIRT:PLA;.| 000025B0: 45 52 54 49 47 00 54 41 58 00 50 4C 41 00 54 41 |ERTIG.TAX.PLA.TA| 000025C0: 59 00 4A 4D 50 53 45 54 43 52 53 52 00 45 54 3A |Y.JMPSETCRSR.ET:| 000025D0: 50 4C 41 3B D4 45 58 54 45 4E 44 45 2D 3E CC 45 |PLA;.EXTENDE->.E| 000025E0: 45 52 5A 45 49 4C 45 4E 20 41 4E 48 41 45 4E 47 |ERZEILEN ANHAENG| 000025F0: 45 4E 00 54 41 58 00 45 54 4C 3A 49 4E 58 00 43 |EN.TAX.ETL:INX.C| 00002600: 50 58 23 32 35 00 42 45 51 42 49 52 54 00 4A 53 |PX#25.BEQBIRT.JS| 00002610: 52 43 4C 52 4C 49 4E 45 00 4A 4D 50 45 54 4C 00 |RCLRLINE.JMPETL.| 00002620: 20 00 5A 41 44 52 3A 4A 53 52 50 55 5A 41 44 52 | .ZADR:JSRPUZADR| 00002630: 3B C1 44 52 2E 20 45 49 4E 45 52 20 DA 45 49 4C |;.DR. EINER .EIL| 00002640: 45 20 53 55 43 48 45 4E 00 4A 53 52 5A 47 54 45 |E SUCHEN.JSRZGTE| 00002650: 58 54 00 4C 44 41 5A 41 48 4C 31 2B 31 3B DA 45 |XT.LDAZAHL1+1;.E| 00002660: 49 4C 45 20 31 3F 00 42 4E 45 4E 46 00 4C 44 41 |ILE 1?.BNENF.LDA| 00002670: 5A 41 48 4C 31 00 43 4D 50 23 31 00 42 45 51 4E |ZAHL1.CMP#1.BEQN| 00002680: 4E 46 3B 4A 41 00 4E 46 3A 4C 44 59 23 30 3B DA |NF;JA.NF:LDY#0;.| 00002690: 45 49 4C 45 20 53 55 43 48 45 4E 00 53 54 59 4D |EILE SUCHEN.STYM| 000026A0: 45 4D 31 00 53 54 59 4D 45 4D 32 00 4A 53 52 52 |EM1.STYMEM2.JSRR| 000026B0: 4F 55 54 49 4E 45 4E 00 53 45 43 3B C1 44 52 2E |OUTINEN.SEC;.DR.| 000026C0: 20 42 45 52 45 43 48 4E 45 4E 00 54 59 41 00 41 | BERECHNEN.TYA.A| 000026D0: 44 43 5A 47 00 53 54 41 5A 47 00 42 43 43 2A 2B |DCZG.STAZG.BCC*+| 000026E0: 34 00 49 4E 43 5A 47 2B 31 00 4E 4E 46 3A 4A 53 |4.INCZG+1.NNF:JS| 000026F0: 52 50 55 54 52 41 4D 52 4F 3B D2 4F 55 54 49 4E |RPUTRAMRO;.OUTIN| 00002700: 45 4E 20 5A 55 52 55 45 43 4B 53 43 48 52 45 49 |EN ZURUECKSCHREI| 00002710: 42 45 4E 00 4C 44 59 23 30 00 52 54 53 00 20 00 |BEN.LDY#0.RTS. .| 00002720: 53 45 54 43 52 53 52 3A 53 54 58 5A 45 49 4C 45 |SETCRSR:STXZEILE| 00002730: 3B C3 55 52 53 4F 52 20 53 45 54 5A 45 4E 00 53 |;.URSOR SETZEN.S| 00002740: 54 59 53 50 41 4C 54 45 00 4C 44 41 24 45 43 46 |TYSPALTE.LDA$ECF| 00002750: 30 2C 58 00 53 54 41 24 44 31 00 4C 44 41 24 44 |0,X.STA$D1.LDA$D| 00002760: 39 2C 58 00 41 4E 44 23 33 00 4F 52 41 24 32 38 |9,X.AND#3.ORA$28| 00002770: 38 00 53 54 41 24 44 32 00 52 54 53 00 20 00 42 |8.STA$D2.RTS. .B| 00002780: 49 4C 44 5A 41 44 52 3A 4C 44 41 41 53 53 46 4C |ILDZADR:LDAASSFL| 00002790: 32 3B C1 4C 54 45 53 20 C2 49 4C 44 20 3F 00 41 |2;.LTES .ILD ?.A| 000027A0: 4E 44 23 31 00 42 4E 45 4F 4C 44 42 49 41 44 52 |ND#1.BNEOLDBIADR| 000027B0: 3B CA 41 00 4A 53 52 5A 41 44 52 3B C1 44 52 45 |;.A.JSRZADR;.DRE| 000027C0: 53 53 45 20 53 55 43 48 45 4E 00 4C 44 41 5A 47 |SSE SUCHEN.LDAZG| 000027D0: 3B 2D 3E 20 42 49 4C 44 41 44 52 00 53 54 41 42 |;-> BILDADR.STAB| 000027E0: 49 4C 44 41 44 52 00 4C 44 41 5A 47 2B 31 00 53 |ILDADR.LDAZG+1.S| 000027F0: 54 41 42 49 4C 44 41 44 52 2B 31 00 4C 44 41 41 |TABILDADR+1.LDAA| 00002800: 53 53 46 4C 32 3B C6 4C 41 47 20 46 55 45 52 20 |SSFL2;.LAG FUER | 00002810: 41 4C 54 45 53 20 C2 49 4C 44 00 4F 52 41 23 31 |ALTES .ILD.ORA#1| 00002820: 00 53 54 41 41 53 53 46 4C 32 00 52 54 53 00 4F |.STAASSFL2.RTS.O| 00002830: 4C 44 42 49 41 44 52 3A 4C 44 41 42 49 4C 44 41 |LDBIADR:LDABILDA| 00002840: 44 52 3B C1 44 52 2E 2D 3E 5A 47 00 53 54 41 5A |DR;.DR.->ZG.STAZ| 00002850: 47 00 4C 44 41 42 49 4C 44 41 44 52 2B 31 00 53 |G.LDABILDADR+1.S| 00002860: 54 41 5A 47 2B 31 00 4C 44 59 23 30 00 52 54 53 |TAZG+1.LDY#0.RTS| 00002870: 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. .;************| 00002880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A |***********.;* *| 000028A0: 20 20 20 20 20 20 C6 55 4E 4B 54 49 4F 4E 53 54 | .UNKTIONST| 000028B0: 41 53 54 45 4E 20 20 20 20 20 20 20 20 20 20 20 |ASTEN | 000028C0: 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | * *.;**********| 000028D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000028E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 |*************. .| 000028F0: 46 4B 54 54 41 53 54 3A 43 4D 50 23 31 33 33 3B |FKTTAST:CMP#133;| 00002900: C6 31 20 2D 20 D4 45 58 54 41 4E 46 41 4E 47 00 |.1 - .EXTANFANG.| 00002910: 42 4E 45 4E 4F 46 31 00 46 31 3A 4A 53 52 55 50 |BNENOF1.F1:JSRUP| 00002920: 44 41 54 45 4E 00 4C 44 58 23 30 3B C2 49 4C 44 |DATEN.LDX#0;.ILD| 00002930: 5A 45 49 4C 45 20 3D 31 00 53 54 58 42 49 4C 44 |ZEILE =1.STXBILD| 00002940: 5A 45 49 4C 45 2B 31 00 49 4E 58 00 53 54 58 42 |ZEILE+1.INX.STXB| 00002950: 49 4C 44 5A 45 49 4C 45 00 46 4B 54 41 42 53 43 |ILDZEILE.FKTABSC| 00002960: 48 4C 3A 4C 44 41 41 53 53 46 4C 32 3B C6 4C 41 |HL:LDAASSFL2;.LA| 00002970: 47 20 41 4C 54 45 53 20 C2 49 4C 44 20 4C 4F 45 |G ALTES .ILD LOE| 00002980: 53 43 48 45 4E 00 41 4E 44 23 32 35 34 00 53 54 |SCHEN.AND#254.ST| 00002990: 41 41 53 53 46 4C 32 00 4A 53 52 42 49 4C 44 3B |AASSFL2.JSRBILD;| 000029A0: C2 49 4C 44 20 41 55 53 47 45 42 45 4E 00 4C 44 |.ILD AUSGEBEN.LD| 000029B0: 41 23 30 3B C6 4C 41 47 20 46 55 45 52 20 C6 55 |A#0;.LAG FUER .U| 000029C0: 4E 4B 54 49 4F 4E 53 54 41 53 54 45 00 52 54 53 |NKTIONSTASTE.RTS| 000029D0: 00 20 00 4E 4F 46 31 3A 43 4D 50 23 31 33 36 3B |. .NOF1:CMP#136;| 000029E0: C6 37 20 2D 20 D4 45 58 54 45 4E 44 45 00 42 4E |.7 - .EXTENDE.BN| 000029F0: 45 4E 4F 46 37 00 46 37 3A 4A 53 52 55 50 44 41 |ENOF7.F7:JSRUPDA| 00002A00: 54 45 4E 00 53 45 43 00 4C 44 41 5A 45 49 4C 45 |TEN.SEC.LDAZEILE| 00002A10: 4E 3B 42 49 4C 44 5A 45 49 4C 45 20 41 55 46 20 |N;BILDZEILE AUF | 00002A20: C1 4E 5A 2E 20 DA 45 49 4C 45 4E 20 2D 32 33 00 |.NZ. .EILEN -23.| 00002A30: 53 42 43 23 32 33 00 53 54 41 42 49 4C 44 5A 45 |SBC#23.STABILDZE| 00002A40: 49 4C 45 00 4C 44 41 5A 45 49 4C 45 4E 2B 31 00 |ILE.LDAZEILEN+1.| 00002A50: 53 42 43 23 30 00 53 54 41 42 49 4C 44 5A 45 49 |SBC#0.STABILDZEI| 00002A60: 4C 45 2B 31 00 42 43 43 46 31 3B D7 45 4E 49 47 |LE+1.BCCF1;.ENIG| 00002A70: 45 52 20 41 4C 53 20 32 33 20 DA 45 49 4C 45 4E |ER ALS 23 .EILEN| 00002A80: 20 2D 3E 20 D4 45 58 54 41 4E 46 41 4E 47 00 42 | -> .EXTANFANG.B| 00002A90: 43 53 46 4B 54 41 42 53 43 48 4C 3B C2 49 4C 44 |CSFKTABSCHL;.ILD| 00002AA0: 20 41 55 53 47 45 42 45 4E 00 20 00 4E 4F 46 37 | AUSGEBEN. .NOF7| 00002AB0: 3A 43 4D 50 23 31 33 35 3B C6 35 20 2D 20 D3 45 |:CMP#135;.5 - .E| 00002AC0: 49 54 45 20 56 4F 52 00 42 4E 45 4E 4F 46 35 00 |ITE VOR.BNENOF5.| 00002AD0: 4A 53 52 55 50 44 41 54 45 4E 00 43 4C 43 3B C2 |JSRUPDATEN.CLC;.| 00002AE0: 49 4C 44 5A 45 49 4C 45 20 2B 32 33 00 4C 44 41 |ILDZEILE +23.LDA| 00002AF0: 42 49 4C 44 5A 45 49 4C 45 00 41 44 43 23 32 33 |BILDZEILE.ADC#23| 00002B00: 00 53 54 41 42 49 4C 44 5A 45 49 4C 45 00 53 54 |.STABILDZEILE.ST| 00002B10: 41 5A 41 48 4C 31 00 4C 44 41 42 49 4C 44 5A 45 |AZAHL1.LDABILDZE| 00002B20: 49 4C 45 2B 31 00 41 44 43 23 30 00 53 54 41 42 |ILE+1.ADC#0.STAB| 00002B30: 49 4C 44 5A 45 49 4C 45 2B 31 00 53 54 41 5A 41 |ILDZEILE+1.STAZA| 00002B40: 48 4C 31 2B 31 00 53 45 43 3B D4 45 58 54 45 4E |HL1+1.SEC;.EXTEN| 00002B50: 44 45 20 45 52 52 45 49 43 48 54 20 3F 00 4C 44 |DE ERREICHT ?.LD| 00002B60: 41 5A 45 49 4C 45 4E 00 53 42 43 23 32 33 00 53 |AZEILEN.SBC#23.S| 00002B70: 54 41 5A 41 48 4C 32 00 4C 44 41 5A 45 49 4C 45 |TAZAHL2.LDAZEILE| 00002B80: 4E 2B 31 00 53 42 43 23 30 00 53 54 41 5A 41 48 |N+1.SBC#0.STAZAH| 00002B90: 4C 32 2B 31 00 42 43 43 46 31 00 4A 53 52 56 45 |L2+1.BCCF1.JSRVE| 00002BA0: 52 47 4C 45 49 43 48 00 42 43 53 46 37 3B CA 41 |RGLEICH.BCSF7;.A| 00002BB0: 2D 3E D4 45 58 54 45 4E 44 45 00 42 43 43 46 4B |->.EXTENDE.BCCFK| 00002BC0: 54 41 42 53 43 48 4C 3B C2 49 4C 44 20 41 4E 5A |TABSCHL;.ILD ANZ| 00002BD0: 45 49 47 45 4E 00 20 00 4E 4F 46 35 3A 43 4D 50 |EIGEN. .NOF5:CMP| 00002BE0: 23 31 33 34 3B C6 33 20 2D 20 D3 45 49 54 45 20 |#134;.3 - .EITE | 00002BF0: 5A 55 52 55 45 43 4B 00 42 4E 45 4E 4F 46 33 00 |ZURUECK.BNENOF3.| 00002C00: 4A 53 52 55 50 44 41 54 45 4E 00 53 45 43 3B C2 |JSRUPDATEN.SEC;.| 00002C10: 49 4C 44 5A 45 49 4C 45 2D 32 33 00 4C 44 41 42 |ILDZEILE-23.LDAB| 00002C20: 49 4C 44 5A 45 49 4C 45 00 53 42 43 23 32 33 00 |ILDZEILE.SBC#23.| 00002C30: 53 54 41 42 49 4C 44 5A 45 49 4C 45 00 4C 44 41 |STABILDZEILE.LDA| 00002C40: 42 49 4C 44 5A 45 49 4C 45 2B 31 00 53 42 43 23 |BILDZEILE+1.SBC#| 00002C50: 30 00 53 54 41 42 49 4C 44 5A 45 49 4C 45 2B 31 |0.STABILDZEILE+1| 00002C60: 00 42 43 43 46 31 3B 3C 30 2D 3E D4 45 58 54 41 |.BCCF1;<0->.EXTA| 00002C70: 4E 46 41 4E 47 00 42 43 53 46 4B 54 41 42 53 43 |NFANG.BCSFKTABSC| 00002C80: 48 4C 3B C2 49 4C 44 20 41 4E 5A 45 49 47 45 4E |HL;.ILD ANZEIGEN| 00002C90: 00 20 00 4E 4F 46 33 3A 43 4D 50 23 31 33 37 3B |. .NOF3:CMP#137;| 00002CA0: C6 32 20 2D 20 D3 45 49 54 45 4E 41 4E 46 41 4E |.2 - .EITENANFAN| 00002CB0: 47 00 42 4E 45 4E 4F 46 32 00 4A 53 52 55 50 44 |G.BNENOF2.JSRUPD| 00002CC0: 41 54 45 4E 00 4C 44 59 53 50 41 4C 54 45 3B C3 |ATEN.LDYSPALTE;.| 00002CD0: 55 52 53 4F 52 20 53 45 54 5A 45 4E 00 4C 44 58 |URSOR SETZEN.LDX| 00002CE0: 23 31 00 4A 53 52 53 45 54 43 52 53 52 00 4A 4D |#1.JSRSETCRSR.JM| 00002CF0: 50 53 54 41 5A 45 49 00 20 00 4E 4F 46 32 3A 43 |PSTAZEI. .NOF2:C| 00002D00: 4D 50 23 31 34 30 3B C6 38 20 2D 20 D3 45 49 54 |MP#140;.8 - .EIT| 00002D10: 45 4E 45 4E 44 45 00 42 45 51 46 38 00 52 54 53 |ENENDE.BEQF8.RTS| 00002D20: 00 46 38 3A 4A 53 52 55 50 44 41 54 45 4E 00 4C |.F8:JSRUPDATEN.L| 00002D30: 44 41 5A 45 49 4C 45 4E 2B 31 3B D7 45 4E 49 47 |DAZEILEN+1;.ENIG| 00002D40: 45 52 20 41 4C 53 20 32 35 20 DA 45 49 4C 45 4E |ER ALS 25 .EILEN| 00002D50: 20 3F 00 42 4E 45 5A 32 35 00 4C 44 41 5A 45 49 | ?.BNEZ25.LDAZEI| 00002D60: 4C 45 4E 00 43 4D 50 23 32 35 00 42 43 53 5A 32 |LEN.CMP#25.BCSZ2| 00002D70: 35 00 53 45 54 43 3A 4C 44 59 53 50 41 4C 54 45 |5.SETC:LDYSPALTE| 00002D80: 3B 4A 41 00 54 41 58 00 4A 53 52 53 45 54 43 52 |;JA.TAX.JSRSETCR| 00002D90: 53 52 00 4A 4D 50 53 54 41 5A 45 49 00 5A 32 35 |SR.JMPSTAZEI.Z25| 00002DA0: 3A 4C 44 41 23 32 34 3B CE 45 49 4E 00 42 4E 45 |:LDA#24;.EIN.BNE| 00002DB0: 53 45 54 43 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A |SETC. .;********| 00002DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00002DE0: 3B 2A 20 2A 20 20 20 20 20 20 20 C3 55 52 53 4F |;* * .URSO| 00002DF0: 52 20 2D 20 D4 41 53 54 45 4E 20 20 20 20 20 20 |R - .ASTEN | 00002E00: 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A | * *.;******| 00002E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002E30: 2A 00 20 00 43 52 53 52 54 41 53 54 3A 43 4D 50 |*. .CRSRTAST:CMP| 00002E40: 23 31 35 37 3B C3 52 53 52 20 4C 49 4E 4B 53 20 |#157;.RSR LINKS | 00002E50: 3F 00 42 4E 45 52 49 47 48 54 3F 00 44 45 43 43 |?.BNERIGHT?.DECC| 00002E60: 53 50 41 4C 3B 43 53 50 41 4C 2D 31 00 42 45 51 |SPAL;CSPAL-1.BEQ| 00002E70: 4C 52 41 4E 44 3B D3 50 52 55 4E 47 20 41 55 46 |LRAND;.PRUNG AUF| 00002E80: 20 D0 4F 53 2E 20 38 30 00 4C 44 41 43 53 50 41 | .OS. 80.LDACSPA| 00002E90: 4C 00 53 45 43 00 41 44 43 23 30 00 43 4D 50 23 |L.SEC.ADC#0.CMP#| 00002EA0: 33 32 3B 42 45 49 20 C2 45 44 41 52 46 20 4E 45 |32;BEI .EDARF NE| 00002EB0: 55 45 53 20 C2 49 4C 44 00 42 43 43 41 42 49 4C |UES .ILD.BCCABIL| 00002EC0: 44 00 43 4D 50 23 37 32 00 42 43 53 41 42 49 4C |D.CMP#72.BCSABIL| 00002ED0: 44 00 41 4E 44 23 25 31 31 31 00 42 45 51 4C 4E |D.AND#%111.BEQLN| 00002EE0: 45 55 42 49 4C 44 00 41 42 49 4C 44 3A 4C 44 59 |EUBILD.ABILD:LDY| 00002EF0: 53 50 41 4C 54 45 3B D3 50 41 4C 54 45 2D 31 00 |SPALTE;.PALTE-1.| 00002F00: 44 45 59 00 43 52 41 42 53 43 48 4C 3A 4C 44 58 |DEY.CRABSCHL:LDX| 00002F10: 5A 45 49 4C 45 00 4A 53 52 53 45 54 43 52 53 52 |ZEILE.JSRSETCRSR| 00002F20: 00 4A 53 52 53 54 41 5A 45 49 00 4C 44 41 23 30 |.JSRSTAZEI.LDA#0| 00002F30: 00 52 54 53 00 4C 52 41 4E 44 3A 4C 44 41 23 38 |.RTS.LRAND:LDA#8| 00002F40: 30 3B D0 4F 53 2E 20 38 30 00 53 54 41 43 53 50 |0;.OS. 80.STACSP| 00002F50: 41 4C 00 4A 53 52 42 49 4C 44 00 4C 44 59 23 33 |AL.JSRBILD.LDY#3| 00002F60: 39 00 42 4E 45 43 52 41 42 53 43 48 4C 00 4C 4E |9.BNECRABSCHL.LN| 00002F70: 45 55 42 49 4C 44 3A 4A 53 52 42 49 4C 44 3B C8 |EUBILD:JSRBILD;.| 00002F80: 4F 52 49 2E 20 D3 43 52 4F 4C 4C 45 4E 00 4C 44 |ORI. .CROLLEN.LD| 00002F90: 41 53 50 41 4C 54 45 3B D3 50 41 4C 54 45 20 2B |ASPALTE;.PALTE +| 00002FA0: 20 31 39 00 43 4C 43 00 41 44 43 23 37 00 54 41 | 19.CLC.ADC#7.TA| 00002FB0: 59 00 4A 4D 50 43 52 41 42 53 43 48 4C 00 20 00 |Y.JMPCRABSCHL. .| 00002FC0: 52 49 47 48 54 3F 3A 43 4D 50 23 32 39 3B C3 52 |RIGHT?:CMP#29;.R| 00002FD0: 53 52 20 52 45 43 48 54 53 20 3F 00 42 4E 45 55 |SR RECHTS ?.BNEU| 00002FE0: 50 3F 00 52 49 47 48 54 3A 49 4E 43 43 53 50 41 |P?.RIGHT:INCCSPA| 00002FF0: 4C 3B 43 53 50 41 4C 2B 31 00 4C 44 41 43 53 50 |L;CSPAL+1.LDACSP| 00003000: 41 4C 00 43 4D 50 23 38 31 3B 41 55 46 20 D0 4F |AL.CMP#81;AUF .O| 00003010: 53 20 30 20 53 50 52 49 4E 47 45 4E 20 3F 00 42 |S 0 SPRINGEN ?.B| 00003020: 45 51 52 52 41 4E 44 3B 4A 41 00 43 4D 50 23 37 |EQRRAND;JA.CMP#7| 00003030: 32 00 42 43 53 41 42 49 4C 44 32 3B 42 45 49 20 |2.BCSABILD2;BEI | 00003040: C2 45 44 41 52 46 20 4E 45 55 45 53 20 C2 49 4C |.EDARF NEUES .IL| 00003050: 44 00 43 4D 50 23 33 32 00 42 43 43 41 42 49 4C |D.CMP#32.BCCABIL| 00003060: 44 32 00 41 4E 44 23 25 31 31 31 00 42 45 51 52 |D2.AND#%111.BEQR| 00003070: 4E 45 55 42 49 4C 44 00 41 42 49 4C 44 32 3A 4C |NEUBILD.ABILD2:L| 00003080: 44 59 53 50 41 4C 54 45 3B D3 50 41 4C 54 45 20 |DYSPALTE;.PALTE | 00003090: 2B 31 00 49 4E 59 00 42 4E 45 43 52 41 42 53 43 |+1.INY.BNECRABSC| 000030A0: 48 4C 00 52 52 41 4E 44 3A 4C 44 59 23 31 3B 41 |HL.RRAND:LDY#1;A| 000030B0: 55 46 20 D0 4F 53 2E 20 30 00 53 54 59 43 53 50 |UF .OS. 0.STYCSP| 000030C0: 41 4C 00 4A 53 52 42 49 4C 44 00 4C 44 59 23 30 |AL.JSRBILD.LDY#0| 000030D0: 00 42 45 51 43 52 41 42 53 43 48 4C 00 52 4E 45 |.BEQCRABSCHL.RNE| 000030E0: 55 42 49 4C 44 3A 4A 53 52 42 49 4C 44 3B C8 4F |UBILD:JSRBILD;.O| 000030F0: 52 49 2E 20 D3 43 52 4F 4C 4C 45 4E 00 4C 44 41 |RI. .CROLLEN.LDA| 00003100: 53 50 41 4C 54 45 3B D3 50 41 4C 54 45 2D 31 39 |SPALTE;.PALTE-19| 00003110: 00 53 45 43 00 53 42 43 23 37 00 54 41 59 00 4A |.SEC.SBC#7.TAY.J| 00003120: 4D 50 43 52 41 42 53 43 48 4C 00 20 00 55 50 3F |MPCRABSCHL. .UP?| 00003130: 3A 43 4D 50 23 31 34 35 3B C3 52 53 52 20 48 4F |:CMP#145;.RSR HO| 00003140: 43 48 00 42 4E 45 44 4F 57 4E 3F 00 4A 53 52 55 |CH.BNEDOWN?.JSRU| 00003150: 50 44 41 54 45 4E 00 4C 44 59 53 50 41 4C 54 45 |PDATEN.LDYSPALTE| 00003160: 00 4C 44 58 5A 45 49 4C 45 3B 5A 45 49 4C 45 2D |.LDXZEILE;ZEILE-| 00003170: 31 00 44 45 58 00 42 45 51 44 53 43 52 4F 4C 4C |1.DEX.BEQDSCROLL| 00003180: 3B D3 43 52 4F 4C 4C 45 4E 00 42 46 43 54 3A 4A |;.CROLLEN.BFCT:J| 00003190: 53 52 53 45 54 43 52 53 52 00 4A 53 52 53 54 41 |SRSETCRSR.JSRSTA| 000031A0: 5A 45 49 00 4C 44 41 23 30 00 52 54 53 00 20 00 |ZEI.LDA#0.RTS. .| 000031B0: 44 4F 57 4E 3F 3A 43 4D 50 23 31 37 3B C3 52 53 |DOWN?:CMP#17;.RS| 000031C0: 52 20 52 55 4E 54 45 52 00 42 45 51 44 4F 57 4E |R RUNTER.BEQDOWN| 000031D0: 00 52 54 53 00 44 4F 57 4E 3A 4C 44 41 43 5A 45 |.RTS.DOWN:LDACZE| 000031E0: 49 4C 3B C4 4F 57 4E 20 4D 4F 45 47 4C 49 43 48 |IL;.OWN MOEGLICH| 000031F0: 3F 00 43 4D 50 5A 45 49 4C 45 4E 00 42 4E 45 44 |?.CMPZEILEN.BNED| 00003200: 4F 57 4E 21 00 4C 44 41 43 5A 45 49 4C 2B 31 00 |OWN!.LDACZEIL+1.| 00003210: 43 4D 50 5A 45 49 4C 45 4E 2B 31 00 42 4E 45 44 |CMPZEILEN+1.BNED| 00003220: 4F 57 4E 21 00 4C 44 41 23 30 3B 4E 45 49 4E 00 |OWN!.LDA#0;NEIN.| 00003230: 52 54 53 00 44 4F 57 4E 21 3A 4A 53 52 55 50 44 |RTS.DOWN!:JSRUPD| 00003240: 41 54 45 4E 3B C4 4F 57 4E 20 41 55 53 46 55 45 |ATEN;.OWN AUSFUE| 00003250: 48 52 45 4E 00 4C 44 59 53 50 41 4C 54 45 00 4C |HREN.LDYSPALTE.L| 00003260: 44 58 5A 45 49 4C 45 00 43 50 58 23 32 34 00 42 |DXZEILE.CPX#24.B| 00003270: 45 51 55 53 43 52 4F 4C 4C 3B D3 43 52 4F 4C 4C |EQUSCROLL;.CROLL| 00003280: 45 4E 00 49 4E 58 00 42 4E 45 42 46 43 54 00 20 |EN.INX.BNEBFCT. | 00003290: 00 55 53 43 52 4F 4C 4C 3A 4A 53 52 45 49 4E 46 |.USCROLL:JSREINF| 000032A0: 41 43 48 5A 45 49 3B CE 41 43 48 20 4F 42 45 4E |ACHZEI;.ACH OBEN| 000032B0: 20 53 43 52 4F 4C 4C 45 4E 00 4C 44 41 23 3E 55 | SCROLLEN.LDA#>U| 000032C0: 53 43 52 52 54 2D 31 3B D0 41 52 41 4D 45 54 45 |SCRRT-1;.ARAMETE| 000032D0: 52 20 46 55 45 52 00 50 48 41 3B C2 45 54 52 49 |R FUER.PHA;.ETRI| 000032E0: 45 42 53 53 59 53 54 45 4D 52 4F 55 54 49 4E 45 |EBSSYSTEMROUTINE| 000032F0: 00 4C 44 41 23 3C 55 53 43 52 52 54 2D 31 3B 41 |.LDA#<USCRRT-1;A| 00003300: 55 46 20 D3 54 41 43 4B 00 50 48 41 00 4C 44 41 |UF .TACK.PHA.LDA| 00003310: 53 43 52 46 45 4C 44 00 50 48 41 00 4C 44 41 53 |SCRFELD.PHA.LDAS| 00003320: 43 52 46 45 4C 44 2B 31 00 50 48 41 00 4C 44 41 |CRFELD+1.PHA.LDA| 00003330: 53 43 52 46 45 4C 44 2B 32 00 50 48 41 00 4C 44 |SCRFELD+2.PHA.LD| 00003340: 41 53 43 52 46 45 4C 44 2B 33 00 50 48 41 00 4C |ASCRFELD+3.PHA.L| 00003350: 44 58 23 30 00 4A 4D 50 55 53 43 52 3B D2 4F 55 |DX#0.JMPUSCR;.OU| 00003360: 54 49 4E 45 20 41 4E 53 50 52 49 4E 47 45 4E 00 |TINE ANSPRINGEN.| 00003370: 55 53 43 52 52 54 3A 4C 44 41 23 30 3B D2 55 45 |USCRRT:LDA#0;.UE| 00003380: 43 4B 4B 45 48 52 20 56 4F 4E 20 D2 4F 55 54 49 |CKKEHR VON .OUTI| 00003390: 4E 45 00 53 54 41 5A 41 48 4C 32 00 4C 44 41 41 |NE.STAZAHL2.LDAA| 000033A0: 53 53 46 4C 32 3B CB 45 49 4E 20 41 4C 54 45 53 |SSFL2;.EIN ALTES| 000033B0: 20 C2 49 4C 44 00 41 4E 44 23 32 35 34 00 53 54 | .ILD.AND#254.ST| 000033C0: 41 41 53 53 46 4C 32 00 49 4E 43 42 49 4C 44 5A |AASSFL2.INCBILDZ| 000033D0: 45 49 4C 45 3B C2 49 4C 44 5A 45 49 4C 45 2B 31 |EILE;.ILDZEILE+1| 000033E0: 00 42 4E 45 50 52 49 4E 54 00 49 4E 43 42 49 4C |.BNEPRINT.INCBIL| 000033F0: 44 5A 45 49 4C 45 2B 31 00 42 4E 45 50 52 49 4E |DZEILE+1.BNEPRIN| 00003400: 54 00 20 00 44 53 43 52 4F 4C 4C 3A 4C 44 58 42 |T. .DSCROLL:LDXB| 00003410: 49 4C 44 5A 45 49 4C 45 2B 31 3B CE 41 43 48 20 |ILDZEILE+1;.ACH | 00003420: 55 4E 54 45 4E 20 53 43 52 4F 4C 4C 45 4E 00 4C |UNTEN SCROLLEN.L| 00003430: 44 59 42 49 4C 44 5A 45 49 4C 45 3B C2 49 4C 44 |DYBILDZEILE;.ILD| 00003440: 5A 45 49 4C 45 2D 31 00 42 4E 45 44 53 00 44 45 |ZEILE-1.BNEDS.DE| 00003450: 58 00 44 53 3A 44 45 59 00 42 4E 45 44 53 32 00 |X.DS:DEY.BNEDS2.| 00003460: 43 50 58 23 30 3B D3 43 52 4F 4C 4C 45 4E 20 3F |CPX#0;.CROLLEN ?| 00003470: 00 42 4E 45 44 53 32 00 4C 44 41 23 30 00 52 54 |.BNEDS2.LDA#0.RT| 00003480: 53 00 44 53 32 3A 53 54 58 42 49 4C 44 5A 45 49 |S.DS2:STXBILDZEI| 00003490: 4C 45 2B 31 3B CA 41 00 53 54 59 42 49 4C 44 5A |LE+1;.A.STYBILDZ| 000034A0: 45 49 4C 45 00 4C 44 41 41 53 53 46 4C 32 3B CB |EILE.LDAASSFL2;.| 000034B0: 45 49 4E 20 41 4C 54 45 53 20 C2 49 4C 44 00 41 |EIN ALTES .ILD.A| 000034C0: 4E 44 23 32 35 34 00 53 54 41 41 53 53 46 4C 32 |ND#254.STAASSFL2| 000034D0: 00 4C 44 59 53 50 41 4C 54 45 00 54 59 41 00 50 |.LDYSPALTE.TYA.P| 000034E0: 48 41 00 4C 44 58 23 30 00 4A 53 52 53 45 54 43 |HA.LDX#0.JSRSETC| 000034F0: 52 53 52 00 4A 53 52 45 49 4E 46 41 43 48 5A 45 |RSR.JSREINFACHZE| 00003500: 49 00 4A 53 52 44 53 43 52 3B D3 43 52 4F 4C 4C |I.JSRDSCR;.CROLL| 00003510: 20 D2 4F 55 54 49 4E 45 00 4A 53 52 45 49 4E 46 | .OUTINE.JSREINF| 00003520: 41 43 48 5A 45 49 00 4A 53 52 48 4F 4D 45 3B D0 |ACHZEI.JSRHOME;.| 00003530: 4F 49 4E 54 45 52 20 52 45 53 45 54 00 50 4C 41 |OINTER RESET.PLA| 00003540: 00 54 41 59 00 4C 44 58 23 31 00 4A 53 52 53 45 |.TAY.LDX#1.JSRSE| 00003550: 54 43 52 53 52 00 4C 44 41 23 31 00 53 54 41 5A |TCRSR.LDA#1.STAZ| 00003560: 41 48 4C 32 00 20 00 50 52 49 4E 54 3A 4A 53 52 |AHL2. .PRINT:JSR| 00003570: 45 49 4E 46 41 43 48 5A 45 49 3B DA 45 49 4C 45 |EINFACHZEI;.EILE| 00003580: 20 41 55 53 47 45 42 45 4E 00 4A 53 52 53 54 41 | AUSGEBEN.JSRSTA| 00003590: 5A 45 49 00 4C 44 41 43 5A 45 49 4C 3B DA 45 49 |ZEI.LDACZEIL;.EI| 000035A0: 4C 45 4E 4E 55 4D 4D 45 52 00 53 54 41 5A 41 48 |LENNUMMER.STAZAH| 000035B0: 4C 31 00 4C 44 41 43 5A 45 49 4C 2B 31 00 53 54 |L1.LDACZEIL+1.ST| 000035C0: 41 5A 41 48 4C 31 2B 31 00 4A 53 52 46 41 52 42 |AZAHL1+1.JSRFARB| 000035D0: 45 00 4A 53 52 53 43 52 5A 41 44 52 3B C1 44 52 |E.JSRSCRZADR;.DR| 000035E0: 2E 20 53 55 43 48 45 4E 00 4C 44 59 23 30 00 50 |. SUCHEN.LDY#0.P| 000035F0: 4C 49 4E 45 3A 4A 53 52 48 4F 4C 5A 47 3B DA 45 |LINE:JSRHOLZG;.E| 00003600: 49 4C 45 2D 3E 41 4E 5A 45 49 42 55 46 00 53 54 |ILE->ANZEIBUF.ST| 00003610: 41 41 4E 5A 45 49 42 55 46 2C 59 00 42 45 51 46 |AANZEIBUF,Y.BEQF| 00003620: 45 52 54 00 49 4E 59 00 42 4E 45 50 4C 49 4E 45 |ERT.INY.BNEPLINE| 00003630: 00 46 45 52 54 3A 4A 53 52 41 5A 50 52 49 3B 55 |.FERT:JSRAZPRI;U| 00003640: 4E 44 20 41 55 53 47 45 42 45 4E 00 4C 44 41 23 |ND AUSGEBEN.LDA#| 00003650: 30 00 52 54 53 00 20 00 53 43 52 5A 41 44 52 3A |0.RTS. .SCRZADR:| 00003660: 4C 44 59 23 30 3B DA 45 49 4C 45 41 44 52 2E 20 |LDY#0;.EILEADR. | 00003670: 46 55 45 52 20 53 43 52 4F 4C 4C 45 4E 20 48 4F |FUER SCROLLEN HO| 00003680: 4C 45 4E 00 4C 44 41 53 43 52 4F 4C 4C 46 4C 41 |LEN.LDASCROLLFLA| 00003690: 47 3B D3 55 43 48 45 4E 20 3F 00 42 4D 49 53 55 |G;.UCHEN ?.BMISU| 000036A0: 43 48 45 4E 3B 4A 41 00 50 48 41 00 4C 44 41 5A |CHEN;JA.PHA.LDAZ| 000036B0: 41 48 4C 32 3B 44 4F 57 4E 53 43 52 4F 4C 4C 20 |AHL2;DOWNSCROLL | 000036C0: 3F 00 42 45 51 55 4E 54 45 4E 00 50 4C 41 00 42 |?.BEQUNTEN.PLA.B| 000036D0: 45 51 53 55 43 48 45 4E 3B 55 50 53 43 52 4F 4C |EQSUCHEN;UPSCROL| 000036E0: 4C 20 4E 41 43 48 20 44 4F 57 4E 53 43 52 4F 4C |L NACH DOWNSCROL| 000036F0: 4C 20 2D 3E 20 53 55 43 48 45 4E 00 4C 44 41 5A |L -> SUCHEN.LDAZ| 00003700: 41 48 4C 31 2B 31 3B 45 52 53 54 45 20 DA 45 49 |AHL1+1;ERSTE .EI| 00003710: 4C 45 20 3F 00 42 4E 45 4E 4F 54 46 49 52 53 54 |LE ?.BNENOTFIRST| 00003720: 00 4C 44 41 5A 41 48 4C 31 00 43 4D 50 23 31 00 |.LDAZAHL1.CMP#1.| 00003730: 42 45 51 53 55 43 48 45 4E 00 4E 4F 54 46 49 52 |BEQSUCHEN.NOTFIR| 00003740: 53 54 3A 4C 44 41 41 44 52 55 44 3B C1 4C 54 45 |ST:LDAADRUD;.LTE| 00003750: 20 C1 44 52 2D 3E 5A 47 00 53 54 41 5A 47 00 4C | .DR->ZG.STAZG.L| 00003760: 44 41 41 44 52 55 44 2B 31 00 53 54 41 5A 47 2B |DAADRUD+1.STAZG+| 00003770: 31 00 4A 53 52 44 45 43 5A 47 3B D6 4F 52 47 41 |1.JSRDECZG;.ORGA| 00003780: 45 4E 47 45 52 5A 45 49 4C 45 20 53 55 43 48 45 |ENGERZEILE SUCHE| 00003790: 4E 00 56 4F 52 5A 45 49 4C 3A 4A 53 52 44 45 43 |N.VORZEIL:JSRDEC| 000037A0: 5A 47 00 4A 53 52 48 4F 4C 5A 47 00 42 4E 45 56 |ZG.JSRHOLZG.BNEV| 000037B0: 4F 52 5A 45 49 4C 00 49 4E 43 5A 47 00 42 4E 45 |ORZEIL.INCZG.BNE| 000037C0: 50 55 54 55 50 00 49 4E 43 5A 47 2B 31 00 50 55 |PUTUP.INCZG+1.PU| 000037D0: 54 55 50 3A 4C 44 41 5A 47 3B C1 44 52 2E 20 41 |TUP:LDAZG;.DR. A| 000037E0: 4C 53 20 4E 45 55 45 20 C1 44 52 2E 00 53 54 41 |LS NEUE .DR..STA| 000037F0: 41 44 52 55 44 00 4C 44 41 5A 47 2B 31 00 53 54 |ADRUD.LDAZG+1.ST| 00003800: 41 41 44 52 55 44 2B 31 00 4C 44 41 23 31 3B D3 |AADRUD+1.LDA#1;.| 00003810: 43 52 4F 4C 4C 46 4C 41 47 20 4E 45 55 20 53 45 |CROLLFLAG NEU SE| 00003820: 54 5A 45 4E 00 53 54 41 53 43 52 4F 4C 4C 46 4C |TZEN.STASCROLLFL| 00003830: 41 47 00 52 54 53 00 55 4E 54 45 4E 3A 50 4C 41 |AG.RTS.UNTEN:PLA| 00003840: 3B CE 41 43 48 20 55 4E 54 45 4E 20 53 43 52 4F |;.ACH UNTEN SCRO| 00003850: 4C 4C 45 4E 00 41 53 4C 00 42 4E 45 53 55 43 48 |LLEN.ASL.BNESUCH| 00003860: 45 4E 3B 44 4F 57 4E 53 43 52 4F 4C 4C 20 4E 41 |EN;DOWNSCROLL NA| 00003870: 43 48 20 55 50 53 43 52 4F 4C 4C 20 2D 3E 20 53 |CH UPSCROLL -> S| 00003880: 55 43 48 45 4E 00 4C 44 41 41 44 52 55 44 3B CE |UCHEN.LDAADRUD;.| 00003890: 41 43 48 46 4F 4C 47 45 5A 45 49 4C 45 20 53 55 |ACHFOLGEZEILE SU| 000038A0: 43 48 45 4E 00 53 54 41 5A 47 00 4C 44 41 41 44 |CHEN.STAZG.LDAAD| 000038B0: 52 55 44 2B 31 00 53 54 41 5A 47 2B 31 00 4A 53 |RUD+1.STAZG+1.JS| 000038C0: 52 54 45 58 54 4C 49 4E 45 00 50 55 54 44 4F 3A |RTEXTLINE.PUTDO:| 000038D0: 4C 44 41 5A 47 3B CE 45 55 45 20 C1 44 52 2E 20 |LDAZG;.EUE .DR. | 000038E0: 53 50 45 49 43 48 45 52 4E 00 53 54 41 41 44 52 |SPEICHERN.STAADR| 000038F0: 55 44 00 4C 44 41 5A 47 2B 31 00 53 54 41 41 44 |UD.LDAZG+1.STAAD| 00003900: 52 55 44 2B 31 00 52 54 53 00 53 55 43 48 45 4E |RUD+1.RTS.SUCHEN| 00003910: 3A 4A 53 52 5A 41 44 52 3B C1 44 52 45 53 53 45 |:JSRZADR;.DRESSE| 00003920: 20 53 55 43 48 45 4E 00 4C 44 41 23 30 3B D3 43 | SUCHEN.LDA#0;.C| 00003930: 52 4F 4C 4C 46 4C 41 47 20 4E 45 55 20 53 45 54 |ROLLFLAG NEU SET| 00003940: 5A 45 4E 00 53 54 41 53 43 52 4F 4C 4C 46 4C 41 |ZEN.STASCROLLFLA| 00003950: 47 00 4C 44 41 5A 41 48 4C 32 3B C1 44 52 2E 20 |G.LDAZAHL2;.DR. | 00003960: 53 50 45 49 43 48 45 52 4E 00 42 45 51 50 55 54 |SPEICHERN.BEQPUT| 00003970: 44 4F 00 42 4E 45 50 55 54 55 50 00 20 00 2E 46 |DO.BNEPUTUP. ..F| 00003980: 49 22 45 44 49 54 20 32 22 00 00 FF |I"EDIT 2"... |
.9;;;--- QUELLDATEI EDIT 1. . .;********
*******************************.;* *
E D I T O R * *.;******
*********************************. .EDIT
INIT:LDX#128;EDITOR INITIALISIEREN.STXSC
ROLLFLAG.LDAFLAGS;KEIN UPDATE.AND#%11111
11.STAFLAGS.LDAASSFL2;ASSFL2 RUECKSETZEN
.AND#%11111110.STAASSFL2.RTS. .EDITOR:LD
X#0;ZEILE 1.STXCZEIL+1.STXBILDZEILE+1.IN
X.STXCZEIL.STXCSPAL;SPALTE 1.STXBILDZEIL
E.JSREDITINIT;EDIT INIT..JSRCLRSCR;BILD
LOESCHEN.JSRNEXTZEI.JSRBILD;BILD AUFBAUE
N.EDBEF:JSRCRSRON;CURSOR AN.JSRGET;ZEICH
EN HOLEN.STALASTCHR.PHA.JSRCRSROFF;CURSO
R AUS.PLA.CMP#13;<RETURN> ?.BNENOCR. .;*
* RETURN TASTE ABARBEITEN.JSRUPDATEN;JA.
LDAFLAGS;INSERT ?.AND#4.BEQNOINS.SEC.LDA
CZEIL;ZAHL1=MOM. ZEILE+1.ADC#0.STAZAHL1.
LDACZEIL+1.ADC#0.STAZAHL1+1.JSRDELEDBU.J
SRINSZEILE;ZEILE EINFUEGEN.NOINS:LDACSPA
L;SCROLLEN ?.CMP#32.PHP;ERGEBNIS MERKEN.
LDX#0;SPALTE 0.STXSPALTE.INX.STXCSPAL.JS
RDOWN;EINE ZEILE TIEFER.PLP.BCSNEWSCREEN
;SCROLLEN.LDAFLAGS;INSERT ?.AND#4.BEQEDB
EF.NEWSCREEN:JSRBILD;NEUES BILD BEI INSE
RT.JMPEDBEF;NACHSTES ZEICHEN. .;** ANDER
E TASTEN.NOCR:BITFLAGS;QUOTE MODE ?.BVCT
STST;NEIN.LDALASTCHR.JMPTEXTBEFE.TSTST:L
DASTTAST;CTRL-TASTE ?.AND#4.BNE*+5.JMPTE
XTBEF;NEIN. .;** CTRL TASTE.LDX#0;EDITOR
-BEFEHL HOLEN.JSRCLRLINE;STATUS ZEILE LO
ESCHEN.LDAZEILE.LDXSPALTE.STAZAHL2.STXZA
HL2+1.JSRHOME.LDA#STATCOL;FARBE AENDERN.
JSRSCRAUS.LDX#8.JSRWRITE.JSRCRSRON;CURSO
R ON.GET2:CLI;BEFEHL HOLEN.JSRGETR.BEQGE
T2.SEI.CMP#13;CR ?.BEQENDGET2;KEIN BEFEH
L.CMP#'A;EINGABE GUELTIG ?.BCCGET2.CMP#'
Z+1.BCSGET2.JSRSCRANZ;EINGABE ANZEIGEN.E
NDGET2:PHA.JSRCRSROFF.LDXZAHL2;CURSOR WI
DER AUF ALTE POSITION.LDYZAHL2+1.JSRSETC
RSR.PLA. .SEI;BEFEHL SUCHEN.LDX#EDBEFTAB
-EDBEFEHLE-1.SUCHEDBEF:CMPEDBEFEHLE,X.BE
QFOEDBEF;GEFUNDEN.DEX.BPLSUCHEDBEF.LDX#2
0;BEFEHL UNBEKANNT.JSREDERROR.JMPEDBEF.
.FOEDBEF:CMP#'Y;Y-BEFEHL ?.BEQNOUD.CMP#1
3;<RETURN> ?.BEQNOUD.TXA;BEFEHLSNUMMER M
ERKEN.PHA.JSRUPDATEN.PLA.NOUDCONT:ASL;BE
FEHLADRESSE HOLEN.TAX.LDAEDBEFTAB+1,X.PH
A.LDAEDBEFTAB,X.PHA.RTS;ZUM BEFEHL SPRIN
GEN.NOUD:TXA.JMPNOUDCONT. .;TABELLE DER
EDITORBEFEHLE MIT ADRESSEN.EDBEFEHLE:.BY
"XENDCMWIPTGOFSQABYZKLR",13.EDBEFTAB:.WO
DELTEXT-1;X-TEXT LOESCHEN..WODELLINE-1;E
-ZEILE LOESCHEN..WONEWLINE-1;N-ZEILE EIN
FUEGEN..WOBLOCKDEL-1;D-BLOCK LOESCHEN..W
OBLOCKCOPY-1;C-BLOCK KOPIEREN..WOBLOCKMO
VE-1;M-BLOCK VERSCHIEBEN..WOBLOWRITE-1;W
-BLOCK DRUCKEN..WOTOGINS-1;I-INSERT MODE
..WOTOGPACK-1;P-PACK MODE..WOTOGFORM-1;T
-FORMAT MODE..WOGOTO-1;G-GOTO ZEILE..WOO
LD-1;O-OLD BEFEHL..WOFIND-1;F-SUCHEN..WO
REPLACE-1;S-ERSETZEN..WOENDEDIT-1;Q-ZUM
MENUE..WOBLOBEG-1;A-BLOCK ANFANG..WOBLOE
NDE-1;B-BLOCK ENDE..WODELKORR-1;Y-KORREK
TUR LOESCHEN..WODELBLODEF-1;Z-BLOCKDEF.
LOESCHEN..WOKILL-1;K-ZEILENINHALT LOESCH
EN..WOLEKILL-1;L-LINKS VOM CURSOR LOESCH
EN..WORIKILL-1;R-RECHTS VOM CURSOR LOESC
HEN..WOEDBEF-1;RETURN. .ENDEDIT:JSRCRSRO
FF;ZUM MENUE.JMPMAIN. .FARBE:LDA#TEXTCOL
;FARBE AUSGEBEN.JSRSCRAUS;TEXTFARBE.JSRB
LOCKTEST;CRSR IM BLOCK ?.CMP#22.BNEFARBN
ORM.LDA#BLCKCOL;BLOCKFARBE.JSRSCRAUS.FAR
BNORM:RTS. .TEXTBEF:JSRFARBE;TEXTBEFEHL.
LDALASTCHR.SEI.JSRFKTTAST;FUNKTIONSTASTE
?.CMP#0.BNETSTCRSR;NEIN.LDA#128.STASCRO
LLFLAG.BNETOEDBEF.TSTCRSR:LDALASTCHR;CRS
R-TASTE ?.JSRCRSRTAST.CMP#0.BEQTOEDBEF.
.LDALASTCHR.CMP#20;DEL-TASTE ?.BEQDOUPDA
TE.CMP#148;INS-TASTE ?.BEQDOUPDATE.AND#%
1111111;EINGABE ZULAESSIG ?.CMP#32.BCCTO
EDBEF.CMP#96.BCSTOEDBEF.DOUPDATE:JSREDUP
DATEN.LDAFLAGS;INSERT MODE ?.AND#4.BEQUP
DABU;NEIN.LDALASTCHR.CMP#20;DEL.BEQUPDAB
U.CMP#148;INS.BEQUPDABU.JSRDOINSTAST;ZEI
CHEN EINFUEGEN.JSRDOEDPRI;ANZEIGEN.UPDAB
U:LDALASTCHR.CMP#20;DEL.BEQDELTAST.CMP#1
48;INS.BEQINSTAST.TEXTBEFE:LDYCSPAL;ZEIC
HEN->BUFFER.DEY.STAEDBUFFER,Y.JSRSCRANZ;
ANZEIGEN.CMP#'";QUOTE ?.BNENOQUOTE.LDA#6
4;FLAG UMDREHEN.EORFLAGS.STAFLAGS.NOQUOT
E:LDA#157;CURSOR LINKS.JSRSCRAUS.JSRRIGH
T.TOEDBEF:JMPEDBEF. .DELTAST:JSREINFACHZ
EI;DEL-TASTE.LDYCSPAL.DEY.CPY#79;LETZTE
POSITON.BEQTOEDBEF;JA.LEFTSHIFT:LDAEDBUF
FER+1,Y;INHALT LINKS SCHIEBEN.STAEDBUFFE
R,Y.INY.CPY#79.BNELEFTSHIFT.LDA#32;SPACE
ANHAENGEN.STAEDBUFFER+79.JMPEDPRI. .INS
TAST:JSRDOINSTAST;INS-TASTE.JMPEDPRI. .D
OINSTAST:JSREINFACHZEI.LDAEDBUFFER+79;ST
ELLE FREI ?.CMP#32.BEQINSMOEGLICH.JMPBEE
P;NEIN.INSMOEGLICH:LDYCSPAL.CPY#80.BNE*+
3.RTS.LDY#79;INHALT RECHTSSCHIEBEN.RIGHT
SHIFT:LDAEDBUFFER-1,Y.STAEDBUFFER,Y.DEY.
CPYCSPAL.BPLRIGHTSHIFT.LDA#32;SPACE EINF
UEGEN.STAEDBUFFER,Y.RTS. .EDPRI:JSRDOEDP
RI;EDBUFFER ANZEIGEN.JMPEDBEF.DOEDPRI:JS
RFIANZPOS;POS. OFFSET ERMITTELN.LDASPALT
E.PHA.LDAZEILE.PHA.LDY#0;ERSTE BILDPOS..
STYSPALTE.PLINE2:LDAEDBUFFER,Y;ANZEIGEPO
SITION ?.CPYMEM1.BCCNOPRI3;NEIN.JSRSCRAN
Z;ANZEIGEN.NOPRI3:INY.LDASPALTE;SCHON 40
ZEICHEN ?.CMP#40.BNEPLINE2;NEIN.FERTIG:
PLA.TAX.PLA.TAY.JMPSETCRSR. .AZPRI:LDASP
ALTE;ANZEIBUF ANZEIGEN.PHA;WERTE RETTEN.
LDAZEILE.PHA.LDX#0.STXMEM2;LABELPOSITION
=0.STXMEM3;KOMMENTARPOSITION=0.STXSPALTE
.JSRFIANZPOS;STARTPOSITION BERECHNEN.CLC
.LDAMEM1.ADC#40.STAMEM4;ENDPOSITION.LDX#
0.LDAANZEIBUF;KOMMENTARZEILE.CMP#';.BEQL
BLNOS.LDAFLAGS;FORMAT AN ?.AND#2.BEQLBLN
OS;NEIN.LDAMEM1.PHA.LDA#':;LABELPOS SETZ
EN.JSRINSTR.STYMEM2;IN MEM2.LDA#';;KOMME
NTPOS SETZEN.JSRINSTR.DEY.STYMEM3;POS.-1
IN MEM3.PLA.STAMEM1.LDX#0.LDAMEM2.BNELB
LNOS;ZEILE ENTHAELT LABEL.LDA#12;12 LEER
ZEICHEN.STAZAHL1.JSRSPACES.LBLNOS:LDY#0;
ZEILE AUSGEBEN.LINEBAU:LDAANZEIBUF,Y.BEQ
FERTIG2;ZEILENENDE ERREICHT.CPXMEM1.BCCN
OTSCREEN;POSITION NICHT IM FENSTER.JSRSC
RANZ.NOTSCREEN:INX.LDAANZEIBUF.CMP#';.BE
QNOTBEFOP1;KOMMENTARZEILE.LDAFLAGS;FORMA
T AN ?.AND#2.BEQNOTBEFOP1;NEIN.CPX#15;BE
FEHLENDE ERREICHT?.BNENOTBEFOP1.CPXMEM1;
POSITION IM FENSTER ?.BCCNOTSCREEN1.LDA#
32;EIN LEERZEICHEN AUSGEBEN.JSRSCRANZ.NO
TSCREEN1:INX;NAECHSTE POSITION.NOTBEFOP1
:CPY#0.BEQNOTBEFOP.CPYMEM2.BNENOTBEFOP2.
LDA#12;LABELENDE->TABULATORPOSITION 12.S
TAZAHL1.JSRSPACES.NOTBEFOP2:CPYMEM3.BNEN
OTBEFOP.LDA#31;KOMMENTAR->TAB.POS. 31.ST
AZAHL1.JSRSPACES.NOTBEFOP:INY;WEITER BIS
FENSTERENDE ERREICHT.CPXMEM4.BCCLINEBAU
.FERTIG2:PLA;WERTE ZURUECKHOLEN.TAX.PLA.
TAY.JMPSETCRSR. .SPACES:CPXZAHL1;TABULAT
OR ZAHL1.BCSSPACESEND;BEREITS ERREICHT.C
PXMEM1.BCCSPACESFORT;NOCH NICHT IM FENST
ER.CPXMEM4.BCSSPACESEND;FENSTERENDE ERRE
ICHT.LDA#32;AUSGABE IM FENSTER.JSRSCRANZ
.SPACESFORT:INX;NEXT POSITION.BNESPACES.
SPACESEND:RTS. .INSTR:STAMEM1;ZEICHEN IN
ANZEIBUF SUCHEN.LDY#$FE.TNCA:INY.NCA:IN
Y.LDAANZEIBUF,Y;ZEICHEN HOLEN.BNENOTREAD
YA.ISRA:LDY#0;ZEILENENDE.RTS.NOTREADYA:C
MPMEM1.BNE*+3.RTS;GEFUNDEN.CMP#39;APOSTR
OPH.BEQTNCA;NEXT ZEICHEN UEBERSPRINGEN.C
MP#';;REST KOMMERTAR.BEQISRA.CMP#'";ZEIC
HENKETTE.BNENCA.SEAQUENDA:INY;UEBERLESEN
.LDAANZEIBUF,Y.BEQISRA.CMP#'".BEQNCA.BNE
SEAQUENDA. .FIANZPOS:LDACSPAL;ANZEIGEPOS
. ERMITTELN.CMP#32;BIS SPALTE 31 POSITIO
N 0.BCCIND31.AND#%11111000;DANN IN 8'ER
SCHRITTEN.SEC.SBC#32-8.CMP#41;RECHTER RA
ND ERREICHT?.BCC*+2+2.LDA#40;JA->KORREKT
UR.STAMEM1.RTS.IND31:LDA#0.STAMEM1.RTS.
.UPDATEN:BITFLAGS;UPDATE.BPLNOUPDATE.LDA
FLAGS;UPDATE LOESCHEN.AND#%111111.STAFLA
GS.AND#1;PACK AN ?.BEQNOPACK.LDAFLAGS;FO
RMAT AN ?.AND#2.BEQNOFORM.JSRFARBE.JSRED
UNPACK;ZEILE ANZEIGEN.JSRDOEDPRI.JSRPACK
.JMPNOPACK.NOFORM:JSRPACK.JSRFARBE.JSRDO
EDPRI.NOPACK:LDACZEIL;ZEILE FESTLEGEN.ST
AZAHL1.LDACZEIL+1.STAZAHL1+1.JSRCHANGE;U
ND SPEICHERN.NOUPDATE:RTS. .EDUPDATEN:BI
TFLAGS;UPDATE.BMINOMEMTST.CLC.LDATXTPOIN
T;AUF SPEICHERPLATZ TESTEN.ADC#81.STAZAH
L1.LDATXTPOINT+1.ADC#0.STAZAHL1+1;ZAHL1=
TEXTENDE+81.BCSEDLOMEM.LDATXTEND;MIT TEX
TSPEICHERENDE VERGLEICHEN.STAZAHL2.LDATX
TEND+1.STAZAHL2+1.JSRVERGLEICH.BCCNOMEMT
ST.EDLOMEM:LDX#15;ZU WENIG SPEICHER.JSRE
DERROR.PLA.PLA.JMPEDBEF.NOMEMTST:BITFLAG
S;UPDATE.BPL*+3.RTS.JSRDELEDBU;BUFFER LO
ESCHEN.LDACZEIL.STAZAHL1.LDACZEIL+1.STAZ
AHL1+1.JSRZADR;ZEILE HOLEN.LDY#0.TRANS:J
SRHOLZG.BEQENDTRANS;ZEILENENDE.STAEDBUFF
ER,Y.INY.BNETRANS.ENDTRANS:LDAFLAGS;UPDA
TE.ORA#128.STAFLAGS.AND#2;FORMAT ?.BNE*+
3.RTS.JMPEDUNPACK;JA. .;****************
***********************.;* * STATU
SZEILE DRUCKEN * *.;**************
*************************. .STAZEI:JSRPU
SCH.LDASPALTE;POS. MERKEN.PHA.LDAZEILE.P
HA.TAX;ACCU=ZEILE-1.DEX.TXA.CLC;ACCU + O
BERSTE ZEILE.ADCBILDZEILE.STACZEIL;= AKT
UELLE ZEILE.LDABILDZEILE+1.ADC#0.STACZEI
L+1.JSRHOME.LDX#16;ZEILENTEXT.JSRWRITE.L
DACZEIL;ZEILENNUMMER AUSGEBEN.STAZAHL1.L
DACZEIL+1.STAZAHL1+1.JSRZAHLDEZOUT.LDA#1
7;ZEILENPOSITION AUSGEBEN.JSRSCRTAB.LDX#
18.JSRWRITE.LDA#0.STAZAHL1+1.LDACSPAL.ST
AZAHL1.JSRZAHLDEZOUT.LDA#24;STAUS ANZEIG
EN.JSRSCRTAB.LDX#17.JSRWRITE.LDA#3;4 STA
TUSFLAGS.STAMEM1.SHOW:LDXMEM1.LDAFLAGS;B
IT ERMITTELN.ANDBITS,X;UND NACH +/- WAND
ELN.BEQMI.LDA#'+.BIT.MI:LDA#'-.LDYSTZEIP
OS,X;SPALTE HOLEN.LDX#0.PHA;UND ANZEIGEN
.JSRSETCRSR.PLA.JSRSCRANZ.DECMEM1;ALLE F
LAGGEN ?.BPLSHOW;NEIN.LDA#TEXTCOL.JSRSCR
AUS.LDA#0.STARVS.PLA.TAX.PLA.TAY.JSRSETC
RSR.JMPPULL. .BITS:.BY64,4,2,1;FLAGGEN.S
TZEIPOS:.BY39,35,31,27;POSITIONEN. .SCRT
AB:CMPSPALTE;BILDSCHIRM TABULATOR.BCS*+3
.RTS.PHA;POSITION +1.LDA#32.JSRBSOUT.PLA
.BNESCRTAB. .CRSRON:LDA#0;CURSOR ANSCHAL
TEN.STABLIFLAG.RTS. .CRSROFF:INCBLIFLAG;
CURSOR AUSSCHALTEN.LDACRSTAT;CRSR AN ?.B
NE*+3.RTS.LDABLIFLAG+2;ABSCHALTEN.LDX$28
7.LDY#0.STYCRSTAT.JMP$EA13. .;**********
*****************************.;* *
EINE SEITE ANZEIGEN * *.;********
*******************************. .BILD:J
SRSTAZEI;STATUSZEILE.LDABILDZEILE;ADR. D
ER ERUTEN ZEILE.STAZAHL1.LDABILDZEILE+1.
STAZAHL1+1.JSRBILDZADR.LDASPALTE;POS. ME
RKEN.PHA.LDAZEILE.STAZAHL3.PHA.LDX#1;AUS
GABE AB ERSTER ZEILE.LI:JSRCLRLINE;ZEILE
LOESCHEN.TXA.PHA.LDY#0;ERSTE POS..STYSP
ALTE.LDA#TEXTCOL;FARBE AUSGEBEN.JSRSCRAU
S.CLC.DEX.TXA.INX.ADCBILDZEILE;AUF BLOCK
TESTEN.STAZAHL1.LDA#0.ADCBILDZEILE+1.ST
AZAHL1+1.JSRBLOCKTEST.CMP#22.BNENORMCOL;
KEIN BLOCK.LDA#BLCKCOL;BLOCHFARBE.JSRSCR
AUS.NORMCOL:CPXZAHL3;CURSORZEILE ?.BNELI
NE.BITFLAGS;UPDATE ?.BPLLINE.JSRDOEDPRI;
BUFFER ANZEIGEN.JMPNEXTLINE.LINE:LDY#0;Z
EILE ANZEIGEN.LINEL:JSRHOLZG.STAANZEIBUF
,Y.BEQTONELI.INY.CPY#80;ZEILENENDE ?.BNE
LINEL.TONELI:JSRAZPRI.NEXTLINE:LDY#0;NEX
T ZEILENADRESSE.JSRTEXTLINE.BEQET.PLA;AL
LE ZEILEN ?.TAX.INX.CPX#25.BNELI;NEIN.BI
RT:PLA;FERTIG.TAX.PLA.TAY.JMPSETCRSR.ET:
PLA;TEXTENDE->LEERZEILEN ANHAENGEN.TAX.E
TL:INX.CPX#25.BEQBIRT.JSRCLRLINE.JMPETL.
.ZADR:JSRPUZADR;ADR. EINER ZEILE SUCHEN
.JSRZGTEXT.LDAZAHL1+1;ZEILE 1?.BNENF.LDA
ZAHL1.CMP#1.BEQNNF;JA.NF:LDY#0;ZEILE SUC
HEN.STYMEM1.STYMEM2.JSRROUTINEN.SEC;ADR.
BERECHNEN.TYA.ADCZG.STAZG.BCC*+4.INCZG+
1.NNF:JSRPUTRAMRO;ROUTINEN ZURUECKSCHREI
BEN.LDY#0.RTS. .SETCRSR:STXZEILE;CURSOR
SETZEN.STYSPALTE.LDA$ECF0,X.STA$D1.LDA$D
9,X.AND#3.ORA$288.STA$D2.RTS. .BILDZADR:
LDAASSFL2;ALTES BILD ?.AND#1.BNEOLDBIADR
;JA.JSRZADR;ADRESSE SUCHEN.LDAZG;-> BILD
ADR.STABILDADR.LDAZG+1.STABILDADR+1.LDAA
SSFL2;FLAG FUER ALTES BILD.ORA#1.STAASSF
L2.RTS.OLDBIADR:LDABILDADR;ADR.->ZG.STAZ
G.LDABILDADR+1.STAZG+1.LDY#0.RTS. .;****
***********************************.;* *
FUNKTIONSTASTEN * *.;**
*************************************. .
FKTTAST:CMP#133;F1 - TEXTANFANG.BNENOF1.
F1:JSRUPDATEN.LDX#0;BILDZEILE =1.STXBILD
ZEILE+1.INX.STXBILDZEILE.FKTABSCHL:LDAAS
SFL2;FLAG ALTES BILD LOESCHEN.AND#254.ST
AASSFL2.JSRBILD;BILD AUSGEBEN.LDA#0;FLAG
FUER FUNKTIONSTASTE.RTS. .NOF1:CMP#136;
F7 - TEXTENDE.BNENOF7.F7:JSRUPDATEN.SEC.
LDAZEILEN;BILDZEILE AUF ANZ. ZEILEN -23.
SBC#23.STABILDZEILE.LDAZEILEN+1.SBC#0.ST
ABILDZEILE+1.BCCF1;WENIGER ALS 23 ZEILEN
-> TEXTANFANG.BCSFKTABSCHL;BILD AUSGEBE
N. .NOF7:CMP#135;F5 - SEITE VOR.BNENOF5.
JSRUPDATEN.CLC;BILDZEILE +23.LDABILDZEIL
E.ADC#23.STABILDZEILE.STAZAHL1.LDABILDZE
ILE+1.ADC#0.STABILDZEILE+1.STAZAHL1+1.SE
C;TEXTENDE ERREICHT ?.LDAZEILEN.SBC#23.S
TAZAHL2.LDAZEILEN+1.SBC#0.STAZAHL2+1.BCC
F1.JSRVERGLEICH.BCSF7;JA->TEXTENDE.BCCFK
TABSCHL;BILD ANZEIGEN. .NOF5:CMP#134;F3
- SEITE ZURUECK.BNENOF3.JSRUPDATEN.SEC;B
ILDZEILE-23.LDABILDZEILE.SBC#23.STABILDZ
EILE.LDABILDZEILE+1.SBC#0.STABILDZEILE+1
.BCCF1;<0->TEXTANFANG.BCSFKTABSCHL;BILD
ANZEIGEN. .NOF3:CMP#137;F2 - SEITENANFAN
G.BNENOF2.JSRUPDATEN.LDYSPALTE;CURSOR SE
TZEN.LDX#1.JSRSETCRSR.JMPSTAZEI. .NOF2:C
MP#140;F8 - SEITENENDE.BEQF8.RTS.F8:JSRU
PDATEN.LDAZEILEN+1;WENIGER ALS 25 ZEILEN
?.BNEZ25.LDAZEILEN.CMP#25.BCSZ25.SETC:L
DYSPALTE;JA.TAX.JSRSETCRSR.JMPSTAZEI.Z25
:LDA#24;NEIN.BNESETC. .;****************
***********************.;* * CURSO
R - TASTEN * *.;**************
*************************. .CRSRTAST:CMP
#157;CRSR LINKS ?.BNERIGHT?.DECCSPAL;CSP
AL-1.BEQLRAND;SPRUNG AUF POS. 80.LDACSPA
L.SEC.ADC#0.CMP#32;BEI BEDARF NEUES BILD
.BCCABILD.CMP#72.BCSABILD.AND#%111.BEQLN
EUBILD.ABILD:LDYSPALTE;SPALTE-1.DEY.CRAB
SCHL:LDXZEILE.JSRSETCRSR.JSRSTAZEI.LDA#0
.RTS.LRAND:LDA#80;POS. 80.STACSPAL.JSRBI
LD.LDY#39.BNECRABSCHL.LNEUBILD:JSRBILD;H
ORI. SCROLLEN.LDASPALTE;SPALTE + 19.CLC.
ADC#7.TAY.JMPCRABSCHL. .RIGHT?:CMP#29;CR
SR RECHTS ?.BNEUP?.RIGHT:INCCSPAL;CSPAL+
1.LDACSPAL.CMP#81;AUF POS 0 SPRINGEN ?.B
EQRRAND;JA.CMP#72.BCSABILD2;BEI BEDARF N
EUES BILD.CMP#32.BCCABILD2.AND#%111.BEQR
NEUBILD.ABILD2:LDYSPALTE;SPALTE +1.INY.B
NECRABSCHL.RRAND:LDY#1;AUF POS. 0.STYCSP
AL.JSRBILD.LDY#0.BEQCRABSCHL.RNEUBILD:JS
RBILD;HORI. SCROLLEN.LDASPALTE;SPALTE-19
.SEC.SBC#7.TAY.JMPCRABSCHL. .UP?:CMP#145
;CRSR HOCH.BNEDOWN?.JSRUPDATEN.LDYSPALTE
.LDXZEILE;ZEILE-1.DEX.BEQDSCROLL;SCROLLE
N.BFCT:JSRSETCRSR.JSRSTAZEI.LDA#0.RTS. .
DOWN?:CMP#17;CRSR RUNTER.BEQDOWN.RTS.DOW
N:LDACZEIL;DOWN MOEGLICH?.CMPZEILEN.BNED
OWN!.LDACZEIL+1.CMPZEILEN+1.BNEDOWN!.LDA
#0;NEIN.RTS.DOWN!:JSRUPDATEN;DOWN AUSFUE
HREN.LDYSPALTE.LDXZEILE.CPX#24.BEQUSCROL
L;SCROLLEN.INX.BNEBFCT. .USCROLL:JSREINF
ACHZEI;NACH OBEN SCROLLEN.LDA#>USCRRT-1;
PARAMETER FUER.PHA;BETRIEBSSYSTEMROUTINE
.LDA#<USCRRT-1;AUF STACK.PHA.LDASCRFELD.
PHA.LDASCRFELD+1.PHA.LDASCRFELD+2.PHA.LD
ASCRFELD+3.PHA.LDX#0.JMPUSCR;ROUTINE ANS
PRINGEN.USCRRT:LDA#0;RUECKKEHR VON ROUTI
NE.STAZAHL2.LDAASSFL2;KEIN ALTES BILD.AN
D#254.STAASSFL2.INCBILDZEILE;BILDZEILE+1
.BNEPRINT.INCBILDZEILE+1.BNEPRINT. .DSCR
OLL:LDXBILDZEILE+1;NACH UNTEN SCROLLEN.L
DYBILDZEILE;BILDZEILE-1.BNEDS.DEX.DS:DEY
.BNEDS2.CPX#0;SCROLLEN ?.BNEDS2.LDA#0.RT
S.DS2:STXBILDZEILE+1;JA.STYBILDZEILE.LDA
ASSFL2;KEIN ALTES BILD.AND#254.STAASSFL2
.LDYSPALTE.TYA.PHA.LDX#0.JSRSETCRSR.JSRE
INFACHZEI.JSRDSCR;SCROLL ROUTINE.JSREINF
ACHZEI.JSRHOME;POINTER RESET.PLA.TAY.LDX
#1.JSRSETCRSR.LDA#1.STAZAHL2. .PRINT:JSR
EINFACHZEI;ZEILE AUSGEBEN.JSRSTAZEI.LDAC
ZEIL;ZEILENNUMMER.STAZAHL1.LDACZEIL+1.ST
AZAHL1+1.JSRFARBE.JSRSCRZADR;ADR. SUCHEN
.LDY#0.PLINE:JSRHOLZG;ZEILE->ANZEIBUF.ST
AANZEIBUF,Y.BEQFERT.INY.BNEPLINE.FERT:JS
RAZPRI;UND AUSGEBEN.LDA#0.RTS. .SCRZADR:
LDY#0;ZEILEADR. FUER SCROLLEN HOLEN.LDAS
CROLLFLAG;SUCHEN ?.BMISUCHEN;JA.PHA.LDAZ
AHL2;DOWNSCROLL ?.BEQUNTEN.PLA.BEQSUCHEN
;UPSCROLL NACH DOWNSCROLL -> SUCHEN.LDAZ
AHL1+1;ERSTE ZEILE ?.BNENOTFIRST.LDAZAHL
1.CMP#1.BEQSUCHEN.NOTFIRST:LDAADRUD;ALTE
ADR->ZG.STAZG.LDAADRUD+1.STAZG+1.JSRDEC
ZG;VORGAENGERZEILE SUCHEN.VORZEIL:JSRDEC
ZG.JSRHOLZG.BNEVORZEIL.INCZG.BNEPUTUP.IN
CZG+1.PUTUP:LDAZG;ADR. ALS NEUE ADR..STA
ADRUD.LDAZG+1.STAADRUD+1.LDA#1;SCROLLFLA
G NEU SETZEN.STASCROLLFLAG.RTS.UNTEN:PLA
;NACH UNTEN SCROLLEN.ASL.BNESUCHEN;DOWNS
CROLL NACH UPSCROLL -> SUCHEN.LDAADRUD;N
ACHFOLGEZEILE SUCHEN.STAZG.LDAADRUD+1.ST
AZG+1.JSRTEXTLINE.PUTDO:LDAZG;NEUE ADR.
SPEICHERN.STAADRUD.LDAZG+1.STAADRUD+1.RT
S.SUCHEN:JSRZADR;ADRESSE SUCHEN.LDA#0;SC
ROLLFLAG NEU SETZEN.STASCROLLFLAG.LDAZAH
L2;ADR. SPEICHERN.BEQPUTDO.BNEPUTUP. ..F
I"EDIT 2"...
> CLICK IMAGE PREVIEW FOR FULL MODAL