WINDOW.SRC
FILE INFORMATION
FILENAME(S): WINDOW.SRC
FILE TYPE(S): PRG
FILE SIZE: 22.3K
FIRST SEEN: 2025-11-02 22:11:12
APPEARS ON: 1 disk(s)
FILE HASH
907561fb8ce84b79a4a5b82c220694b57ad00c8f972ece896dbd49a718929fd7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90617 | WINDOW.SRC | PRG | Treasure Chest - ToGuMi | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F9 1F 64 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |....d.;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 00 1A 20 6E 00 3B 2A 20 52 4F 55 54 49 4E |**.. n.;* ROUTIN|
00000030: 45 4E 20 5A 55 52 20 56 45 52 57 41 4C 54 55 4E |EN ZUR VERWALTUN|
00000040: 47 20 2A 00 3B 20 78 00 3B 2A 20 20 56 4F 4E 20 |G *.; x.;* VON |
00000050: 50 55 4C 4C 2D 44 4F 57 4E 2D 4D 45 4E 55 45 53 |PULL-DOWN-MENUES|
00000060: 20 20 20 2A 00 5C 20 82 00 3B 2A 20 20 20 28 43 | *.\ ..;* (C|
00000070: 29 20 53 2E 42 41 4C 4F 55 49 2C 20 31 39 38 36 |) S.BALOUI, 1986|
00000080: 20 20 20 20 2A 00 7D 20 8C 00 3B 2A 2A 2A 2A 2A | *.} ..;*****|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 2A 2A 2A 00 83 20 96 00 3B 00 89 20 A0 |******.. ..;.. .|
000000B0: 00 3B 00 8F 20 AA 00 3B 00 9E 20 B4 00 3B 2A 2A |.;.. ..;.. ..;**|
000000C0: 2A 2A 2A 2A 2A 2A 2A 00 AD 20 BE 00 3B 2A 20 4C |*******.. ..;* L|
000000D0: 41 42 45 4C 20 2A 00 BC 20 C8 00 3B 2A 2A 2A 2A |ABEL *.. ..;****|
000000E0: 2A 2A 2A 2A 2A 00 C2 20 D2 00 3B 00 E5 20 DC 00 |*****.. ..;.. ..|
000000F0: 3B 2A 2A 2A 20 4C 41 42 45 4C 3A 20 42 45 54 52 |;*** LABEL: BETR|
00000100: 49 45 42 53 53 59 53 54 45 4D 20 2A 2A 2A 00 19 |IEBSSYSTEM ***..|
00000110: 21 E6 00 2E 45 51 20 53 43 52 45 45 4E 20 20 20 |!...EQ SCREEN |
00000120: 3D 20 24 30 32 38 38 20 20 3B 53 54 41 52 54 50 |= $0288 ;STARTP|
00000130: 41 47 45 20 44 45 53 20 56 49 44 45 4F 2D 52 41 |AGE DES VIDEO-RA|
00000140: 4D 53 00 32 21 F0 00 2E 45 51 20 50 41 49 4E 54 |MS.2!...EQ PAINT|
00000150: 20 20 20 20 3D 20 24 44 38 30 30 00 68 21 FA 00 | = $D800.h!..|
00000160: 2E 45 51 20 47 45 54 49 4E 20 20 20 20 3D 20 24 |.EQ GETIN = $|
00000170: 46 46 45 34 20 20 3B 5A 45 49 43 48 45 4E 20 56 |FFE4 ;ZEICHEN V|
00000180: 4F 4E 20 54 41 53 54 41 54 55 52 20 4C 45 53 45 |ON TASTATUR LESE|
00000190: 4E 00 A9 21 04 01 2E 45 51 20 43 48 4B 4B 4F 4D |N..!...EQ CHKKOM|
000001A0: 20 20 20 3D 20 24 41 45 46 44 20 20 3B 42 41 53 | = $AEFD ;BAS|
000001B0: 49 43 2D 54 45 58 54 3A 20 4E 41 45 43 48 53 54 |IC-TEXT: NAECHST|
000001C0: 45 53 20 5A 45 49 43 48 45 4E 3A 20 4B 4F 4D 4D |ES ZEICHEN: KOMM|
000001D0: 41 3F 00 EC 21 0E 01 2E 45 51 20 47 45 54 42 59 |A?..!...EQ GETBY|
000001E0: 54 20 20 20 3D 20 24 42 37 39 45 20 20 3B 42 41 |T = $B79E ;BA|
000001F0: 53 49 43 2D 54 45 58 54 3A 20 42 59 54 45 57 45 |SIC-TEXT: BYTEWE|
00000200: 52 54 20 48 4F 4C 45 4E 20 28 58 2D 52 45 47 49 |RT HOLEN (X-REGI|
00000210: 53 54 45 52 29 00 2E 22 18 01 2E 45 51 20 47 45 |STER).."...EQ GE|
00000220: 54 50 4F 53 20 20 20 3D 20 24 42 30 38 42 20 20 |TPOS = $B08B |
00000230: 3B 42 41 53 49 43 2D 54 45 58 54 3A 20 50 4F 49 |;BASIC-TEXT: POI|
00000240: 4E 54 45 52 20 41 55 46 20 56 41 52 49 41 42 4C |NTER AUF VARIABL|
00000250: 45 20 48 4F 4C 45 4E 00 57 22 22 01 2E 45 51 20 |E HOLEN.W""..EQ |
00000260: 50 4C 4F 54 20 20 20 20 20 3D 20 24 46 46 46 30 |PLOT = $FFF0|
00000270: 20 20 3B 43 55 52 53 4F 52 20 53 45 54 5A 45 4E | ;CURSOR SETZEN|
00000280: 00 84 22 2C 01 2E 45 51 20 42 53 4F 55 54 20 20 |..",..EQ BSOUT |
00000290: 20 20 3D 20 24 46 46 44 32 20 20 3B 5A 45 49 43 | = $FFD2 ;ZEIC|
000002A0: 48 45 4E 20 41 55 53 53 47 45 42 45 4E 00 9D 22 |HEN AUSSGEBEN.."|
000002B0: 36 01 2E 45 51 20 43 4F 4C 4F 52 20 20 20 20 3D |6..EQ COLOR =|
000002C0: 20 24 30 32 38 36 00 B4 22 38 01 2E 45 51 20 51 | $0286.."8..EQ Q|
000002D0: 55 4F 54 45 4D 4F 44 45 3D 20 24 44 34 00 CB 22 |UOTEMODE= $D4.."|
000002E0: 3A 01 2E 45 51 20 49 4E 53 45 52 54 53 20 20 3D |:..EQ INSERTS =|
000002F0: 20 24 44 38 00 D1 22 40 01 3B 00 D7 22 4A 01 3B | $D8.."@.;.."J.;|
00000300: 00 FB 22 54 01 3B 2A 2A 2A 20 4C 41 42 45 4C 3A |.."T.;*** LABEL:|
00000310: 20 50 52 4F 47 52 41 4D 4D 4D 49 4E 54 45 52 4E | PROGRAMMMINTERN|
00000320: 20 2A 2A 2A 00 11 23 5E 01 2E 45 51 20 4E 45 57 | ***..#^..EQ NEW|
00000330: 43 4F 4C 4F 52 20 20 3D 20 31 00 4D 23 68 01 2E |COLOR = 1.M#h..|
00000340: 45 51 20 50 41 52 42 41 43 4B 20 20 3D 20 24 41 |EQ PARBACK = $A|
00000350: 37 20 20 20 20 20 20 3B 41 55 53 57 41 48 4C 52 |7 ;AUSWAHLR|
00000360: 55 45 43 4B 55 45 42 45 52 47 41 42 45 20 41 4E |UECKUEBERGABE AN|
00000370: 20 42 41 53 49 43 00 8C 23 72 01 2E 45 51 20 49 | BASIC..#r..EQ I|
00000380: 4E 44 49 5A 20 20 20 20 3D 20 24 41 39 20 20 20 |NDIZ = $A9 |
00000390: 20 20 20 3B 50 4F 49 4E 54 45 52 20 46 2E 49 4E | ;POINTER F.IN|
000003A0: 44 49 5A 49 45 52 54 45 20 41 44 52 45 53 53 49 |DIZIERTE ADRESSI|
000003B0: 45 52 55 4E 47 00 CB 23 7C 01 2E 45 51 20 49 4E |ERUNG..#|..EQ IN|
000003C0: 44 49 5A 31 20 20 20 3D 20 24 41 42 20 20 20 20 |DIZ1 = $AB |
000003D0: 20 20 3B 50 4F 49 4E 54 45 52 20 46 2E 49 4E 44 | ;POINTER F.IND|
000003E0: 49 5A 49 45 52 54 45 20 41 44 52 45 53 53 49 45 |IZIERTE ADRESSIE|
000003F0: 52 55 4E 47 00 16 24 86 01 2E 45 51 20 53 54 52 |RUNG..$...EQ STR|
00000400: 4C 45 4E 20 20 20 3D 20 24 41 44 20 20 20 20 20 |LEN = $AD |
00000410: 20 3B 4C 41 45 4E 47 45 20 44 45 52 20 56 4F 4E | ;LAENGE DER VON|
00000420: 20 42 41 53 49 43 20 55 45 42 45 52 47 45 42 2E | BASIC UEBERGEB.|
00000430: 53 54 52 49 4E 47 56 41 52 49 41 42 4C 45 4E 00 |STRINGVARIABLEN.|
00000440: 57 24 90 01 2E 45 51 20 53 54 52 50 4F 53 20 20 |W$...EQ STRPOS |
00000450: 20 3D 20 24 41 45 20 20 20 20 20 20 3B 50 4F 49 | = $AE ;POI|
00000460: 4E 54 45 52 20 41 55 46 20 55 45 42 45 52 47 45 |NTER AUF UEBERGE|
00000470: 42 2E 53 54 52 49 4E 47 56 41 52 49 41 42 4C 45 |B.STRINGVARIABLE|
00000480: 00 6E 24 9A 01 2E 45 51 20 50 41 49 4E 54 50 20 |.n$...EQ PAINTP |
00000490: 20 20 3D 20 24 42 34 00 87 24 A4 01 2E 45 51 20 | = $B4..$...EQ |
000004A0: 48 45 4C 50 20 20 20 20 20 3D 20 24 30 33 33 34 |HELP = $0334|
000004B0: 00 AC 24 AE 01 2E 45 51 20 43 4E 54 49 20 20 20 |..$...EQ CNTI |
000004C0: 20 20 3D 20 48 45 4C 50 2B 32 20 20 20 3B 5A 41 | = HELP+2 ;ZA|
000004D0: 45 48 4C 45 52 00 D1 24 B8 01 2E 45 51 20 43 4E |EHLER..$...EQ CN|
000004E0: 54 4A 20 20 20 20 20 3D 20 43 4E 54 49 2B 31 20 |TJ = CNTI+1 |
000004F0: 20 20 3B 5A 41 45 48 4C 45 52 00 FC 24 C2 01 2E | ;ZAEHLER..$...|
00000500: 45 51 20 43 4F 4C 20 20 20 20 20 20 3D 20 43 4E |EQ COL = CN|
00000510: 54 4A 2B 31 20 20 20 3B 53 50 41 4C 54 45 20 4D |TJ+1 ;SPALTE M|
00000520: 45 52 4B 45 4E 00 26 25 CC 01 2E 45 51 20 4C 49 |ERKEN.&%...EQ LI|
00000530: 4E 45 20 20 20 20 20 3D 20 43 4F 4C 2B 31 20 20 |NE = COL+1 |
00000540: 20 20 3B 5A 45 49 4C 45 20 4D 45 52 4B 45 4E 00 | ;ZEILE MERKEN.|
00000550: 59 25 D6 01 2E 45 51 20 42 52 45 49 54 45 20 20 |Y%...EQ BREITE |
00000560: 20 3D 20 4C 49 4E 45 2B 31 20 20 20 3B 52 45 43 | = LINE+1 ;REC|
00000570: 48 54 45 43 4B 42 52 45 49 54 45 20 4D 45 52 4B |HTECKBREITE MERK|
00000580: 45 4E 00 8C 25 E0 01 2E 45 51 20 4C 41 45 4E 47 |EN..%...EQ LAENG|
00000590: 45 20 20 20 3D 20 42 52 45 49 54 45 2B 31 20 3B |E = BREITE+1 ;|
000005A0: 52 45 43 48 54 45 43 4B 4C 41 45 4E 47 45 20 4D |RECHTECKLAENGE M|
000005B0: 45 52 4B 45 4E 00 A8 25 EA 01 2E 45 51 20 46 4C |ERKEN..%...EQ FL|
000005C0: 41 47 20 20 20 20 20 3D 20 4C 41 45 4E 47 45 2B |AG = LAENGE+|
000005D0: 31 00 E4 25 F4 01 2E 45 51 20 50 55 46 4E 52 20 |1..%...EQ PUFNR |
000005E0: 20 20 20 3D 20 46 4C 41 47 2B 31 20 20 20 3B 4E | = FLAG+1 ;N|
000005F0: 52 2E 44 45 53 20 41 4E 5A 55 53 50 52 45 43 48 |R.DES ANZUSPRECH|
00000600: 45 4E 44 45 4E 20 50 55 46 46 45 52 53 00 FF 25 |ENDEN PUFFERS..%|
00000610: FE 01 2E 45 51 20 52 4F 55 54 49 4E 20 20 20 3D |...EQ ROUTIN =|
00000620: 20 50 55 46 4E 52 2B 32 00 05 26 08 02 3B 00 0B | PUFNR+2..&..;..|
00000630: 26 12 02 3B 00 11 26 1C 02 3B 00 36 26 26 02 3B |&..;..&..;.6&&.;|
00000640: 2A 2A 2A 20 4C 41 42 45 4C 53 20 46 2E 50 55 46 |*** LABELS F.PUF|
00000650: 46 45 52 2D 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 |FER-ROUTINE ***.|
00000660: 68 26 30 02 2E 45 51 20 53 43 52 45 45 4E 50 20 |h&0..EQ SCREENP |
00000670: 20 3D 20 49 4E 44 49 5A 20 20 3B 50 4F 49 4E 54 | = INDIZ ;POINT|
00000680: 45 52 20 41 55 46 20 42 49 4C 44 53 43 48 49 52 |ER AUF BILDSCHIR|
00000690: 4D 00 96 26 3A 02 2E 45 51 20 50 55 46 46 45 52 |M..&:..EQ PUFFER|
000006A0: 50 20 20 3D 20 49 4E 44 49 5A 31 20 3B 50 4F 49 |P = INDIZ1 ;POI|
000006B0: 4E 54 45 52 20 41 55 46 20 50 55 46 46 45 52 00 |NTER AUF PUFFER.|
000006C0: E0 26 44 02 2E 45 51 20 50 55 46 50 4F 49 20 20 |.&D..EQ PUFPOI |
000006D0: 20 3D 20 24 30 32 39 33 20 20 3B 54 41 42 45 4C | = $0293 ;TABEL|
000006E0: 4C 45 20 4D 49 54 20 53 54 41 52 54 41 44 52 45 |LE MIT STARTADRE|
000006F0: 53 53 45 4E 20 44 45 52 20 41 4B 54 55 45 4C 4C |SSEN DER AKTUELL|
00000700: 45 4E 20 50 55 46 46 45 52 00 08 27 4E 02 2E 45 |EN PUFFER..'N..E|
00000710: 51 20 50 55 46 53 54 41 52 54 20 3D 20 24 46 30 |Q PUFSTART = $F0|
00000720: 30 30 20 20 3B 50 55 46 46 45 52 41 4E 46 41 4E |00 ;PUFFERANFAN|
00000730: 47 00 47 27 58 02 2E 45 51 20 49 4E 54 43 54 52 |G.G'X..EQ INTCTR|
00000740: 4C 20 20 3D 20 24 44 43 30 45 20 20 3B 56 49 43 |L = $DC0E ;VIC|
00000750: 2D 52 45 47 49 53 54 45 52 20 5A 55 52 20 49 4E |-REGISTER ZUR IN|
00000760: 54 45 52 52 55 50 54 4B 4F 4E 54 52 4F 4C 4C 45 |TERRUPTKONTROLLE|
00000770: 00 6E 27 62 02 2E 45 51 20 43 52 53 4C 49 4E 45 |.n'b..EQ CRSLINE|
00000780: 20 20 3D 20 32 31 34 20 20 20 20 3B 43 55 52 53 | = 214 ;CURS|
00000790: 4F 52 5A 45 49 4C 45 00 AE 27 6C 02 2E 45 51 20 |ORZEILE..'l..EQ |
000007A0: 4C 49 4E 45 50 4F 49 20 20 3D 20 24 46 42 20 20 |LINEPOI = $FB |
000007B0: 20 20 3B 45 43 48 54 45 52 20 28 21 21 21 29 20 | ;ECHTER (!!!) |
000007C0: 50 4F 49 4E 54 45 52 20 41 55 46 20 43 55 52 53 |POINTER AUF CURS|
000007D0: 4F 52 5A 45 49 4C 45 00 B4 27 76 02 3B 00 BA 27 |ORZEILE..'v.;..'|
000007E0: 80 02 3B 00 C0 27 8A 02 3B 00 DD 27 94 02 2E 42 |..;..'..;..'...B|
000007F0: 41 20 24 43 37 31 30 20 3B 50 52 4F 47 52 41 4D |A $C710 ;PROGRAM|
00000800: 4D 53 54 41 52 54 00 E3 27 9E 02 3B 00 E9 27 A8 |MSTART..'..;..'.|
00000810: 02 3B 00 EF 27 B2 02 3B 00 0C 28 BC 02 3B 2A 2A |.;..'..;..(..;**|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000830: 2A 2A 2A 2A 2A 00 29 28 C6 02 3B 2A 2A 2A 20 53 |*****.)(..;*** S|
00000840: 50 52 55 4E 47 56 45 52 54 45 49 4C 45 52 20 2A |PRUNGVERTEILER *|
00000850: 2A 2A 00 46 28 D0 02 3B 2A 2A 2A 2A 2A 2A 2A 2A |**.F(..;********|
00000860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000870: 57 28 DA 02 20 4A 4D 50 50 55 46 46 49 4E 49 54 |W(.. JMPPUFFINIT|
00000880: 00 66 28 E4 02 20 4A 4D 50 57 49 4E 44 4F 57 00 |.f(.. JMPWINDOW.|
00000890: 75 28 EE 02 20 4A 4D 50 50 55 46 46 45 52 00 84 |u(.. JMPPUFFER..|
000008A0: 28 F8 02 20 4A 4D 50 49 4E 56 45 52 54 00 92 28 |(.. JMPINVERT..(|
000008B0: 02 03 20 4A 4D 50 43 4E 54 52 4C 00 B9 28 0C 03 |.. JMPCNTRL..(..|
000008C0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008E0: 2A 2A 00 BF 28 16 03 3B 00 C5 28 20 03 3B 00 CB |**..(..;..( .;..|
000008F0: 28 2A 03 3B 00 EE 28 34 03 3B 2A 2A 2A 2A 2A 2A |(*.;..(4.;******|
00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000910: 2A 2A 2A 2A 2A 2A 2A 00 11 29 3E 03 3B 2A 2A 2A |*******..)>.;***|
00000920: 20 47 45 4D 45 49 4E 53 41 4D 45 20 55 4E 54 45 | GEMEINSAME UNTE|
00000930: 52 50 52 4F 47 53 20 2A 2A 2A 00 34 29 48 03 3B |RPROGS ***.4)H.;|
00000940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3A 29 |*************.:)|
00000960: 52 03 3B 00 61 29 5C 03 3B 2A 2A 2A 2A 2A 20 4C |R.;.a)\.;***** L|
00000970: 49 4E 45 50 4F 49 4E 54 45 52 20 42 45 52 45 43 |INEPOINTER BEREC|
00000980: 48 4E 45 4E 20 2A 2A 2A 2A 2A 00 73 29 66 03 4C |HNEN *****.s)f.L|
00000990: 49 4E 45 50 54 52 20 4C 44 41 23 30 00 82 29 70 |INEPTR LDA#0..)p|
000009A0: 03 20 4C 44 58 53 43 52 45 45 4E 00 92 29 7A 03 |. LDXSCREEN..)z.|
000009B0: 20 53 54 41 4C 49 4E 45 50 4F 49 00 A4 29 84 03 | STALINEPOI..)..|
000009C0: 20 53 54 58 4C 49 4E 45 50 4F 49 2B 31 00 AA 29 | STXLINEPOI+1..)|
000009D0: 8E 03 3B 00 BA 29 98 03 20 4C 44 58 43 52 53 4C |..;..).. LDXCRSL|
000009E0: 49 4E 45 00 CB 29 A2 03 20 42 45 51 4C 49 4E 45 |INE..).. BEQLINE|
000009F0: 50 54 52 33 00 E3 29 AC 03 4C 49 4E 45 50 54 52 |PTR3..)..LINEPTR|
00000A00: 31 20 4C 44 41 4C 49 4E 45 50 4F 49 00 EC 29 B6 |1 LDALINEPOI..).|
00000A10: 03 20 43 4C 43 00 F8 29 C0 03 20 41 44 43 23 34 |. CLC..).. ADC#4|
00000A20: 30 00 08 2A CA 03 20 53 54 41 4C 49 4E 45 50 4F |0..*.. STALINEPO|
00000A30: 49 00 19 2A D4 03 20 42 43 43 4C 49 4E 45 50 54 |I..*.. BCCLINEPT|
00000A40: 52 32 00 2B 2A DE 03 20 49 4E 43 4C 49 4E 45 50 |R2.+*.. INCLINEP|
00000A50: 4F 49 2B 31 00 3C 2A E8 03 4C 49 4E 45 50 54 52 |OI+1.<*..LINEPTR|
00000A60: 32 20 44 45 58 00 4D 2A F2 03 20 42 4E 45 4C 49 |2 DEX.M*.. BNELI|
00000A70: 4E 45 50 54 52 31 00 5E 2A FC 03 4C 49 4E 45 50 |NEPTR1.^*..LINEP|
00000A80: 54 52 33 20 52 54 53 00 64 2A 06 04 3B 00 6A 2A |TR3 RTS.d*..;.j*|
00000A90: 10 04 3B 00 70 2A 1A 04 3B 00 9A 2A 24 04 3B 2A |..;.p*..;..*$.;*|
00000AA0: 2A 2A 20 50 41 49 4E 54 50 20 41 55 53 20 53 43 |** PAINTP AUS SC|
00000AB0: 52 45 45 4E 50 20 42 45 52 45 43 48 4E 45 4E 20 |REENP BERECHNEN |
00000AC0: 2A 2A 2A 00 A0 2A 2E 04 3B 00 B8 2A 38 04 50 41 |***..*..;..*8.PA|
00000AD0: 49 4E 54 50 54 52 20 4C 44 41 53 43 52 45 45 4E |INTPTR LDASCREEN|
00000AE0: 50 00 C7 2A 42 04 20 53 54 41 50 41 49 4E 54 50 |P..*B. STAPAINTP|
00000AF0: 00 D9 2A 4C 04 20 4C 44 41 53 43 52 45 45 4E 50 |..*L. LDASCREENP|
00000B00: 2B 31 00 E6 2A 56 04 20 41 4E 44 23 24 30 33 00 |+1..*V. AND#$03.|
00000B10: F8 2A 60 04 20 4F 52 41 23 3E 28 50 41 49 4E 54 |.*`. ORA#>(PAINT|
00000B20: 29 00 09 2B 6A 04 20 53 54 41 50 41 49 4E 54 50 |)..+j. STAPAINTP|
00000B30: 2B 31 00 12 2B 74 04 20 52 54 53 00 18 2B 7E 04 |+1..+t. RTS..+~.|
00000B40: 3B 00 1E 2B 88 04 3B 00 24 2B 92 04 3B 00 45 2B |;..+..;.$+..;.E+|
00000B50: 9C 04 3B 2A 2A 2A 2A 2A 20 50 41 52 41 4D 45 54 |..;***** PARAMET|
00000B60: 45 52 20 4C 45 53 45 4E 20 2A 2A 2A 2A 2A 00 67 |ER LESEN *****.g|
00000B70: 2B A6 04 50 41 52 41 4D 20 53 54 41 43 4E 54 49 |+..PARAM STACNTI|
00000B80: 3B 4C 49 45 53 54 20 42 45 4C 49 45 42 49 47 45 |;LIEST BELIEBIGE|
00000B90: 00 7C 2B B0 04 20 4C 44 58 23 30 3B 41 4E 5A 41 |.|+.. LDX#0;ANZA|
00000BA0: 48 4C 20 41 4E 00 9E 2B BA 04 4C 45 53 45 4E 20 |HL AN..+..LESEN |
00000BB0: 53 54 58 43 4E 54 4A 3B 45 49 4E 2D 42 59 54 45 |STXCNTJ;EIN-BYTE|
00000BC0: 2D 57 45 52 54 45 4E 00 C0 2B C4 04 20 4A 53 52 |-WERTEN..+.. JSR|
00000BD0: 43 48 4B 4B 4F 4D 3B 41 55 53 20 44 45 4D 20 42 |CHKKOM;AUS DEM B|
00000BE0: 41 53 49 43 2D 54 45 58 54 00 DC 2B CE 04 20 4A |ASIC-TEXT..+.. J|
00000BF0: 53 52 47 45 54 42 59 54 3B 55 4E 44 20 4C 45 47 |SRGETBYT;UND LEG|
00000C00: 54 20 53 49 45 00 F2 2B D8 04 20 54 58 41 3B 41 |T SIE..+.. TXA;A|
00000C10: 42 20 27 43 4F 4C 27 20 41 42 2E 00 FF 2B E2 04 |B 'COL' AB...+..|
00000C20: 20 4C 44 58 43 4E 54 4A 00 0D 2C EC 04 20 53 54 | LDXCNTJ..,.. ST|
00000C30: 41 43 4F 4C 2C 58 00 16 2C F6 04 20 49 4E 58 00 |ACOL,X..,.. INX.|
00000C40: 23 2C 00 05 20 43 50 58 43 4E 54 49 00 31 2C 0A |#,.. CPXCNTI.1,.|
00000C50: 05 20 42 4E 45 4C 45 53 45 4E 00 3A 2C 14 05 20 |. BNELESEN.:,.. |
00000C60: 52 54 53 00 40 2C 1E 05 3B 00 46 2C 28 05 3B 00 |RTS.@,..;.F,(.;.|
00000C70: 4C 2C 32 05 3B 00 76 2C 3C 05 3B 2A 2A 2A 2A 2A |L,2.;.v,<.;*****|
00000C80: 20 53 54 52 49 4E 47 44 45 53 43 52 49 50 54 4F | STRINGDESCRIPTO|
00000C90: 52 45 4E 20 48 4F 4C 45 4E 20 2A 2A 2A 2A 2A 00 |REN HOLEN *****.|
00000CA0: 98 2C 46 05 48 4F 4C 44 45 53 20 4C 44 59 23 32 |.,F.HOLDES LDY#2|
00000CB0: 3B 48 4F 4C 54 20 44 49 45 20 53 54 52 49 4E 47 |;HOLT DIE STRING|
00000CC0: 2D 00 C2 2C 50 05 48 4F 4C 44 45 53 31 20 4C 44 |-..,P.HOLDES1 LD|
00000CD0: 41 28 49 4E 44 49 5A 29 2C 59 3B 44 45 53 43 52 |A(INDIZ),Y;DESCR|
00000CE0: 49 50 54 4F 52 45 4E 20 44 45 52 00 E8 2C 5A 05 |IPTOREN DER..,Z.|
00000CF0: 20 53 54 41 53 54 52 4C 45 4E 2C 59 3B 55 45 42 | STASTRLEN,Y;UEB|
00000D00: 45 52 47 45 42 45 4E 45 4E 20 53 54 52 49 4E 47 |ERGEBENEN STRING|
00000D10: 2D 00 FB 2C 64 05 20 44 45 59 3B 56 41 52 49 41 |-..,d. DEY;VARIA|
00000D20: 42 4C 45 4E 00 25 2D 6E 05 20 42 50 4C 48 4F 4C |BLEN.%-n. BPLHOL|
00000D30: 44 45 53 31 3B 4C 41 45 4E 47 45 2F 50 4F 49 4E |DES1;LAENGE/POIN|
00000D40: 54 45 52 20 41 55 46 20 53 54 52 49 4E 47 00 2E |TER AUF STRING..|
00000D50: 2D 78 05 20 52 54 53 00 34 2D 82 05 3B 00 3A 2D |-x. RTS.4-..;.:-|
00000D60: 8C 05 3B 00 40 2D 96 05 3B 00 68 2D A0 05 3B 2A |..;.@-..;.h-..;*|
00000D70: 2A 2A 2A 2A 20 49 4E 44 49 5A 28 2B 31 29 3D 3E |**** INDIZ(+1)=>|
00000D80: 4E 45 58 54 20 53 54 52 49 4E 47 20 2A 2A 2A 2A |NEXT STRING ****|
00000D90: 2A 00 93 2D AA 05 4E 45 58 54 53 54 52 20 4C 44 |*..-..NEXTSTR LD|
00000DA0: 41 49 4E 44 49 5A 3B 45 52 48 4F 45 48 54 20 45 |AINDIZ;ERHOEHT E|
00000DB0: 49 4E 45 4E 20 50 4F 49 4E 54 45 52 00 B3 2D B4 |INEN POINTER..-.|
00000DC0: 05 20 43 4C 43 3B 28 49 4E 20 27 49 4E 44 49 5A |. CLC;(IN 'INDIZ|
00000DD0: 27 29 20 41 55 46 20 45 49 4E 45 4E 00 D3 2D BE |') AUF EINEN..-.|
00000DE0: 05 20 41 44 43 23 33 3B 53 54 52 49 4E 47 44 45 |. ADC#3;STRINGDE|
00000DF0: 53 43 52 49 50 54 4F 52 2C 20 53 4F 00 F5 2D C8 |SCRIPTOR, SO..-.|
00000E00: 05 20 53 54 41 49 4E 44 49 5A 3B 44 41 53 53 20 |. STAINDIZ;DASS |
00000E10: 44 49 45 53 45 52 20 41 55 46 20 44 45 4E 00 18 |DIESER AUF DEN..|
00000E20: 2E D2 05 20 42 43 43 4E 45 58 54 31 3B 4E 41 45 |... BCCNEXT1;NAE|
00000E30: 43 48 53 54 45 4E 20 44 45 53 43 52 49 50 54 4F |CHSTEN DESCRIPTO|
00000E40: 52 00 3E 2E DC 05 20 49 4E 43 49 4E 44 49 5A 2B |R.>... INCINDIZ+|
00000E50: 31 3B 57 45 49 53 54 20 28 49 4E 44 49 5A 3D 49 |1;WEIST (INDIZ=I|
00000E60: 4E 44 49 5A 2B 33 29 00 4C 2E E6 05 4E 45 58 54 |NDIZ+3).L...NEXT|
00000E70: 31 20 52 54 53 00 52 2E F0 05 3B 00 58 2E FA 05 |1 RTS.R...;.X...|
00000E80: 3B 00 5E 2E 04 06 3B 00 82 2E 0E 06 3B 2A 2A 2A |;.^...;.....;***|
00000E90: 2A 2A 20 45 4E 44 5A 45 49 4C 45 20 42 45 52 45 |** ENDZEILE BERE|
00000EA0: 43 48 4E 45 4E 20 2A 2A 2A 2A 2A 00 AE 2E 18 06 |CHNEN *****.....|
00000EB0: 45 4E 44 5A 45 49 20 4C 44 41 4C 49 4E 45 3B 42 |ENDZEI LDALINE;B|
00000EC0: 45 52 45 43 48 4E 45 54 20 44 49 45 20 4E 55 4D |ERECHNET DIE NUM|
00000ED0: 4D 45 52 20 44 45 52 00 D0 2E 22 06 20 43 4C 43 |MER DER...". CLC|
00000EE0: 3B 4C 45 54 5A 54 45 4E 20 5A 45 49 4C 45 20 44 |;LETZTEN ZEILE D|
00000EF0: 45 53 20 41 4E 47 45 47 2E 00 F5 2E 2C 06 20 41 |ES ANGEG....,. A|
00000F00: 44 43 4C 41 45 4E 47 45 3B 52 45 43 48 54 45 43 |DCLAENGE;RECHTEC|
00000F10: 4B 53 20 28 4C 41 53 54 5A 45 49 4C 45 3D 00 17 |KS (LASTZEILE=..|
00000F20: 2F 36 06 20 53 54 41 4C 41 45 4E 47 45 3B 53 54 |/6. STALAENGE;ST|
00000F30: 41 52 54 5A 45 49 4C 45 2B 4C 41 45 4E 47 45 29 |ARTZEILE+LAENGE)|
00000F40: 00 20 2F 40 06 20 52 54 53 00 46 2F 4A 06 3B 2A |. /@. RTS.F/J.;*|
00000F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000F70: 4C 2F 54 06 3B 00 52 2F 5E 06 3B 00 58 2F 68 06 |L/T.;.R/^.;.X/h.|
00000F80: 3B 00 77 2F 72 06 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.w/r.;*********|
00000F90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FA0: 00 96 2F 7C 06 3B 2A 20 57 49 4E 44 4F 57 20 2B |../|.;* WINDOW +|
00000FB0: 20 49 4E 48 41 4C 54 20 4D 41 4C 45 4E 20 2A 00 | INHALT MALEN *.|
00000FC0: B5 2F 86 06 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |./..;***********|
00000FD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BB |**************..|
00000FE0: 2F 90 06 3B 00 DF 2F 9A 06 3B 41 55 46 52 55 46 |/..;../..;AUFRUF|
00000FF0: 3A 20 53 59 53 20 58 58 58 58 2C 53 50 41 4C 54 |: SYS XXXX,SPALT|
00001000: 45 2C 5A 45 49 4C 45 2C 00 00 30 A4 06 3B 20 20 |E,ZEILE,..0..; |
00001010: 20 20 20 20 20 20 42 52 45 49 54 45 2C 4C 41 45 | BREITE,LAE|
00001020: 4E 47 45 2C 41 52 52 41 59 00 06 30 AE 06 3B 00 |NGE,ARRAY..0..;.|
00001030: 29 30 B8 06 3B 46 55 4E 4B 54 49 4F 4E 3A 20 4D |)0..;FUNKTION: M|
00001040: 41 4C 54 20 45 49 4E 20 57 49 4E 44 4F 57 20 44 |ALT EIN WINDOW D|
00001050: 45 52 00 4D 30 C2 06 3B 20 20 20 20 20 20 20 20 |ER.M0..; |
00001060: 20 20 41 4E 47 45 47 45 42 45 4E 45 4E 20 20 47 | ANGEGEBENEN G|
00001070: 52 4F 45 53 53 45 00 70 30 CC 06 3B 20 20 20 20 |ROESSE.p0..; |
00001080: 20 20 20 20 20 20 28 27 42 52 45 49 54 45 27 2C | ('BREITE',|
00001090: 27 4C 41 45 4E 47 45 27 29 00 96 30 D6 06 3B 20 |'LAENGE')..0..; |
000010A0: 20 20 20 20 20 20 20 20 20 41 42 20 44 45 52 20 | AB DER |
000010B0: 50 4F 53 49 54 2E 27 53 50 41 4C 54 45 27 2F 00 |POSIT.'SPALTE'/.|
000010C0: BC 30 E0 06 3B 20 20 20 20 20 20 20 20 20 20 27 |.0..; '|
000010D0: 5A 45 49 4C 45 27 20 55 4E 44 20 46 55 45 4C 4C |ZEILE' UND FUELL|
000010E0: 54 20 44 49 45 00 DF 30 EA 06 3B 20 20 20 20 20 |T DIE..0..; |
000010F0: 20 20 20 20 20 49 4E 4E 45 4E 5A 45 49 4C 45 4E | INNENZEILEN|
00001100: 20 4D 49 54 20 44 45 4E 00 05 31 F4 06 3B 20 20 | MIT DEN..1..; |
00001110: 20 20 20 20 20 20 20 20 41 4E 47 45 47 45 42 2E | ANGEGEB.|
00001120: 20 41 52 52 41 59 53 54 52 49 4E 47 53 2C 00 29 | ARRAYSTRINGS,.)|
00001130: 31 FE 06 3B 20 20 20 20 20 20 20 20 20 20 44 45 |1..; DE|
00001140: 52 45 4E 20 41 4E 5A 41 48 4C 20 4D 49 4E 44 45 |REN ANZAHL MINDE|
00001150: 53 2D 00 4E 31 08 07 3B 20 20 20 20 20 20 20 20 |S-.N1..; |
00001160: 20 20 54 45 4E 53 20 45 42 45 4E 53 4F 20 47 52 | TENS EBENSO GR|
00001170: 4F 53 53 20 57 49 45 00 73 31 12 07 3B 20 20 20 |OSS WIE.s1..; |
00001180: 20 20 20 20 20 20 20 44 49 45 20 41 4E 5A 41 48 | DIE ANZAH|
00001190: 4C 20 44 45 52 20 49 4E 4E 45 4E 2D 00 94 31 1C |L DER INNEN-..1.|
000011A0: 07 3B 20 20 20 20 20 20 20 20 20 20 5A 45 49 4C |.; ZEIL|
000011B0: 45 4E 20 53 45 49 4E 20 4D 55 53 53 2E 00 9A 31 |EN SEIN MUSS...1|
000011C0: 26 07 3B 00 BE 31 30 07 3B 42 53 50 2E 3A 20 53 |&.;..10.;BSP.: S|
000011D0: 59 53 20 58 58 58 58 2C 32 2C 35 2C 31 30 2C 31 |YS XXXX,2,5,10,1|
000011E0: 35 2C 41 24 28 32 29 00 E0 31 3A 07 3B 20 20 20 |5,A$(2)..1:.; |
000011F0: 20 20 20 4D 41 4C 54 20 57 49 4E 44 4F 57 20 4D | MALT WINDOW M|
00001200: 49 54 20 4C 49 4E 4B 45 52 00 04 32 44 07 3B 20 |IT LINKER..2D.; |
00001210: 20 20 20 20 20 45 43 4B 45 20 32 2F 35 2C 20 44 | ECKE 2/5, D|
00001220: 41 53 20 31 30 20 53 50 41 4C 54 45 4E 00 28 32 |AS 10 SPALTEN.(2|
00001230: 4E 07 3B 20 20 20 20 20 20 42 52 45 49 54 20 55 |N.; BREIT U|
00001240: 4E 44 20 31 35 20 5A 45 49 4C 45 4E 20 4C 41 4E |ND 15 ZEILEN LAN|
00001250: 47 00 4D 32 58 07 3B 20 20 20 20 20 20 49 53 54 |G.M2X.; IST|
00001260: 3B 20 44 49 45 20 49 4E 4E 45 4E 5A 45 49 4C 45 |; DIE INNENZEILE|
00001270: 4E 20 57 45 52 2D 00 71 32 62 07 3B 20 20 20 20 |N WER-.q2b.; |
00001280: 20 20 44 45 4E 20 4D 49 54 20 27 41 24 28 32 29 | DEN MIT 'A$(2)|
00001290: 27 2D 27 41 24 28 31 35 29 27 00 85 32 6C 07 3B |'-'A$(15)'..2l.;|
000012A0: 20 20 20 20 20 20 47 45 46 55 45 4C 4C 54 00 8B | GEFUELLT..|
000012B0: 32 76 07 3B 00 91 32 80 07 3B 00 B4 32 8A 07 57 |2v.;..2..;..2..W|
000012C0: 49 4E 44 4F 57 20 4C 44 41 23 34 3B 34 20 42 59 |INDOW LDA#4;4 BY|
000012D0: 54 45 57 45 52 54 45 20 48 4F 4C 45 4E 00 C2 32 |TEWERTE HOLEN..2|
000012E0: 94 07 20 4A 53 52 50 41 52 41 4D 00 C8 32 9E 07 |.. JSRPARAM..2..|
000012F0: 3B 00 E9 32 A8 07 20 4A 53 52 43 48 4B 4B 4F 4D |;..2.. JSRCHKKOM|
00001300: 3B 53 54 52 49 4E 47 44 45 53 43 52 52 49 50 54 |;STRINGDESCRRIPT|
00001310: 4F 52 00 FE 32 B2 07 20 4A 53 52 47 45 54 50 4F |OR..2.. JSRGETPO|
00001320: 53 3B 48 4F 4C 45 4E 00 04 33 BC 07 3B 00 2D 33 |S;HOLEN..3..;.-3|
00001330: C6 07 57 49 4E 4A 53 52 20 53 54 41 49 4E 44 49 |..WINJSR STAINDI|
00001340: 5A 3B 55 4E 44 20 4E 41 43 48 20 27 49 4E 44 49 |Z;UND NACH 'INDI|
00001350: 5A 28 2B 31 29 27 00 46 33 D0 07 20 53 54 59 49 |Z(+1)'.F3.. STYI|
00001360: 4E 44 49 5A 2B 31 3B 53 43 48 41 46 46 45 4E 00 |NDIZ+1;SCHAFFEN.|
00001370: 4C 33 DA 07 3B 00 6E 33 E4 07 20 4A 53 52 45 4E |L3..;.n3.. JSREN|
00001380: 44 5A 45 49 3B 4C 45 54 5A 54 45 20 57 49 4E 44 |DZEI;LETZTE WIND|
00001390: 4F 57 5A 45 49 4C 45 00 87 33 EE 07 20 44 45 43 |OWZEILE..3.. DEC|
000013A0: 4C 41 45 4E 47 45 3B 4B 4F 52 52 45 4B 54 55 52 |LAENGE;KORREKTUR|
000013B0: 00 9E 33 F8 07 20 44 45 43 42 52 45 49 54 45 3B |..3.. DECBREITE;|
000013C0: 4B 4F 52 52 45 4B 2D 00 B1 33 02 08 20 44 45 43 |KORREK-..3.. DEC|
000013D0: 42 52 45 49 54 45 3B 54 55 52 00 B7 33 0C 08 3B |BREITE;TUR..3..;|
000013E0: 00 BD 33 16 08 3B 00 C3 33 20 08 3B 00 D1 33 2A |..3..;..3 .;..3*|
000013F0: 08 20 4C 44 41 43 4F 4C 4F 52 00 DA 33 34 08 20 |. LDACOLOR..34. |
00001400: 50 48 41 00 EC 33 3E 08 20 4C 44 41 23 4E 45 57 |PHA..3>. LDA#NEW|
00001410: 43 4F 4C 4F 52 00 FA 33 48 08 20 53 54 41 43 4F |COLOR..3H. STACO|
00001420: 4C 4F 52 00 00 34 52 08 3B 00 06 34 5C 08 3B 00 |LOR..4R.;..4\.;.|
00001430: 0C 34 66 08 3B 00 2F 34 70 08 3B 2A 2A 2A 2A 2A |.4f.;./4p.;*****|
00001440: 20 45 52 53 54 45 20 5A 45 49 4C 45 20 4D 41 4C | ERSTE ZEILE MAL|
00001450: 45 4E 20 2A 2A 2A 2A 2A 00 44 34 7A 08 20 4C 44 |EN *****.D4z. LD|
00001460: 41 23 30 3B 46 4C 41 47 3D 30 20 3D 3E 00 66 34 |A#0;FLAG=0 =>.f4|
00001470: 84 08 20 53 54 41 46 4C 41 47 3B 4F 48 4E 45 20 |.. STAFLAG;OHNE |
00001480: 53 54 52 49 4E 47 20 41 55 53 47 45 42 45 4E 00 |STRING AUSGEBEN.|
00001490: 74 34 8E 08 20 4A 53 52 4D 41 4C 45 4E 00 7A 34 |t4.. JSRMALEN.z4|
000014A0: 98 08 3B 00 80 34 A2 08 3B 00 86 34 AC 08 3B 00 |..;..4..;..4..;.|
000014B0: A9 34 B6 08 3B 2A 2A 2A 2A 2A 20 49 4E 4E 45 4E |.4..;***** INNEN|
000014C0: 5A 45 49 4C 45 4E 20 4D 41 4C 45 4E 20 2A 2A 2A |ZEILEN MALEN ***|
000014D0: 2A 2A 00 C0 34 C0 08 20 49 4E 43 46 4C 41 47 3B |**..4.. INCFLAG;|
000014E0: 46 4C 41 47 3D 30 20 3D 3E 00 E8 34 CA 08 49 4E |FLAG=0 =>..4..IN|
000014F0: 4E 45 4E 20 4A 53 52 48 4F 4C 44 45 53 3B 5A 45 |NEN JSRHOLDES;ZE|
00001500: 49 4C 45 4E 20 4D 49 54 20 49 4E 48 41 4C 54 45 |ILEN MIT INHALTE|
00001510: 4E 00 0F 35 D4 08 20 4A 53 52 4D 41 4C 45 4E 3B |N..5.. JSRMALEN;|
00001520: 44 45 52 20 41 52 52 41 59 53 54 52 49 4E 47 53 |DER ARRAYSTRINGS|
00001530: 20 46 55 45 4C 4C 45 4E 00 1F 35 DE 08 20 4A 53 | FUELLEN..5.. JS|
00001540: 52 4E 45 58 54 53 54 52 00 3D 35 E8 08 20 4C 44 |RNEXTSTR.=5.. LD|
00001550: 41 4C 49 4E 45 3B 41 4C 4C 45 20 49 4E 4E 45 4E |ALINE;ALLE INNEN|
00001560: 5A 45 49 4C 45 4E 00 58 35 F2 08 20 43 4D 50 4C |ZEILEN.X5.. CMPL|
00001570: 41 45 4E 47 45 3B 41 55 53 47 45 47 45 42 45 4E |AENGE;AUSGEGEBEN|
00001580: 3F 00 6E 35 FC 08 20 42 4E 45 49 4E 4E 45 4E 3B |?.n5.. BNEINNEN;|
00001590: 4E 45 49 4E 20 3D 3E 00 74 35 06 09 3B 00 7A 35 |NEIN =>.t5..;.z5|
000015A0: 10 09 3B 00 80 35 1A 09 3B 00 A4 35 24 09 3B 2A |..;..5..;..5$.;*|
000015B0: 2A 2A 2A 2A 20 4C 45 54 5A 54 45 20 5A 45 49 4C |**** LETZTE ZEIL|
000015C0: 45 20 4D 41 4C 45 4E 20 2A 2A 2A 2A 2A 00 BB 35 |E MALEN *****..5|
000015D0: 2E 09 20 49 4E 43 46 4C 41 47 3B 46 4C 41 47 3D |.. INCFLAG;FLAG=|
000015E0: 32 20 3D 3E 00 E2 35 38 09 20 4A 53 52 4D 41 4C |2 =>..58. JSRMAL|
000015F0: 45 4E 3B 5A 45 49 4C 45 20 4F 48 4E 45 20 53 54 |EN;ZEILE OHNE ST|
00001600: 52 49 4E 47 49 4E 48 41 4C 54 45 00 E8 35 42 09 |RINGINHALTE..5B.|
00001610: 3B 00 F1 35 4C 09 20 50 4C 41 00 FF 35 56 09 20 |;..5L. PLA..5V. |
00001620: 53 54 41 43 4F 4C 4F 52 00 08 36 60 09 20 52 54 |STACOLOR..6`. RT|
00001630: 53 00 0E 36 6A 09 3B 00 14 36 74 09 3B 00 1A 36 |S..6j.;..6t.;..6|
00001640: 7E 09 3B 00 37 36 88 09 3B 2A 2A 2A 2A 2A 20 5A |~.;.76..;***** Z|
00001650: 45 49 4C 45 20 4D 41 4C 45 4E 20 2A 2A 2A 2A 2A |EILE MALEN *****|
00001660: 00 57 36 92 09 4D 41 4C 45 4E 20 4C 44 58 4C 49 |.W6..MALEN LDXLI|
00001670: 4E 45 3B 43 55 52 53 4F 52 20 53 45 54 5A 45 4E |NE;CURSOR SETZEN|
00001680: 00 63 36 9C 09 20 4C 44 59 43 4F 4C 00 6C 36 A6 |.c6.. LDYCOL.l6.|
00001690: 09 20 43 4C 43 00 79 36 B0 09 20 4A 53 52 50 4C |. CLC.y6.. JSRPL|
000016A0: 4F 54 00 86 36 BA 09 20 4C 44 58 46 4C 41 47 00 |OT..6.. LDXFLAG.|
000016B0: A5 36 C4 09 20 4C 44 41 4C 49 4E 4B 53 2C 58 3B |.6.. LDALINKS,X;|
000016C0: 4C 49 4E 4B 45 53 20 5A 45 49 43 48 45 4E 00 BC |LINKES ZEICHEN..|
000016D0: 36 CE 09 20 4A 53 52 42 53 4F 55 54 3B 41 55 53 |6.. JSRBSOUT;AUS|
000016E0: 47 45 42 45 4E 00 D9 36 D8 09 20 4C 44 59 23 30 |GEBEN..6.. LDY#0|
000016F0: 3B 4D 49 54 54 4C 45 52 45 53 20 5A 45 49 43 48 |;MITTLERES ZEICH|
00001700: 45 4E 00 01 37 E2 09 4C 4F 4F 50 20 4C 44 41 4D |EN..7..LOOP LDAM|
00001710: 49 54 54 45 2C 58 3B 4C 41 44 45 4E 20 55 4E 44 |ITTE,X;LADEN UND|
00001720: 20 41 55 53 47 45 42 45 4E 2C 00 16 37 EC 09 20 | AUSGEBEN,..7.. |
00001730: 43 50 58 23 31 3B 57 45 4E 4E 20 46 4C 41 47 00 |CPX#1;WENN FLAG.|
00001740: 2E 37 F6 09 20 42 4E 45 4E 4F 53 54 52 49 4E 47 |.7.. BNENOSTRING|
00001750: 3B 3C 3E 31 20 3D 3E 00 4D 37 00 0A 20 43 50 59 |;<>1 =>.M7.. CPY|
00001760: 53 54 52 4C 45 4E 3B 4F 44 45 52 20 53 54 52 49 |STRLEN;ODER STRI|
00001770: 4E 47 45 4E 44 45 00 6A 37 0A 0A 20 42 43 53 4E |NGENDE.j7.. BCSN|
00001780: 4F 53 54 52 49 4E 47 3B 45 52 52 45 49 43 48 54 |OSTRING;ERREICHT|
00001790: 20 3D 3E 00 91 37 14 0A 20 4C 44 41 28 53 54 52 | =>..7.. LDA(STR|
000017A0: 50 4F 53 29 2C 59 3B 53 4F 4E 53 54 20 53 54 52 |POS),Y;SONST STR|
000017B0: 49 4E 47 5A 45 49 43 48 45 4E 00 B0 37 1E 0A 4E |INGZEICHEN..7..N|
000017C0: 4F 53 54 52 49 4E 47 20 4A 53 52 42 53 4F 55 54 |OSTRING JSRBSOUT|
000017D0: 3B 41 55 53 47 45 42 45 4E 00 CA 37 28 0A 20 49 |;AUSGEBEN..7(. I|
000017E0: 4E 59 3B 5A 45 49 4C 45 20 2D 31 20 5A 45 49 43 |NY;ZEILE -1 ZEIC|
000017F0: 48 45 4E 00 EE 37 32 0A 20 43 50 59 42 52 45 49 |HEN..72. CPYBREI|
00001800: 54 45 3B 4B 4F 4D 50 4C 45 54 54 20 41 55 53 47 |TE;KOMPLETT AUSG|
00001810: 45 47 45 42 45 4E 3F 00 03 38 3C 0A 20 42 4E 45 |EGEBEN?..8<. BNE|
00001820: 4C 4F 4F 50 3B 4E 45 49 4E 20 3D 3E 00 1B 38 46 |LOOP;NEIN =>..8F|
00001830: 0A 20 49 4E 43 4C 49 4E 45 3B 4E 45 58 54 20 5A |. INCLINE;NEXT Z|
00001840: 45 49 4C 45 00 3C 38 50 0A 20 4C 44 41 52 45 43 |EILE.<8P. LDAREC|
00001850: 48 54 53 2C 58 3B 52 45 43 48 54 45 53 20 5A 45 |HTS,X;RECHTES ZE|
00001860: 49 43 48 45 4E 00 53 38 5A 0A 20 4A 53 52 42 53 |ICHEN.S8Z. JSRBS|
00001870: 4F 55 54 3B 41 55 53 47 45 42 45 4E 00 5E 38 5C |OUT;AUSGEBEN.^8\|
00001880: 0A 20 4C 44 41 23 30 00 70 38 5E 0A 20 53 54 41 |. LDA#0.p8^. STA|
00001890: 51 55 4F 54 45 4D 4F 44 45 00 80 38 60 0A 20 53 |QUOTEMODE..8`. S|
000018A0: 54 41 49 4E 53 45 52 54 53 00 89 38 62 0A 20 52 |TAINSERTS..8b. R|
000018B0: 54 53 00 8F 38 64 0A 3B 00 A8 38 6E 0A 4C 49 4E |TS..8d.;..8n.LIN|
000018C0: 4B 53 20 2E 42 59 31 37 36 2C 31 32 35 2C 31 37 |KS .BY176,125,17|
000018D0: 33 00 BE 38 78 0A 4D 49 54 54 45 20 2E 42 59 39 |3..8x.MITTE .BY9|
000018E0: 36 2C 33 32 2C 39 36 00 D8 38 82 0A 52 45 43 48 |6,32,96..8..RECH|
000018F0: 54 53 20 2E 42 59 31 37 34 2C 31 32 35 2C 31 38 |TS .BY174,125,18|
00001900: 39 00 FE 38 8C 0A 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |9..8..;*********|
00001910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001920: 2A 2A 2A 2A 2A 2A 2A 00 04 39 96 0A 3B 00 0A 39 |*******..9..;..9|
00001930: A0 0A 3B 00 10 39 AA 0A 3B 00 36 39 B4 0A 3B 2A |..;..9..;.69..;*|
00001940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001960: 5C 39 BE 0A 3B 2A 20 57 49 4E 44 4F 57 55 4E 54 |\9..;* WINDOWUNT|
00001970: 45 52 47 52 55 4E 44 20 52 45 54 54 45 4E 2F 48 |ERGRUND RETTEN/H|
00001980: 4F 4C 45 4E 2A 00 82 39 C8 0A 3B 2A 2A 2A 2A 2A |OLEN*..9..;*****|
00001990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 88 39 D2 0A |***********..9..|
000019B0: 3B 00 AB 39 DC 0A 3B 41 55 46 52 55 46 3A 53 59 |;..9..;AUFRUF:SY|
000019C0: 53 20 58 58 58 58 2C 53 50 41 4C 54 45 2C 5A 45 |S XXXX,SPALTE,ZE|
000019D0: 49 4C 45 2C 00 D1 39 E6 0A 3B 20 20 20 20 20 20 |ILE,..9..; |
000019E0: 20 42 52 45 49 54 45 2C 4C 41 45 4E 47 45 2C 46 | BREITE,LAENGE,F|
000019F0: 4C 41 47 2C 50 55 46 46 45 52 00 D7 39 F0 0A 3B |LAG,PUFFER..9..;|
00001A00: 00 F8 39 FA 0A 3B 46 55 4E 4B 54 49 4F 4E 3A 20 |..9..;FUNKTION: |
00001A10: 4B 4F 50 49 45 52 54 20 44 45 4E 20 44 55 52 43 |KOPIERT DEN DURC|
00001A20: 48 00 1C 3A 04 0B 3B 20 20 20 20 20 20 20 20 20 |H..:..; |
00001A30: 20 27 53 50 41 4C 54 45 27 2F 27 5A 45 49 4C 45 | 'SPALTE'/'ZEILE|
00001A40: 27 20 55 4E 44 00 41 3A 0E 0B 3B 20 20 20 20 20 |' UND.A:..; |
00001A50: 20 20 20 20 20 27 42 52 45 49 54 45 27 20 42 5A | 'BREITE' BZ|
00001A60: 57 2E 27 4C 41 45 4E 47 45 27 00 62 3A 18 0B 3B |W.'LAENGE'.b:..;|
00001A70: 20 20 20 20 20 20 20 20 20 20 41 4E 47 45 47 45 | ANGEGE|
00001A80: 42 45 4E 45 4E 20 42 49 4C 44 2D 00 85 3A 22 0B |BENEN BILD-..:".|
00001A90: 3B 20 20 20 20 20 20 20 20 20 20 53 43 48 49 52 |; SCHIR|
00001AA0: 4D 41 55 53 53 43 48 4E 49 54 54 20 49 4E 00 A8 |MAUSSCHNITT IN..|
00001AB0: 3A 2C 0B 3B 20 20 20 20 20 20 20 20 20 20 50 55 |:,.; PU|
00001AC0: 46 46 45 52 20 4E 52 2E 27 50 55 46 46 45 52 27 |FFER NR.'PUFFER'|
00001AD0: 2C 00 C6 3A 36 0B 3B 20 20 20 20 20 20 20 20 20 |,..:6.; |
00001AE0: 20 57 45 4E 4E 20 27 46 4C 41 47 27 3D 31 2E 00 | WENN 'FLAG'=1..|
00001AF0: EB 3A 40 0B 3B 20 20 20 20 20 20 20 20 20 20 27 |.:@.; '|
00001B00: 46 4C 41 47 27 3D 31 20 3D 3E 44 45 52 20 49 4E |FLAG'=1 =>DER IN|
00001B10: 48 41 4C 54 00 11 3B 4A 0B 3B 20 20 20 20 20 20 |HALT..;J.; |
00001B20: 20 20 20 20 44 45 53 20 41 4E 47 45 47 2E 50 55 | DES ANGEG.PU|
00001B30: 46 46 45 52 53 20 57 49 52 44 00 34 3B 54 0B 3B |FFERS WIRD.4;T.;|
00001B40: 20 20 20 20 20 20 20 20 20 20 49 4E 20 44 45 4E | IN DEN|
00001B50: 20 41 4E 47 45 47 2E 20 42 49 4C 44 2D 00 54 3B | ANGEG. BILD-.T;|
00001B60: 5E 0B 3B 20 20 20 20 20 20 20 20 20 20 53 43 48 |^.; SCH|
00001B70: 49 52 4D 41 55 53 53 43 48 4E 49 54 54 00 6C 3B |IRMAUSSCHNITT.l;|
00001B80: 68 0B 3B 20 20 20 20 20 20 20 20 20 20 4B 4F 50 |h.; KOP|
00001B90: 49 45 52 54 2E 00 8F 3B 72 0B 3B 20 20 20 20 20 |IERT...;r.; |
00001BA0: 20 20 20 20 20 50 55 46 46 45 52 3A 20 4E 55 4D | PUFFER: NUM|
00001BB0: 45 52 49 45 52 55 4E 47 00 B2 3B 7C 0B 3B 20 20 |ERIERUNG..;|.; |
00001BC0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 4E 54 20 | BEGINNT |
00001BD0: 42 45 49 20 30 3B 20 4D 41 58 2E 00 D5 3B 86 0B |BEI 0; MAX...;..|
00001BE0: 3B 20 20 20 20 20 20 20 20 20 20 50 55 46 46 45 |; PUFFE|
00001BF0: 52 42 45 52 45 49 43 48 3A 20 32 20 4B 42 00 DB |RBEREICH: 2 KB..|
00001C00: 3B 90 0B 3B 00 FD 3B 9A 0B 3B 42 53 50 2E 3A 20 |;..;..;..;BSP.: |
00001C10: 53 59 53 20 58 58 58 58 2C 32 2C 35 2C 31 30 2C |SYS XXXX,2,5,10,|
00001C20: 31 35 2C 31 2C 30 00 21 3C A4 0B 3B 20 20 20 20 |15,1,0.!<..; |
00001C30: 20 20 57 49 4E 44 4F 57 20 4D 49 54 20 4C 49 4E | WINDOW MIT LIN|
00001C40: 4B 45 52 20 4F 42 45 52 45 52 00 46 3C AE 0B 3B |KER OBERER.F<..;|
00001C50: 20 20 20 20 20 20 45 43 4B 45 20 32 2F 35 2C 20 | ECKE 2/5, |
00001C60: 42 52 45 49 54 45 20 31 30 20 53 50 41 4C 2D 00 |BREITE 10 SPAL-.|
00001C70: 6B 3C B8 0B 3B 20 20 20 20 20 20 54 45 4E 20 55 |k<..; TEN U|
00001C80: 2E 4C 41 45 4E 47 45 20 31 35 20 5A 45 49 4C 45 |.LAENGE 15 ZEILE|
00001C90: 4E 20 49 4E 00 8D 3C C2 0B 3B 20 20 20 20 20 20 |N IN..<..; |
00001CA0: 50 55 46 46 45 52 20 4E 52 2E 30 20 53 43 48 52 |PUFFER NR.0 SCHR|
00001CB0: 45 49 42 45 4E 2E 00 93 3C CC 0B 3B 00 99 3C D6 |EIBEN...<..;..<.|
00001CC0: 0B 3B 00 AE 3C E0 0B 50 55 46 46 49 4E 49 54 20 |.;..<..PUFFINIT |
00001CD0: 4C 44 41 23 24 46 46 00 BC 3C EA 0B 20 53 54 41 |LDA#$FF..<.. STA|
00001CE0: 50 55 46 4E 52 00 C5 3C F4 0B 20 52 54 53 00 CB |PUFNR..<.. RTS..|
00001CF0: 3C FE 0B 3B 00 D1 3C 08 0C 3B 00 D7 3C 12 0C 3B |<..;..<..;..<..;|
00001D00: 00 FA 3C 1C 0C 50 55 46 46 45 52 20 4C 44 41 23 |..<..PUFFER LDA#|
00001D10: 35 3B 36 20 42 59 54 45 57 45 52 54 45 20 4C 45 |5;6 BYTEWERTE LE|
00001D20: 53 45 4E 00 08 3D 26 0C 20 4A 53 52 50 41 52 41 |SEN..=&. JSRPARA|
00001D30: 4D 00 0E 3D 30 0C 3B 00 38 3D 3A 0C 50 55 46 46 |M..=0.;.8=:.PUFF|
00001D40: 45 52 4A 53 52 20 4C 44 41 23 3C 28 50 55 46 53 |ERJSR LDA#<(PUFS|
00001D50: 54 41 52 54 29 3B 50 4F 49 4E 54 45 52 20 41 55 |TART);POINTER AU|
00001D60: 46 00 59 3D 44 0C 20 4C 44 58 23 3E 28 50 55 46 |F.Y=D. LDX#>(PUF|
00001D70: 53 54 41 52 54 29 3B 50 55 46 46 45 52 20 4E 52 |START);PUFFER NR|
00001D80: 2E 30 00 71 3D 4E 0C 20 53 54 41 50 55 46 50 4F |.0.q=N. STAPUFPO|
00001D90: 49 3B 45 52 5A 45 55 47 45 4E 00 82 3D 58 0C 20 |I;ERZEUGEN..=X. |
00001DA0: 53 54 58 50 55 46 50 4F 49 2B 31 00 88 3D 62 0C |STXPUFPOI+1..=b.|
00001DB0: 3B 00 95 3D 6C 0C 20 4C 44 41 46 4C 41 47 00 A5 |;..=l. LDAFLAG..|
00001DC0: 3D 76 0C 20 42 4E 45 4E 4F 57 52 49 54 45 00 B3 |=v. BNENOWRITE..|
00001DD0: 3D 80 0C 20 49 4E 43 50 55 46 4E 52 00 B9 3D 8A |=.. INCPUFNR..=.|
00001DE0: 0C 3B 00 E1 3D 94 0C 4E 4F 57 52 49 54 45 20 4C |.;..=..NOWRITE L|
00001DF0: 44 41 50 55 46 4E 52 3B 41 44 52 45 53 53 45 20 |DAPUFNR;ADRESSE |
00001E00: 44 45 53 20 41 4E 47 45 47 2E 00 EA 3D 9E 0C 20 |DES ANGEG...=.. |
00001E10: 41 53 4C 00 F3 3D A8 0C 20 54 41 58 00 11 3E B2 |ASL..=.. TAX..>.|
00001E20: 0C 20 4C 44 41 50 55 46 50 4F 49 2C 58 3B 50 55 |. LDAPUFPOI,X;PU|
00001E30: 46 46 45 52 53 20 4E 41 43 48 00 2E 3E BC 0C 20 |FFERS NACH..>.. |
00001E40: 53 54 41 50 55 46 46 45 52 50 3B 27 50 55 46 50 |STAPUFFERP;'PUFP|
00001E50: 4F 49 28 2B 31 29 27 00 4A 3E C6 0C 20 4C 44 41 |OI(+1)'.J>.. LDA|
00001E60: 50 55 46 50 4F 49 2B 31 2C 58 3B 4B 4F 50 49 45 |PUFPOI+1,X;KOPIE|
00001E70: 52 45 4E 00 5C 3E D0 0C 20 53 54 41 50 55 46 46 |REN.\>.. STAPUFF|
00001E80: 45 52 50 2B 31 00 62 3E DA 0C 3B 00 88 3E E4 0C |ERP+1.b>..;..>..|
00001E90: 20 4A 53 52 45 4E 44 5A 45 49 3B 4C 45 54 5A 54 | JSRENDZEI;LETZT|
00001EA0: 45 20 5A 45 49 4C 45 20 45 52 4D 49 54 54 45 4C |E ZEILE ERMITTEL|
00001EB0: 4E 00 8E 3E EE 0C 3B 00 AB 3E F8 0C 20 4C 44 58 |N..>..;..>.. LDX|
00001EC0: 4C 49 4E 45 3B 43 55 52 53 4F 52 20 41 55 46 20 |LINE;CURSOR AUF |
00001ED0: 4C 49 4E 45 00 B7 3E 02 0D 20 4C 44 59 43 4F 4C |LINE..>.. LDYCOL|
00001EE0: 00 D1 3E 0C 0D 20 43 4C 43 3B 4F 42 45 52 45 20 |..>.. CLC;OBERE |
00001EF0: 57 49 4E 44 4F 57 45 43 4B 45 00 DE 3E 16 0D 20 |WINDOWECKE..>.. |
00001F00: 4A 53 52 50 4C 4F 54 00 E4 3E 20 0D 3B 00 FA 3E |JSRPLOT..> .;..>|
00001F10: 2A 0D 57 45 49 54 45 52 20 4A 53 52 4C 49 4E 45 |*.WEITER JSRLINE|
00001F20: 50 54 52 00 20 3F 34 0D 20 4C 44 41 4C 49 4E 45 |PTR. ?4. LDALINE|
00001F30: 50 4F 49 2B 31 3B 27 53 43 52 45 45 4E 50 4F 49 |POI+1;'SCREENPOI|
00001F40: 4E 54 45 52 28 2B 31 29 27 00 45 3F 3E 0D 20 53 |NTER(+1)'.E?>. S|
00001F50: 54 41 53 43 52 45 45 4E 50 2B 31 3B 2B 57 49 4E |TASCREENP+1;+WIN|
00001F60: 44 4F 57 53 54 41 52 54 53 50 41 4C 54 45 00 64 |DOWSTARTSPALTE.d|
00001F70: 3F 48 0D 20 4C 44 41 4C 49 4E 45 50 4F 49 3B 45 |?H. LDALINEPOI;E|
00001F80: 52 47 49 42 54 20 50 4F 49 4E 54 45 52 00 7C 3F |RGIBT POINTER.|?|
00001F90: 52 0D 20 43 4C 43 3B 41 55 46 20 41 4E 46 41 4E |R. CLC;AUF ANFAN|
00001FA0: 47 20 44 45 52 00 9E 3F 5C 0D 20 41 44 43 43 4F |G DER..?\. ADCCO|
00001FB0: 4C 3B 41 4B 54 55 45 4C 4C 45 4E 20 57 49 4E 44 |L;AKTUELLEN WIND|
00001FC0: 4F 57 5A 45 49 4C 45 00 BB 3F 66 0D 20 53 54 41 |OWZEILE..?f. STA|
00001FD0: 53 43 52 45 45 4E 50 3B 2B 53 54 41 52 54 53 50 |SCREENP;+STARTSP|
00001FE0: 41 4C 54 45 00 C8 3F 70 0D 20 42 43 43 4F 4B 41 |ALTE..?p. BCCOKA|
00001FF0: 59 00 DA 3F 7A 0D 20 49 4E 43 53 43 52 45 45 4E |Y..?z. INCSCREEN|
00002000: 50 2B 31 00 E0 3F 84 0D 3B 00 F5 3F 8E 0D 4F 4B |P+1..?..;..?..OK|
00002010: 41 59 20 4A 53 52 50 41 49 4E 54 50 54 52 00 FB |AY JSRPAINTPTR..|
00002020: 3F 98 0D 3B 00 01 40 A2 0D 3B 00 26 40 AC 0D 20 |?..;..@..;.&@.. |
00002030: 4C 44 59 42 52 45 49 54 45 3B 5A 41 45 48 4C 45 |LDYBREITE;ZAEHLE|
00002040: 52 20 49 4E 49 54 49 41 4C 49 53 45 52 45 4E 00 |R INITIALISEREN.|
00002050: 2F 40 B6 0D 20 44 45 59 00 35 40 C0 0D 3B 00 42 |/@.. DEY.5@..;.B|
00002060: 40 CA 0D 43 4F 50 59 20 54 59 41 00 4B 40 D4 0D |@..COPY TYA.K@..|
00002070: 20 43 4C 43 00 5A 40 DE 0D 20 41 44 43 42 52 45 | CLC.Z@.. ADCBRE|
00002080: 49 54 45 00 67 40 E8 0D 20 53 54 41 48 45 4C 50 |ITE.g@.. STAHELP|
00002090: 00 6D 40 F2 0D 3B 00 91 40 FC 0D 20 4C 44 41 46 |.m@..;..@.. LDAF|
000020A0: 4C 41 47 3B 45 49 4E 20 5A 45 49 43 48 45 4E 20 |LAG;EIN ZEICHEN |
000020B0: 41 55 53 20 50 55 46 46 45 52 00 AF 40 06 0E 20 |AUS PUFFER..@.. |
000020C0: 42 4E 45 57 52 49 54 45 3B 41 55 46 20 53 43 52 |BNEWRITE;AUF SCR|
000020D0: 45 45 4E 20 4F 44 45 52 00 B5 40 10 0E 3B 00 C8 |EEN ODER..@..;..|
000020E0: 40 1A 0E 20 4C 44 41 28 50 41 49 4E 54 50 29 2C |@.. LDA(PAINTP),|
000020F0: 59 00 D7 40 24 0E 20 53 54 59 48 45 4C 50 2B 31 |Y..@$. STYHELP+1|
00002100: 00 E4 40 2E 0E 20 4C 44 59 48 45 4C 50 00 F8 40 |..@.. LDYHELP..@|
00002110: 38 0E 20 53 54 41 28 50 55 46 46 45 52 50 29 2C |8. STA(PUFFERP),|
00002120: 59 00 07 41 42 0E 20 4C 44 59 48 45 4C 50 2B 31 |Y..AB. LDYHELP+1|
00002130: 00 0D 41 4C 0E 3B 00 2C 41 56 0E 20 4C 44 41 28 |..AL.;.,AV. LDA(|
00002140: 53 43 52 45 45 4E 50 29 2C 59 3B 55 4D 47 45 4B |SCREENP),Y;UMGEK|
00002150: 45 48 52 54 2C 00 54 41 60 0E 20 53 54 41 28 50 |EHRT,.TA`. STA(P|
00002160: 55 46 46 45 52 50 29 2C 59 3B 4A 45 20 4E 41 43 |UFFERP),Y;JE NAC|
00002170: 48 20 46 4C 41 47 5A 55 53 54 41 4E 44 00 61 41 |H FLAGZUSTAND.aA|
00002180: 6A 0E 20 42 4E 45 4A 55 4D 50 00 67 41 74 0E 3B |j. BNEJUMP.gAt.;|
00002190: 00 7B 41 7E 0E 57 52 49 54 45 20 53 54 59 48 45 |.{A~.WRITE STYHE|
000021A0: 4C 50 2B 31 00 88 41 88 0E 20 4C 44 59 48 45 4C |LP+1..A.. LDYHEL|
000021B0: 50 00 94 41 92 0E 20 4A 53 52 52 41 4D 00 A8 41 |P..A.. JSRRAM..A|
000021C0: 9C 0E 20 4C 44 41 28 50 55 46 46 45 52 50 29 2C |.. LDA(PUFFERP),|
000021D0: 59 00 B1 41 A6 0E 20 50 48 41 00 BD 41 B0 0E 20 |Y..A.. PHA..A.. |
000021E0: 4A 53 52 52 4F 4D 00 C6 41 BA 0E 20 50 4C 41 00 |JSRROM..A.. PLA.|
000021F0: D5 41 C4 0E 20 4C 44 59 48 45 4C 50 2B 31 00 E8 |.A.. LDYHELP+1..|
00002200: 41 CE 0E 20 53 54 41 28 50 41 49 4E 54 50 29 2C |A.. STA(PAINTP),|
00002210: 59 00 F4 41 D8 0E 20 4A 53 52 52 41 4D 00 08 42 |Y..A.. JSRRAM..B|
00002220: E2 0E 20 4C 44 41 28 50 55 46 46 45 52 50 29 2C |.. LDA(PUFFERP),|
00002230: 59 00 1C 42 EC 0E 20 53 54 41 28 53 43 52 45 45 |Y..B.. STA(SCREE|
00002240: 4E 50 29 2C 59 00 28 42 F6 0E 20 4A 53 52 52 4F |NP),Y.(B.. JSRRO|
00002250: 4D 00 46 42 00 0F 4A 55 4D 50 20 44 45 59 3B 5A |M.FB..JUMP DEY;Z|
00002260: 45 49 4C 45 20 42 45 48 41 4E 44 45 4C 54 3F 00 |EILE BEHANDELT?.|
00002270: 5B 42 0A 0F 20 42 50 4C 43 4F 50 59 3B 4E 45 49 |[B.. BPLCOPY;NEI|
00002280: 4E 20 3D 3E 00 61 42 14 0F 3B 00 7C 42 1E 0F 20 |N =>.aB..;.|B.. |
00002290: 4C 44 41 42 52 45 49 54 45 3B 50 4F 49 4E 54 45 |LDABREITE;POINTE|
000022A0: 52 20 41 55 46 00 8F 42 28 0F 20 41 53 4C 3B 50 |R AUF..B(. ASL;P|
000022B0: 55 46 46 45 52 20 55 4D 00 A5 42 32 0F 20 43 4C |UFFER UM..B2. CL|
000022C0: 43 3B 57 49 4E 44 4F 57 42 52 45 49 54 45 00 B5 |C;WINDOWBREITE..|
000022D0: 42 3C 0F 20 41 44 43 50 55 46 46 45 52 50 00 CE |B<. ADCPUFFERP..|
000022E0: 42 46 0F 20 53 54 41 50 55 46 46 45 52 50 3B 45 |BF. STAPUFFERP;E|
000022F0: 52 48 4F 45 48 45 4E 00 DD 42 50 0F 20 42 43 43 |RHOEHEN..BP. BCC|
00002300: 4E 4F 49 4E 43 52 00 EF 42 5A 0F 20 49 4E 43 50 |NOINCR..BZ. INCP|
00002310: 55 46 46 45 52 50 2B 31 00 F5 42 64 0F 3B 00 19 |UFFERP+1..Bd.;..|
00002320: 43 6E 0F 4E 4F 49 4E 43 52 20 4C 44 41 23 31 37 |Cn.NOINCR LDA#17|
00002330: 3B 43 55 52 53 4F 52 20 45 49 4E 45 20 5A 45 49 |;CURSOR EINE ZEI|
00002340: 4C 45 00 35 43 78 0F 20 4A 53 52 42 53 4F 55 54 |LE.5Cx. JSRBSOUT|
00002350: 3B 54 49 45 46 45 52 20 53 45 54 5A 45 4E 00 58 |;TIEFER SETZEN.X|
00002360: 43 82 0F 20 4C 44 41 43 52 53 4C 49 4E 45 3B 4C |C.. LDACRSLINE;L|
00002370: 45 54 5A 54 45 20 57 49 4E 44 4F 57 5A 45 49 4C |ETZTE WINDOWZEIL|
00002380: 45 00 72 43 8C 0F 20 43 4D 50 4C 41 45 4E 47 45 |E.rC.. CMPLAENGE|
00002390: 3B 42 45 48 41 4E 44 45 4C 54 3F 00 89 43 96 0F |;BEHANDELT?..C..|
000023A0: 20 42 4E 45 57 45 49 54 45 52 3B 4E 45 49 4E 20 | BNEWEITER;NEIN |
000023B0: 3D 3E 00 8F 43 A0 0F 3B 00 95 43 AA 0F 3B 00 AE |=>..C..;..C..;..|
000023C0: 43 B4 0F 20 4C 44 58 50 55 46 4E 52 3B 41 4E 46 |C.. LDXPUFNR;ANF|
000023D0: 41 4E 47 20 44 45 53 00 C9 43 BE 0F 20 49 4E 58 |ANG DES..C.. INX|
000023E0: 3B 4E 41 45 43 48 53 54 45 4E 20 50 55 46 46 45 |;NAECHSTEN PUFFE|
000023F0: 52 53 00 E2 43 C8 0F 20 54 58 41 3B 48 49 4E 54 |RS..C.. TXA;HINT|
00002400: 45 52 20 44 41 53 20 45 4E 44 45 00 F9 43 D2 0F |ER DAS ENDE..C..|
00002410: 20 41 53 4C 3B 44 45 53 20 41 4B 54 55 45 4C 4C | ASL;DES AKTUELL|
00002420: 45 4E 00 11 44 DC 0F 20 54 41 58 3B 50 55 46 46 |EN..D.. TAX;PUFF|
00002430: 45 52 53 20 53 45 54 5A 45 4E 00 21 44 E6 0F 20 |ERS SETZEN.!D.. |
00002440: 4C 44 41 50 55 46 46 45 52 50 00 32 44 F0 0F 20 |LDAPUFFERP.2D.. |
00002450: 53 54 41 50 55 46 50 4F 49 2C 58 00 44 44 FA 0F |STAPUFPOI,X.DD..|
00002460: 20 4C 44 41 50 55 46 46 45 52 50 2B 31 00 57 44 | LDAPUFFERP+1.WD|
00002470: 04 10 20 53 54 41 50 55 46 50 4F 49 2B 31 2C 58 |.. STAPUFPOI+1,X|
00002480: 00 5D 44 0E 10 3B 00 6A 44 18 10 20 4C 44 41 46 |.]D..;.jD.. LDAF|
00002490: 4C 41 47 00 79 44 22 10 20 42 45 51 4E 4F 4C 49 |LAG.yD". BEQNOLI|
000024A0: 45 53 00 87 44 2C 10 20 44 45 43 50 55 46 4E 52 |ES..D,. DECPUFNR|
000024B0: 00 96 44 36 10 4E 4F 4C 49 45 53 20 52 54 53 00 |..D6.NOLIES RTS.|
000024C0: 9C 44 40 10 3B 00 A2 44 4A 10 3B 00 C9 44 54 10 |.D@.;..DJ.;..DT.|
000024D0: 52 41 4D 20 4A 53 52 4E 4F 49 4E 54 3B 49 4E 54 |RAM JSRNOINT;INT|
000024E0: 45 52 52 55 50 54 20 41 55 53 53 43 48 41 4C 54 |ERRUPT AUSSCHALT|
000024F0: 45 4E 00 E8 44 5E 10 20 4C 44 41 23 24 33 34 3B |EN..D^. LDA#$34;|
00002500: 52 41 4D 2D 4B 4F 4E 46 4F 47 55 52 41 54 49 4F |RAM-KONFOGURATIO|
00002510: 4E 00 FD 44 68 10 20 53 54 41 31 3B 45 49 4E 53 |N..Dh. STA1;EINS|
00002520: 54 45 4C 4C 45 4E 00 22 45 72 10 20 4A 4D 50 49 |TELLEN."Er. JMPI|
00002530: 4E 54 45 49 4E 3B 49 4E 54 45 52 52 55 50 54 20 |NTEIN;INTERRUPT |
00002540: 45 49 4E 53 43 48 41 4C 54 45 4E 00 28 45 7C 10 |EINSCHALTEN.(E|.|
00002550: 3B 00 2E 45 86 10 3B 00 4D 45 90 10 52 4F 4D 20 |;..E..;.ME..ROM |
00002560: 4A 53 52 4E 4F 49 4E 54 3B 49 4E 54 45 52 52 55 |JSRNOINT;INTERRU|
00002570: 50 54 20 41 55 53 00 6C 45 9A 10 20 4C 44 41 23 |PT AUS.lE.. LDA#|
00002580: 24 33 37 3B 52 4F 4D 2D 4B 4F 4E 46 49 47 55 52 |$37;ROM-KONFIGUR|
00002590: 41 54 49 4F 4E 00 82 45 A4 10 20 53 54 41 31 3B |ATION..E.. STA1;|
000025A0: 45 49 4E 53 43 48 41 4C 54 45 4E 00 9F 45 AE 10 |EINSCHALTEN..E..|
000025B0: 20 4A 4D 50 49 4E 54 45 49 4E 3B 49 4E 54 45 52 | JMPINTEIN;INTER|
000025C0: 52 55 50 54 20 45 49 4E 00 A5 45 B8 10 3B 00 AB |RUPT EIN..E..;..|
000025D0: 45 C2 10 3B 00 D6 45 CC 10 4E 4F 49 4E 54 20 4C |E..;..E..NOINT L|
000025E0: 44 41 49 4E 54 43 54 52 4C 3B 49 4E 54 45 52 52 |DAINTCTRL;INTERR|
000025F0: 55 50 54 53 20 56 45 52 48 49 4E 44 45 52 4E 00 |UPTS VERHINDERN.|
00002600: E3 45 D6 10 20 41 4E 44 23 24 46 45 00 F3 45 E0 |.E.. AND#$FE..E.|
00002610: 10 20 53 54 41 49 4E 54 43 54 52 4C 00 FC 45 EA |. STAINTCTRL..E.|
00002620: 10 20 52 54 53 00 02 46 F4 10 3B 00 2C 46 FE 10 |. RTS..F..;.,F..|
00002630: 49 4E 54 45 49 4E 20 4C 44 41 49 4E 54 43 54 52 |INTEIN LDAINTCTR|
00002640: 4C 3B 49 4E 54 45 52 52 55 50 54 53 20 5A 55 4C |L;INTERRUPTS ZUL|
00002650: 41 53 53 45 4E 00 39 46 08 11 20 4F 52 41 23 24 |ASSEN.9F.. ORA#$|
00002660: 30 31 00 49 46 12 11 20 53 54 41 49 4E 54 43 54 |01.IF.. STAINTCT|
00002670: 52 4C 00 52 46 1C 11 20 52 54 53 00 78 46 26 11 |RL.RF.. RTS.xF&.|
00002680: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00002690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000026A0: 2A 00 7E 46 30 11 3B 00 84 46 3A 11 3B 00 8A 46 |*.~F0.;..F:.;..F|
000026B0: 44 11 3B 00 B0 46 4E 11 3B 2A 2A 2A 2A 2A 2A 2A |D.;..FN.;*******|
000026C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000026D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D6 46 58 11 3B 2A |*********..FX.;*|
000026E0: 20 53 43 52 45 45 4E 41 55 53 53 43 48 4E 49 54 | SCREENAUSSCHNIT|
000026F0: 54 20 49 4E 56 45 52 54 49 45 52 45 4E 20 2A 00 |T INVERTIEREN *.|
00002700: FC 46 62 11 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.Fb.;***********|
00002710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002720: 2A 2A 2A 2A 2A 00 02 47 6C 11 3B 00 26 47 76 11 |*****..Gl.;.&Gv.|
00002730: 3B 41 55 46 52 55 46 3A 20 53 59 53 20 58 58 58 |;AUFRUF: SYS XXX|
00002740: 58 2C 53 50 41 4C 54 45 2C 5A 45 49 4C 45 2C 00 |X,SPALTE,ZEILE,.|
00002750: 46 47 80 11 3B 20 20 20 20 20 20 20 20 42 52 45 |FG..; BRE|
00002760: 49 54 45 2C 4C 41 45 4E 47 45 2C 46 4C 41 47 00 |ITE,LAENGE,FLAG.|
00002770: 4C 47 8A 11 3B 00 71 47 94 11 3B 46 55 4E 4B 54 |LG..;.qG..;FUNKT|
00002780: 49 4F 4E 3A 20 49 4E 56 45 52 54 49 45 52 54 28 |ION: INVERTIERT(|
00002790: 27 46 4C 41 47 27 3D 31 29 2F 00 97 47 9E 11 3B |'FLAG'=1)/..G..;|
000027A0: 20 20 20 20 20 20 20 20 20 20 4E 4F 52 4D 41 4C | NORMAL|
000027B0: 49 53 49 45 52 54 28 27 46 4C 41 47 27 3D 30 29 |ISIERT('FLAG'=0)|
000027C0: 00 B9 47 A8 11 3B 20 20 20 20 20 20 20 20 20 20 |..G..; |
000027D0: 45 49 4E 45 4E 20 52 45 43 48 54 45 43 4B 49 47 |EINEN RECHTECKIG|
000027E0: 45 4E 00 DD 47 B2 11 3B 20 20 20 20 20 20 20 20 |EN..G..; |
000027F0: 20 20 42 49 4C 44 53 43 48 49 52 4D 41 55 53 53 | BILDSCHIRMAUSS|
00002800: 43 48 4E 49 54 54 00 02 48 BC 11 3B 20 20 20 20 |CHNITT..H..; |
00002810: 20 20 20 20 20 20 4D 49 54 20 44 45 52 20 4F 42 | MIT DER OB|
00002820: 45 52 45 4E 20 4C 49 4E 4B 45 4E 00 27 48 C6 11 |EREN LINKEN.'H..|
00002830: 3B 20 20 20 20 20 20 20 20 20 20 45 43 4B 45 20 |; ECKE |
00002840: 27 53 50 41 4C 54 45 27 2F 27 5A 45 49 4C 45 27 |'SPALTE'/'ZEILE'|
00002850: 00 4A 48 D0 11 3B 20 20 20 20 20 20 20 20 20 20 |.JH..; |
00002860: 55 4E 44 20 44 45 52 20 41 4E 47 45 47 45 42 45 |UND DER ANGEGEBE|
00002870: 4E 45 4E 00 6D 48 DA 11 3B 20 20 20 20 20 20 20 |NEN.mH..; |
00002880: 20 20 20 4C 41 45 4E 47 45 20 42 5A 57 2E 20 42 | LAENGE BZW. B|
00002890: 52 45 49 54 45 2E 00 73 48 E4 11 3B 00 93 48 EE |REITE..sH..;..H.|
000028A0: 11 3B 42 53 50 2E 3A 20 53 59 53 20 58 58 58 58 |.;BSP.: SYS XXXX|
000028B0: 2C 32 2C 35 2C 31 30 2C 31 35 2C 31 00 B6 48 F8 |,2,5,10,15,1..H.|
000028C0: 11 3B 20 20 20 20 20 20 49 4E 56 45 52 54 49 45 |.; INVERTIE|
000028D0: 52 54 20 45 49 4E 20 52 45 43 48 54 45 43 4B 00 |RT EIN RECHTECK.|
000028E0: DC 48 02 12 3B 20 20 20 20 20 20 4D 49 54 20 44 |.H..; MIT D|
000028F0: 45 52 20 4C 49 4E 4B 45 4E 20 4F 42 45 52 45 42 |ER LINKEN OBEREB|
00002900: 20 45 43 4B 45 00 02 49 0C 12 3B 20 20 20 20 20 | ECKE..I..; |
00002910: 20 32 2F 37 2C 20 44 45 52 20 42 52 45 49 54 45 | 2/7, DER BREITE|
00002920: 20 31 30 20 53 50 41 4C 54 45 4E 00 27 49 16 12 | 10 SPALTEN.'I..|
00002930: 3B 20 20 20 20 20 20 55 4E 44 20 44 45 52 20 4C |; UND DER L|
00002940: 41 45 4E 47 45 20 31 35 20 5A 45 49 4C 45 4E 2E |AENGE 15 ZEILEN.|
00002950: 00 2D 49 20 12 3B 00 33 49 2A 12 3B 00 56 49 34 |.-I .;.3I*.;.VI4|
00002960: 12 49 4E 56 45 52 54 20 4C 44 41 23 35 3B 35 20 |.INVERT LDA#5;5 |
00002970: 42 59 54 45 57 45 52 54 45 20 48 4F 4C 45 4E 00 |BYTEWERTE HOLEN.|
00002980: 64 49 3E 12 20 4A 53 52 50 41 52 41 4D 00 6A 49 |dI>. JSRPARAM.jI|
00002990: 48 12 3B 00 94 49 52 12 49 4E 56 4A 53 52 20 4A |H.;..IR.INVJSR J|
000029A0: 53 52 45 4E 44 5A 45 49 3B 4C 45 54 5A 54 45 20 |SRENDZEI;LETZTE |
000029B0: 52 45 43 48 54 45 43 4B 5A 45 49 4C 45 00 AD 49 |RECHTECKZEILE..I|
000029C0: 5C 12 20 44 45 43 42 52 45 49 54 45 3B 4B 4F 52 |\. DECBREITE;KOR|
000029D0: 52 45 4B 54 55 52 00 B8 49 66 12 20 4C 44 59 23 |REKTUR..If. LDY#|
000029E0: 30 00 D9 49 70 12 20 4C 44 58 4C 49 4E 45 3B 43 |0..Ip. LDXLINE;C|
000029F0: 55 52 53 4F 52 20 41 55 46 20 41 4B 54 55 45 4C |URSOR AUF AKTUEL|
00002A00: 4C 45 00 DF 49 7A 12 3B 00 02 4A 84 12 49 4E 56 |LE..Iz.;..J..INV|
00002A10: 32 20 43 4C 43 3B 5A 45 49 4C 45 20 55 4E 44 20 |2 CLC;ZEILE UND |
00002A20: 53 54 41 52 54 53 50 41 4C 54 45 00 16 4A 8E 12 |STARTSPALTE..J..|
00002A30: 20 4A 53 52 50 4C 4F 54 3B 53 45 54 5A 45 4E 00 | JSRPLOT;SETZEN.|
00002A40: 26 4A 98 12 20 4A 53 52 4C 49 4E 45 50 54 52 00 |&J.. JSRLINEPTR.|
00002A50: 2C 4A A2 12 3B 00 51 4A AC 12 20 4C 44 41 4C 49 |,J..;.QJ.. LDALI|
00002A60: 4E 45 50 4F 49 3B 27 4C 49 4E 45 50 4F 49 27 20 |NEPOI;'LINEPOI' |
00002A70: 2B 20 27 43 4F 4C 27 20 3D 3E 00 66 4A B6 12 20 |+ 'COL' =>.fJ.. |
00002A80: 43 4C 43 3B 50 4F 49 4E 54 45 52 20 41 55 46 00 |CLC;POINTER AUF.|
00002A90: 83 4A C0 12 20 41 44 43 43 4F 4C 3B 45 52 53 54 |.J.. ADCCOL;ERST|
00002AA0: 45 53 20 5A 55 20 42 45 48 41 4E 2D 00 A3 4A CA |ES ZU BEHAN-..J.|
00002AB0: 12 20 53 54 41 4C 49 4E 45 50 4F 49 3B 44 45 4C |. STALINEPOI;DEL|
00002AC0: 4E 44 45 53 20 5A 45 49 43 48 45 4E 00 C3 4A D4 |NDES ZEICHEN..J.|
00002AD0: 12 20 42 43 43 49 4E 56 33 3B 5A 45 49 43 48 45 |. BCCINV3;ZEICHE|
00002AE0: 4E 20 44 45 52 20 4A 45 57 45 49 2D 00 E1 4A DE |N DER JEWEI-..J.|
00002AF0: 12 20 49 4E 43 4C 49 4E 45 50 4F 49 2B 31 3B 4C |. INCLINEPOI+1;L|
00002B00: 49 47 45 4E 20 5A 45 49 4C 45 00 E7 4A E8 12 3B |IGEN ZEILE..J..;|
00002B10: 00 0C 4B F2 12 49 4E 56 33 20 4C 44 59 42 52 45 |..K..INV3 LDYBRE|
00002B20: 49 54 45 3B 57 45 4E 4E 20 46 4C 41 47 3D 30 2C |ITE;WENN FLAG=0,|
00002B30: 20 57 49 52 44 00 32 4B FC 12 49 4E 56 31 20 4C | WIRD.2K..INV1 L|
00002B40: 44 41 28 4C 49 4E 45 50 4F 49 29 2C 59 3B 44 49 |DA(LINEPOI),Y;DI|
00002B50: 45 20 4B 4F 4D 50 4C 45 54 54 45 00 52 4B 06 13 |E KOMPLETTE.RK..|
00002B60: 20 4C 44 58 46 4C 41 47 3B 5A 45 49 4C 45 20 4E | LDXFLAG;ZEILE N|
00002B70: 4F 52 4D 41 4C 49 53 49 45 52 54 00 71 4B 10 13 |ORMALISIERT.qK..|
00002B80: 20 42 45 51 4E 4F 52 4D 3B 28 42 49 54 20 37 20 | BEQNORM;(BIT 7 |
00002B90: 4C 4F 45 53 43 48 45 4E 29 2C 00 8F 4B 1A 13 20 |LOESCHEN),..K.. |
00002BA0: 4F 52 41 23 24 38 30 3B 53 4F 4E 53 54 20 49 4E |ORA#$80;SONST IN|
00002BB0: 56 45 52 54 49 45 52 54 00 AB 4B 24 13 20 2E 42 |VERTIERT..K$. .B|
00002BC0: 59 24 32 43 3B 28 42 49 54 20 37 20 53 45 45 54 |Y$2C;(BIT 7 SEET|
00002BD0: 5A 45 4E 29 00 BC 4B 2E 13 4E 4F 52 4D 20 41 4E |ZEN)..K..NORM AN|
00002BE0: 44 23 24 37 46 00 D0 4B 38 13 20 53 54 41 28 4C |D#$7F..K8. STA(L|
00002BF0: 49 4E 45 50 4F 49 29 2C 59 00 EA 4B 42 13 20 44 |INEPOI),Y..KB. D|
00002C00: 45 59 3B 5A 45 49 4C 45 20 42 45 48 41 4E 44 45 |EY;ZEILE BEHANDE|
00002C10: 4C 54 3F 00 FF 4B 4C 13 20 42 50 4C 49 4E 56 31 |LT?..KL. BPLINV1|
00002C20: 3B 4E 45 49 4E 20 3D 3E 00 05 4C 56 13 3B 00 1D |;NEIN =>..LV.;..|
00002C30: 4C 60 13 20 49 4E 43 4C 49 4E 45 3B 4E 45 58 54 |L`. INCLINE;NEXT|
00002C40: 20 5A 45 49 4C 45 00 2A 4C 6A 13 20 4C 44 58 4C | ZEILE.*Lj. LDXL|
00002C50: 49 4E 45 00 51 4C 74 13 20 43 50 58 4C 41 45 4E |INE.QLt. CPXLAEN|
00002C60: 47 45 3B 4C 45 54 5A 54 45 20 5A 45 49 4C 45 20 |GE;LETZTE ZEILE |
00002C70: 42 45 48 41 4E 44 45 4C 54 3F 00 66 4C 7E 13 20 |BEHANDELT?.fL~. |
00002C80: 42 4E 45 49 4E 56 32 3B 4E 45 49 4E 20 3D 3E 00 |BNEINV2;NEIN =>.|
00002C90: 6F 4C 88 13 20 52 54 53 00 95 4C 92 13 3B 2A 2A |oL.. RTS..L..;**|
00002CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9B |**************..|
00002CC0: 4C 9C 13 3B 00 A1 4C A6 13 3B 00 A7 4C B0 13 3B |L..;..L..;..L..;|
00002CD0: 00 CD 4C BA 13 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..L..;**********|
00002CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002CF0: 2A 2A 2A 2A 2A 2A 00 F3 4C C4 13 3B 2A 20 56 45 |******..L..;* VE|
00002D00: 52 57 41 4C 54 55 4E 47 20 56 2E 50 55 4C 4C 2D |RWALTUNG V.PULL-|
00002D10: 44 4F 57 4E 2D 4D 45 4E 55 45 53 2A 00 19 4D CE |DOWN-MENUES*..M.|
00002D20: 13 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00002D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D40: 2A 2A 00 1F 4D D8 13 3B 00 45 4D E2 13 3B 41 55 |**..M..;.EM..;AU|
00002D50: 46 52 55 46 3A 53 59 53 20 58 58 58 58 2C 4D 45 |FRUF:SYS XXXX,ME|
00002D60: 4E 55 45 24 2C 4D 45 4E 55 45 24 28 31 29 00 61 |NUE$,MENUE$(1).a|
00002D70: 4D EC 13 3B 20 20 20 20 20 20 20 2C 4D 45 4E 55 |M..; ,MENU|
00002D80: 45 25 2C 42 45 46 45 48 4C 25 00 67 4D F6 13 3B |E%,BEFEHL%.gM..;|
00002D90: 00 89 4D 00 14 3B 46 55 4E 4B 54 49 4F 4E 3A 20 |..M..;FUNKTION: |
00002DA0: 56 45 52 57 41 4C 54 45 54 20 42 45 4C 49 45 42 |VERWALTET BELIEB|
00002DB0: 49 47 00 AD 4D 0A 14 3B 20 20 20 20 20 20 20 20 |IG..M..; |
00002DC0: 20 20 56 49 45 4C 45 20 50 55 4C 4C 2D 44 2E 4D | VIELE PULL-D.M|
00002DD0: 45 4E 55 45 53 2C 00 D2 4D 14 14 3B 20 20 20 20 |ENUES,..M..; |
00002DE0: 20 20 20 20 20 20 44 45 52 45 4E 20 4F 42 45 52 | DEREN OBER|
00002DF0: 42 45 47 52 49 46 46 45 20 49 4E 00 F8 4D 1E 14 |BEGRIFFE IN..M..|
00002E00: 3B 20 20 20 20 20 20 20 20 20 20 27 4D 45 4E 55 |; 'MENU|
00002E10: 45 24 27 45 4E 54 48 41 4C 54 45 4E 20 53 49 4E |E$'ENTHALTEN SIN|
00002E20: 44 00 1E 4E 28 14 3B 20 20 20 20 20 20 20 20 20 |D..N(.; |
00002E30: 20 28 5A 2E 42 2E 3A 41 24 3D 27 46 49 4C 45 20 | (Z.B.:A$='FILE |
00002E40: 45 44 49 54 27 29 2E 00 40 4E 32 14 3B 20 20 20 |EDIT')..@N2.; |
00002E50: 20 20 20 20 20 20 20 44 49 45 20 4D 45 4E 55 45 | DIE MENUE|
00002E60: 4B 4F 4D 4D 41 4E 44 4F 53 00 65 4E 3C 14 3B 20 |KOMMANDOS.eN<.; |
00002E70: 20 20 20 20 20 20 20 20 20 45 4E 54 48 41 45 4C | ENTHAEL|
00002E80: 54 20 44 41 53 20 41 4E 47 45 47 45 42 2E 00 8B |T DAS ANGEGEB...|
00002E90: 4E 46 14 3B 20 20 20 20 20 20 20 20 20 20 53 54 |NF.; ST|
00002EA0: 52 49 4E 47 41 52 52 41 59 2E 20 56 4F 52 20 4A |RINGARRAY. VOR J|
00002EB0: 45 44 45 4D 00 AE 4E 50 14 3B 20 20 20 20 20 20 |EDEM..NP.; |
00002EC0: 20 20 20 20 55 4E 54 45 52 4D 45 4E 55 45 20 42 | UNTERMENUE B|
00002ED0: 45 46 49 4E 44 45 54 00 D1 4E 5A 14 3B 20 20 20 |EFINDET..NZ.; |
00002EE0: 20 20 20 20 20 20 20 53 49 43 48 20 45 49 4E 20 | SICH EIN |
00002EF0: 4C 45 45 52 53 54 52 49 4E 47 00 F5 4E 64 14 3B |LEERSTRING..Nd.;|
00002F00: 20 20 20 20 20 20 20 20 20 20 4D 49 54 20 44 45 | MIT DE|
00002F10: 52 20 47 45 57 55 45 4E 53 43 48 54 45 4E 00 11 |R GEWUENSCHTEN..|
00002F20: 4F 6E 14 3B 20 20 20 20 20 20 20 20 20 20 4D 45 |On.; ME|
00002F30: 4E 55 45 4C 41 45 4E 47 45 2E 00 33 4F 78 14 3B |NUELAENGE..3Ox.;|
00002F40: 20 20 20 20 20 20 20 20 20 20 44 45 4D 20 4C 45 | DEM LE|
00002F50: 54 5A 54 45 4E 20 4D 45 4E 55 45 2D 00 59 4F 82 |TZTEN MENUE-.YO.|
00002F60: 14 3B 20 20 20 20 20 20 20 20 20 20 53 54 52 49 |.; STRI|
00002F70: 4E 47 20 46 4F 4C 47 54 20 45 42 45 4E 46 41 4C |NG FOLGT EBENFAL|
00002F80: 4C 53 00 78 4F 8C 14 3B 20 20 20 20 20 20 20 20 |LS.xO..; |
00002F90: 20 20 45 49 4E 20 4C 45 45 52 53 54 52 49 4E 47 | EIN LEERSTRING|
00002FA0: 2E 00 7E 4F 96 14 3B 00 A1 4F A0 14 3B 42 53 50 |..~O..;..O..;BSP|
00002FB0: 2E 3A 20 53 59 53 20 58 58 58 58 2C 41 24 2C 41 |.: SYS XXXX,A$,A|
00002FC0: 24 28 31 29 2C 4D 25 2C 42 25 00 C4 4F AA 14 3B |$(1),M%,B%..O..;|
00002FD0: 20 20 20 20 20 20 56 45 52 57 41 4C 54 45 54 20 | VERWALTET |
00002FE0: 5A 2E 42 2E 20 46 4F 4C 47 45 4E 44 45 00 E7 4F |Z.B. FOLGENDE..O|
00002FF0: B4 14 3B 20 20 20 20 20 20 56 45 52 57 41 4C 54 |..; VERWALT|
00003000: 45 54 20 32 20 55 4E 54 45 52 4D 45 4E 55 45 53 |ET 2 UNTERMENUES|
00003010: 00 0D 50 BE 14 3B 20 20 20 20 20 20 4D 49 54 20 |..P..; MIT |
00003020: 34 20 42 5A 57 2E 20 37 20 41 55 53 57 41 48 4C |4 BZW. 7 AUSWAHL|
00003030: 50 4B 54 45 4E 2C 00 2D 50 C8 14 3B 20 20 20 20 |PKTEN,.-P..; |
00003040: 20 20 57 45 4E 4E 20 46 4F 4C 47 45 4E 44 45 53 | WENN FOLGENDES|
00003050: 20 47 49 4C 54 3A 00 33 50 D2 14 3B 00 52 50 DC | GILT:.3P..;.RP.|
00003060: 14 3B 20 20 20 20 20 20 20 41 24 3D 27 44 4F 43 |.; A$='DOC|
00003070: 55 4D 45 4E 54 20 44 49 53 4B 27 00 6C 50 E6 14 |UMENT DISK'.lP..|
00003080: 3B 20 20 20 20 20 20 20 41 24 28 31 29 3D 27 20 |; A$(1)=' |
00003090: 20 20 20 20 27 00 85 50 F0 14 3B 20 20 20 20 20 | '..P..; |
000030A0: 20 20 41 24 28 32 29 3D 27 4C 4F 41 44 27 00 9E | A$(2)='LOAD'..|
000030B0: 50 FA 14 3B 20 20 20 20 20 20 20 41 24 28 33 29 |P..; A$(3)|
000030C0: 3D 27 53 41 56 45 27 00 B8 50 04 15 3B 20 20 20 |='SAVE'..P..; |
000030D0: 20 20 20 20 41 24 28 34 29 3D 27 4D 45 52 47 45 | A$(4)='MERGE|
000030E0: 27 00 D2 50 0E 15 3B 20 20 20 20 20 20 20 41 24 |'..P..; A$|
000030F0: 28 35 29 3D 27 50 52 49 4E 54 27 00 F2 50 18 15 |(5)='PRINT'..P..|
00003100: 3B 20 20 20 20 20 20 20 41 24 28 36 29 3D 27 20 |; A$(6)=' |
00003110: 20 20 20 20 20 20 20 20 20 20 27 00 10 51 22 15 | '..Q".|
00003120: 3B 20 20 20 20 20 20 20 41 24 28 37 29 3D 27 44 |; A$(7)='D|
00003130: 49 52 45 43 54 4F 52 59 27 00 2F 51 2C 15 3B 20 |IRECTORY'./Q,.; |
00003140: 20 20 20 20 20 20 41 24 28 38 29 3D 27 49 4E 49 | A$(8)='INI|
00003150: 54 49 41 4C 49 53 45 27 00 4C 51 36 15 3B 20 20 |TIALISE'.LQ6.; |
00003160: 20 20 20 20 20 41 24 28 39 29 3D 27 56 41 4C 49 | A$(9)='VALI|
00003170: 44 41 54 45 27 00 6C 51 40 15 3B 20 20 20 20 20 |DATE'.lQ@.; |
00003180: 20 41 24 28 31 30 29 3D 27 46 4F 52 4D 41 54 20 | A$(10)='FORMAT |
00003190: 44 49 53 4B 27 00 8D 51 4A 15 3B 20 20 20 20 20 |DISK'..QJ.; |
000031A0: 20 41 24 28 31 31 29 3D 27 53 43 52 41 54 43 48 | A$(11)='SCRATCH|
000031B0: 20 46 49 4C 45 27 00 AB 51 54 15 3B 20 20 20 20 | FILE'..QT.; |
000031C0: 20 20 41 24 28 31 32 29 3D 27 43 4F 50 59 20 46 | A$(12)='COPY F|
000031D0: 49 4C 45 27 00 CB 51 5E 15 3B 20 20 20 20 20 20 |ILE'..Q^.; |
000031E0: 41 24 28 31 33 29 3D 27 52 45 4E 41 4D 45 20 46 |A$(13)='RENAME F|
000031F0: 49 4C 45 27 00 E1 51 68 15 3B 20 20 20 20 20 20 |ILE'..Qh.; |
00003200: 41 24 28 31 34 29 3D 27 20 27 00 E7 51 72 15 3B |A$(14)=' '..Qr.;|
00003210: 00 0C 52 7C 15 3B 42 45 44 49 45 4E 55 4E 47 3A |..R|.;BEDIENUNG:|
00003220: 20 43 55 52 53 4F 52 20 52 49 47 48 54 2F 4C 45 | CURSOR RIGHT/LE|
00003230: 46 54 20 3D 3E 00 2F 52 86 15 3B 20 20 20 20 20 |FT =>./R..; |
00003240: 20 20 20 20 20 20 41 55 53 57 41 48 4C 20 55 4E | AUSWAHL UN|
00003250: 54 45 52 4D 45 4E 55 45 00 51 52 90 15 3B 20 20 |TERMENUE.QR..; |
00003260: 20 20 20 20 20 20 20 20 20 43 55 52 53 4F 52 20 | CURSOR |
00003270: 44 4F 57 4E 2F 55 50 20 3D 3E 00 77 52 9A 15 3B |DOWN/UP =>.wR..;|
00003280: 20 20 20 20 20 20 20 20 20 20 20 41 55 53 57 41 | AUSWA|
00003290: 48 4C 20 49 4D 20 55 4E 54 45 52 4D 45 4E 55 45 |HL IM UNTERMENUE|
000032A0: 00 91 52 A4 15 3B 20 20 20 20 20 20 20 20 20 20 |..R..; |
000032B0: 20 52 45 54 55 52 4E 20 3D 3E 00 B3 52 AE 15 3B | RETURN =>..R..;|
000032C0: 20 20 20 20 20 20 20 20 20 20 20 41 55 53 57 41 | AUSWA|
000032D0: 48 4C 20 41 4B 54 55 45 4C 4C 45 52 00 CE 52 B8 |HL AKTUELLER..R.|
000032E0: 15 3B 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E |.; MEN|
000032F0: 55 45 50 55 4E 4B 54 00 D4 52 C2 15 3B 00 F8 52 |UEPUNKT..R..;..R|
00003300: CC 15 3B 20 20 20 20 20 20 20 20 20 20 20 45 49 |..; EI|
00003310: 4E 20 55 4E 54 45 52 4D 45 4E 55 45 20 4B 41 4E |N UNTERMENUE KAN|
00003320: 4E 00 1D 53 D6 15 3B 20 20 20 20 20 20 20 20 20 |N..S..; |
00003330: 20 20 41 4C 54 45 52 4E 41 54 49 56 20 4D 49 54 | ALTERNATIV MIT|
00003340: 20 43 54 52 4C 2B 00 43 53 E0 15 3B 20 20 20 20 | CTRL+.CS..; |
00003350: 20 20 20 20 20 20 20 44 45 4D 20 41 4E 46 41 4E | DEM ANFAN|
00003360: 47 53 42 55 43 48 53 54 41 42 45 4E 00 63 53 EA |GSBUCHSTABEN.cS.|
00003370: 15 3B 20 20 20 20 20 20 20 20 20 20 20 44 45 53 |.; DES|
00003380: 20 4D 45 4E 55 45 4E 41 4D 45 4E 53 00 85 53 F4 | MENUENAMENS..S.|
00003390: 15 3B 20 20 20 20 20 20 20 20 20 20 20 44 49 52 |.; DIR|
000033A0: 45 4B 54 20 41 4E 47 45 57 41 45 48 4C 54 00 A9 |EKT ANGEWAEHLT..|
000033B0: 53 FE 15 3B 20 20 20 20 20 20 20 20 20 20 20 57 |S..; W|
000033C0: 45 52 44 45 4E 2C 20 5A 2E 42 2E 20 43 54 52 4C |ERDEN, Z.B. CTRL|
000033D0: 2B 46 00 CE 53 08 16 3B 20 20 20 20 20 20 20 20 |+F..S..; |
000033E0: 20 20 20 46 55 45 52 20 44 2E 4D 45 4E 55 45 20 | FUER D.MENUE |
000033F0: 27 46 49 4C 45 27 2E 00 F2 53 12 16 3B 20 20 20 |'FILE'...S..; |
00003400: 20 20 20 20 20 20 20 20 45 49 4E 20 4D 45 4E 55 | EIN MENU|
00003410: 45 50 55 4E 4B 54 20 4B 41 4E 4E 00 15 54 1C 16 |EPUNKT KANN..T..|
00003420: 3B 20 20 20 20 20 20 20 20 20 20 20 41 4C 54 45 |; ALTE|
00003430: 52 4E 41 54 49 56 20 4D 49 54 20 44 45 4D 00 37 |RNATIV MIT DEM.7|
00003440: 54 26 16 3B 20 20 20 20 20 20 20 20 20 20 20 41 |T&.; A|
00003450: 4E 46 41 4E 47 53 42 55 43 48 53 54 41 42 45 4E |NFANGSBUCHSTABEN|
00003460: 00 5C 54 30 16 3B 20 20 20 20 20 20 20 20 20 20 |.\T0.; |
00003470: 20 44 49 52 45 4B 54 20 47 45 57 41 45 48 4C 54 | DIREKT GEWAEHLT|
00003480: 20 57 45 52 2D 00 82 54 3A 16 3B 20 20 20 20 20 | WER-..T:.; |
00003490: 20 20 20 20 20 20 44 45 4E 28 27 53 27 46 55 45 | DEN('S'FUE|
000034A0: 52 27 53 43 52 41 54 43 48 27 29 00 88 54 44 16 |R'SCRATCH')..TD.|
000034B0: 3B 00 AE 54 4E 16 3B 20 20 20 20 20 20 20 20 20 |;..TN.; |
000034C0: 20 20 44 41 53 20 41 4E 47 45 57 41 45 48 4C 54 | DAS ANGEWAEHLT|
000034D0: 45 20 4D 45 4E 55 45 00 D4 54 58 16 3B 20 20 20 |E MENUE..TX.; |
000034E0: 20 20 20 20 20 20 20 20 57 49 52 44 20 49 4E 20 | WIRD IN |
000034F0: 27 4D 45 4E 55 45 25 27 2C 20 44 45 52 00 F9 54 |'MENUE%', DER..T|
00003500: 62 16 3B 20 20 20 20 20 20 20 20 20 20 20 47 45 |b.; GE|
00003510: 57 41 45 48 4C 54 45 20 4D 45 4E 55 45 50 55 4E |WAEHLTE MENUEPUN|
00003520: 4B 54 00 1E 55 6C 16 3B 20 20 20 20 20 20 20 20 |KT..Ul.; |
00003530: 20 20 20 49 4E 20 27 42 45 46 45 48 4C 25 27 20 | IN 'BEFEHL%' |
00003540: 55 45 42 45 52 47 2E 00 24 55 76 16 3B 00 47 55 |UEBERG..$Uv.;.GU|
00003550: 80 16 3B 42 53 50 2E 3A 20 53 59 53 20 58 58 58 |..;BSP.: SYS XXX|
00003560: 58 2C 41 24 2C 41 24 28 31 29 2C 4D 25 2C 42 25 |X,A$,A$(1),M%,B%|
00003570: 00 6C 55 8A 16 3B 20 20 20 20 20 20 56 45 52 57 |.lU..; VERW|
00003580: 41 4C 54 45 54 20 4F 42 49 47 45 53 20 42 45 49 |ALTET OBIGES BEI|
00003590: 53 50 49 45 4C 00 72 55 94 16 3B 00 78 55 9E 16 |SPIEL.rU..;.xU..|
000035A0: 3B 00 AE 55 A8 16 2E 45 51 20 4D 43 4F 55 4E 54 |;..U...EQ MCOUNT|
000035B0: 20 20 3D 20 52 4F 55 54 49 4E 2B 31 20 20 3B 5A | = ROUTIN+1 ;Z|
000035C0: 41 45 48 4C 45 52 3A 20 41 4B 54 55 45 4C 4C 45 |AEHLER: AKTUELLE|
000035D0: 53 20 4D 45 4E 55 45 00 DF 55 B2 16 2E 45 51 20 |S MENUE..U...EQ |
000035E0: 4D 5A 41 48 4C 20 20 20 3D 20 4D 43 4F 55 4E 54 |MZAHL = MCOUNT|
000035F0: 2B 31 20 20 3B 47 45 53 41 4D 54 45 20 4D 45 4E |+1 ;GESAMTE MEN|
00003600: 55 45 41 4E 5A 41 48 4C 00 1A 56 BC 16 2E 45 51 |UEANZAHL..V...EQ|
00003610: 20 50 4F 49 4E 54 20 20 20 3D 20 4D 5A 41 48 4C | POINT = MZAHL|
00003620: 2B 31 20 20 20 3B 5A 41 45 48 4C 45 52 3A 20 41 |+1 ;ZAEHLER: A|
00003630: 4B 54 55 45 4C 4C 45 52 20 4D 45 4E 55 45 50 55 |KTUELLER MENUEPU|
00003640: 4E 4B 54 00 48 56 C6 16 2E 45 51 20 5A 45 49 43 |NKT.HV...EQ ZEIC|
00003650: 48 45 4E 20 3D 20 50 4F 49 4E 54 2B 31 20 20 20 |HEN = POINT+1 |
00003660: 3B 47 45 44 52 55 45 43 4B 54 45 20 54 41 53 54 |;GEDRUECKTE TAST|
00003670: 45 00 78 56 D0 16 2E 45 51 20 56 45 4B 54 4F 52 |E.xV...EQ VEKTOR|
00003680: 20 20 3D 20 5A 45 49 43 48 45 4E 2B 31 20 3B 56 | = ZEICHEN+1 ;V|
00003690: 45 4B 54 4F 52 20 46 2E 49 4E 44 49 52 2E 4A 4D |EKTOR F.INDIR.JM|
000036A0: 50 00 7E 56 DA 16 3B 00 84 56 E4 16 3B 00 8A 56 |P.~V..;..V..;..V|
000036B0: EE 16 3B 00 B0 56 F8 16 3B 2A 2A 2A 2A 2A 20 4D |..;..V..;***** M|
000036C0: 45 4E 55 45 50 41 52 41 4D 45 54 45 52 20 48 4F |ENUEPARAMETER HO|
000036D0: 4C 45 4E 20 2A 2A 2A 2A 2A 00 DD 56 02 17 43 4E |LEN *****..V..CN|
000036E0: 54 52 4C 20 4A 53 52 43 48 4B 4B 4F 4D 3B 50 4F |TRL JSRCHKKOM;PO|
000036F0: 49 4E 54 45 52 20 41 55 46 20 44 45 53 43 52 49 |INTER AUF DESCRI|
00003700: 50 54 4F 52 45 4E 00 04 57 0C 17 20 4A 53 52 47 |PTOREN..W.. JSRG|
00003710: 45 54 50 4F 53 3B 44 45 53 20 4D 45 4E 55 45 4C |ETPOS;DES MENUEL|
00003720: 45 49 53 54 45 4E 53 54 52 49 4E 47 53 00 27 57 |EISTENSTRINGS.'W|
00003730: 16 17 20 53 54 41 49 4E 44 49 5A 3B 4E 41 43 48 |.. STAINDIZ;NACH|
00003740: 20 27 49 4E 44 49 5A 28 2B 31 29 27 20 55 4E 44 | 'INDIZ(+1)' UND|
00003750: 00 50 57 20 17 20 53 54 59 49 4E 44 49 5A 2B 31 |.PW . STYINDIZ+1|
00003760: 3B 44 45 53 43 52 49 50 54 4F 52 45 4E 20 53 45 |;DESCRIPTOREN SE|
00003770: 4C 42 53 54 20 4E 41 43 48 00 74 57 2A 17 20 4A |LBST NACH.tW*. J|
00003780: 53 52 48 4F 4C 44 45 53 3B 27 53 54 52 4C 45 4E |SRHOLDES;'STRLEN|
00003790: 27 2C 53 54 52 50 4F 53 28 2B 31 29 27 00 7A 57 |',STRPOS(+1)'.zW|
000037A0: 34 17 3B 00 9D 57 3E 17 20 4C 44 41 53 54 52 4C |4.;..W>. LDASTRL|
000037B0: 45 4E 3B 44 45 53 43 52 49 50 54 4F 52 45 4E 20 |EN;DESCRIPTOREN |
000037C0: 52 45 54 54 45 4E 00 A6 57 48 17 20 50 48 41 00 |RETTEN..WH. PHA.|
000037D0: B5 57 52 17 20 4C 44 41 53 54 52 50 4F 53 00 BE |.WR. LDASTRPOS..|
000037E0: 57 5C 17 20 50 48 41 00 CF 57 66 17 20 4C 44 41 |W\. PHA..Wf. LDA|
000037F0: 53 54 52 50 4F 53 2B 31 00 D8 57 70 17 20 50 48 |STRPOS+1..Wp. PH|
00003800: 41 00 DE 57 7A 17 3B 00 E4 57 84 17 3B 00 EA 57 |A..Wz.;..W..;..W|
00003810: 8E 17 3B 00 11 58 98 17 3B 2A 2A 2A 2A 2A 20 53 |..;..X..;***** S|
00003820: 54 41 52 54 53 50 41 4C 54 45 4E 20 44 2E 4D 45 |TARTSPALTEN D.ME|
00003830: 4E 55 45 53 20 2A 2A 2A 2A 2A 00 2E 58 A2 17 20 |NUES *****..X.. |
00003840: 4C 44 59 23 30 3B 53 50 41 4C 54 45 20 55 4E 44 |LDY#0;SPALTE UND|
00003850: 20 41 4E 5A 41 48 4C 00 48 58 AC 17 20 4C 44 58 | ANZAHL.HX.. LDX|
00003860: 23 30 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 45 |#0;INITIALISIERE|
00003870: 4E 00 77 58 B6 17 53 54 41 52 54 31 20 4C 44 41 |N.wX..START1 LDA|
00003880: 28 53 54 52 50 4F 53 29 2C 59 3B 49 4D 20 4C 45 |(STRPOS),Y;IM LE|
00003890: 49 53 54 45 4E 53 54 52 49 4E 47 20 41 4C 4C 45 |ISTENSTRING ALLE|
000038A0: 00 93 58 C0 17 20 43 4D 50 23 22 20 22 3B 53 50 |..X.. CMP#" ";SP|
000038B0: 41 43 45 53 20 42 49 53 20 5A 55 4D 00 B0 58 CA |ACES BIS ZUM..X.|
000038C0: 17 20 42 4E 45 53 54 41 52 54 32 3B 31 2E 4E 49 |. BNESTART2;1.NI|
000038D0: 43 48 54 2D 53 50 41 43 45 00 C4 58 D4 17 20 49 |CHT-SPACE..X.. I|
000038E0: 4E 59 3B 55 45 42 45 52 4C 45 53 45 4E 00 D3 58 |NY;UEBERLESEN..X|
000038F0: DE 17 20 43 50 59 53 54 52 4C 45 4E 00 E2 58 E8 |.. CPYSTRLEN..X.|
00003900: 17 20 42 43 53 53 54 41 52 54 35 00 FB 58 F2 17 |. BCSSTART5..X..|
00003910: 20 42 43 43 53 54 41 52 54 31 3B 49 4D 4D 45 52 | BCCSTART1;IMMER|
00003920: 20 21 21 21 00 01 59 FC 17 3B 00 32 59 06 18 53 | !!!..Y..;.2Y..S|
00003930: 54 41 52 54 32 20 53 54 41 53 49 47 4E 2C 58 3B |TART2 STASIGN,X;|
00003940: 41 4E 46 41 4E 47 53 42 55 43 48 53 54 41 42 45 |ANFANGSBUCHSTABE|
00003950: 20 44 45 53 20 4D 45 4E 55 45 53 00 57 59 10 18 | DES MENUES.WY..|
00003960: 20 54 59 41 3B 59 3D 50 4F 53 49 54 49 4F 4E 20 | TYA;Y=POSITION |
00003970: 56 4F 4E 20 31 2E 4E 49 43 48 54 53 50 41 43 45 |VON 1.NICHTSPACE|
00003980: 00 7D 59 1A 18 20 53 54 41 53 54 41 52 54 2C 58 |.}Y.. STASTART,X|
00003990: 3B 3D 53 54 41 52 54 43 4F 4C 20 46 55 45 52 20 |;=STARTCOL FUER |
000039A0: 49 4E 56 45 52 54 00 9F 59 24 18 53 54 41 52 54 |INVERT..Y$.START|
000039B0: 33 20 4C 44 41 28 53 54 52 50 4F 53 29 2C 59 3B |3 LDA(STRPOS),Y;|
000039C0: 4E 55 4E 20 41 4C 4C 45 00 B8 59 2E 18 20 43 4D |NUN ALLE..Y.. CM|
000039D0: 50 23 22 20 22 3B 4E 49 43 48 54 53 50 41 43 45 |P#" ";NICHTSPACE|
000039E0: 53 00 D2 59 38 18 20 42 45 51 53 54 41 52 54 34 |S..Y8. BEQSTART4|
000039F0: 3B 55 45 42 45 52 4C 45 53 45 4E 00 EC 59 42 18 |;UEBERLESEN..YB.|
00003A00: 20 49 4E 59 3B 4A 45 44 4F 43 48 20 4E 55 52 2C | INY;JEDOCH NUR,|
00003A10: 20 57 45 4E 4E 00 0D 5A 4C 18 20 43 50 59 53 54 | WENN..ZL. CPYST|
00003A20: 52 4C 45 4E 3B 53 54 52 49 4E 47 4C 41 45 4E 47 |RLEN;STRINGLAENG|
00003A30: 45 20 4E 4F 43 48 00 31 5A 56 18 20 42 43 43 53 |E NOCH.1ZV. BCCS|
00003A40: 54 41 52 54 33 3B 4E 49 43 48 54 20 55 45 42 45 |TART3;NICHT UEBE|
00003A50: 52 53 43 48 52 49 54 54 45 4E 00 37 5A 60 18 3B |RSCHRITTEN.7Z`.;|
00003A60: 00 60 5A 6A 18 53 54 41 52 54 34 20 54 59 41 3B |.`Zj.START4 TYA;|
00003A70: 49 4E 56 45 52 54 49 45 52 42 52 45 49 54 45 20 |INVERTIERBREITE |
00003A80: 53 54 45 48 54 20 4E 55 4E 00 7D 5A 74 18 20 53 |STEHT NUN.}Zt. S|
00003A90: 45 43 3B 46 45 53 54 3A 20 49 4E 56 45 52 54 42 |EC;FEST: INVERTB|
00003AA0: 52 45 49 54 45 3D 00 98 5A 7E 18 20 53 42 43 53 |REITE=..Z~. SBCS|
00003AB0: 54 41 52 54 2C 58 3B 59 2D 53 54 41 52 54 43 4F |TART,X;Y-STARTCO|
00003AC0: 4C 00 C7 5A 88 18 20 53 54 41 4C 45 4E 47 54 48 |L..Z.. STALENGTH|
00003AD0: 2C 58 3B 45 52 47 45 42 4E 49 53 20 49 4E 20 54 |,X;ERGEBNIS IN T|
00003AE0: 41 42 45 4C 4C 45 20 53 50 45 49 43 48 45 52 4E |ABELLE SPEICHERN|
00003AF0: 00 CD 5A 92 18 3B 00 DD 5A 9C 18 20 44 45 43 53 |..Z..;..Z.. DECS|
00003B00: 54 41 52 54 2C 58 00 ED 5A A6 18 20 44 45 43 53 |TART,X..Z.. DECS|
00003B10: 54 41 52 54 2C 58 00 F3 5A B0 18 3B 00 FC 5A BA |TART,X..Z..;..Z.|
00003B20: 18 20 49 4E 58 00 1B 5B C4 18 20 49 4E 59 3B 57 |. INX..[.. INY;W|
00003B30: 45 49 54 45 52 2C 20 57 45 4E 4E 20 45 4E 44 45 |EITER, WENN ENDE|
00003B40: 20 44 45 53 00 44 5B CE 18 20 43 50 59 53 54 52 | DES.D[.. CPYSTR|
00003B50: 4C 45 4E 3B 4C 45 49 53 54 45 4E 53 54 52 49 4E |LEN;LEISTENSTRIN|
00003B60: 47 53 20 4E 4F 43 48 20 4E 49 43 48 54 00 5F 5B |GS NOCH NICHT._[|
00003B70: D8 18 20 42 43 43 53 54 41 52 54 31 3B 45 52 52 |.. BCCSTART1;ERR|
00003B80: 45 49 43 48 54 20 3D 3E 00 65 5B E2 18 3B 00 8F |EICHT =>.e[..;..|
00003B90: 5B EC 18 53 54 41 52 54 35 20 53 54 58 4D 5A 41 |[..START5 STXMZA|
00003BA0: 48 4C 3B 4D 45 4E 55 45 41 4E 5A 41 48 4C 20 53 |HL;MENUEANZAHL S|
00003BB0: 50 45 49 43 48 45 52 4E 00 95 5B F6 18 3B 00 9B |PEICHERN..[..;..|
00003BC0: 5B 00 19 3B 00 A1 5B 0A 19 3B 00 C8 5B 14 19 3B |[..;..[..;..[..;|
00003BD0: 2A 2A 2A 2A 2A 20 57 49 4E 44 4F 57 50 41 52 41 |***** WINDOWPARA|
00003BE0: 4D 45 54 45 52 20 48 4F 4C 45 4E 20 2A 2A 2A 2A |METER HOLEN ****|
00003BF0: 2A 00 F0 5B 1E 19 20 4A 53 52 43 48 4B 4B 4F 4D |*..[.. JSRCHKKOM|
00003C00: 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 44 45 53 |;POINTER AUF DES|
00003C10: 43 52 49 50 54 4F 52 45 4E 00 18 5C 28 19 20 4A |CRIPTOREN..\(. J|
00003C20: 53 52 47 45 54 50 4F 53 3B 44 45 53 20 31 2E 4D |SRGETPOS;DES 1.M|
00003C30: 45 4E 55 45 53 54 52 49 4E 47 53 20 48 4F 4C 45 |ENUESTRINGS HOLE|
00003C40: 4E 00 3D 5C 32 19 20 53 54 41 49 4E 44 49 5A 3B |N.=\2. STAINDIZ;|
00003C50: 55 4E 44 20 44 45 53 43 52 49 54 4F 52 45 4E 20 |UND DESCRITOREN |
00003C60: 53 45 4C 42 53 54 00 68 5C 3C 19 20 53 54 59 49 |SELBST.h\<. STYI|
00003C70: 4E 44 49 5A 2B 31 3B 4E 41 43 48 20 27 53 54 52 |NDIZ+1;NACH 'STR|
00003C80: 4C 45 4E 27 2C 27 53 54 52 50 4F 53 28 2B 31 29 |LEN','STRPOS(+1)|
00003C90: 27 00 80 5C 46 19 20 4A 53 52 48 4F 4C 44 45 53 |'..\F. JSRHOLDES|
00003CA0: 3B 53 43 48 41 46 46 45 4E 00 86 5C 50 19 3B 00 |;SCHAFFEN..\P.;.|
00003CB0: A4 5C 5A 19 20 4C 44 58 23 32 35 35 3B 58 20 49 |.\Z. LDX#255;X I|
00003CC0: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 BB 5C |NITIALISIEREN..\|
00003CD0: 64 19 20 42 4E 45 50 41 52 35 3B 49 4D 4D 45 52 |d. BNEPAR5;IMMER|
00003CE0: 20 21 21 21 00 C1 5C 6E 19 3B 00 DE 5C 78 19 50 | !!!..\n.;..\x.P|
00003CF0: 41 52 31 20 4C 44 41 23 30 3B 53 54 52 49 4E 47 |AR1 LDA#0;STRING|
00003D00: 5A 41 45 48 4C 45 52 00 FA 5C 82 19 20 53 54 41 |ZAEHLER..\.. STA|
00003D10: 43 4E 54 49 3B 49 4E 49 54 49 41 4C 49 53 49 45 |CNTI;INITIALISIE|
00003D20: 52 45 4E 00 00 5D 8C 19 3B 00 2F 5D 96 19 50 41 |REN..]..;./]..PA|
00003D30: 52 32 20 4C 44 59 23 30 3B 50 4F 49 4E 54 45 52 |R2 LDY#0;POINTER|
00003D40: 20 41 55 46 20 53 54 52 49 4E 47 5A 45 49 43 48 | AUF STRINGZEICH|
00003D50: 45 4E 20 49 4E 49 54 2E 00 50 5D A0 19 50 41 52 |EN INIT..P]..PAR|
00003D60: 33 20 4C 44 41 28 53 54 52 50 4F 53 29 2C 59 3B |3 LDA(STRPOS),Y;|
00003D70: 41 4B 54 55 45 4C 4C 45 53 00 72 5D AA 19 20 43 |AKTUELLES.r].. C|
00003D80: 4D 50 23 22 20 22 3B 53 54 52 49 4E 47 5A 45 49 |MP#" ";STRINGZEI|
00003D90: 43 48 45 4E 3D 53 50 41 43 45 3F 00 85 5D B4 19 |CHEN=SPACE?..]..|
00003DA0: 20 42 45 51 50 41 52 34 3B 4A 41 20 3D 3E 00 8B | BEQPAR4;JA =>..|
00003DB0: 5D BE 19 3B 00 AC 5D C8 19 20 4A 53 52 4E 45 58 |]..;..].. JSRNEX|
00003DC0: 54 53 54 52 3B 4E 41 45 43 48 53 54 45 4E 20 53 |TSTR;NAECHSTEN S|
00003DD0: 54 52 49 4E 47 00 CE 5D D2 19 20 4A 53 52 48 4F |TRING..].. JSRHO|
00003DE0: 4C 44 45 53 3B 44 45 53 43 52 49 50 54 4F 52 45 |LDES;DESCRIPTORE|
00003DF0: 4E 20 48 4F 4C 45 4E 00 F1 5D DC 19 20 49 4E 43 |N HOLEN..].. INC|
00003E00: 43 4E 54 49 3B 53 54 52 49 4E 47 5A 41 45 48 4C |CNTI;STRINGZAEHL|
00003E10: 45 52 20 49 4E 4B 52 45 4D 2E 00 08 5E E6 19 20 |ER INKREM...^.. |
00003E20: 42 4E 45 50 41 52 32 3B 49 4D 4D 45 52 20 21 21 |BNEPAR2;IMMER !!|
00003E30: 21 00 0E 5E F0 19 3B 00 32 5E FA 19 50 41 52 34 |!..^..;.2^..PAR4|
00003E40: 20 49 4E 59 3B 5A 45 49 43 48 45 4E 50 4F 49 4E | INY;ZEICHENPOIN|
00003E50: 54 45 52 20 49 4E 4B 52 45 4D 2E 00 56 5E 04 1A |TER INKREM..V^..|
00003E60: 20 43 50 59 53 54 52 4C 45 4E 3B 53 54 52 49 4E | CPYSTRLEN;STRIN|
00003E70: 47 45 4E 44 45 20 45 52 52 45 49 43 48 54 3F 00 |GENDE ERREICHT?.|
00003E80: 6B 5E 0E 1A 20 42 43 43 50 41 52 33 3B 4E 45 49 |k^.. BCCPAR3;NEI|
00003E90: 4E 20 3D 3E 00 71 5E 18 1A 3B 00 93 5E 22 1A 20 |N =>.q^..;..^". |
00003EA0: 4C 44 41 43 4E 54 49 3B 4C 41 45 4E 47 45 20 44 |LDACNTI;LAENGE D|
00003EB0: 45 53 20 41 4B 54 55 45 4C 4C 45 4E 00 B8 5E 2C |ES AKTUELLEN..^,|
00003EC0: 1A 20 53 54 41 57 4C 41 45 4E 47 45 2C 58 3B 57 |. STAWLAENGE,X;W|
00003ED0: 49 4E 44 4F 57 53 20 49 4E 20 54 41 42 45 4C 4C |INDOWS IN TABELL|
00003EE0: 45 00 BE 5E 36 1A 3B 00 E0 5E 40 1A 50 41 52 35 |E..^6.;..^@.PAR5|
00003EF0: 20 49 4E 58 3B 42 52 45 49 54 45 20 44 45 53 20 | INX;BREITE DES |
00003F00: 41 4B 54 55 45 4C 4C 45 4E 00 01 5F 4A 1A 20 4C |AKTUELLEN.._J. L|
00003F10: 44 41 53 54 52 4C 45 4E 3B 57 49 4E 44 4F 57 53 |DASTRLEN;WINDOWS|
00003F20: 20 45 42 45 4E 46 41 4C 4C 53 00 25 5F 54 1A 20 | EBENFALLS.%_T. |
00003F30: 53 54 41 57 42 52 45 49 54 45 2C 58 3B 49 4E 20 |STAWBREITE,X;IN |
00003F40: 54 41 42 45 4C 4C 45 20 4D 45 52 4B 45 4E 00 2B |TABELLE MERKEN.+|
00003F50: 5F 5E 1A 3B 00 47 5F 68 1A 20 4A 53 52 4E 45 58 |_^.;.G_h. JSRNEX|
00003F60: 54 53 54 52 3B 4E 45 58 54 20 53 54 52 49 4E 47 |TSTR;NEXT STRING|
00003F70: 00 69 5F 72 1A 20 4A 53 52 48 4F 4C 44 45 53 3B |.i_r. JSRHOLDES;|
00003F80: 44 45 53 43 52 49 50 54 4F 52 45 4E 20 48 4F 4C |DESCRIPTOREN HOL|
00003F90: 45 4E 00 90 5F 7C 1A 20 4C 44 41 49 4E 44 49 5A |EN.._|. LDAINDIZ|
00003FA0: 3B 41 44 52 45 53 53 45 20 44 45 52 20 44 45 53 |;ADRESSE DER DES|
00003FB0: 43 52 49 50 54 4F 52 45 4E 00 B4 5F 86 1A 20 53 |CRIPTOREN.._.. S|
00003FC0: 54 41 57 50 4F 49 4C 4F 57 2C 58 3B 49 4E 20 54 |TAWPOILOW,X;IN T|
00003FD0: 41 42 45 4C 4C 45 20 4D 45 52 4B 45 4E 00 C4 5F |ABELLE MERKEN.._|
00003FE0: 90 1A 20 4C 44 41 49 4E 44 49 5A 2B 31 00 D7 5F |.. LDAINDIZ+1.._|
00003FF0: 9A 1A 20 53 54 41 57 50 4F 49 48 49 47 48 2C 58 |.. STAWPOIHIGH,X|
00004000: 00 DD 5F A4 1A 3B 00 FE 5F AE 1A 20 43 50 58 4D |.._..;.._.. CPXM|
00004010: 5A 41 48 4C 3B 41 4C 4C 45 20 4D 45 4E 55 45 53 |ZAHL;ALLE MENUES|
00004020: 20 44 55 52 43 48 3F 00 13 60 B8 1A 20 42 43 43 | DURCH?..`.. BCC|
00004030: 50 41 52 31 3B 4E 45 49 4E 20 3D 3E 00 19 60 C2 |PAR1;NEIN =>..`.|
00004040: 1A 3B 00 1F 60 CC 1A 3B 00 25 60 D6 1A 3B 00 46 |.;..`..;.%`..;.F|
00004050: 60 E0 1A 3B 2A 2A 2A 2A 2A 20 49 4E 49 54 49 41 |`..;***** INITIA|
00004060: 4C 49 53 49 45 52 55 4E 47 20 2A 2A 2A 2A 2A 00 |LISIERUNG *****.|
00004070: 60 60 EA 1A 20 4C 44 41 23 31 39 3B 27 43 55 52 |``.. LDA#19;'CUR|
00004080: 53 4F 52 20 48 4F 4D 45 27 00 77 60 F4 1A 20 4A |SOR HOME'.w`.. J|
00004090: 53 52 42 53 4F 55 54 3B 41 55 53 47 45 42 45 4E |SRBSOUT;AUSGEBEN|
000040A0: 00 7D 60 FE 1A 3B 00 97 60 08 1B 20 50 4C 41 3B |.}`..;..`.. PLA;|
000040B0: 44 45 53 43 52 49 50 54 4F 52 45 4E 20 44 45 53 |DESCRIPTOREN DES|
000040C0: 00 B7 60 12 1B 20 53 54 41 53 54 52 50 4F 53 2B |..`.. STASTRPOS+|
000040D0: 31 3B 4C 45 49 53 54 45 4E 53 54 52 49 4E 47 53 |1;LEISTENSTRINGS|
000040E0: 00 C6 60 1C 1B 20 50 4C 41 3B 48 4F 4C 45 4E 00 |..`.. PLA;HOLEN.|
000040F0: D5 60 26 1B 20 53 54 41 53 54 52 50 4F 53 00 DE |.`&. STASTRPOS..|
00004100: 60 30 1B 20 50 4C 41 00 ED 60 3A 1B 20 53 54 41 |`0. PLA..`:. STA|
00004110: 53 54 52 4C 45 4E 00 F3 60 44 1B 3B 00 15 61 4E |STRLEN..`D.;..aN|
00004120: 1B 20 4C 44 59 23 30 3B 4C 45 49 53 54 45 4E 53 |. LDY#0;LEISTENS|
00004130: 54 52 49 4E 47 20 41 55 53 47 45 42 45 4E 00 2D |TRING AUSGEBEN.-|
00004140: 61 58 1B 49 4E 49 54 31 20 4C 44 41 28 53 54 52 |aX.INIT1 LDA(STR|
00004150: 50 4F 53 29 2C 59 00 3B 61 62 1B 20 4A 53 52 42 |POS),Y.;ab. JSRB|
00004160: 53 4F 55 54 00 44 61 6C 1B 20 49 4E 59 00 53 61 |SOUT.Dal. INY.Sa|
00004170: 76 1B 20 43 50 59 53 54 52 4C 45 4E 00 61 61 80 |v. CPYSTRLEN.aa.|
00004180: 1B 20 42 43 43 49 4E 49 54 31 00 67 61 8A 1B 3B |. BCCINIT1.ga..;|
00004190: 00 7F 61 94 1B 20 4C 44 58 23 30 3B 4D 45 4E 55 |..a.. LDX#0;MENU|
000041A0: 45 5A 41 45 48 4C 45 52 00 9D 61 9E 1B 20 53 54 |EZAEHLER..a.. ST|
000041B0: 58 4D 43 4F 55 4E 54 3B 49 4E 49 54 49 41 4C 49 |XMCOUNT;INITIALI|
000041C0: 53 49 45 52 45 4E 00 A3 61 A8 1B 3B 00 A9 61 B2 |SIEREN..a..;..a.|
000041D0: 1B 3B 00 AF 61 BC 1B 3B 00 CE 61 C6 1B 3B 2A 2A |.;..a..;..a..;**|
000041E0: 2A 2A 2A 20 4D 45 4E 55 45 2D 41 55 53 47 41 42 |*** MENUE-AUSGAB|
000041F0: 45 20 2A 2A 2A 2A 2A 00 F6 61 D0 1B 41 55 53 47 |E *****..a..AUSG|
00004200: 41 42 45 20 4A 53 52 4C 49 45 53 47 52 3B 55 4E |ABE JSRLIESGR;UN|
00004210: 54 45 52 47 52 55 4E 44 20 52 45 54 54 45 4E 00 |TERGRUND RETTEN.|
00004220: 1C 62 DA 1B 20 4A 53 52 4D 49 4E 56 45 52 54 3B |.b.. JSRMINVERT;|
00004230: 4D 45 4E 55 45 4E 41 4D 45 20 49 4E 56 45 52 54 |MENUENAME INVERT|
00004240: 49 45 52 45 4E 00 3A 62 E4 1B 20 4A 53 52 4D 50 |IEREN.:b.. JSRMP|
00004250: 52 49 4E 54 3B 4D 45 4E 55 45 20 41 55 53 47 45 |RINT;MENUE AUSGE|
00004260: 42 45 4E 00 61 62 EE 1B 20 4C 44 41 23 32 35 35 |BEN.ab.. LDA#255|
00004270: 3B 4D 45 4E 55 45 50 55 4E 4B 54 20 49 4E 49 54 |;MENUEPUNKT INIT|
00004280: 49 41 4C 49 53 49 45 52 45 4E 00 8B 62 F8 1B 20 |IALISIEREN..b.. |
00004290: 53 54 41 50 4F 49 4E 54 3B 28 32 35 35 3D 4B 45 |STAPOINT;(255=KE|
000042A0: 49 4E 20 50 55 4E 4B 54 20 41 4E 47 45 57 41 45 |IN PUNKT ANGEWAE|
000042B0: 48 4C 54 29 00 B0 62 02 1C 20 4A 4D 50 44 4F 57 |HLT)..b.. JMPDOW|
000042C0: 4E 31 3B 43 55 52 53 4F 52 20 44 4F 57 4E 20 53 |N1;CURSOR DOWN S|
000042D0: 49 4D 55 4C 49 45 52 45 4E 00 B6 62 0C 1C 3B 00 |IMULIEREN..b..;.|
000042E0: BC 62 16 1C 3B 00 C2 62 20 1C 3B 00 E5 62 2A 1C |.b..;..b .;..b*.|
000042F0: 3B 2A 2A 2A 2A 2A 20 54 41 53 54 41 54 55 52 20 |;***** TASTATUR |
00004300: 41 42 46 52 41 47 45 4E 20 2A 2A 2A 2A 2A 00 00 |ABFRAGEN *****..|
00004310: 63 34 1C 47 45 54 20 4A 53 52 47 45 54 49 4E 3B |c4.GET JSRGETIN;|
00004320: 41 55 46 20 54 41 53 54 45 00 13 63 3E 1C 20 42 |AUF TASTE..c>. B|
00004330: 45 51 47 45 54 3B 57 41 52 54 45 4E 00 19 63 48 |EQGET;WARTEN..cH|
00004340: 1C 3B 00 3E 63 52 1C 20 4C 44 58 23 34 3B 43 55 |.;.>cR. LDX#4;CU|
00004350: 52 53 4F 52 2D 20 4F 44 45 52 20 52 45 54 55 52 |RSOR- ODER RETUR|
00004360: 4E 2D 54 41 53 54 45 00 5B 63 5C 1C 47 45 54 31 |N-TASTE.[c\.GET1|
00004370: 20 43 4D 50 4B 45 59 2C 58 3B 47 45 44 52 55 45 | CMPKEY,X;GEDRUE|
00004380: 43 4B 54 3F 00 6E 63 66 1C 20 42 45 51 47 45 54 |CKT?.ncf. BEQGET|
00004390: 32 3B 4A 41 20 3D 3E 00 85 63 70 1C 20 44 45 58 |2;JA =>..cp. DEX|
000043A0: 3B 41 4E 53 4F 4E 53 54 45 4E 20 5A 55 4D 00 A6 |;ANSONSTEN ZUM..|
000043B0: 63 7A 1C 20 42 50 4C 47 45 54 31 3B 54 45 49 4C |cz. BPLGET1;TEIL|
000043C0: 20 27 44 49 52 45 4B 54 41 4E 57 41 48 4C 27 00 | 'DIREKTANWAHL'.|
000043D0: B5 63 84 1C 20 42 4D 49 44 49 52 45 4B 54 00 BB |.c.. BMIDIREKT..|
000043E0: 63 8E 1C 3B 00 D6 63 98 1C 47 45 54 32 20 54 58 |c..;..c..GET2 TX|
000043F0: 41 3B 5A 41 45 48 4C 45 52 20 4D 49 54 20 32 00 |A;ZAEHLER MIT 2.|
00004400: EE 63 A2 1C 20 41 53 4C 3B 4D 55 4C 54 49 50 4C |.c.. ASL;MULTIPL|
00004410: 49 5A 49 45 52 45 4E 00 09 64 AC 1C 20 54 41 58 |IZIEREN..d.. TAX|
00004420: 3B 45 52 47 49 42 54 20 5A 45 49 47 45 52 20 41 |;ERGIBT ZEIGER A|
00004430: 55 46 00 25 64 B6 1C 20 4C 44 41 54 41 42 2C 58 |UF.%d.. LDATAB,X|
00004440: 3B 53 50 52 55 4E 47 54 41 42 45 4C 4C 45 00 41 |;SPRUNGTABELLE.A|
00004450: 64 C0 1C 20 53 54 41 56 45 4B 54 4F 52 3B 50 4F |d.. STAVEKTOR;PO|
00004460: 49 4E 54 45 52 20 46 55 45 52 00 62 64 CA 1C 20 |INTER FUER.bd.. |
00004470: 4C 44 41 54 41 42 2B 31 2C 58 3B 49 4E 49 52 45 |LDATAB+1,X;INIRE|
00004480: 4B 54 45 4E 20 53 50 52 55 4E 47 00 7C 64 D4 1C |KTEN SPRUNG.|d..|
00004490: 20 53 54 41 56 45 4B 54 4F 52 2B 31 3B 45 52 5A | STAVEKTOR+1;ERZ|
000044A0: 45 55 47 45 4E 00 9A 64 DE 1C 20 4A 4D 50 28 56 |EUGEN..d.. JMP(V|
000044B0: 45 4B 54 4F 52 29 3B 4A 4D 50 20 49 4E 44 49 52 |EKTOR);JMP INDIR|
000044C0: 45 4B 54 00 A0 64 E8 1C 3B 00 A6 64 F2 1C 3B 00 |EKT..d..;..d..;.|
000044D0: AC 64 FC 1C 3B 00 CB 64 06 1D 3B 2A 2A 2A 2A 2A |.d..;..d..;*****|
000044E0: 20 44 49 52 45 4B 54 41 4E 57 41 48 4C 3F 20 2A | DIREKTANWAHL? *|
000044F0: 2A 2A 2A 2A 00 F7 64 10 1D 44 49 52 45 4B 54 20 |****..d..DIREKT |
00004500: 43 4D 50 23 31 39 32 3B 53 48 49 46 54 2D 54 41 |CMP#192;SHIFT-TA|
00004510: 53 54 45 4E 4B 4F 4D 42 49 4E 41 54 49 4F 4E 3F |STENKOMBINATION?|
00004520: 00 00 65 1A 1D 20 50 48 50 00 0D 65 24 1D 20 4F |..e.. PHP..e$. O|
00004530: 52 41 23 31 32 38 00 1D 65 2E 1D 20 53 54 41 5A |RA#128..e.. STAZ|
00004540: 45 49 43 48 45 4E 00 26 65 38 1D 20 50 4C 50 00 |EICHEN.&e8. PLP.|
00004550: 3D 65 42 1D 20 42 43 43 44 49 52 45 4B 54 32 3B |=eB. BCCDIREKT2;|
00004560: 4E 45 49 4E 3D 3E 00 43 65 4C 1D 3B 00 6B 65 56 |NEIN=>.CeL.;.keV|
00004570: 1D 20 4C 44 58 4D 5A 41 48 4C 3B 55 4E 44 20 4D |. LDXMZAHL;UND M|
00004580: 49 54 20 41 4E 46 41 4E 47 53 42 55 43 48 53 54 |IT ANFANGSBUCHST|
00004590: 41 42 45 4E 00 83 65 60 1D 20 44 45 58 3B 44 45 |ABEN..e`. DEX;DE|
000045A0: 52 20 4D 45 4E 55 45 4E 41 4D 45 4E 00 A5 65 6A |R MENUENAMEN..ej|
000045B0: 1D 44 49 52 45 4B 54 31 20 43 4D 50 53 49 47 4E |.DIREKT1 CMPSIGN|
000045C0: 2C 58 3B 56 45 52 47 4C 45 49 43 48 45 4E 00 BD |,X;VERGLEICHEN..|
000045D0: 65 74 1D 20 42 45 51 4D 45 4E 55 45 3B 47 4C 45 |et. BEQMENUE;GLE|
000045E0: 49 43 48 20 3D 3E 00 C6 65 7E 1D 20 44 45 58 00 |ICH =>..e~. DEX.|
000045F0: D6 65 88 1D 20 42 50 4C 44 49 52 45 4B 54 31 00 |.e.. BPLDIREKT1.|
00004600: F8 65 92 1D 20 42 4D 49 47 45 54 3B 46 41 4C 53 |.e.. BMIGET;FALS|
00004610: 43 48 45 52 20 42 55 43 48 53 54 41 42 45 20 3D |CHER BUCHSTABE =|
00004620: 3E 00 FE 65 9C 1D 3B 00 1A 66 A6 1D 4D 45 4E 55 |>..e..;..f..MENU|
00004630: 45 20 54 58 41 3B 58 20 28 5A 45 49 47 45 52 20 |E TXA;X (ZEIGER |
00004640: 41 55 46 00 38 66 B0 1D 20 50 48 41 3B 4D 45 4E |AUF.8f.. PHA;MEN|
00004650: 55 45 2D 43 4F 4D 41 4E 44 29 20 52 45 54 54 45 |UE-COMAND) RETTE|
00004660: 4E 00 5D 66 BA 1D 20 4A 53 52 48 4F 4C 47 52 3B |N.]f.. JSRHOLGR;|
00004670: 41 4C 54 45 4E 20 55 4E 54 45 52 47 52 55 4E 44 |ALTEN UNTERGRUND|
00004680: 20 48 4F 4C 45 4E 00 8C 66 C4 1D 20 4A 53 52 4D | HOLEN..f.. JSRM|
00004690: 4E 4F 52 4D 41 4C 3B 41 4C 54 45 4E 20 4D 45 4E |NORMAL;ALTEN MEN|
000046A0: 55 45 4E 41 4D 45 4E 20 4E 4F 52 4D 41 4C 49 53 |UENAMEN NORMALIS|
000046B0: 49 45 52 45 4E 00 A7 66 CE 1D 20 50 4C 41 3B 58 |IEREN..f.. PLA;X|
000046C0: 20 57 49 45 44 45 52 48 4F 4C 45 4E 20 55 4E 44 | WIEDERHOLEN UND|
000046D0: 00 CF 66 D8 1D 20 54 41 58 3B 4E 41 43 48 20 27 |..f.. TAX;NACH '|
000046E0: 43 52 53 2E 4C 45 46 54 2F 52 49 47 48 54 27 20 |CRS.LEFT/RIGHT' |
000046F0: 53 50 52 49 4E 47 45 4E 00 E7 66 E2 1D 20 4A 4D |SPRINGEN..f.. JM|
00004700: 50 4D 4F 4B 41 59 3B 49 4D 4D 45 52 20 21 21 21 |PMOKAY;IMMER !!!|
00004710: 00 ED 66 EC 1D 3B 00 18 67 F6 1D 44 49 52 45 4B |..f..;..g..DIREK|
00004720: 54 32 20 4C 44 58 4D 43 4F 55 4E 54 3B 50 4F 49 |T2 LDXMCOUNT;POI|
00004730: 4E 54 45 52 20 41 55 46 20 31 2E 53 54 52 49 4E |NTER AUF 1.STRIN|
00004740: 47 00 38 67 00 1E 20 4C 44 41 57 50 4F 49 4C 4F |G.8g.. LDAWPOILO|
00004750: 57 2C 58 3B 44 45 53 20 41 4B 54 55 45 4C 4C 45 |W,X;DES AKTUELLE|
00004760: 4E 00 52 67 0A 1E 20 53 54 41 49 4E 44 49 5A 3B |N.Rg.. STAINDIZ;|
00004770: 4D 45 4E 55 45 53 20 4E 41 43 48 00 71 67 14 1E |MENUES NACH.qg..|
00004780: 20 4C 44 41 57 50 4F 49 48 49 47 48 2C 58 3B 27 | LDAWPOIHIGH,X;'|
00004790: 49 4E 44 49 5A 28 2B 31 29 27 00 87 67 1E 1E 20 |INDIZ(+1)'..g.. |
000047A0: 53 54 41 49 4E 44 49 5A 2B 31 3B 48 4F 4C 45 4E |STAINDIZ+1;HOLEN|
000047B0: 00 8D 67 28 1E 3B 00 AE 67 32 1E 20 4C 44 41 23 |..g(.;..g2. LDA#|
000047C0: 30 3B 5A 41 45 48 4C 45 52 20 49 4E 54 49 41 4C |0;ZAEHLER INTIAL|
000047D0: 49 53 49 45 52 45 4E 00 BE 67 3C 1E 44 49 52 45 |ISIEREN..g<.DIRE|
000047E0: 4B 54 33 20 54 41 58 00 E0 67 46 1E 20 4A 53 52 |KT3 TAX..gF. JSR|
000047F0: 48 4F 4C 44 45 53 3B 44 45 53 43 52 49 50 54 4F |HOLDES;DESCRIPTO|
00004800: 52 45 4E 20 48 4F 4C 45 4E 00 07 68 50 1E 44 49 |REN HOLEN..hP.DI|
00004810: 52 45 4B 54 35 20 49 4E 59 3B 54 41 53 54 45 20 |REKT5 INY;TASTE |
00004820: 4D 49 54 20 44 45 4E 20 41 4E 46 41 4E 47 53 2D |MIT DEN ANFANGS-|
00004830: 00 30 68 5A 1E 20 4C 44 41 28 53 54 52 50 4F 53 |.0hZ. LDA(STRPOS|
00004840: 29 2C 59 3B 42 55 43 48 53 54 41 42 45 4E 20 44 |),Y;BUCHSTABEN D|
00004850: 45 52 20 4D 45 4E 55 45 2D 00 3D 68 64 1E 20 43 |ER MENUE-.=hd. C|
00004860: 4D 50 23 22 20 22 00 4D 68 6E 1E 20 42 45 51 44 |MP#" ".Mhn. BEQD|
00004870: 49 52 45 4B 54 35 00 71 68 78 1E 20 43 4D 50 5A |IREKT5.qhx. CMPZ|
00004880: 45 49 43 48 45 4E 3B 53 54 52 49 4E 47 53 20 56 |EICHEN;STRINGS V|
00004890: 45 52 47 4C 45 49 43 48 45 4E 00 8B 68 82 1E 20 |ERGLEICHEN..h.. |
000048A0: 42 45 51 44 49 52 45 4B 54 34 3B 47 4C 45 49 43 |BEQDIREKT4;GLEIC|
000048B0: 48 20 3D 3E 00 AD 68 8C 1E 20 4A 53 52 4E 45 58 |H =>..h.. JSRNEX|
000048C0: 54 53 54 52 3B 53 4F 4E 53 54 20 4E 45 58 54 20 |TSTR;SONST NEXT |
000048D0: 53 54 52 49 4E 47 00 C8 68 96 1E 20 49 4E 58 3B |STRING..h.. INX;|
000048E0: 55 4E 54 45 52 53 55 43 48 45 4E 2C 20 57 45 4E |UNTERSUCHEN, WEN|
000048F0: 4E 00 E0 68 A0 1E 20 54 58 41 3B 4C 45 54 5A 54 |N..h.. TXA;LETZT|
00004900: 45 52 20 4D 45 4E 55 45 2D 00 01 69 AA 1E 20 4C |ER MENUE-..i.. L|
00004910: 44 58 4D 43 4F 55 4E 54 3B 53 54 52 49 4E 47 20 |DXMCOUNT;STRING |
00004920: 4E 4F 43 48 20 4E 49 43 48 54 00 23 69 B4 1E 20 |NOCH NICHT.#i.. |
00004930: 43 4D 50 57 4C 41 45 4E 47 45 2C 58 3B 42 45 48 |CMPWLAENGE,X;BEH|
00004940: 41 4E 44 45 4C 54 20 57 55 52 44 45 00 33 69 BE |ANDELT WURDE.3i.|
00004950: 1E 20 42 43 43 44 49 52 45 4B 54 33 00 65 69 C8 |. BCCDIREKT3.ei.|
00004960: 1E 20 42 43 53 47 45 54 3B 42 55 43 48 53 54 41 |. BCSGET;BUCHSTA|
00004970: 42 45 20 4E 49 43 48 54 20 49 4D 20 4D 45 4E 55 |BE NICHT IM MENU|
00004980: 45 20 56 4F 52 48 41 4E 44 45 4E 20 3D 3E 00 6B |E VORHANDEN =>.k|
00004990: 69 D2 1E 3B 00 92 69 DC 1E 44 49 52 45 4B 54 34 |i..;..i..DIREKT4|
000049A0: 20 53 54 58 50 4F 49 4E 54 3B 4D 45 4E 55 45 50 | STXPOINT;MENUEP|
000049B0: 55 4E 4B 54 20 52 45 54 54 45 4E 00 98 69 E6 1E |UNKT RETTEN..i..|
000049C0: 3B 00 9E 69 F0 1E 3B 00 A4 69 FA 1E 3B 00 CC 69 |;..i..;..i..;..i|
000049D0: 04 1F 3B 2A 2A 2A 2A 2A 20 5A 55 52 55 45 43 4B |..;***** ZURUECK|
000049E0: 20 4E 41 43 48 20 42 41 53 49 43 20 21 21 21 20 | NACH BASIC !!! |
000049F0: 2A 2A 2A 2A 2A 00 E1 69 0E 1F 52 45 54 55 52 4E |*****..i..RETURN|
00004A00: 20 4A 53 52 43 48 4B 4B 4F 4D 00 F0 69 18 1F 20 | JSRCHKKOM..i.. |
00004A10: 4A 53 52 47 45 54 50 4F 53 00 FE 69 22 1F 20 53 |JSRGETPOS..i". S|
00004A20: 54 41 49 4E 44 49 5A 00 0E 6A 2C 1F 20 53 54 59 |TAINDIZ..j,. STY|
00004A30: 49 4E 44 49 5A 2B 31 00 1D 6A 36 1F 20 4A 53 52 |INDIZ+1..j6. JSR|
00004A40: 43 48 4B 4B 4F 4D 00 2C 6A 40 1F 20 4A 53 52 47 |CHKKOM.,j@. JSRG|
00004A50: 45 54 50 4F 53 00 3B 6A 4A 1F 20 53 54 41 49 4E |ETPOS.;jJ. STAIN|
00004A60: 44 49 5A 31 00 4C 6A 54 1F 20 53 54 59 49 4E 44 |DIZ1.LjT. STYIND|
00004A70: 49 5A 31 2B 31 00 52 6A 5E 1F 3B 00 5F 6A 68 1F |IZ1+1.Rj^.;._jh.|
00004A80: 20 4C 44 41 23 24 30 30 00 68 6A 72 1F 20 54 41 | LDA#$00.hjr. TA|
00004A90: 59 00 7A 6A 7C 1F 20 53 54 41 28 49 4E 44 49 5A |Y.zj|. STA(INDIZ|
00004AA0: 29 2C 59 00 8D 6A 86 1F 20 53 54 41 28 49 4E 44 |),Y..j.. STA(IND|
00004AB0: 49 5A 31 29 2C 59 00 96 6A 90 1F 20 49 4E 59 00 |IZ1),Y..j.. INY.|
00004AC0: A5 6A 9A 1F 20 4C 44 41 4D 43 4F 55 4E 54 00 B7 |.j.. LDAMCOUNT..|
00004AD0: 6A A4 1F 20 53 54 41 28 49 4E 44 49 5A 29 2C 59 |j.. STA(INDIZ),Y|
00004AE0: 00 C5 6A AE 1F 20 4C 44 41 50 4F 49 4E 54 00 D8 |..j.. LDAPOINT..|
00004AF0: 6A B8 1F 20 53 54 41 28 49 4E 44 49 5A 31 29 2C |j.. STA(INDIZ1),|
00004B00: 59 00 DE 6A C2 1F 3B 00 06 6B CC 1F 20 4A 53 52 |Y..j..;..k.. JSR|
00004B10: 4D 4E 4F 52 4D 41 4C 3B 4D 45 4E 55 45 4E 41 4D |MNORMAL;MENUENAM|
00004B20: 45 20 4E 4F 52 4D 41 4C 49 53 49 45 52 45 4E 00 |E NORMALISIEREN.|
00004B30: 3F 6B D6 1F 20 4A 4D 50 48 4F 4C 47 52 3B 55 4E |?k.. JMPHOLGR;UN|
00004B40: 54 45 52 47 52 55 4E 44 20 48 4F 4C 45 4E 20 2B |TERGRUND HOLEN +|
00004B50: 20 52 54 53 20 21 21 21 20 3D 3E 20 42 41 53 49 | RTS !!! => BASI|
00004B60: 43 20 21 21 21 21 21 21 00 45 6B E0 1F 3B 00 4B |C !!!!!!.Ek..;.K|
00004B70: 6B EA 1F 3B 00 51 6B F4 1F 3B 00 79 6B FE 1F 3B |k..;.Qk..;.yk..;|
00004B80: 2A 2A 2A 2A 2A 20 43 55 52 53 4F 52 54 41 53 54 |***** CURSORTAST|
00004B90: 45 4E 20 42 45 48 41 4E 44 45 4C 4E 20 2A 2A 2A |EN BEHANDELN ***|
00004BA0: 2A 2A 00 9D 6B 08 20 52 49 47 48 54 20 4A 53 52 |**..k. RIGHT JSR|
00004BB0: 48 4F 4C 47 52 3B 55 4E 54 45 52 47 52 55 4E 44 |HOLGR;UNTERGRUND|
00004BC0: 20 48 4F 4C 45 4E 00 C5 6B 12 20 20 4A 53 52 4D | HOLEN..k. JSRM|
00004BD0: 4E 4F 52 4D 41 4C 3B 4D 45 4E 55 45 4E 41 4D 45 |NORMAL;MENUENAME|
00004BE0: 20 4E 4F 52 4D 41 4C 49 53 49 45 52 45 4E 00 E9 | NORMALISIEREN..|
00004BF0: 6B 1C 20 20 4C 44 58 4D 43 4F 55 4E 54 3B 57 45 |k. LDXMCOUNT;WE|
00004C00: 4E 4E 20 42 45 52 45 49 54 53 20 4C 45 54 5A 54 |NN BEREITS LETZT|
00004C10: 45 53 00 0A 6C 26 20 20 49 4E 58 3B 4D 45 4E 55 |ES..l& INX;MENU|
00004C20: 45 20 45 52 52 45 49 43 48 54 3A 20 5A 41 45 48 |E ERREICHT: ZAEH|
00004C30: 4C 45 52 00 2B 6C 30 20 20 43 50 58 4D 5A 41 48 |LER.+l0 CPXMZAH|
00004C40: 4C 3B 41 55 46 20 31 2E 4D 45 4E 55 45 2C 20 53 |L;AUF 1.MENUE, S|
00004C50: 4F 4E 53 54 00 49 6C 3A 20 20 42 43 43 4D 4F 4B |ONST.Il: BCCMOK|
00004C60: 41 59 3B 5A 41 45 48 4C 45 52 20 49 4E 4B 52 45 |AY;ZAEHLER INKRE|
00004C70: 4D 2E 00 54 6C 44 20 20 4C 44 58 23 30 00 6C 6C |M..TlD LDX#0.ll|
00004C80: 4E 20 20 42 45 51 4D 4F 4B 41 59 3B 49 4D 4D 45 |N BEQMOKAY;IMME|
00004C90: 52 20 21 21 21 00 72 6C 58 20 3B 00 95 6C 62 20 |R !!!.rlX ;..lb |
00004CA0: 4C 45 46 54 20 4A 53 52 48 4F 4C 47 52 3B 55 4E |LEFT JSRHOLGR;UN|
00004CB0: 54 45 52 47 52 55 4E 44 20 48 4F 4C 45 4E 00 BD |TERGRUND HOLEN..|
00004CC0: 6C 6C 20 20 4A 53 52 4D 4E 4F 52 4D 41 4C 3B 4D |ll JSRMNORMAL;M|
00004CD0: 45 4E 55 45 4E 41 4D 45 20 4E 4F 52 4D 41 4C 49 |ENUENAME NORMALI|
00004CE0: 53 49 45 52 45 4E 00 E1 6C 76 20 20 4C 44 58 4D |SIEREN..lv LDXM|
00004CF0: 43 4F 55 4E 54 3B 57 45 4E 4E 20 5A 41 45 48 4C |COUNT;WENN ZAEHL|
00004D00: 45 52 20 42 45 52 45 49 54 53 00 FF 6C 80 20 20 |ER BEREITS..l. |
00004D10: 44 45 58 3B 41 55 46 20 31 2E 4D 45 4E 55 45 3A |DEX;AUF 1.MENUE:|
00004D20: 20 5A 41 45 48 4C 45 52 00 1C 6D 8A 20 20 43 50 | ZAEHLER..m. CP|
00004D30: 58 23 32 35 35 3B 41 55 46 20 4C 41 53 54 20 4D |X#255;AUF LAST M|
00004D40: 45 4E 55 45 2C 00 38 6D 94 20 20 42 4E 45 4D 4F |ENUE,.8m. BNEMO|
00004D50: 4B 41 59 3B 53 4F 4E 53 54 20 5A 41 45 48 4C 45 |KAY;SONST ZAEHLE|
00004D60: 52 00 4E 6D 9E 20 20 4C 44 58 4D 5A 41 48 4C 3B |R.Nm. LDXMZAHL;|
00004D70: 44 45 4B 52 45 4D 2E 00 57 6D A8 20 20 44 45 58 |DEKREM..Wm. DEX|
00004D80: 00 5D 6D B2 20 3B 00 84 6D BC 20 4D 4F 4B 41 59 |.]m. ;..m. MOKAY|
00004D90: 20 53 54 58 4D 43 4F 55 4E 54 3B 4D 45 4E 55 45 | STXMCOUNT;MENUE|
00004DA0: 4E 55 4D 4D 45 52 20 52 45 54 54 45 4E 00 AD 6D |NUMMER RETTEN..m|
00004DB0: C6 20 20 4A 4D 50 41 55 53 47 41 42 45 3B 4D 45 |. JMPAUSGABE;ME|
00004DC0: 4E 55 45 20 41 55 53 47 45 42 45 4E 20 2B 20 52 |NUE AUSGEBEN + R|
00004DD0: 54 53 20 21 21 21 00 B3 6D D0 20 3B 00 DB 6D DA |TS !!!..m. ;..m.|
00004DE0: 20 44 4F 57 4E 20 4C 44 41 50 4F 49 4E 54 3B 4E | DOWN LDAPOINT;N|
00004DF0: 41 45 43 48 53 54 45 53 20 4D 45 4E 55 45 2C 20 |AECHSTES MENUE, |
00004E00: 57 45 4E 4E 00 FD 6D E4 20 20 42 4D 49 44 4F 57 |WENN..m. BMIDOW|
00004E10: 4E 31 3B 4C 45 54 5A 54 45 53 20 4D 45 4E 55 45 |N1;LETZTES MENUE|
00004E20: 20 4E 49 43 48 54 00 21 6E EE 20 20 4A 53 52 43 | NICHT.!n. JSRC|
00004E30: 4F 4D 4E 4F 52 4D 41 4C 3B 42 45 52 45 49 54 53 |OMNORMAL;BEREITS|
00004E40: 20 45 52 52 45 49 43 48 54 2C 00 42 6E F8 20 44 | ERREICHT,.Bn. D|
00004E50: 4F 57 4E 31 20 49 4E 43 50 4F 49 4E 54 3B 53 4F |OWN1 INCPOINT;SO|
00004E60: 4E 53 54 20 31 2E 4D 45 4E 55 45 00 51 6E 02 21 |NST 1.MENUE.Qn.!|
00004E70: 20 4C 44 58 4D 43 4F 55 4E 54 00 5F 6E 0C 21 20 | LDXMCOUNT._n.! |
00004E80: 4C 44 41 50 4F 49 4E 54 00 71 6E 16 21 20 43 4D |LDAPOINT.qn.! CM|
00004E90: 50 57 4C 41 45 4E 47 45 2C 58 00 7F 6E 20 21 20 |PWLAENGE,X..n ! |
00004EA0: 42 43 43 44 4F 57 4E 32 00 8A 6E 2A 21 20 4C 44 |BCCDOWN2..n*! LD|
00004EB0: 41 23 30 00 98 6E 34 21 20 53 54 41 50 4F 49 4E |A#0..n4! STAPOIN|
00004EC0: 54 00 D0 6E 3E 21 44 4F 57 4E 32 20 4A 53 52 43 |T..n>!DOWN2 JSRC|
00004ED0: 4F 4D 49 4E 56 45 52 54 3B 41 4B 54 55 45 4C 4C |OMINVERT;AKTUELL|
00004EE0: 45 4E 20 4D 45 4E 55 45 50 55 4E 4B 54 20 49 4E |EN MENUEPUNKT IN|
00004EF0: 56 45 52 54 49 45 52 45 4E 00 F4 6E 48 21 44 4F |VERTIEREN..nH!DO|
00004F00: 57 4E 33 20 4A 4D 50 47 45 54 3B 3D 3E 20 45 49 |WN3 JMPGET;=> EI|
00004F10: 4E 47 41 42 45 53 43 48 4C 45 49 46 45 00 FA 6E |NGABESCHLEIFE..n|
00004F20: 52 21 3B 00 1E 6F 5C 21 55 50 20 4C 44 41 50 4F |R!;..o\!UP LDAPO|
00004F30: 49 4E 54 3B 56 4F 52 49 47 45 52 20 4D 45 4E 55 |INT;VORIGER MENU|
00004F40: 45 50 55 4E 4B 54 2C 00 44 6F 66 21 20 42 4D 49 |EPUNKT,.Dof! BMI|
00004F50: 44 4F 57 4E 33 3B 57 45 4E 4E 20 31 2E 4D 45 4E |DOWN3;WENN 1.MEN|
00004F60: 55 45 50 55 4E 4B 54 20 4E 49 43 48 54 00 68 6F |UEPUNKT NICHT.ho|
00004F70: 70 21 20 4A 53 52 43 4F 4D 4E 4F 52 4D 41 4C 3B |p! JSRCOMNORMAL;|
00004F80: 42 45 52 45 49 54 53 20 45 52 52 45 49 43 48 54 |BEREITS ERREICHT|
00004F90: 2C 00 8C 6F 7A 21 20 4C 44 41 50 4F 49 4E 54 3B |,..oz! LDAPOINT;|
00004FA0: 53 4F 4E 53 54 20 4C 41 53 54 20 4D 45 4E 55 45 |SONST LAST MENUE|
00004FB0: 50 55 4E 4B 54 00 98 6F 84 21 20 42 4E 45 55 50 |PUNKT..o.! BNEUP|
00004FC0: 31 00 A7 6F 8E 21 20 4C 44 58 4D 43 4F 55 4E 54 |1..o.! LDXMCOUNT|
00004FD0: 00 B9 6F 98 21 20 4C 44 41 57 4C 41 45 4E 47 45 |..o.! LDAWLAENGE|
00004FE0: 2C 58 00 C7 6F A2 21 20 53 54 41 50 4F 49 4E 54 |,X..o.! STAPOINT|
00004FF0: 00 D8 6F AC 21 55 50 31 20 44 45 43 50 4F 49 4E |..o.!UP1 DECPOIN|
00005000: 54 00 FC 6F B6 21 20 4A 4D 50 44 4F 57 4E 32 3B |T..o.! JMPDOWN2;|
00005010: 57 45 49 54 45 52 20 57 49 45 20 42 45 49 20 27 |WEITER WIE BEI '|
00005020: 44 4F 57 4E 27 00 02 70 C0 21 3B 00 08 70 CA 21 |DOWN'..p.!;..p.!|
00005030: 3B 00 0E 70 D4 21 3B 00 38 70 DE 21 3B 2A 2A 2A |;..p.!;.8p.!;***|
00005040: 2A 2A 20 4D 45 4E 55 45 50 55 4E 4B 54 20 49 4E |** MENUEPUNKT IN|
00005050: 56 45 52 54 2E 2F 4E 4F 52 4D 41 4C 2A 2A 2A 2A |VERT./NORMAL****|
00005060: 2A 00 5B 70 E8 21 43 4F 4D 4E 4F 52 4D 41 4C 20 |*.[p.!COMNORMAL |
00005070: 4C 44 41 23 31 3B 4E 4F 52 4D 41 4C 49 53 49 45 |LDA#1;NORMALISIE|
00005080: 52 45 4E 3A 00 6E 70 F2 21 20 2E 42 59 24 32 43 |REN:.np.! .BY$2C|
00005090: 3B 46 4C 41 47 3D 30 00 8F 70 FC 21 43 4F 4D 49 |;FLAG=0..p.!COMI|
000050A0: 4E 56 45 52 54 20 4C 44 41 23 30 3B 49 4E 56 45 |NVERT LDA#0;INVE|
000050B0: 52 54 49 45 52 45 4E 3A 00 A3 70 06 22 20 53 54 |RTIEREN:..p." ST|
000050C0: 41 46 4C 41 47 3B 46 4C 41 47 3D 31 00 B2 70 10 |AFLAG;FLAG=1..p.|
000050D0: 22 43 4F 4D 31 20 4C 44 41 23 32 00 CE 70 1A 22 |"COM1 LDA#2..p."|
000050E0: 20 43 4C 43 3B 49 4E 56 45 52 54 49 45 52 50 41 | CLC;INVERTIERPA|
000050F0: 52 41 4D 45 54 45 52 00 EE 70 24 22 20 41 44 43 |RAMETER..p$" ADC|
00005100: 50 4F 49 4E 54 3B 28 4C 49 4E 45 2C 43 4F 4C 2C |POINT;(LINE,COL,|
00005110: 42 52 45 49 54 45 2C 00 0C 71 2E 22 20 53 54 41 |BREITE,..q." STA|
00005120: 4C 49 4E 45 3B 4C 41 45 4E 47 45 29 20 46 55 45 |LINE;LAENGE) FUE|
00005130: 52 20 44 45 4E 00 2C 71 38 22 20 4C 44 58 4D 43 |R DEN.,q8" LDXMC|
00005140: 4F 55 4E 54 3B 41 4B 54 55 45 4C 4C 45 4E 20 4D |OUNT;AKTUELLEN M|
00005150: 45 4E 55 45 2D 00 4D 71 42 22 20 4C 44 41 53 54 |ENUE-.MqB" LDAST|
00005160: 41 52 54 2C 58 3B 50 55 4E 4B 54 20 53 45 54 5A |ART,X;PUNKT SETZ|
00005170: 45 4E 20 55 4E 44 00 68 71 4C 22 20 53 54 41 43 |EN UND.hqL" STAC|
00005180: 4F 4C 3B 44 49 45 20 49 4E 56 45 52 54 49 45 52 |OL;DIE INVERTIER|
00005190: 2D 00 85 71 56 22 20 49 4E 43 43 4F 4C 3B 52 4F |-..qV" INCCOL;RO|
000051A0: 55 54 49 4E 45 20 41 55 46 52 55 46 45 4E 00 97 |UTINE AUFRUFEN..|
000051B0: 71 60 22 20 4C 44 41 57 42 52 45 49 54 45 2C 58 |q`" LDAWBREITE,X|
000051C0: 00 A6 71 6A 22 20 53 54 41 42 52 45 49 54 45 00 |..qj" STABREITE.|
000051D0: B1 71 74 22 20 4C 44 41 23 31 00 C0 71 7E 22 20 |.qt" LDA#1..q~" |
000051E0: 53 54 41 4C 41 45 4E 47 45 00 D7 71 88 22 20 4A |STALAENGE..q." J|
000051F0: 4D 50 49 4E 56 4A 53 52 3B 52 54 53 20 21 21 21 |MPINVJSR;RTS !!!|
00005200: 00 DD 71 92 22 3B 00 E3 71 9C 22 3B 00 E9 71 A6 |..q.";..q.";..q.|
00005210: 22 3B 00 13 72 B0 22 3B 2A 2A 2A 2A 2A 20 4D 45 |";..r.";***** ME|
00005220: 4E 55 45 4E 41 4D 45 20 49 4E 56 45 52 54 2F 4E |NUENAME INVERT/N|
00005230: 4F 52 4D 41 4C 49 53 2A 2A 2A 2A 2A 00 34 72 BA |ORMALIS*****.4r.|
00005240: 22 4D 4E 4F 52 4D 41 4C 20 4C 44 41 23 31 3B 4E |"MNORMAL LDA#1;N|
00005250: 4F 52 4D 41 4C 49 53 49 45 52 45 4E 3A 00 47 72 |ORMALISIEREN:.Gr|
00005260: C4 22 20 2E 42 59 24 32 43 3B 46 4C 41 47 3D 30 |." .BY$2C;FLAG=0|
00005270: 00 66 72 CE 22 4D 49 4E 56 45 52 54 20 4C 44 41 |.fr."MINVERT LDA|
00005280: 23 30 3B 49 4E 56 45 52 54 49 45 52 45 4E 3A 00 |#0;INVERTIEREN:.|
00005290: 7A 72 D8 22 20 53 54 41 46 4C 41 47 3B 46 4C 41 |zr." STAFLAG;FLA|
000052A0: 47 3D 31 00 89 72 E2 22 4D 4E 4F 52 20 4C 44 58 |G=1..r."MNOR LDX|
000052B0: 23 30 00 A9 72 EC 22 20 53 54 58 4C 49 4E 45 3B |#0..r." STXLINE;|
000052C0: 49 4E 56 45 52 54 49 45 52 50 41 52 41 4D 45 54 |INVERTIERPARAMET|
000052D0: 45 52 00 C5 72 F6 22 20 49 4E 58 3B 55 45 42 45 |ER..r." INX;UEBE|
000052E0: 52 47 45 42 45 4E 20 28 5A 45 49 4C 45 2C 00 EB |RGEBEN (ZEILE,..|
000052F0: 72 00 23 20 53 54 58 4C 41 45 4E 47 45 3B 4C 41 |r.# STXLAENGE;LA|
00005300: 45 4E 47 45 2C 46 4C 41 47 20 53 49 4E 44 20 46 |ENGE,FLAG SIND F|
00005310: 45 53 54 29 00 F1 72 0A 23 3B 00 11 73 14 23 20 |EST)..r.#;..s.# |
00005320: 4C 44 58 4D 43 4F 55 4E 54 3B 53 54 41 52 54 53 |LDXMCOUNT;STARTS|
00005330: 50 41 41 4C 54 45 20 55 4E 44 00 31 73 1E 23 20 |PAALTE UND.1s.# |
00005340: 4C 44 41 53 54 41 52 54 2C 58 3B 49 4E 56 45 52 |LDASTART,X;INVER|
00005350: 54 49 45 52 42 52 45 49 54 45 00 37 73 28 23 3B |TIERBREITE.7s(#;|
00005360: 00 40 73 32 23 20 43 4C 43 00 4B 73 3C 23 20 41 |.@s2# CLC.Ks<# A|
00005370: 44 43 23 32 00 51 73 46 23 3B 00 67 73 50 23 20 |DC#2.QsF#;.gsP# |
00005380: 53 54 41 43 4F 4C 3B 42 45 53 54 49 4D 4D 45 4E |STACOL;BESTIMMEN|
00005390: 00 8D 73 5A 23 20 4C 44 41 4C 45 4E 47 54 48 2C |..sZ# LDALENGTH,|
000053A0: 58 3B 55 4E 44 20 49 4E 56 45 52 54 49 45 52 52 |X;UND INVERTIERR|
000053B0: 4F 55 54 49 4E 45 00 A5 73 64 23 20 53 54 41 42 |OUTINE..sd# STAB|
000053C0: 52 45 49 54 45 3B 41 55 46 52 55 46 45 4E 00 AB |REITE;AUFRUFEN..|
000053D0: 73 6E 23 3B 00 C2 73 78 23 20 4A 4D 50 49 4E 56 |sn#;..sx# JMPINV|
000053E0: 4A 53 52 3B 52 54 53 20 21 21 21 00 C8 73 82 23 |JSR;RTS !!!..s.#|
000053F0: 3B 00 CE 73 8C 23 3B 00 D4 73 96 23 3B 00 F4 73 |;..s.#;..s.#;..s|
00005400: A0 23 3B 2A 2A 2A 2A 2A 20 4D 45 4E 55 45 20 41 |.#;***** MENUE A|
00005410: 55 53 47 45 42 45 4E 20 2A 2A 2A 2A 2A 00 1E 74 |USGEBEN *****..t|
00005420: AA 23 4D 50 52 49 4E 54 20 4A 53 52 57 50 41 52 |.#MPRINT JSRWPAR|
00005430: 41 4D 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 31 |AM;POINTER AUF 1|
00005440: 2E 4D 45 4E 55 45 2D 00 46 74 B4 23 20 4C 44 41 |.MENUE-.Ft.# LDA|
00005450: 57 50 4F 49 4C 4F 57 2C 58 3B 53 54 52 49 4E 47 |WPOILOW,X;STRING|
00005460: 20 55 45 42 45 52 47 45 42 45 4E 20 55 4E 44 00 | UEBERGEBEN UND.|
00005470: 6D 74 BE 23 20 4C 44 59 57 50 4F 49 48 49 47 48 |mt.# LDYWPOIHIGH|
00005480: 2C 58 3B 4D 41 4C 52 4F 55 54 49 4E 45 20 41 55 |,X;MALROUTINE AU|
00005490: 46 52 55 46 45 4E 00 84 74 C8 23 20 4A 4D 50 57 |FRUFEN..t.# JMPW|
000054A0: 49 4E 4A 53 52 3B 52 54 53 20 21 21 21 00 8A 74 |INJSR;RTS !!!..t|
000054B0: D2 23 3B 00 90 74 DC 23 3B 00 96 74 E6 23 3B 00 |.#;..t.#;..t.#;.|
000054C0: BF 74 F0 23 3B 2A 2A 2A 2A 2A 20 55 4E 54 45 52 |.t.#;***** UNTER|
000054D0: 47 52 55 4E 44 20 52 45 54 54 45 4E 2F 48 4F 4C |GRUND RETTEN/HOL|
000054E0: 45 4E 20 2A 2A 2A 2A 2A 00 D0 74 FA 23 4C 49 45 |EN *****..t.#LIE|
000054F0: 53 47 52 20 4C 44 41 23 30 00 DC 74 04 24 20 2E |SGR LDA#0..t.$ .|
00005500: 42 59 24 32 43 00 EC 74 0E 24 48 4F 4C 47 52 20 |BY$2C..t.$HOLGR |
00005510: 4C 44 41 23 31 00 F9 74 18 24 20 53 54 41 46 4C |LDA#1..t.$ STAFL|
00005520: 41 47 00 23 75 22 24 4C 49 45 53 31 20 4A 53 52 |AG.#u"$LIES1 JSR|
00005530: 57 50 41 52 41 4D 3B 57 49 4E 44 4F 57 50 41 52 |WPARAM;WINDOWPAR|
00005540: 41 4D 45 54 45 52 20 48 4F 4C 45 4E 00 49 75 2C |AMETER HOLEN.Iu,|
00005550: 24 20 4A 4D 50 50 55 46 46 45 52 4A 53 52 3B 45 |$ JMPPUFFERJSR;E|
00005560: 49 4E 53 50 52 55 4E 47 20 2B 20 52 54 53 20 21 |INSPRUNG + RTS !|
00005570: 21 21 00 4F 75 36 24 3B 00 55 75 40 24 3B 00 5B |!!.Ou6$;.Uu@$;.[|
00005580: 75 4A 24 3B 00 84 75 54 24 3B 2A 2A 2A 2A 2A 20 |uJ$;..uT$;***** |
00005590: 57 49 4E 44 4F 57 50 41 52 41 4D 2E 20 55 45 42 |WINDOWPARAM. UEB|
000055A0: 45 52 47 45 42 45 4E 20 2A 2A 2A 2A 2A 00 A8 75 |ERGEBEN *****..u|
000055B0: 5E 24 57 50 41 52 41 4D 20 4C 44 58 4D 43 4F 55 |^$WPARAM LDXMCOU|
000055C0: 4E 54 3B 55 45 42 45 52 20 27 4D 43 4F 55 4E 54 |NT;UEBER 'MCOUNT|
000055D0: 27 00 CD 75 68 24 20 4C 44 41 53 54 41 52 54 2C |'..uh$ LDASTART,|
000055E0: 58 3B 28 3D 41 4B 54 55 45 4C 4C 45 20 4D 45 4E |X;(=AKTUELLE MEN|
000055F0: 55 45 4E 52 2E 29 00 EE 75 72 24 20 53 54 41 43 |UENR.)..ur$ STAC|
00005600: 4F 4C 3B 57 45 52 44 45 4E 20 44 49 45 20 50 41 |OL;WERDEN DIE PA|
00005610: 52 41 4D 45 54 45 52 00 07 76 7C 24 20 4C 44 41 |RAMETER..v|$ LDA|
00005620: 23 31 3B 44 45 53 20 41 4B 54 55 45 4C 4C 45 4E |#1;DES AKTUELLEN|
00005630: 00 24 76 86 24 20 53 54 41 4C 49 4E 45 3B 57 49 |.$v.$ STALINE;WI|
00005640: 4E 44 4F 57 53 20 41 55 53 20 44 45 4E 00 49 76 |NDOWS AUS DEN.Iv|
00005650: 90 24 20 4C 44 41 57 42 52 45 49 54 45 2C 58 3B |.$ LDAWBREITE,X;|
00005660: 54 41 42 45 4C 4C 45 4E 20 45 52 4D 49 54 54 45 |TABELLEN ERMITTE|
00005670: 4C 54 00 64 76 9A 24 20 43 4C 43 3B 28 43 4F 4C |LT.dv.$ CLC;(COL|
00005680: 2C 4C 49 4E 45 2C 42 52 45 49 54 45 2C 00 77 76 |,LINE,BREITE,.wv|
00005690: A4 24 20 41 44 43 23 32 3B 4C 41 45 4E 47 45 29 |.$ ADC#2;LAENGE)|
000056A0: 00 86 76 AE 24 20 53 54 41 42 52 45 49 54 45 00 |..v.$ STABREITE.|
000056B0: 98 76 B8 24 20 4C 44 41 57 4C 41 45 4E 47 45 2C |.v.$ LDAWLAENGE,|
000056C0: 58 00 A1 76 C2 24 20 43 4C 43 00 AC 76 CC 24 20 |X..v.$ CLC..v.$ |
000056D0: 41 44 43 23 32 00 BB 76 D6 24 20 53 54 41 4C 41 |ADC#2..v.$ STALA|
000056E0: 45 4E 47 45 00 C4 76 E0 24 20 52 54 53 00 CA 76 |ENGE..v.$ RTS..v|
000056F0: EA 24 3B 00 D0 76 F4 24 3B 00 D6 76 FE 24 3B 00 |.$;..v.$;..v.$;.|
00005700: F7 76 08 25 3B 2A 2A 2A 2A 2A 20 4B 4F 4D 4D 41 |.v.%;***** KOMMA|
00005710: 4E 44 4F 2D 54 41 53 54 45 4E 20 2A 2A 2A 2A 2A |NDO-TASTEN *****|
00005720: 00 0F 77 12 25 4B 45 59 20 2E 42 59 32 39 3B 43 |..w.%KEY .BY29;C|
00005730: 52 53 2E 52 49 47 48 54 00 1B 77 1C 25 20 2E 42 |RS.RIGHT..w.% .B|
00005740: 59 31 35 37 00 2F 77 26 25 20 2E 42 59 31 37 3B |Y157./w&% .BY17;|
00005750: 43 52 53 2E 44 4F 57 4E 00 42 77 30 25 20 2E 42 |CRS.DOWN.Bw0% .B|
00005760: 59 31 34 35 3B 43 52 53 2E 55 50 00 54 77 3A 25 |Y145;CRS.UP.Tw:%|
00005770: 20 2E 42 59 31 33 3B 52 45 54 55 52 4E 00 5A 77 | .BY13;RETURN.Zw|
00005780: 44 25 3B 00 60 77 4E 25 3B 00 66 77 58 25 3B 00 |D%;.`wN%;.fwX%;.|
00005790: 85 77 62 25 3B 2A 2A 2A 2A 2A 20 53 50 52 55 4E |.wb%;***** SPRUN|
000057A0: 47 54 41 42 45 4C 4C 45 20 2A 2A 2A 2A 2A 00 96 |GTABELLE *****..|
000057B0: 77 6C 25 54 41 42 20 2E 57 4F 52 49 47 48 54 00 |wl%TAB .WORIGHT.|
000057C0: A3 77 76 25 20 2E 57 4F 4C 45 46 54 00 B0 77 80 |.wv% .WOLEFT..w.|
000057D0: 25 20 2E 57 4F 44 4F 57 4E 00 BB 77 8A 25 20 2E |% .WODOWN..w.% .|
000057E0: 57 4F 55 50 00 CA 77 94 25 20 2E 57 4F 52 45 54 |WOUP..w.% .WORET|
000057F0: 55 52 4E 00 D0 77 9E 25 3B 00 D6 77 A8 25 3B 00 |URN..w.%;..w.%;.|
00005800: DC 77 B2 25 3B 00 03 78 BC 25 3B 2A 2A 2A 2A 2A |.w.%;..x.%;*****|
00005810: 20 57 49 4E 44 4F 57 50 41 52 41 4D 2E 2D 54 41 | WINDOWPARAM.-TA|
00005820: 42 45 4C 4C 45 4E 20 2A 2A 2A 2A 2A 00 22 78 C6 |BELLEN *****."x.|
00005830: 25 53 54 41 52 54 20 2E 42 59 31 2C 32 2C 33 2C |%START .BY1,2,3,|
00005840: 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 42 78 D0 25 |4,5,6,7,8,9.Bx.%|
00005850: 4C 45 4E 47 54 48 20 2E 42 59 31 2C 32 2C 33 2C |LENGTH .BY1,2,3,|
00005860: 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 60 78 DA 25 |4,5,6,7,8,9.`x.%|
00005870: 53 49 47 4E 20 2E 42 59 31 2C 32 2C 33 2C 34 2C |SIGN .BY1,2,3,4,|
00005880: 35 2C 36 2C 37 2C 38 2C 39 00 81 78 E4 25 57 42 |5,6,7,8,9..x.%WB|
00005890: 52 45 49 54 45 20 2E 42 59 31 2C 32 2C 33 2C 34 |REITE .BY1,2,3,4|
000058A0: 2C 35 2C 36 2C 37 2C 38 2C 39 00 A2 78 EE 25 57 |,5,6,7,8,9..x.%W|
000058B0: 4C 41 45 4E 47 45 20 2E 42 59 31 2C 32 2C 33 2C |LAENGE .BY1,2,3,|
000058C0: 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 C3 78 F8 25 |4,5,6,7,8,9..x.%|
000058D0: 57 50 4F 49 4C 4F 57 20 2E 42 59 31 2C 32 2C 33 |WPOILOW .BY1,2,3|
000058E0: 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 E5 78 02 |,4,5,6,7,8,9..x.|
000058F0: 26 57 50 4F 49 48 49 47 48 20 2E 42 59 31 2C 32 |&WPOIHIGH .BY1,2|
00005900: 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 ED |,3,4,5,6,7,8,9..|
00005910: 78 0C 26 2E 45 4E 00 00 00 |x.&.EN... |
X...D.;***************************.. N.;
* ROUTINEN ZUR VERWALTUNG *.; X.;* VON
PULL-DOWN-MENUES *.\ ..;* (C) S.BALO
UI, 1986 *.} ..;*********************
******.. ..;.. .;.. ..;.. ..;*********.
. ..;* LABEL *.. H.;*********.B R.;.. ..
;*** LABEL: BETRIEBSSYSTEM ***..!...EQ S
CREEN = $0288 ;STARTPAGE DES VIDEO-RA
MS.2!...EQ PAINT = $D800.H!...EQ GETI
N = $FFE4 ;ZEICHEN VON TASTATUR LESE
N..!...EQ CHKKOM = $AEFD ;BASIC-TEXT:
NAECHSTES ZEICHEN: KOMMA?..!...EQ GETBY
T = $B79E ;BASIC-TEXT: BYTEWERT HOLEN
(X-REGISTER).."...EQ GETPOS = $B08B
;BASIC-TEXT: POINTER AUF VARIABLE HOLEN.
W""..EQ PLOT = $FFF0 ;CURSOR SETZEN
..",..EQ BSOUT = $FFD2 ;ZEICHEN AUSS
GEBEN.."6..EQ COLOR = $0286.."8..EQ Q
UOTEMODE= $D4.K":..EQ INSERTS = $D8.Q"@
.;.W"J.;.."T.;*** LABEL: PROGRAMMMINTERN
***..#^..EQ NEWCOLOR = 1.M#H..EQ PARBA
CK = $A7 ;AUSWAHLRUECKUEBERGABE AN
BASIC..#R..EQ INDIZ = $A9 ;POIN
TER F.INDIZIERTE ADRESSIERUNG.K#|..EQ IN
DIZ1 = $AB ;POINTER F.INDIZIERTE
ADRESSIERUNG..$...EQ STRLEN = $AD
;LAENGE DER VON BASIC UEBERGEB.STRINGVA
RIABLEN.W$...EQ STRPOS = $AE ;POI
NTER AUF UEBERGEB.STRINGVARIABLE.N$...EQ
PAINTP = $B4..$...EQ HELP = $0334
..$...EQ CNTI = HELP+2 ;ZAEHLER.Q$
...EQ CNTJ = CNTI+1 ;ZAEHLER..$B..
EQ COL = CNTJ+1 ;SPALTE MERKEN.&%
L..EQ LINE = COL+1 ;ZEILE MERKEN.
Y%V..EQ BREITE = LINE+1 ;RECHTECKBRE
ITE MERKEN..%...EQ LAENGE = BREITE+1 ;
RECHTECKLAENGE MERKEN..%...EQ FLAG =
LAENGE+1..%...EQ PUFNR = FLAG+1 ;N
R.DES ANZUSPRECHENDEN PUFFERS..%...EQ RO
UTIN = PUFNR+2..&..;..&..;..&..;.6&&.;
*** LABELS F.PUFFER-ROUTINE ***.H&0..EQ
SCREENP = INDIZ ;POINTER AUF BILDSCHIR
M..&:..EQ PUFFERP = INDIZ1 ;POINTER AUF
PUFFER..&D..EQ PUFPOI = $0293 ;TABEL
LE MIT STARTADRESSEN DER AKTUELLEN PUFFE
R..'N..EQ PUFSTART = $F000 ;PUFFERANFAN
G.G'X..EQ INTCTRL = $DC0E ;VIC-REGISTE
R ZUR INTERRUPTKONTROLLE.N'B..EQ CRSLINE
= 214 ;CURSORZEILE..'L..EQ LINEPOI
= $FB ;ECHTER (!!!) POINTER AUF CURS
ORZEILE..'V.;..'..;..'..;..'...BA $C710
;PROGRAMMSTART..'..;..'..;..'..;..(..;**
*********************.)(F.;*** SPRUNGVER
TEILER ***.F(P.;***********************.
W(Z. JMPPUFFINIT.F(.. JMPWINDOW.U(.. JMP
PUFFER..(.. JMPINVERT..(.. JMPCNTRL..(..
;*********************************..(..;
.E( .;.K(*.;..(4.;**********************
*******..)>.;*** GEMEINSAME UNTERPROGS *
**.4)H.;*****************************.:)
R.;.A)\.;***** LINEPOINTER BERECHNEN ***
**.S)F.LINEPTR LDA#0..)P. LDXSCREEN..)Z.
STALINEPOI..).. STXLINEPOI+1..)..;..)..
LDXCRSLINE.K).. BEQLINEPTR3..)..LINEPTR
1 LDALINEPOI..).. CLC..).. ADC#40..*J. S
TALINEPOI..*T. BCCLINEPTR2.+*.. INCLINEP
OI+1.<*..LINEPTR2 DEX.M*.. BNELINEPTR1.^
*..LINEPTR3 RTS.D*..;.J*..;.P*..;..*$.;*
** PAINTP AUS SCREENP BERECHNEN ***. *..
;..*8.PAINTPTR LDASCREENP.G*B. STAPAINTP
.Y*L. LDASCREENP+1..*V. AND#$03..*`. ORA
#>(PAINT)..+J. STAPAINTP+1..+T. RTS..+~.
;..+..;.$+..;.E+..;***** PARAMETER LESEN
*****.G+..PARAM STACNTI;LIEST BELIEBIGE
.|+.. LDX#0;ANZAHL AN..+..LESEN STXCNTJ;
EIN-BYTE-WERTEN..+D. JSRCHKKOM;AUS DEM B
ASIC-TEXT..+N. JSRGETBYT;UND LEGT SIE..+
X. TXA;AB 'COL' AB...+.. LDXCNTJ..,.. ST
ACOL,X..,.. INX.#,.. CPXCNTI.1,.. BNELES
EN.:,.. RTS.@,..;.F,(.;.L,2.;.V,<.;*****
STRINGDESCRIPTOREN HOLEN *****..,F.HOLD
ES LDY#2;HOLT DIE STRING-.B,P.HOLDES1 LD
A(INDIZ),Y;DESCRIPTOREN DER..,Z. STASTRL
EN,Y;UEBERGEBENEN STRING-..,D. DEY;VARIA
BLEN.%-N. BPLHOLDES1;LAENGE/POINTER AUF
STRING..-X. RTS.4-..;.:-..;.@-..;.H- .;*
**** INDIZ(+1)=>NEXT STRING *****..-..NE
XTSTR LDAINDIZ;ERHOEHT EINEN POINTER..-.
. CLC;(IN 'INDIZ') AUF EINEN.S-.. ADC#3;
STRINGDESCRIPTOR, SO..-H. STAINDIZ;DASS
DIESER AUF DEN...R. BCCNEXT1;NAECHSTEN D
ESCRIPTOR.>... INCINDIZ+1;WEIST (INDIZ=I
NDIZ+3).L...NEXT1 RTS.R...;.X...;.^...;.
....;***** ENDZEILE BERECHNEN *****.....
ENDZEI LDALINE;BERECHNET DIE NUMMER DER.
P.". CLC;LETZTEN ZEILE DES ANGEG....,. A
DCLAENGE;RECHTECKS (LASTZEILE=../6. STAL
AENGE;STARTZEILE+LAENGE). /@. RTS.F/J.;*
*******************************.L/T.;.R/
^.;.X/H.;.W/R.;*************************
../|.;* WINDOW + INHALT MALEN *../..;***
**********************../..;../..;AUFRUF
: SYS XXXX,SPALTE,ZEILE,..0..; BR
EITE,LAENGE,ARRAY..0..;.)0..;FUNKTION: M
ALT EIN WINDOW DER.M0B.; ANGEGE
BENEN GROESSE.P0L.; ('BREITE',
'LAENGE')..0V.; AB DER POSIT.'S
PALTE'/..0..; 'ZEILE' UND FUELL
T DIE..0..; INNENZEILEN MIT DEN
..1..; ANGEGEB. ARRAYSTRINGS,.)
1..; DEREN ANZAHL MINDES-.N1..;
TENS EBENSO GROSS WIE.S1..;
DIE ANZAHL DER INNEN-..1..;
ZEILEN SEIN MUSS...1&.;..10.;BSP.: S
YS XXXX,2,5,10,15,A$(2)..1:.; MALT
WINDOW MIT LINKER..2D.; ECKE 2/5, D
AS 10 SPALTEN.(2N.; BREIT UND 15 ZE
ILEN LANG.M2X.; IST; DIE INNENZEILE
N WER-.Q2B.; DEN MIT 'A$(2)'-'A$(15
)'..2L.; GEFUELLT..2V.;..2..;..2..W
INDOW LDA#4;4 BYTEWERTE HOLEN.B2.. JSRPA
RAM.H2..;..2.. JSRCHKKOM;STRINGDESCRRIPT
OR..2.. JSRGETPOS;HOLEN..3..;.-3F.WINJSR
STAINDIZ;UND NACH 'INDIZ(+1)'.F3P. STYI
NDIZ+1;SCHAFFEN.L3Z.;.N3.. JSRENDZEI;LET
ZTE WINDOWZEILE..3.. DECLAENGE;KORREKTUR
..3.. DECBREITE;KORREK-..3.. DECBREITE;T
UR..3..;..3..;.C3 .;.Q3*. LDACOLOR.Z34.
PHA..3>. LDA#NEWCOLOR..3H. STACOLOR..4R.
;..4\.;..4F.;./4P.;***** ERSTE ZEILE MAL
EN *****.D4Z. LDA#0;FLAG=0 =>.F4.. STAFL
AG;OHNE STRING AUSGEBEN.T4.. JSRMALEN.Z4
..;..4..;..4..;..4..;***** INNENZEILEN M
ALEN *****..4.. INCFLAG;FLAG=0 =>..4J.IN
NEN JSRHOLDES;ZEILEN MIT INHALTEN..5T. J
SRMALEN;DER ARRAYSTRINGS FUELLEN..5.. JS
RNEXTSTR.=5.. LDALINE;ALLE INNENZEILEN.X
5.. CMPLAENGE;AUSGEGEBEN?.N5.. BNEINNEN;
NEIN =>.T5..;.Z5..;..5..;..5$.;***** LET
ZTE ZEILE MALEN *****..5.. INCFLAG;FLAG=
2 =>..58. JSRMALEN;ZEILE OHNE STRINGINHA
LTE..5B.;..5L. PLA..5V. STACOLOR..6`. RT
S..6J.;..6T.;..6~.;.76..;***** ZEILE MAL
EN *****.W6..MALEN LDXLINE;CURSOR SETZEN
.C6.. LDYCOL.L6.. CLC.Y6.. JSRPLOT..6..
LDXFLAG..6D. LDALINKS,X;LINKES ZEICHEN..
6N. JSRBSOUT;AUSGEBEN.Y6X. LDY#0;MITTLER
ES ZEICHEN..7..LOOP LDAMITTE,X;LADEN UND
AUSGEBEN,..7.. CPX#1;WENN FLAG..7.. BNE
NOSTRING;<>1 =>.M7.. CPYSTRLEN;ODER STRI
NGENDE.J7.. BCSNOSTRING;ERREICHT =>..7..
LDA(STRPOS),Y;SONST STRINGZEICHEN..7..N
OSTRING JSRBSOUT;AUSGEBEN.J7(. INY;ZEILE
-1 ZEICHEN..72. CPYBREITE;KOMPLETT AUSG
EGEBEN?..8<. BNELOOP;NEIN =>..8F. INCLIN
E;NEXT ZEILE.<8P. LDARECHTS,X;RECHTES ZE
ICHEN.S8Z. JSRBSOUT;AUSGEBEN.^8\. LDA#0.
P8^. STAQUOTEMODE..8`. STAINSERTS..8B. R
TS..8D.;..8N.LINKS .BY176,125,173..8X.MI
TTE .BY96,32,96.X8..RECHTS .BY174,125,18
9..8..;********************************.
.9..;..9 .;..9..;.69..;*****************
***************.\9..;* WINDOWUNTERGRUND
RETTEN/HOLEN*..9H.;*********************
***********..9R.;..9..;AUFRUF:SYS XXXX,S
PALTE,ZEILE,.Q9..; BREITE,LAENGE,F
LAG,PUFFER.W9..;..9..;FUNKTION: KOPIERT
DEN DURCH..:..; 'SPALTE'/'ZEILE
' UND.A:..; 'BREITE' BZW.'LAENG
E'.B:..; ANGEGEBENEN BILD-..:".
; SCHIRMAUSSCHNITT IN..:,.;
PUFFER NR.'PUFFER',.F:6.;
WENN 'FLAG'=1...:@.; 'FLAG'=1
=>DER INHALT..;J.; DES ANGEG.PU
FFERS WIRD.4;T.; IN DEN ANGEG.
BILD-.T;^.; SCHIRMAUSSCHNITT.L;
H.; KOPIERT...;R.; PUF
FER: NUMERIERUNG..;|.; BEGINNT
BEI 0; MAX..U;..; PUFFERBEREICH
: 2 KB..;..;..;..;BSP.: SYS XXXX,2,5,10,
15,1,0.!<..; WINDOW MIT LINKER OBER
ER.F<..; ECKE 2/5, BREITE 10 SPAL-.
K<..; TEN U.LAENGE 15 ZEILEN IN..<B
.; PUFFER NR.0 SCHREIBEN...<L.;..<V
.;..<..PUFFINIT LDA#$FF..<.. STAPUFNR.E<
.. RTS.K<..;.Q<..;.W<..;..<..PUFFER LDA#
5;6 BYTEWERTE LESEN..=&. JSRPARAM..=0.;.
8=:.PUFFERJSR LDA#<(PUFSTART);POINTER AU
F.Y=D. LDX#>(PUFSTART);PUFFER NR.0.Q=N.
STAPUFPOI;ERZEUGEN..=X. STXPUFPOI+1..=B.
;..=L. LDAFLAG..=V. BNENOWRITE..=.. INCP
UFNR..=..;..=..NOWRITE LDAPUFNR;ADRESSE
DES ANGEG...=.. ASL..=.. TAX..>.. LDAPUF
POI,X;PUFFERS NACH..>.. STAPUFFERP;'PUFP
OI(+1)'.J>F. LDAPUFPOI+1,X;KOPIEREN.\>P.
STAPUFFERP+1.B>Z.;..>.. JSRENDZEI;LETZT
E ZEILE ERMITTELN..>..;..>.. LDXLINE;CUR
SOR AUF LINE..>.. LDYCOL.Q>.. CLC;OBERE
WINDOWECKE..>.. JSRPLOT..> .;..>*.WEITER
JSRLINEPTR. ?4. LDALINEPOI+1;'SCREENPOI
NTER(+1)'.E?>. STASCREENP+1;+WINDOWSTART
SPALTE.D?H. LDALINEPOI;ERGIBT POINTER.|?
R. CLC;AUF ANFANG DER..?\. ADCCOL;AKTUEL
LEN WINDOWZEILE..?F. STASCREENP;+STARTSP
ALTE.H?P. BCCOKAY.Z?Z. INCSCREENP+1..?..
;..?..OKAY JSRPAINTPTR..?..;..@..;.&@..
LDYBREITE;ZAEHLER INITIALISEREN./@.. DEY
.5@..;.B@J.COPY TYA.K@T. CLC.Z@.. ADCBRE
ITE.G@.. STAHELP.M@..;..@.. LDAFLAG;EIN
ZEICHEN AUS PUFFER..@.. BNEWRITE;AUF SCR
EEN ODER..@..;.H@.. LDA(PAINTP),Y.W@$. S
TYHELP+1..@.. LDYHELP..@8. STA(PUFFERP),
Y..AB. LDYHELP+1..AL.;.,AV. LDA(SCREENP)
,Y;UMGEKEHRT,.TA`. STA(PUFFERP),Y;JE NAC
H FLAGZUSTAND.AAJ. BNEJUMP.GAT.;.{A~.WRI
TE STYHELP+1..A.. LDYHELP..A.. JSRRAM..A
.. LDA(PUFFERP),Y..A.. PHA..A.. JSRROM.F
A.. PLA.UAD. LDYHELP+1..AN. STA(PAINTP),
Y..AX. JSRRAM..B.. LDA(PUFFERP),Y..B.. S
TA(SCREENP),Y.(B.. JSRROM.FB..JUMP DEY;Z
EILE BEHANDELT?.[B.. BPLCOPY;NEIN =>.AB.
.;.|B.. LDABREITE;POINTER AUF..B(. ASL;P
UFFER UM..B2. CLC;WINDOWBREITE..B<. ADCP
UFFERP.NBF. STAPUFFERP;ERHOEHEN..BP. BCC
NOINCR..BZ. INCPUFFERP+1..BD.;..CN.NOINC
R LDA#17;CURSOR EINE ZEILE.5CX. JSRBSOUT
;TIEFER SETZEN.XC.. LDACRSLINE;LETZTE WI
NDOWZEILE.RC.. CMPLAENGE;BEHANDELT?..C..
BNEWEITER;NEIN =>..C .;..C..;..C.. LDXP
UFNR;ANFANG DES.IC.. INX;NAECHSTEN PUFFE
RS..CH. TXA;HINTER DAS ENDE..CR. ASL;DES
AKTUELLEN..D.. TAX;PUFFERS SETZEN.!D..
LDAPUFFERP.2D.. STAPUFPOI,X.DD.. LDAPUFF
ERP+1.WD.. STAPUFPOI+1,X.]D..;.JD.. LDAF
LAG.YD". BEQNOLIES..D,. DECPUFNR..D6.NOL
IES RTS..D@.;..DJ.;.IDT.RAM JSRNOINT;INT
ERRUPT AUSSCHALTEN..D^. LDA#$34;RAM-KONF
OGURATION..DH. STA1;EINSTELLEN."ER. JMPI
NTEIN;INTERRUPT EINSCHALTEN.(E|.;..E..;.
ME..ROM JSRNOINT;INTERRUPT AUS.LE.. LDA#
$37;ROM-KONFIGURATION..E.. STA1;EINSCHAL
TEN..E.. JMPINTEIN;INTERRUPT EIN..E..;..
EB.;.VEL.NOINT LDAINTCTRL;INTERRUPTS VER
HINDERN..EV. AND#$FE..E.. STAINTCTRL..E.
. RTS..F..;.,F..INTEIN LDAINTCTRL;INTERR
UPTS ZULASSEN.9F.. ORA#$01.IF.. STAINTCT
RL.RF.. RTS.XF&.;***********************
*********.~F0.;..F:.;..FD.;..FN.;*******
*************************.VFX.;* SCREENA
USSCHNITT INVERTIEREN *..FB.;***********
*********************..GL.;.&GV.;AUFRUF:
SYS XXXX,SPALTE,ZEILE,.FG..; BRE
ITE,LAENGE,FLAG.LG..;.QG..;FUNKTION: INV
ERTIERT('FLAG'=1)/..G..; NORMAL
ISIERT('FLAG'=0)..G..; EINEN RE
CHTECKIGEN..G..; BILDSCHIRMAUSS
CHNITT..H..; MIT DER OBEREN LIN
KEN.'HF.; ECKE 'SPALTE'/'ZEILE'
.JHP.; UND DER ANGEGEBENEN.MHZ.
; LAENGE BZW. BREITE..SH..;..H.
.;BSP.: SYS XXXX,2,5,10,15,1..H..;
INVERTIERT EIN RECHTECK..H..; MIT D
ER LINKEN OBEREB ECKE..I..; 2/7, DE
R BREITE 10 SPALTEN.'I..; UND DER L
AENGE 15 ZEILEN..-I .;.3I*.;.VI4.INVERT
LDA#5;5 BYTEWERTE HOLEN.DI>. JSRPARAM.JI
H.;..IR.INVJSR JSRENDZEI;LETZTE RECHTECK
ZEILE..I\. DECBREITE;KORREKTUR..IF. LDY#
0.YIP. LDXLINE;CURSOR AUF AKTUELLE..IZ.;
..J..INV2 CLC;ZEILE UND STARTSPALTE..J..
JSRPLOT;SETZEN.&J.. JSRLINEPTR.,J..;.QJ
.. LDALINEPOI;'LINEPOI' + 'COL' =>.FJ..
CLC;POINTER AUF..J.. ADCCOL;ERSTES ZU BE
HAN-..JJ. STALINEPOI;DELNDES ZEICHEN.CJT
. BCCINV3;ZEICHEN DER JEWEI-..J.. INCLIN
EPOI+1;LIGEN ZEILE..J..;..K..INV3 LDYBRE
ITE;WENN FLAG=0, WIRD.2K..INV1 LDA(LINEP
OI),Y;DIE KOMPLETTE.RK.. LDXFLAG;ZEILE N
ORMALISIERT.QK.. BEQNORM;(BIT 7 LOESCHEN
),..K.. ORA#$80;SONST INVERTIERT..K$. .B
Y$2C;(BIT 7 SEETZEN)..K..NORM AND#$7F.PK
8. STA(LINEPOI),Y..KB. DEY;ZEILE BEHANDE
LT?..KL. BPLINV1;NEIN =>..LV.;..L`. INCL
INE;NEXT ZEILE.*LJ. LDXLINE.QLT. CPXLAEN
GE;LETZTE ZEILE BEHANDELT?.FL~. BNEINV2;
NEIN =>.OL.. RTS..L..;******************
**************..L..;..L..;..L..;.ML..;**
******************************..LD.;* VE
RWALTUNG V.PULL-DOWN-MENUES*..MN.;******
**************************..MX.;.EM..;AU
FRUF:SYS XXXX,MENUE$,MENUE$(1).AM..;
,MENUE%,BEFEHL%.GM..;..M..;FUNKTION:
VERWALTET BELIEBIG..M..; VIELE
PULL-D.MENUES,.RM..; DEREN OBER
BEGRIFFE IN..M..; 'MENUE$'ENTHA
LTEN SIND..N(.; (Z.B.:A$='FILE
EDIT')..@N2.; DIE MENUEKOMMANDO
S.EN<.; ENTHAELT DAS ANGEGEB...
NF.; STRINGARRAY. VOR JEDEM..NP
.; UNTERMENUE BEFINDET.QNZ.;
SICH EIN LEERSTRING..ND.;
MIT DER GEWUENSCHTEN..ON.; ME
NUELAENGE..3OX.; DEM LETZTEN ME
NUE-.YO..; STRING FOLGT EBENFAL
LS.XO..; EIN LEERSTRING..~O..;.
.O .;BSP.: SYS XXXX,A$,A$(1),M%,B%.DO..;
VERWALTET Z.B. FOLGENDE..O..;
VERWALTET 2 UNTERMENUES..P..; MIT
4 BZW. 7 AUSWAHLPKTEN,.-PH.; WENN F
OLGENDES GILT:.3PR.;.RP..; A$='DOC
UMENT DISK'.LP..; A$(1)=' '..P
..; A$(2)='LOAD'..P..; A$(3)
='SAVE'..P..; A$(4)='MERGE'.RP..;
A$(5)='PRINT'..P..; A$(6)='
'..Q".; A$(7)='DIRECTORY
'./Q,.; A$(8)='INITIALISE'.LQ6.;
A$(9)='VALIDATE'.LQ@.; A$(10)=
'FORMAT DISK'..QJ.; A$(11)='SCRATCH
FILE'..QT.; A$(12)='COPY FILE'.KQ^
.; A$(13)='RENAME FILE'..QH.;
A$(14)=' '..QR.;..R|.;BEDIENUNG: CURSOR
RIGHT/LEFT =>./R..; AUSWAHL UN
TERMENUE.QR..; CURSOR DOWN/UP
=>.WR..; AUSWAHL IM UNTERMENUE
..R..; RETURN =>..R..;
AUSWAHL AKTUELLER.NR..; MEN
UEPUNKT.TRB.;..RL.; EIN UNTERM
ENUE KANN..SV.; ALTERNATIV MIT
CTRL+.CS..; DEM ANFANGSBUCHST
ABEN.CS..; DES MENUENAMENS..S.
.; DIREKT ANGEWAEHLT..S..;
WERDEN, Z.B. CTRL+F.NS..;
FUER D.MENUE 'FILE'...S..;
EIN MENUEPUNKT KANN..T..; ALTE
RNATIV MIT DEM.7T&.; ANFANGSBU
CHSTABEN.\T0.; DIREKT GEWAEHLT
WER-..T:.; DEN('S'FUER'SCRATC
H')..TD.;..TN.; DAS ANGEWAEHLT
E MENUE.TTX.; WIRD IN 'MENUE%'
, DER..TB.; GEWAEHLTE MENUEPUN
KT..UL.; IN 'BEFEHL%' UEBERG..
$UV.;.GU..;BSP.: SYS XXXX,A$,A$(1),M%,B%
.LU..; VERWALTET OBIGES BEISPIEL.RU
..;.XU..;..U...EQ MCOUNT = ROUTIN+1 ;Z
AEHLER: AKTUELLES MENUE..U...EQ MZAHL
= MCOUNT+1 ;GESAMTE MENUEANZAHL..V...EQ
POINT = MZAHL+1 ;ZAEHLER: AKTUELLER
MENUEPUNKT.HVF..EQ ZEICHEN = POINT+1
;GEDRUECKTE TASTE.XVP..EQ VEKTOR = ZEIC
HEN+1 ;VEKTOR F.INDIR.JMP.~VZ.;..V..;..V
..;..V..;***** MENUEPARAMETER HOLEN ****
*..V..CNTRL JSRCHKKOM;POINTER AUF DESCRI
PTOREN..W.. JSRGETPOS;DES MENUELEISTENST
RINGS.'W.. STAINDIZ;NACH 'INDIZ(+1)' UND
.PW . STYINDIZ+1;DESCRIPTOREN SELBST NAC
H.TW*. JSRHOLDES;'STRLEN',STRPOS(+1)'.ZW
4.;..W>. LDASTRLEN;DESCRIPTOREN RETTEN..
WH. PHA..WR. LDASTRPOS..W\. PHA.OWF. LDA
STRPOS+1.XWP. PHA..WZ.;..W..;..W..;..X..
;***** STARTSPALTEN D.MENUES *****..X..
LDY#0;SPALTE UND ANZAHL.HX.. LDX#0;INITI
ALISIEREN.WX..START1 LDA(STRPOS),Y;IM LE
ISTENSTRING ALLE..X.. CMP#" ";SPACES BIS
ZUM..XJ. BNESTART2;1.NICHT-SPACE.DXT. I
NY;UEBERLESEN.SX.. CPYSTRLEN..X.. BCSSTA
RT5..X.. BCCSTART1;IMMER !!!..Y..;.2Y..S
TART2 STASIGN,X;ANFANGSBUCHSTABE DES MEN
UES.WY.. TYA;Y=POSITION VON 1.NICHTSPACE
.}Y.. STASTART,X;=STARTCOL FUER INVERT..
Y$.START3 LDA(STRPOS),Y;NUN ALLE..Y.. CM
P#" ";NICHTSPACES.RY8. BEQSTART4;UEBERLE
SEN..YB. INY;JEDOCH NUR, WENN..ZL. CPYST
RLEN;STRINGLAENGE NOCH.1ZV. BCCSTART3;NI
CHT UEBERSCHRITTEN.7Z`.;.`ZJ.START4 TYA;
INVERTIERBREITE STEHT NUN.}ZT. SEC;FEST:
INVERTBREITE=..Z~. SBCSTART,X;Y-STARTCO
L.GZ.. STALENGTH,X;ERGEBNIS IN TABELLE S
PEICHERN.MZ..;..Z.. DECSTART,X..Z.. DECS
TART,X..Z..;..Z.. INX..[D. INY;WEITER, W
ENN ENDE DES.D[N. CPYSTRLEN;LEISTENSTRIN
GS NOCH NICHT._[X. BCCSTART1;ERREICHT =>
.E[..;..[..START5 STXMZAHL;MENUEANZAHL S
PEICHERN..[..;..[..;..[..;.H[..;***** WI
NDOWPARAMETER HOLEN *****..[.. JSRCHKKOM
;POINTER AUF DESCRIPTOREN..\(. JSRGETPOS
;DES 1.MENUESTRINGS HOLEN.=\2. STAINDIZ;
UND DESCRITOREN SELBST.H\<. STYINDIZ+1;N
ACH 'STRLEN','STRPOS(+1)'..\F. JSRHOLDES
;SCHAFFEN..\P.;..\Z. LDX#255;X INITIALIS
IEREN..\D. BNEPAR5;IMMER !!!.A\N.;..\X.P
AR1 LDA#0;STRINGZAEHLER..\.. STACNTI;INI
TIALISIEREN..]..;./]..PAR2 LDY#0;POINTER
AUF STRINGZEICHEN INIT..P] .PAR3 LDA(ST
RPOS),Y;AKTUELLES.R].. CMP#" ";STRINGZEI
CHEN=SPACE?..].. BEQPAR4;JA =>..]..;..]H
. JSRNEXTSTR;NAECHSTEN STRING.N]R. JSRHO
LDES;DESCRIPTOREN HOLEN..].. INCCNTI;STR
INGZAEHLER INKREM...^.. BNEPAR2;IMMER !!
!..^..;.2^..PAR4 INY;ZEICHENPOINTER INKR
EM..V^.. CPYSTRLEN;STRINGENDE ERREICHT?.
K^.. BCCPAR3;NEIN =>.Q^..;..^". LDACNTI;
LAENGE DES AKTUELLEN..^,. STAWLAENGE,X;W
INDOWS IN TABELLE..^6.;..^@.PAR5 INX;BRE
ITE DES AKTUELLEN.._J. LDASTRLEN;WINDOWS
EBENFALLS.%_T. STAWBREITE,X;IN TABELLE
MERKEN.+_^.;.G_H. JSRNEXTSTR;NEXT STRING
.I_R. JSRHOLDES;DESCRIPTOREN HOLEN.._|.
LDAINDIZ;ADRESSE DER DESCRIPTOREN.._.. S
TAWPOILOW,X;IN TABELLE MERKEN.D_.. LDAIN
DIZ+1.W_.. STAWPOIHIGH,X.._..;.._.. CPXM
ZAHL;ALLE MENUES DURCH?..`.. BCCPAR1;NEI
N =>..`B.;..`L.;.%`V.;.F`..;***** INITIA
LISIERUNG *****.``.. LDA#19;'CURSOR HOME
'.W`.. JSRBSOUT;AUSGEBEN.}`..;..`.. PLA;
DESCRIPTOREN DES..`.. STASTRPOS+1;LEISTE
NSTRINGS.F`.. PLA;HOLEN.U`&. STASTRPOS..
`0. PLA..`:. STASTRLEN..`D.;..AN. LDY#0;
LEISTENSTRING AUSGEBEN.-AX.INIT1 LDA(STR
POS),Y.;AB. JSRBSOUT.DAL. INY.SAV. CPYST
RLEN.AA.. BCCINIT1.GA..;.A.. LDX#0;MENU
EZAEHLER..A.. STXMCOUNT;INITIALISIEREN..
A..;..A..;..A..;.NAF.;***** MENUE-AUSGAB
E *****..AP.AUSGABE JSRLIESGR;UNTERGRUND
RETTEN..BZ. JSRMINVERT;MENUENAME INVERT
IEREN.:B.. JSRMPRINT;MENUE AUSGEBEN.AB..
LDA#255;MENUEPUNKT INITIALISIEREN..B..
STAPOINT;(255=KEIN PUNKT ANGEWAEHLT)..B.
. JMPDOWN1;CURSOR DOWN SIMULIEREN..B..;.
.B..;.BB .;..B*.;***** TASTATUR ABFRAGEN
*****..C4.GET JSRGETIN;AUF TASTE..C>. B
EQGET;WARTEN..CH.;.>CR. LDX#4;CURSOR- OD
ER RETURN-TASTE.[C\.GET1 CMPKEY,X;GEDRUE
CKT?.NCF. BEQGET2;JA =>..CP. DEX;ANSONST
EN ZUM..CZ. BPLGET1;TEIL 'DIREKTANWAHL'.
.C.. BMIDIREKT..C..;.VC..GET2 TXA;ZAEHLE
R MIT 2..C.. ASL;MULTIPLIZIEREN..D.. TAX
;ERGIBT ZEIGER AUF.%D.. LDATAB,X;SPRUNGT
ABELLE.AD.. STAVEKTOR;POINTER FUER.BDJ.
LDATAB+1,X;INIREKTEN SPRUNG.|DT. STAVEKT
OR+1;ERZEUGEN..D.. JMP(VEKTOR);JMP INDIR
EKT. D..;..D..;..D..;.KD..;***** DIREKTA
NWAHL? *****..D..DIREKT CMP#192;SHIFT-TA
STENKOMBINATION?..E.. PHP..E$. ORA#128..
E.. STAZEICHEN.&E8. PLP.=EB. BCCDIREKT2;
NEIN=>.CEL.;.KEV. LDXMZAHL;UND MIT ANFAN
GSBUCHSTABEN..E`. DEX;DER MENUENAMEN..EJ
.DIREKT1 CMPSIGN,X;VERGLEICHEN..ET. BEQM
ENUE;GLEICH =>.FE~. DEX.VE.. BPLDIREKT1.
.E.. BMIGET;FALSCHER BUCHSTABE =>..E..;.
.F..MENUE TXA;X (ZEIGER AUF.8F.. PHA;MEN
UE-COMAND) RETTEN.]F.. JSRHOLGR;ALTEN UN
TERGRUND HOLEN..FD. JSRMNORMAL;ALTEN MEN
UENAMEN NORMALISIEREN..FN. PLA;X WIEDERH
OLEN UND.OFX. TAX;NACH 'CRS.LEFT/RIGHT'
SPRINGEN..F.. JMPMOKAY;IMMER !!!..F..;..
G..DIREKT2 LDXMCOUNT;POINTER AUF 1.STRIN
G.8G.. LDAWPOILOW,X;DES AKTUELLEN.RG.. S
TAINDIZ;MENUES NACH.QG.. LDAWPOIHIGH,X;'
INDIZ(+1)'..G.. STAINDIZ+1;HOLEN..G(.;..
G2. LDA#0;ZAEHLER INTIALISIEREN..G<.DIRE
KT3 TAX..GF. JSRHOLDES;DESCRIPTOREN HOLE
N..HP.DIREKT5 INY;TASTE MIT DEN ANFANGS-
.0HZ. LDA(STRPOS),Y;BUCHSTABEN DER MENUE
-.=HD. CMP#" ".MHN. BEQDIREKT5.QHX. CMPZ
EICHEN;STRINGS VERGLEICHEN..H.. BEQDIREK
T4;GLEICH =>..H.. JSRNEXTSTR;SONST NEXT
STRING.HH.. INX;UNTERSUCHEN, WENN..H . T
XA;LETZTER MENUE-..I.. LDXMCOUNT;STRING
NOCH NICHT.#I.. CMPWLAENGE,X;BEHANDELT W
URDE.3I.. BCCDIREKT3.EIH. BCSGET;BUCHSTA
BE NICHT IM MENUE VORHANDEN =>.KIR.;..I.
.DIREKT4 STXPOINT;MENUEPUNKT RETTEN..I..
;..I..;..I..;.LI..;***** ZURUECK NACH BA
SIC !!! *****..I..RETURN JSRCHKKOM..I..
JSRGETPOS..I". STAINDIZ..J,. STYINDIZ+1.
.J6. JSRCHKKOM.,J@. JSRGETPOS.;JJ. STAIN
DIZ1.LJT. STYINDIZ1+1.RJ^.;._JH. LDA#$00
.HJR. TAY.ZJ|. STA(INDIZ),Y..J.. STA(IND
IZ1),Y..J.. INY..J.. LDAMCOUNT..J.. STA(
INDIZ),Y.EJ.. LDAPOINT.XJ.. STA(INDIZ1),
Y..JB.;..KL. JSRMNORMAL;MENUENAME NORMAL
ISIEREN.?KV. JMPHOLGR;UNTERGRUND HOLEN +
RTS !!! => BASIC !!!!!!.EK..;.KK..;.QK.
.;.YK..;***** CURSORTASTEN BEHANDELN ***
**..K. RIGHT JSRHOLGR;UNTERGRUND HOLEN.E
K. JSRMNORMAL;MENUENAME NORMALISIEREN..
K. LDXMCOUNT;WENN BEREITS LETZTES..L&
INX;MENUE ERREICHT: ZAEHLER.+L0 CPXMZAH
L;AUF 1.MENUE, SONST.IL: BCCMOKAY;ZAEHL
ER INKREM..TLD LDX#0.LLN BEQMOKAY;IMME
R !!!.RLX ;..LB LEFT JSRHOLGR;UNTERGRUND
HOLEN..LL JSRMNORMAL;MENUENAME NORMALI
SIEREN..LV LDXMCOUNT;WENN ZAEHLER BEREI
TS..L. DEX;AUF 1.MENUE: ZAEHLER..M. CP
X#255;AUF LAST MENUE,.8M. BNEMOKAY;SONS
T ZAEHLER.NM. LDXMZAHL;DEKREM..WM. DEX
.]M. ;..M. MOKAY STXMCOUNT;MENUENUMMER R
ETTEN..MF JMPAUSGABE;MENUE AUSGEBEN + R
TS !!!..MP ;..MZ DOWN LDAPOINT;NAECHSTES
MENUE, WENN..M. BMIDOWN1;LETZTES MENUE
NICHT.!N. JSRCOMNORMAL;BEREITS ERREICH
T,.BN. DOWN1 INCPOINT;SONST 1.MENUE.QN.!
LDXMCOUNT._N.! LDAPOINT.QN.! CMPWLAENGE
,X.N ! BCCDOWN2..N*! LDA#0..N4! STAPOIN
T.PN>!DOWN2 JSRCOMINVERT;AKTUELLEN MENUE
PUNKT INVERTIEREN..NH!DOWN3 JMPGET;=> EI
NGABESCHLEIFE..NR!;..O\!UP LDAPOINT;VORI
GER MENUEPUNKT,.DOF! BMIDOWN3;WENN 1.MEN
UEPUNKT NICHT.HOP! JSRCOMNORMAL;BEREITS
ERREICHT,..OZ! LDAPOINT;SONST LAST MENUE
PUNKT..O.! BNEUP1..O.! LDXMCOUNT..O.! LD
AWLAENGE,X.GO.! STAPOINT.XO.!UP1 DECPOIN
T..O.! JMPDOWN2;WEITER WIE BEI 'DOWN'..P
.!;..PJ!;..PT!;.8P.!;***** MENUEPUNKT IN
VERT./NORMAL*****.[P.!COMNORMAL LDA#1;NO
RMALISIEREN:.NP.! .BY$2C;FLAG=0..P.!COMI
NVERT LDA#0;INVERTIEREN:..P." STAFLAG;FL
AG=1..P."COM1 LDA#2.NP." CLC;INVERTIERPA
RAMETER..P$" ADCPOINT;(LINE,COL,BREITE,.
.Q." STALINE;LAENGE) FUER DEN.,Q8" LDXMC
OUNT;AKTUELLEN MENUE-.MQB" LDASTART,X;PU
NKT SETZEN UND.HQL" STACOL;DIE INVERTIER
-..QV" INCCOL;ROUTINE AUFRUFEN..Q`" LDAW
BREITE,X..QJ" STABREITE..QT" LDA#1..Q~"
STALAENGE.WQ." JMPINVJSR;RTS !!!..Q.";..
Q.";..Q.";..R.";***** MENUENAME INVERT/N
ORMALIS*****.4R."MNORMAL LDA#1;NORMALISI
EREN:.GRD" .BY$2C;FLAG=0.FRN"MINVERT LDA
#0;INVERTIEREN:.ZRX" STAFLAG;FLAG=1..R."
MNOR LDX#0..R." STXLINE;INVERTIERPARAMET
ER.ER." INX;UEBERGEBEN (ZEILE,..R.# STXL
AENGE;LAENGE,FLAG SIND FEST)..R.#;..S.#
LDXMCOUNT;STARTSPAALTE UND.1S.# LDASTART
,X;INVERTIERBREITE.7S(#;.@S2# CLC.KS<# A
DC#2.QSF#;.GSP# STACOL;BESTIMMEN..SZ# LD
ALENGTH,X;UND INVERTIERROUTINE..SD# STAB
REITE;AUFRUFEN..SN#;.BSX# JMPINVJSR;RTS
!!!.HS.#;.NS.#;.TS.#;..S #;***** MENUE A
USGEBEN *****..T.#MPRINT JSRWPARAM;POINT
ER AUF 1.MENUE-.FT.# LDAWPOILOW,X;STRING
UEBERGEBEN UND.MT.# LDYWPOIHIGH,X;MALRO
UTINE AUFRUFEN..TH# JMPWINJSR;RTS !!!..T
R#;..T.#;..T.#;..T.#;***** UNTERGRUND RE
TTEN/HOLEN *****.PT.#LIESGR LDA#0..T.$ .
BY$2C..T.$HOLGR LDA#1..T.$ STAFLAG.#U"$L
IES1 JSRWPARAM;WINDOWPARAMETER HOLEN.IU,
$ JMPPUFFERJSR;EINSPRUNG + RTS !!!.OU6$;
.UU@$;.[UJ$;..UT$;***** WINDOWPARAM. UEB
ERGEBEN *****..U^$WPARAM LDXMCOUNT;UEBER
'MCOUNT'.MUH$ LDASTART,X;(=AKTUELLE MEN
UENR.)..UR$ STACOL;WERDEN DIE PARAMETER.
.V|$ LDA#1;DES AKTUELLEN.$V.$ STALINE;WI
NDOWS AUS DEN.IV.$ LDAWBREITE,X;TABELLEN
ERMITTELT.DV.$ CLC;(COL,LINE,BREITE,.WV
.$ ADC#2;LAENGE)..V.$ STABREITE..V.$ LDA
WLAENGE,X..VB$ CLC..VL$ ADC#2..VV$ STALA
ENGE.DV.$ RTS.JV.$;.PV.$;.VV.$;..V.%;***
** KOMMANDO-TASTEN *****..W.%KEY .BY29;C
RS.RIGHT..W.% .BY157./W&% .BY17;CRS.DOWN
.BW0% .BY145;CRS.UP.TW:% .BY13;RETURN.ZW
D%;.`WN%;.FWX%;..WB%;***** SPRUNGTABELLE
*****..WL%TAB .WORIGHT..WV% .WOLEFT..W.
% .WODOWN..W.% .WOUP.JW.% .WORETURN.PW.%
;.VW.%;..W.%;..X.%;***** WINDOWPARAM.-TA
BELLEN *****."XF%START .BY1,2,3,4,5,6,7,
8,9.BXP%LENGTH .BY1,2,3,4,5,6,7,8,9.`XZ%
SIGN .BY1,2,3,4,5,6,7,8,9..X.%WBREITE .B
Y1,2,3,4,5,6,7,8,9..X.%WLAENGE .BY1,2,3,
4,5,6,7,8,9.CX.%WPOILOW .BY1,2,3,4,5,6,7
,8,9..X.&WPOIHIGH .BY1,2,3,4,5,6,7,8,9..
X.&.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL