Multiple names: PULL-DOWN.SRC, WINDOWING.SRC
FILE INFORMATION
FILENAME(S):
• PULL-DOWN.SRC<br>• WINDOWING.SRC
FILE TYPE(S): PRG
FILE SIZE: 22.2K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 4 disk(s)
FILE HASH
abc8a7201284fce540cdcf474d720edd9170cf0c4254c1a23ca2e5a3e015741a
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10711 11 87 | PULL-DOWN.SRC | PRG | Treasure Chest - Spook | 26 | 2 | DOWNLOAD FILE |
| 10711 11 87 | PULL-DOWN.SRC | PRG | C64er | 26 | 2 | DOWNLOAD FILE |
| 10709 9 87 | WINDOWING.SRC | PRG | C64er | 5 | 5 | DOWNLOAD FILE |
| 10711 11 87 | PULL-DOWN.SRC | PRG | DuncanTwain | 26 | 2 | 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 A3 22 40 01 3B 00 A9 22 4A | $0286.."@.;.."J|
000002D0: 01 3B 00 CD 22 54 01 3B 2A 2A 2A 20 4C 41 42 45 |.;.."T.;*** LABE|
000002E0: 4C 3A 20 50 52 4F 47 52 41 4D 4D 4D 49 4E 54 45 |L: PROGRAMMMINTE|
000002F0: 52 4E 20 2A 2A 2A 00 E3 22 5E 01 2E 45 51 20 4E |RN ***.."^..EQ N|
00000300: 45 57 43 4F 4C 4F 52 20 20 3D 20 31 00 1F 23 68 |EWCOLOR = 1..#h|
00000310: 01 2E 45 51 20 50 41 52 42 41 43 4B 20 20 3D 20 |..EQ PARBACK = |
00000320: 24 41 37 20 20 20 20 20 20 3B 41 55 53 57 41 48 |$A7 ;AUSWAH|
00000330: 4C 52 55 45 43 4B 55 45 42 45 52 47 41 42 45 20 |LRUECKUEBERGABE |
00000340: 41 4E 20 42 41 53 49 43 00 5E 23 72 01 2E 45 51 |AN BASIC.^#r..EQ|
00000350: 20 49 4E 44 49 5A 20 20 20 20 3D 20 24 41 39 20 | INDIZ = $A9 |
00000360: 20 20 20 20 20 3B 50 4F 49 4E 54 45 52 20 46 2E | ;POINTER F.|
00000370: 49 4E 44 49 5A 49 45 52 54 45 20 41 44 52 45 53 |INDIZIERTE ADRES|
00000380: 53 49 45 52 55 4E 47 00 9D 23 7C 01 2E 45 51 20 |SIERUNG..#|..EQ |
00000390: 49 4E 44 49 5A 31 20 20 20 3D 20 24 41 42 20 20 |INDIZ1 = $AB |
000003A0: 20 20 20 20 3B 50 4F 49 4E 54 45 52 20 46 2E 49 | ;POINTER F.I|
000003B0: 4E 44 49 5A 49 45 52 54 45 20 41 44 52 45 53 53 |NDIZIERTE ADRESS|
000003C0: 49 45 52 55 4E 47 00 E8 23 86 01 2E 45 51 20 53 |IERUNG..#...EQ S|
000003D0: 54 52 4C 45 4E 20 20 20 3D 20 24 41 44 20 20 20 |TRLEN = $AD |
000003E0: 20 20 20 3B 4C 41 45 4E 47 45 20 44 45 52 20 56 | ;LAENGE DER V|
000003F0: 4F 4E 20 42 41 53 49 43 20 55 45 42 45 52 47 45 |ON BASIC UEBERGE|
00000400: 42 2E 53 54 52 49 4E 47 56 41 52 49 41 42 4C 45 |B.STRINGVARIABLE|
00000410: 4E 00 29 24 90 01 2E 45 51 20 53 54 52 50 4F 53 |N.)$...EQ STRPOS|
00000420: 20 20 20 3D 20 24 41 45 20 20 20 20 20 20 3B 50 | = $AE ;P|
00000430: 4F 49 4E 54 45 52 20 41 55 46 20 55 45 42 45 52 |OINTER AUF UEBER|
00000440: 47 45 42 2E 53 54 52 49 4E 47 56 41 52 49 41 42 |GEB.STRINGVARIAB|
00000450: 4C 45 00 40 24 9A 01 2E 45 51 20 50 41 49 4E 54 |LE.@$...EQ PAINT|
00000460: 50 20 20 20 3D 20 24 42 34 00 59 24 A4 01 2E 45 |P = $B4.Y$...E|
00000470: 51 20 48 45 4C 50 20 20 20 20 20 3D 20 24 30 33 |Q HELP = $03|
00000480: 33 34 00 7E 24 AE 01 2E 45 51 20 43 4E 54 49 20 |34.~$...EQ CNTI |
00000490: 20 20 20 20 3D 20 48 45 4C 50 2B 32 20 20 20 3B | = HELP+2 ;|
000004A0: 5A 41 45 48 4C 45 52 00 A3 24 B8 01 2E 45 51 20 |ZAEHLER..$...EQ |
000004B0: 43 4E 54 4A 20 20 20 20 20 3D 20 43 4E 54 49 2B |CNTJ = CNTI+|
000004C0: 31 20 20 20 3B 5A 41 45 48 4C 45 52 00 CE 24 C2 |1 ;ZAEHLER..$.|
000004D0: 01 2E 45 51 20 43 4F 4C 20 20 20 20 20 20 3D 20 |..EQ COL = |
000004E0: 43 4E 54 4A 2B 31 20 20 20 3B 53 50 41 4C 54 45 |CNTJ+1 ;SPALTE|
000004F0: 20 4D 45 52 4B 45 4E 00 F8 24 CC 01 2E 45 51 20 | MERKEN..$...EQ |
00000500: 4C 49 4E 45 20 20 20 20 20 3D 20 43 4F 4C 2B 31 |LINE = COL+1|
00000510: 20 20 20 20 3B 5A 45 49 4C 45 20 4D 45 52 4B 45 | ;ZEILE MERKE|
00000520: 4E 00 2B 25 D6 01 2E 45 51 20 42 52 45 49 54 45 |N.+%...EQ BREITE|
00000530: 20 20 20 3D 20 4C 49 4E 45 2B 31 20 20 20 3B 52 | = LINE+1 ;R|
00000540: 45 43 48 54 45 43 4B 42 52 45 49 54 45 20 4D 45 |ECHTECKBREITE ME|
00000550: 52 4B 45 4E 00 5E 25 E0 01 2E 45 51 20 4C 41 45 |RKEN.^%...EQ LAE|
00000560: 4E 47 45 20 20 20 3D 20 42 52 45 49 54 45 2B 31 |NGE = BREITE+1|
00000570: 20 3B 52 45 43 48 54 45 43 4B 4C 41 45 4E 47 45 | ;RECHTECKLAENGE|
00000580: 20 4D 45 52 4B 45 4E 00 7A 25 EA 01 2E 45 51 20 | MERKEN.z%...EQ |
00000590: 46 4C 41 47 20 20 20 20 20 3D 20 4C 41 45 4E 47 |FLAG = LAENG|
000005A0: 45 2B 31 00 B6 25 F4 01 2E 45 51 20 50 55 46 4E |E+1..%...EQ PUFN|
000005B0: 52 20 20 20 20 3D 20 46 4C 41 47 2B 31 20 20 20 |R = FLAG+1 |
000005C0: 3B 4E 52 2E 44 45 53 20 41 4E 5A 55 53 50 52 45 |;NR.DES ANZUSPRE|
000005D0: 43 48 45 4E 44 45 4E 20 50 55 46 46 45 52 53 00 |CHENDEN PUFFERS.|
000005E0: D1 25 FE 01 2E 45 51 20 52 4F 55 54 49 4E 20 20 |.%...EQ ROUTIN |
000005F0: 20 3D 20 50 55 46 4E 52 2B 32 00 D7 25 08 02 3B | = PUFNR+2..%..;|
00000600: 00 DD 25 12 02 3B 00 E3 25 1C 02 3B 00 08 26 26 |..%..;..%..;..&&|
00000610: 02 3B 2A 2A 2A 20 4C 41 42 45 4C 53 20 46 2E 50 |.;*** LABELS F.P|
00000620: 55 46 46 45 52 2D 52 4F 55 54 49 4E 45 20 2A 2A |UFFER-ROUTINE **|
00000630: 2A 00 3A 26 30 02 2E 45 51 20 53 43 52 45 45 4E |*.:&0..EQ SCREEN|
00000640: 50 20 20 3D 20 49 4E 44 49 5A 20 20 3B 50 4F 49 |P = INDIZ ;POI|
00000650: 4E 54 45 52 20 41 55 46 20 42 49 4C 44 53 43 48 |NTER AUF BILDSCH|
00000660: 49 52 4D 00 68 26 3A 02 2E 45 51 20 50 55 46 46 |IRM.h&:..EQ PUFF|
00000670: 45 52 50 20 20 3D 20 49 4E 44 49 5A 31 20 3B 50 |ERP = INDIZ1 ;P|
00000680: 4F 49 4E 54 45 52 20 41 55 46 20 50 55 46 46 45 |OINTER AUF PUFFE|
00000690: 52 00 B2 26 44 02 2E 45 51 20 50 55 46 50 4F 49 |R..&D..EQ PUFPOI|
000006A0: 20 20 20 3D 20 24 30 32 39 33 20 20 3B 54 41 42 | = $0293 ;TAB|
000006B0: 45 4C 4C 45 20 4D 49 54 20 53 54 41 52 54 41 44 |ELLE MIT STARTAD|
000006C0: 52 45 53 53 45 4E 20 44 45 52 20 41 4B 54 55 45 |RESSEN DER AKTUE|
000006D0: 4C 4C 45 4E 20 50 55 46 46 45 52 00 DA 26 4E 02 |LLEN PUFFER..&N.|
000006E0: 2E 45 51 20 50 55 46 53 54 41 52 54 20 3D 20 24 |.EQ PUFSTART = $|
000006F0: 46 30 30 30 20 20 3B 50 55 46 46 45 52 41 4E 46 |F000 ;PUFFERANF|
00000700: 41 4E 47 00 19 27 58 02 2E 45 51 20 49 4E 54 43 |ANG..'X..EQ INTC|
00000710: 54 52 4C 20 20 3D 20 24 44 43 30 45 20 20 3B 56 |TRL = $DC0E ;V|
00000720: 49 43 2D 52 45 47 49 53 54 45 52 20 5A 55 52 20 |IC-REGISTER ZUR |
00000730: 49 4E 54 45 52 52 55 50 54 4B 4F 4E 54 52 4F 4C |INTERRUPTKONTROL|
00000740: 4C 45 00 40 27 62 02 2E 45 51 20 43 52 53 4C 49 |LE.@'b..EQ CRSLI|
00000750: 4E 45 20 20 3D 20 32 31 34 20 20 20 20 3B 43 55 |NE = 214 ;CU|
00000760: 52 53 4F 52 5A 45 49 4C 45 00 80 27 6C 02 2E 45 |RSORZEILE..'l..E|
00000770: 51 20 4C 49 4E 45 50 4F 49 20 20 3D 20 24 46 42 |Q LINEPOI = $FB|
00000780: 20 20 20 20 3B 45 43 48 54 45 52 20 28 21 21 21 | ;ECHTER (!!!|
00000790: 29 20 50 4F 49 4E 54 45 52 20 41 55 46 20 43 55 |) POINTER AUF CU|
000007A0: 52 53 4F 52 5A 45 49 4C 45 00 86 27 76 02 3B 00 |RSORZEILE..'v.;.|
000007B0: 8C 27 80 02 3B 00 92 27 8A 02 3B 00 AF 27 94 02 |.'..;..'..;..'..|
000007C0: 2E 42 41 20 24 43 31 41 30 20 3B 50 52 4F 47 52 |.BA $C1A0 ;PROGR|
000007D0: 41 4D 4D 53 54 41 52 54 00 B5 27 9E 02 3B 00 BB |AMMSTART..'..;..|
000007E0: 27 A8 02 3B 00 C1 27 B2 02 3B 00 DE 27 BC 02 3B |'..;..'..;..'..;|
000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000800: 2A 2A 2A 2A 2A 2A 2A 00 FB 27 C6 02 3B 2A 2A 2A |*******..'..;***|
00000810: 20 53 50 52 55 4E 47 56 45 52 54 45 49 4C 45 52 | SPRUNGVERTEILER|
00000820: 20 2A 2A 2A 00 18 28 D0 02 3B 2A 2A 2A 2A 2A 2A | ***..(..;******|
00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000840: 2A 00 29 28 DA 02 20 4A 4D 50 50 55 46 46 49 4E |*.)(.. JMPPUFFIN|
00000850: 49 54 00 38 28 E4 02 20 4A 4D 50 57 49 4E 44 4F |IT.8(.. JMPWINDO|
00000860: 57 00 47 28 EE 02 20 4A 4D 50 50 55 46 46 45 52 |W.G(.. JMPPUFFER|
00000870: 00 56 28 F8 02 20 4A 4D 50 49 4E 56 45 52 54 00 |.V(.. JMPINVERT.|
00000880: 64 28 02 03 20 4A 4D 50 43 4E 54 52 4C 00 8B 28 |d(.. JMPCNTRL..(|
00000890: 0C 03 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008B0: 2A 2A 2A 2A 00 91 28 16 03 3B 00 97 28 20 03 3B |****..(..;..( .;|
000008C0: 00 9D 28 2A 03 3B 00 C0 28 34 03 3B 2A 2A 2A 2A |..(*.;..(4.;****|
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E3 28 3E 03 3B 2A |*********..(>.;*|
000008F0: 2A 2A 20 47 45 4D 45 49 4E 53 41 4D 45 20 55 4E |** GEMEINSAME UN|
00000900: 54 45 52 50 52 4F 47 53 20 2A 2A 2A 00 06 29 48 |TERPROGS ***..)H|
00000910: 03 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000930: 0C 29 52 03 3B 00 33 29 5C 03 3B 2A 2A 2A 2A 2A |.)R.;.3)\.;*****|
00000940: 20 4C 49 4E 45 50 4F 49 4E 54 45 52 20 42 45 52 | LINEPOINTER BER|
00000950: 45 43 48 4E 45 4E 20 2A 2A 2A 2A 2A 00 45 29 66 |ECHNEN *****.E)f|
00000960: 03 4C 49 4E 45 50 54 52 20 4C 44 41 23 30 00 54 |.LINEPTR LDA#0.T|
00000970: 29 70 03 20 4C 44 58 53 43 52 45 45 4E 00 64 29 |)p. LDXSCREEN.d)|
00000980: 7A 03 20 53 54 41 4C 49 4E 45 50 4F 49 00 76 29 |z. STALINEPOI.v)|
00000990: 84 03 20 53 54 58 4C 49 4E 45 50 4F 49 2B 31 00 |.. STXLINEPOI+1.|
000009A0: 7C 29 8E 03 3B 00 8C 29 98 03 20 4C 44 58 43 52 ||)..;..).. LDXCR|
000009B0: 53 4C 49 4E 45 00 9D 29 A2 03 20 42 45 51 4C 49 |SLINE..).. BEQLI|
000009C0: 4E 45 50 54 52 33 00 B5 29 AC 03 4C 49 4E 45 50 |NEPTR3..)..LINEP|
000009D0: 54 52 31 20 4C 44 41 4C 49 4E 45 50 4F 49 00 BE |TR1 LDALINEPOI..|
000009E0: 29 B6 03 20 43 4C 43 00 CA 29 C0 03 20 41 44 43 |).. CLC..).. ADC|
000009F0: 23 34 30 00 DA 29 CA 03 20 53 54 41 4C 49 4E 45 |#40..).. STALINE|
00000A00: 50 4F 49 00 EB 29 D4 03 20 42 43 43 4C 49 4E 45 |POI..).. BCCLINE|
00000A10: 50 54 52 32 00 FD 29 DE 03 20 49 4E 43 4C 49 4E |PTR2..).. INCLIN|
00000A20: 45 50 4F 49 2B 31 00 0E 2A E8 03 4C 49 4E 45 50 |EPOI+1..*..LINEP|
00000A30: 54 52 32 20 44 45 58 00 1F 2A F2 03 20 42 4E 45 |TR2 DEX..*.. BNE|
00000A40: 4C 49 4E 45 50 54 52 31 00 30 2A FC 03 4C 49 4E |LINEPTR1.0*..LIN|
00000A50: 45 50 54 52 33 20 52 54 53 00 36 2A 06 04 3B 00 |EPTR3 RTS.6*..;.|
00000A60: 3C 2A 10 04 3B 00 42 2A 1A 04 3B 00 6C 2A 24 04 |<*..;.B*..;.l*$.|
00000A70: 3B 2A 2A 2A 20 50 41 49 4E 54 50 20 41 55 53 20 |;*** PAINTP AUS |
00000A80: 53 43 52 45 45 4E 50 20 42 45 52 45 43 48 4E 45 |SCREENP BERECHNE|
00000A90: 4E 20 2A 2A 2A 00 72 2A 2E 04 3B 00 8A 2A 38 04 |N ***.r*..;..*8.|
00000AA0: 50 41 49 4E 54 50 54 52 20 4C 44 41 53 43 52 45 |PAINTPTR LDASCRE|
00000AB0: 45 4E 50 00 99 2A 42 04 20 53 54 41 50 41 49 4E |ENP..*B. STAPAIN|
00000AC0: 54 50 00 AB 2A 4C 04 20 4C 44 41 53 43 52 45 45 |TP..*L. LDASCREE|
00000AD0: 4E 50 2B 31 00 B8 2A 56 04 20 41 4E 44 23 24 30 |NP+1..*V. AND#$0|
00000AE0: 33 00 CA 2A 60 04 20 4F 52 41 23 3E 28 50 41 49 |3..*`. ORA#>(PAI|
00000AF0: 4E 54 29 00 DB 2A 6A 04 20 53 54 41 50 41 49 4E |NT)..*j. STAPAIN|
00000B00: 54 50 2B 31 00 E4 2A 74 04 20 52 54 53 00 EA 2A |TP+1..*t. RTS..*|
00000B10: 7E 04 3B 00 F0 2A 88 04 3B 00 F6 2A 92 04 3B 00 |~.;..*..;..*..;.|
00000B20: 17 2B 9C 04 3B 2A 2A 2A 2A 2A 20 50 41 52 41 4D |.+..;***** PARAM|
00000B30: 45 54 45 52 20 4C 45 53 45 4E 20 2A 2A 2A 2A 2A |ETER LESEN *****|
00000B40: 00 39 2B A6 04 50 41 52 41 4D 20 53 54 41 43 4E |.9+..PARAM STACN|
00000B50: 54 49 3B 4C 49 45 53 54 20 42 45 4C 49 45 42 49 |TI;LIEST BELIEBI|
00000B60: 47 45 00 4E 2B B0 04 20 4C 44 58 23 30 3B 41 4E |GE.N+.. LDX#0;AN|
00000B70: 5A 41 48 4C 20 41 4E 00 70 2B BA 04 4C 45 53 45 |ZAHL AN.p+..LESE|
00000B80: 4E 20 53 54 58 43 4E 54 4A 3B 45 49 4E 2D 42 59 |N STXCNTJ;EIN-BY|
00000B90: 54 45 2D 57 45 52 54 45 4E 00 92 2B C4 04 20 4A |TE-WERTEN..+.. J|
00000BA0: 53 52 43 48 4B 4B 4F 4D 3B 41 55 53 20 44 45 4D |SRCHKKOM;AUS DEM|
00000BB0: 20 42 41 53 49 43 2D 54 45 58 54 00 AE 2B CE 04 | BASIC-TEXT..+..|
00000BC0: 20 4A 53 52 47 45 54 42 59 54 3B 55 4E 44 20 4C | JSRGETBYT;UND L|
00000BD0: 45 47 54 20 53 49 45 00 C4 2B D8 04 20 54 58 41 |EGT SIE..+.. TXA|
00000BE0: 3B 41 42 20 27 43 4F 4C 27 20 41 42 2E 00 D1 2B |;AB 'COL' AB...+|
00000BF0: E2 04 20 4C 44 58 43 4E 54 4A 00 DF 2B EC 04 20 |.. LDXCNTJ..+.. |
00000C00: 53 54 41 43 4F 4C 2C 58 00 E8 2B F6 04 20 49 4E |STACOL,X..+.. IN|
00000C10: 58 00 F5 2B 00 05 20 43 50 58 43 4E 54 49 00 03 |X..+.. CPXCNTI..|
00000C20: 2C 0A 05 20 42 4E 45 4C 45 53 45 4E 00 0C 2C 14 |,.. BNELESEN..,.|
00000C30: 05 20 52 54 53 00 12 2C 1E 05 3B 00 18 2C 28 05 |. RTS..,..;..,(.|
00000C40: 3B 00 1E 2C 32 05 3B 00 48 2C 3C 05 3B 2A 2A 2A |;..,2.;.H,<.;***|
00000C50: 2A 2A 20 53 54 52 49 4E 47 44 45 53 43 52 49 50 |** STRINGDESCRIP|
00000C60: 54 4F 52 45 4E 20 48 4F 4C 45 4E 20 2A 2A 2A 2A |TOREN HOLEN ****|
00000C70: 2A 00 6A 2C 46 05 48 4F 4C 44 45 53 20 4C 44 59 |*.j,F.HOLDES LDY|
00000C80: 23 32 3B 48 4F 4C 54 20 44 49 45 20 53 54 52 49 |#2;HOLT DIE STRI|
00000C90: 4E 47 2D 00 94 2C 50 05 48 4F 4C 44 45 53 31 20 |NG-..,P.HOLDES1 |
00000CA0: 4C 44 41 28 49 4E 44 49 5A 29 2C 59 3B 44 45 53 |LDA(INDIZ),Y;DES|
00000CB0: 43 52 49 50 54 4F 52 45 4E 20 44 45 52 00 BA 2C |CRIPTOREN DER..,|
00000CC0: 5A 05 20 53 54 41 53 54 52 4C 45 4E 2C 59 3B 55 |Z. STASTRLEN,Y;U|
00000CD0: 45 42 45 52 47 45 42 45 4E 45 4E 20 53 54 52 49 |EBERGEBENEN STRI|
00000CE0: 4E 47 2D 00 CD 2C 64 05 20 44 45 59 3B 56 41 52 |NG-..,d. DEY;VAR|
00000CF0: 49 41 42 4C 45 4E 00 F7 2C 6E 05 20 42 50 4C 48 |IABLEN..,n. BPLH|
00000D00: 4F 4C 44 45 53 31 3B 4C 41 45 4E 47 45 2F 50 4F |OLDES1;LAENGE/PO|
00000D10: 49 4E 54 45 52 20 41 55 46 20 53 54 52 49 4E 47 |INTER AUF STRING|
00000D20: 00 00 2D 78 05 20 52 54 53 00 06 2D 82 05 3B 00 |..-x. RTS..-..;.|
00000D30: 0C 2D 8C 05 3B 00 12 2D 96 05 3B 00 3A 2D A0 05 |.-..;..-..;.:-..|
00000D40: 3B 2A 2A 2A 2A 2A 20 49 4E 44 49 5A 28 2B 31 29 |;***** INDIZ(+1)|
00000D50: 3D 3E 4E 45 58 54 20 53 54 52 49 4E 47 20 2A 2A |=>NEXT STRING **|
00000D60: 2A 2A 2A 00 65 2D AA 05 4E 45 58 54 53 54 52 20 |***.e-..NEXTSTR |
00000D70: 4C 44 41 49 4E 44 49 5A 3B 45 52 48 4F 45 48 54 |LDAINDIZ;ERHOEHT|
00000D80: 20 45 49 4E 45 4E 20 50 4F 49 4E 54 45 52 00 85 | EINEN POINTER..|
00000D90: 2D B4 05 20 43 4C 43 3B 28 49 4E 20 27 49 4E 44 |-.. CLC;(IN 'IND|
00000DA0: 49 5A 27 29 20 41 55 46 20 45 49 4E 45 4E 00 A5 |IZ') AUF EINEN..|
00000DB0: 2D BE 05 20 41 44 43 23 33 3B 53 54 52 49 4E 47 |-.. ADC#3;STRING|
00000DC0: 44 45 53 43 52 49 50 54 4F 52 2C 20 53 4F 00 C7 |DESCRIPTOR, SO..|
00000DD0: 2D C8 05 20 53 54 41 49 4E 44 49 5A 3B 44 41 53 |-.. STAINDIZ;DAS|
00000DE0: 53 20 44 49 45 53 45 52 20 41 55 46 20 44 45 4E |S DIESER AUF DEN|
00000DF0: 00 EA 2D D2 05 20 42 43 43 4E 45 58 54 31 3B 4E |..-.. BCCNEXT1;N|
00000E00: 41 45 43 48 53 54 45 4E 20 44 45 53 43 52 49 50 |AECHSTEN DESCRIP|
00000E10: 54 4F 52 00 10 2E DC 05 20 49 4E 43 49 4E 44 49 |TOR..... INCINDI|
00000E20: 5A 2B 31 3B 57 45 49 53 54 20 28 49 4E 44 49 5A |Z+1;WEIST (INDIZ|
00000E30: 3D 49 4E 44 49 5A 2B 33 29 00 1E 2E E6 05 4E 45 |=INDIZ+3).....NE|
00000E40: 58 54 31 20 52 54 53 00 24 2E F0 05 3B 00 2A 2E |XT1 RTS.$...;.*.|
00000E50: FA 05 3B 00 30 2E 04 06 3B 00 54 2E 0E 06 3B 2A |..;.0...;.T...;*|
00000E60: 2A 2A 2A 2A 20 45 4E 44 5A 45 49 4C 45 20 42 45 |**** ENDZEILE BE|
00000E70: 52 45 43 48 4E 45 4E 20 2A 2A 2A 2A 2A 00 80 2E |RECHNEN *****...|
00000E80: 18 06 45 4E 44 5A 45 49 20 4C 44 41 4C 49 4E 45 |..ENDZEI LDALINE|
00000E90: 3B 42 45 52 45 43 48 4E 45 54 20 44 49 45 20 4E |;BERECHNET DIE N|
00000EA0: 55 4D 4D 45 52 20 44 45 52 00 A2 2E 22 06 20 43 |UMMER DER...". C|
00000EB0: 4C 43 3B 4C 45 54 5A 54 45 4E 20 5A 45 49 4C 45 |LC;LETZTEN ZEILE|
00000EC0: 20 44 45 53 20 41 4E 47 45 47 2E 00 C7 2E 2C 06 | DES ANGEG....,.|
00000ED0: 20 41 44 43 4C 41 45 4E 47 45 3B 52 45 43 48 54 | ADCLAENGE;RECHT|
00000EE0: 45 43 4B 53 20 28 4C 41 53 54 5A 45 49 4C 45 3D |ECKS (LASTZEILE=|
00000EF0: 00 E9 2E 36 06 20 53 54 41 4C 41 45 4E 47 45 3B |...6. STALAENGE;|
00000F00: 53 54 41 52 54 5A 45 49 4C 45 2B 4C 41 45 4E 47 |STARTZEILE+LAENG|
00000F10: 45 29 00 F2 2E 40 06 20 52 54 53 00 18 2F 4A 06 |E)...@. RTS../J.|
00000F20: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F40: 2A 00 1E 2F 54 06 3B 00 24 2F 5E 06 3B 00 2A 2F |*../T.;.$/^.;.*/|
00000F50: 68 06 3B 00 49 2F 72 06 3B 2A 2A 2A 2A 2A 2A 2A |h.;.I/r.;*******|
00000F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F70: 2A 2A 00 68 2F 7C 06 3B 2A 20 57 49 4E 44 4F 57 |**.h/|.;* WINDOW|
00000F80: 20 2B 20 49 4E 48 41 4C 54 20 4D 41 4C 45 4E 20 | + INHALT MALEN |
00000F90: 2A 00 87 2F 86 06 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*../..;*********|
00000FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FB0: 00 8D 2F 90 06 3B 00 B1 2F 9A 06 3B 41 55 46 52 |../..;../..;AUFR|
00000FC0: 55 46 3A 20 53 59 53 20 58 58 58 58 2C 53 50 41 |UF: SYS XXXX,SPA|
00000FD0: 4C 54 45 2C 5A 45 49 4C 45 2C 00 D2 2F A4 06 3B |LTE,ZEILE,../..;|
00000FE0: 20 20 20 20 20 20 20 20 42 52 45 49 54 45 2C 4C | BREITE,L|
00000FF0: 41 45 4E 47 45 2C 41 52 52 41 59 00 D8 2F AE 06 |AENGE,ARRAY../..|
00001000: 3B 00 FB 2F B8 06 3B 46 55 4E 4B 54 49 4F 4E 3A |;../..;FUNKTION:|
00001010: 20 4D 41 4C 54 20 45 49 4E 20 57 49 4E 44 4F 57 | MALT EIN WINDOW|
00001020: 20 44 45 52 00 1F 30 C2 06 3B 20 20 20 20 20 20 | DER..0..; |
00001030: 20 20 20 20 41 4E 47 45 47 45 42 45 4E 45 4E 20 | ANGEGEBENEN |
00001040: 20 47 52 4F 45 53 53 45 00 42 30 CC 06 3B 20 20 | GROESSE.B0..; |
00001050: 20 20 20 20 20 20 20 20 28 27 42 52 45 49 54 45 | ('BREITE|
00001060: 27 2C 27 4C 41 45 4E 47 45 27 29 00 68 30 D6 06 |','LAENGE').h0..|
00001070: 3B 20 20 20 20 20 20 20 20 20 20 41 42 20 44 45 |; AB DE|
00001080: 52 20 50 4F 53 49 54 2E 27 53 50 41 4C 54 45 27 |R POSIT.'SPALTE'|
00001090: 2F 00 8E 30 E0 06 3B 20 20 20 20 20 20 20 20 20 |/..0..; |
000010A0: 20 27 5A 45 49 4C 45 27 20 55 4E 44 20 46 55 45 | 'ZEILE' UND FUE|
000010B0: 4C 4C 54 20 44 49 45 00 B1 30 EA 06 3B 20 20 20 |LLT DIE..0..; |
000010C0: 20 20 20 20 20 20 20 49 4E 4E 45 4E 5A 45 49 4C | INNENZEIL|
000010D0: 45 4E 20 4D 49 54 20 44 45 4E 00 D7 30 F4 06 3B |EN MIT DEN..0..;|
000010E0: 20 20 20 20 20 20 20 20 20 20 41 4E 47 45 47 45 | ANGEGE|
000010F0: 42 2E 20 41 52 52 41 59 53 54 52 49 4E 47 53 2C |B. ARRAYSTRINGS,|
00001100: 00 FB 30 FE 06 3B 20 20 20 20 20 20 20 20 20 20 |..0..; |
00001110: 44 45 52 45 4E 20 41 4E 5A 41 48 4C 20 4D 49 4E |DEREN ANZAHL MIN|
00001120: 44 45 53 2D 00 20 31 08 07 3B 20 20 20 20 20 20 |DES-. 1..; |
00001130: 20 20 20 20 54 45 4E 53 20 45 42 45 4E 53 4F 20 | TENS EBENSO |
00001140: 47 52 4F 53 53 20 57 49 45 00 45 31 12 07 3B 20 |GROSS WIE.E1..; |
00001150: 20 20 20 20 20 20 20 20 20 44 49 45 20 41 4E 5A | DIE ANZ|
00001160: 41 48 4C 20 44 45 52 20 49 4E 4E 45 4E 2D 00 66 |AHL DER INNEN-.f|
00001170: 31 1C 07 3B 20 20 20 20 20 20 20 20 20 20 5A 45 |1..; ZE|
00001180: 49 4C 45 4E 20 53 45 49 4E 20 4D 55 53 53 2E 00 |ILEN SEIN MUSS..|
00001190: 6C 31 26 07 3B 00 90 31 30 07 3B 42 53 50 2E 3A |l1&.;..10.;BSP.:|
000011A0: 20 53 59 53 20 58 58 58 58 2C 32 2C 35 2C 31 30 | SYS XXXX,2,5,10|
000011B0: 2C 31 35 2C 41 24 28 32 29 00 B2 31 3A 07 3B 20 |,15,A$(2)..1:.; |
000011C0: 20 20 20 20 20 4D 41 4C 54 20 57 49 4E 44 4F 57 | MALT WINDOW|
000011D0: 20 4D 49 54 20 4C 49 4E 4B 45 52 00 D6 31 44 07 | MIT LINKER..1D.|
000011E0: 3B 20 20 20 20 20 20 45 43 4B 45 20 32 2F 35 2C |; ECKE 2/5,|
000011F0: 20 44 41 53 20 31 30 20 53 50 41 4C 54 45 4E 00 | DAS 10 SPALTEN.|
00001200: FA 31 4E 07 3B 20 20 20 20 20 20 42 52 45 49 54 |.1N.; BREIT|
00001210: 20 55 4E 44 20 31 35 20 5A 45 49 4C 45 4E 20 4C | UND 15 ZEILEN L|
00001220: 41 4E 47 00 1F 32 58 07 3B 20 20 20 20 20 20 49 |ANG..2X.; I|
00001230: 53 54 3B 20 44 49 45 20 49 4E 4E 45 4E 5A 45 49 |ST; DIE INNENZEI|
00001240: 4C 45 4E 20 57 45 52 2D 00 43 32 62 07 3B 20 20 |LEN WER-.C2b.; |
00001250: 20 20 20 20 44 45 4E 20 4D 49 54 20 27 41 24 28 | DEN MIT 'A$(|
00001260: 32 29 27 2D 27 41 24 28 31 35 29 27 00 57 32 6C |2)'-'A$(15)'.W2l|
00001270: 07 3B 20 20 20 20 20 20 47 45 46 55 45 4C 4C 54 |.; GEFUELLT|
00001280: 00 5D 32 76 07 3B 00 63 32 80 07 3B 00 86 32 8A |.]2v.;.c2..;..2.|
00001290: 07 57 49 4E 44 4F 57 20 4C 44 41 23 34 3B 34 20 |.WINDOW LDA#4;4 |
000012A0: 42 59 54 45 57 45 52 54 45 20 48 4F 4C 45 4E 00 |BYTEWERTE HOLEN.|
000012B0: 94 32 94 07 20 4A 53 52 50 41 52 41 4D 00 9A 32 |.2.. JSRPARAM..2|
000012C0: 9E 07 3B 00 BB 32 A8 07 20 4A 53 52 43 48 4B 4B |..;..2.. JSRCHKK|
000012D0: 4F 4D 3B 53 54 52 49 4E 47 44 45 53 43 52 52 49 |OM;STRINGDESCRRI|
000012E0: 50 54 4F 52 00 D0 32 B2 07 20 4A 53 52 47 45 54 |PTOR..2.. JSRGET|
000012F0: 50 4F 53 3B 48 4F 4C 45 4E 00 D6 32 BC 07 3B 00 |POS;HOLEN..2..;.|
00001300: FF 32 C6 07 57 49 4E 4A 53 52 20 53 54 41 49 4E |.2..WINJSR STAIN|
00001310: 44 49 5A 3B 55 4E 44 20 4E 41 43 48 20 27 49 4E |DIZ;UND NACH 'IN|
00001320: 44 49 5A 28 2B 31 29 27 00 18 33 D0 07 20 53 54 |DIZ(+1)'..3.. ST|
00001330: 59 49 4E 44 49 5A 2B 31 3B 53 43 48 41 46 46 45 |YINDIZ+1;SCHAFFE|
00001340: 4E 00 1E 33 DA 07 3B 00 40 33 E4 07 20 4A 53 52 |N..3..;.@3.. JSR|
00001350: 45 4E 44 5A 45 49 3B 4C 45 54 5A 54 45 20 57 49 |ENDZEI;LETZTE WI|
00001360: 4E 44 4F 57 5A 45 49 4C 45 00 59 33 EE 07 20 44 |NDOWZEILE.Y3.. D|
00001370: 45 43 4C 41 45 4E 47 45 3B 4B 4F 52 52 45 4B 54 |ECLAENGE;KORREKT|
00001380: 55 52 00 70 33 F8 07 20 44 45 43 42 52 45 49 54 |UR.p3.. DECBREIT|
00001390: 45 3B 4B 4F 52 52 45 4B 2D 00 83 33 02 08 20 44 |E;KORREK-..3.. D|
000013A0: 45 43 42 52 45 49 54 45 3B 54 55 52 00 89 33 0C |ECBREITE;TUR..3.|
000013B0: 08 3B 00 8F 33 16 08 3B 00 95 33 20 08 3B 00 A3 |.;..3..;..3 .;..|
000013C0: 33 2A 08 20 4C 44 41 43 4F 4C 4F 52 00 AC 33 34 |3*. LDACOLOR..34|
000013D0: 08 20 50 48 41 00 BE 33 3E 08 20 4C 44 41 23 4E |. PHA..3>. LDA#N|
000013E0: 45 57 43 4F 4C 4F 52 00 CC 33 48 08 20 53 54 41 |EWCOLOR..3H. STA|
000013F0: 43 4F 4C 4F 52 00 D2 33 52 08 3B 00 D8 33 5C 08 |COLOR..3R.;..3\.|
00001400: 3B 00 DE 33 66 08 3B 00 01 34 70 08 3B 2A 2A 2A |;..3f.;..4p.;***|
00001410: 2A 2A 20 45 52 53 54 45 20 5A 45 49 4C 45 20 4D |** ERSTE ZEILE M|
00001420: 41 4C 45 4E 20 2A 2A 2A 2A 2A 00 16 34 7A 08 20 |ALEN *****..4z. |
00001430: 4C 44 41 23 30 3B 46 4C 41 47 3D 30 20 3D 3E 00 |LDA#0;FLAG=0 =>.|
00001440: 38 34 84 08 20 53 54 41 46 4C 41 47 3B 4F 48 4E |84.. STAFLAG;OHN|
00001450: 45 20 53 54 52 49 4E 47 20 41 55 53 47 45 42 45 |E STRING AUSGEBE|
00001460: 4E 00 46 34 8E 08 20 4A 53 52 4D 41 4C 45 4E 00 |N.F4.. JSRMALEN.|
00001470: 4C 34 98 08 3B 00 52 34 A2 08 3B 00 58 34 AC 08 |L4..;.R4..;.X4..|
00001480: 3B 00 7B 34 B6 08 3B 2A 2A 2A 2A 2A 20 49 4E 4E |;.{4..;***** INN|
00001490: 45 4E 5A 45 49 4C 45 4E 20 4D 41 4C 45 4E 20 2A |ENZEILEN MALEN *|
000014A0: 2A 2A 2A 2A 00 92 34 C0 08 20 49 4E 43 46 4C 41 |****..4.. INCFLA|
000014B0: 47 3B 46 4C 41 47 3D 30 20 3D 3E 00 BA 34 CA 08 |G;FLAG=0 =>..4..|
000014C0: 49 4E 4E 45 4E 20 4A 53 52 48 4F 4C 44 45 53 3B |INNEN JSRHOLDES;|
000014D0: 5A 45 49 4C 45 4E 20 4D 49 54 20 49 4E 48 41 4C |ZEILEN MIT INHAL|
000014E0: 54 45 4E 00 E1 34 D4 08 20 4A 53 52 4D 41 4C 45 |TEN..4.. JSRMALE|
000014F0: 4E 3B 44 45 52 20 41 52 52 41 59 53 54 52 49 4E |N;DER ARRAYSTRIN|
00001500: 47 53 20 46 55 45 4C 4C 45 4E 00 F1 34 DE 08 20 |GS FUELLEN..4.. |
00001510: 4A 53 52 4E 45 58 54 53 54 52 00 0F 35 E8 08 20 |JSRNEXTSTR..5.. |
00001520: 4C 44 41 4C 49 4E 45 3B 41 4C 4C 45 20 49 4E 4E |LDALINE;ALLE INN|
00001530: 45 4E 5A 45 49 4C 45 4E 00 2A 35 F2 08 20 43 4D |ENZEILEN.*5.. CM|
00001540: 50 4C 41 45 4E 47 45 3B 41 55 53 47 45 47 45 42 |PLAENGE;AUSGEGEB|
00001550: 45 4E 3F 00 40 35 FC 08 20 42 4E 45 49 4E 4E 45 |EN?.@5.. BNEINNE|
00001560: 4E 3B 4E 45 49 4E 20 3D 3E 00 46 35 06 09 3B 00 |N;NEIN =>.F5..;.|
00001570: 4C 35 10 09 3B 00 52 35 1A 09 3B 00 76 35 24 09 |L5..;.R5..;.v5$.|
00001580: 3B 2A 2A 2A 2A 2A 20 4C 45 54 5A 54 45 20 5A 45 |;***** LETZTE ZE|
00001590: 49 4C 45 20 4D 41 4C 45 4E 20 2A 2A 2A 2A 2A 00 |ILE MALEN *****.|
000015A0: 8D 35 2E 09 20 49 4E 43 46 4C 41 47 3B 46 4C 41 |.5.. INCFLAG;FLA|
000015B0: 47 3D 32 20 3D 3E 00 B4 35 38 09 20 4A 53 52 4D |G=2 =>..58. JSRM|
000015C0: 41 4C 45 4E 3B 5A 45 49 4C 45 20 4F 48 4E 45 20 |ALEN;ZEILE OHNE |
000015D0: 53 54 52 49 4E 47 49 4E 48 41 4C 54 45 00 BA 35 |STRINGINHALTE..5|
000015E0: 42 09 3B 00 C3 35 4C 09 20 50 4C 41 00 D1 35 56 |B.;..5L. PLA..5V|
000015F0: 09 20 53 54 41 43 4F 4C 4F 52 00 DA 35 60 09 20 |. STACOLOR..5`. |
00001600: 52 54 53 00 E0 35 6A 09 3B 00 E6 35 74 09 3B 00 |RTS..5j.;..5t.;.|
00001610: EC 35 7E 09 3B 00 09 36 88 09 3B 2A 2A 2A 2A 2A |.5~.;..6..;*****|
00001620: 20 5A 45 49 4C 45 20 4D 41 4C 45 4E 20 2A 2A 2A | ZEILE MALEN ***|
00001630: 2A 2A 00 29 36 92 09 4D 41 4C 45 4E 20 4C 44 58 |**.)6..MALEN LDX|
00001640: 4C 49 4E 45 3B 43 55 52 53 4F 52 20 53 45 54 5A |LINE;CURSOR SETZ|
00001650: 45 4E 00 35 36 9C 09 20 4C 44 59 43 4F 4C 00 3E |EN.56.. LDYCOL.>|
00001660: 36 A6 09 20 43 4C 43 00 4B 36 B0 09 20 4A 53 52 |6.. CLC.K6.. JSR|
00001670: 50 4C 4F 54 00 58 36 BA 09 20 4C 44 58 46 4C 41 |PLOT.X6.. LDXFLA|
00001680: 47 00 77 36 C4 09 20 4C 44 41 4C 49 4E 4B 53 2C |G.w6.. LDALINKS,|
00001690: 58 3B 4C 49 4E 4B 45 53 20 5A 45 49 43 48 45 4E |X;LINKES ZEICHEN|
000016A0: 00 8E 36 CE 09 20 4A 53 52 42 53 4F 55 54 3B 41 |..6.. JSRBSOUT;A|
000016B0: 55 53 47 45 42 45 4E 00 AB 36 D8 09 20 4C 44 59 |USGEBEN..6.. LDY|
000016C0: 23 30 3B 4D 49 54 54 4C 45 52 45 53 20 5A 45 49 |#0;MITTLERES ZEI|
000016D0: 43 48 45 4E 00 D3 36 E2 09 4C 4F 4F 50 20 4C 44 |CHEN..6..LOOP LD|
000016E0: 41 4D 49 54 54 45 2C 58 3B 4C 41 44 45 4E 20 55 |AMITTE,X;LADEN U|
000016F0: 4E 44 20 41 55 53 47 45 42 45 4E 2C 00 E8 36 EC |ND AUSGEBEN,..6.|
00001700: 09 20 43 50 58 23 31 3B 57 45 4E 4E 20 46 4C 41 |. CPX#1;WENN FLA|
00001710: 47 00 00 37 F6 09 20 42 4E 45 4E 4F 53 54 52 49 |G..7.. BNENOSTRI|
00001720: 4E 47 3B 3C 3E 31 20 3D 3E 00 1F 37 00 0A 20 43 |NG;<>1 =>..7.. C|
00001730: 50 59 53 54 52 4C 45 4E 3B 4F 44 45 52 20 53 54 |PYSTRLEN;ODER ST|
00001740: 52 49 4E 47 45 4E 44 45 00 3C 37 0A 0A 20 42 43 |RINGENDE.<7.. BC|
00001750: 53 4E 4F 53 54 52 49 4E 47 3B 45 52 52 45 49 43 |SNOSTRING;ERREIC|
00001760: 48 54 20 3D 3E 00 63 37 14 0A 20 4C 44 41 28 53 |HT =>.c7.. LDA(S|
00001770: 54 52 50 4F 53 29 2C 59 3B 53 4F 4E 53 54 20 53 |TRPOS),Y;SONST S|
00001780: 54 52 49 4E 47 5A 45 49 43 48 45 4E 00 82 37 1E |TRINGZEICHEN..7.|
00001790: 0A 4E 4F 53 54 52 49 4E 47 20 4A 53 52 42 53 4F |.NOSTRING JSRBSO|
000017A0: 55 54 3B 41 55 53 47 45 42 45 4E 00 9C 37 28 0A |UT;AUSGEBEN..7(.|
000017B0: 20 49 4E 59 3B 5A 45 49 4C 45 20 2D 31 20 5A 45 | INY;ZEILE -1 ZE|
000017C0: 49 43 48 45 4E 00 C0 37 32 0A 20 43 50 59 42 52 |ICHEN..72. CPYBR|
000017D0: 45 49 54 45 3B 4B 4F 4D 50 4C 45 54 54 20 41 55 |EITE;KOMPLETT AU|
000017E0: 53 47 45 47 45 42 45 4E 3F 00 D5 37 3C 0A 20 42 |SGEGEBEN?..7<. B|
000017F0: 4E 45 4C 4F 4F 50 3B 4E 45 49 4E 20 3D 3E 00 ED |NELOOP;NEIN =>..|
00001800: 37 46 0A 20 49 4E 43 4C 49 4E 45 3B 4E 45 58 54 |7F. INCLINE;NEXT|
00001810: 20 5A 45 49 4C 45 00 0E 38 50 0A 20 4C 44 41 52 | ZEILE..8P. LDAR|
00001820: 45 43 48 54 53 2C 58 3B 52 45 43 48 54 45 53 20 |ECHTS,X;RECHTES |
00001830: 5A 45 49 43 48 45 4E 00 2F 38 5A 0A 20 4A 4D 50 |ZEICHEN./8Z. JMP|
00001840: 42 53 4F 55 54 3B 41 55 53 47 45 42 45 4E 20 2B |BSOUT;AUSGEBEN +|
00001850: 20 52 54 53 20 21 21 21 00 35 38 64 0A 3B 00 4E | RTS !!!.58d.;.N|
00001860: 38 6E 0A 4C 49 4E 4B 53 20 2E 42 59 31 37 36 2C |8n.LINKS .BY176,|
00001870: 31 32 35 2C 31 37 33 00 64 38 78 0A 4D 49 54 54 |125,173.d8x.MITT|
00001880: 45 20 2E 42 59 39 36 2C 33 32 2C 39 36 00 7E 38 |E .BY96,32,96.~8|
00001890: 82 0A 52 45 43 48 54 53 20 2E 42 59 31 37 34 2C |..RECHTS .BY174,|
000018A0: 31 32 35 2C 31 38 39 00 A4 38 8C 0A 3B 2A 2A 2A |125,189..8..;***|
000018B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000018C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AA 38 |*************..8|
000018D0: 96 0A 3B 00 B0 38 A0 0A 3B 00 B6 38 AA 0A 3B 00 |..;..8..;..8..;.|
000018E0: DC 38 B4 0A 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.8..;***********|
000018F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001900: 2A 2A 2A 2A 2A 00 02 39 BE 0A 3B 2A 20 57 49 4E |*****..9..;* WIN|
00001910: 44 4F 57 55 4E 54 45 52 47 52 55 4E 44 20 52 45 |DOWUNTERGRUND RE|
00001920: 54 54 45 4E 2F 48 4F 4C 45 4E 2A 00 28 39 C8 0A |TTEN/HOLEN*.(9..|
00001930: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00001940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001950: 2A 00 2E 39 D2 0A 3B 00 51 39 DC 0A 3B 41 55 46 |*..9..;.Q9..;AUF|
00001960: 52 55 46 3A 53 59 53 20 58 58 58 58 2C 53 50 41 |RUF:SYS XXXX,SPA|
00001970: 4C 54 45 2C 5A 45 49 4C 45 2C 00 77 39 E6 0A 3B |LTE,ZEILE,.w9..;|
00001980: 20 20 20 20 20 20 20 42 52 45 49 54 45 2C 4C 41 | BREITE,LA|
00001990: 45 4E 47 45 2C 46 4C 41 47 2C 50 55 46 46 45 52 |ENGE,FLAG,PUFFER|
000019A0: 00 7D 39 F0 0A 3B 00 9E 39 FA 0A 3B 46 55 4E 4B |.}9..;..9..;FUNK|
000019B0: 54 49 4F 4E 3A 20 4B 4F 50 49 45 52 54 20 44 45 |TION: KOPIERT DE|
000019C0: 4E 20 44 55 52 43 48 00 C2 39 04 0B 3B 20 20 20 |N DURCH..9..; |
000019D0: 20 20 20 20 20 20 20 27 53 50 41 4C 54 45 27 2F | 'SPALTE'/|
000019E0: 27 5A 45 49 4C 45 27 20 55 4E 44 00 E7 39 0E 0B |'ZEILE' UND..9..|
000019F0: 3B 20 20 20 20 20 20 20 20 20 20 27 42 52 45 49 |; 'BREI|
00001A00: 54 45 27 20 42 5A 57 2E 27 4C 41 45 4E 47 45 27 |TE' BZW.'LAENGE'|
00001A10: 00 08 3A 18 0B 3B 20 20 20 20 20 20 20 20 20 20 |..:..; |
00001A20: 41 4E 47 45 47 45 42 45 4E 45 4E 20 42 49 4C 44 |ANGEGEBENEN BILD|
00001A30: 2D 00 2B 3A 22 0B 3B 20 20 20 20 20 20 20 20 20 |-.+:".; |
00001A40: 20 53 43 48 49 52 4D 41 55 53 53 43 48 4E 49 54 | SCHIRMAUSSCHNIT|
00001A50: 54 20 49 4E 00 4E 3A 2C 0B 3B 20 20 20 20 20 20 |T IN.N:,.; |
00001A60: 20 20 20 20 50 55 46 46 45 52 20 4E 52 2E 27 50 | PUFFER NR.'P|
00001A70: 55 46 46 45 52 27 2C 00 6C 3A 36 0B 3B 20 20 20 |UFFER',.l:6.; |
00001A80: 20 20 20 20 20 20 20 57 45 4E 4E 20 27 46 4C 41 | WENN 'FLA|
00001A90: 47 27 3D 31 2E 00 91 3A 40 0B 3B 20 20 20 20 20 |G'=1...:@.; |
00001AA0: 20 20 20 20 20 27 46 4C 41 47 27 3D 31 20 3D 3E | 'FLAG'=1 =>|
00001AB0: 44 45 52 20 49 4E 48 41 4C 54 00 B7 3A 4A 0B 3B |DER INHALT..:J.;|
00001AC0: 20 20 20 20 20 20 20 20 20 20 44 45 53 20 41 4E | DES AN|
00001AD0: 47 45 47 2E 50 55 46 46 45 52 53 20 57 49 52 44 |GEG.PUFFERS WIRD|
00001AE0: 00 DA 3A 54 0B 3B 20 20 20 20 20 20 20 20 20 20 |..:T.; |
00001AF0: 49 4E 20 44 45 4E 20 41 4E 47 45 47 2E 20 42 49 |IN DEN ANGEG. BI|
00001B00: 4C 44 2D 00 FA 3A 5E 0B 3B 20 20 20 20 20 20 20 |LD-..:^.; |
00001B10: 20 20 20 53 43 48 49 52 4D 41 55 53 53 43 48 4E | SCHIRMAUSSCHN|
00001B20: 49 54 54 00 12 3B 68 0B 3B 20 20 20 20 20 20 20 |ITT..;h.; |
00001B30: 20 20 20 4B 4F 50 49 45 52 54 2E 00 35 3B 72 0B | KOPIERT..5;r.|
00001B40: 3B 20 20 20 20 20 20 20 20 20 20 50 55 46 46 45 |; PUFFE|
00001B50: 52 3A 20 4E 55 4D 45 52 49 45 52 55 4E 47 00 58 |R: NUMERIERUNG.X|
00001B60: 3B 7C 0B 3B 20 20 20 20 20 20 20 20 20 20 42 45 |;|.; BE|
00001B70: 47 49 4E 4E 54 20 42 45 49 20 30 3B 20 4D 41 58 |GINNT BEI 0; MAX|
00001B80: 2E 00 7B 3B 86 0B 3B 20 20 20 20 20 20 20 20 20 |..{;..; |
00001B90: 20 50 55 46 46 45 52 42 45 52 45 49 43 48 3A 20 | PUFFERBEREICH: |
00001BA0: 32 20 4B 42 00 81 3B 90 0B 3B 00 A3 3B 9A 0B 3B |2 KB..;..;..;..;|
00001BB0: 42 53 50 2E 3A 20 53 59 53 20 58 58 58 58 2C 32 |BSP.: SYS XXXX,2|
00001BC0: 2C 35 2C 31 30 2C 31 35 2C 31 2C 30 00 C7 3B A4 |,5,10,15,1,0..;.|
00001BD0: 0B 3B 20 20 20 20 20 20 57 49 4E 44 4F 57 20 4D |.; WINDOW M|
00001BE0: 49 54 20 4C 49 4E 4B 45 52 20 4F 42 45 52 45 52 |IT LINKER OBERER|
00001BF0: 00 EC 3B AE 0B 3B 20 20 20 20 20 20 45 43 4B 45 |..;..; ECKE|
00001C00: 20 32 2F 35 2C 20 42 52 45 49 54 45 20 31 30 20 | 2/5, BREITE 10 |
00001C10: 53 50 41 4C 2D 00 11 3C B8 0B 3B 20 20 20 20 20 |SPAL-..<..; |
00001C20: 20 54 45 4E 20 55 2E 4C 41 45 4E 47 45 20 31 35 | TEN U.LAENGE 15|
00001C30: 20 5A 45 49 4C 45 4E 20 49 4E 00 33 3C C2 0B 3B | ZEILEN IN.3<..;|
00001C40: 20 20 20 20 20 20 50 55 46 46 45 52 20 4E 52 2E | PUFFER NR.|
00001C50: 30 20 53 43 48 52 45 49 42 45 4E 2E 00 39 3C CC |0 SCHREIBEN..9<.|
00001C60: 0B 3B 00 3F 3C D6 0B 3B 00 54 3C E0 0B 50 55 46 |.;.?<..;.T<..PUF|
00001C70: 46 49 4E 49 54 20 4C 44 41 23 24 46 46 00 62 3C |FINIT LDA#$FF.b<|
00001C80: EA 0B 20 53 54 41 50 55 46 4E 52 00 6B 3C F4 0B |.. STAPUFNR.k<..|
00001C90: 20 52 54 53 00 71 3C FE 0B 3B 00 77 3C 08 0C 3B | RTS.q<..;.w<..;|
00001CA0: 00 7D 3C 12 0C 3B 00 A0 3C 1C 0C 50 55 46 46 45 |.}<..;..<..PUFFE|
00001CB0: 52 20 4C 44 41 23 35 3B 36 20 42 59 54 45 57 45 |R LDA#5;6 BYTEWE|
00001CC0: 52 54 45 20 4C 45 53 45 4E 00 AE 3C 26 0C 20 4A |RTE LESEN..<&. J|
00001CD0: 53 52 50 41 52 41 4D 00 B4 3C 30 0C 3B 00 DE 3C |SRPARAM..<0.;..<|
00001CE0: 3A 0C 50 55 46 46 45 52 4A 53 52 20 4C 44 41 23 |:.PUFFERJSR LDA#|
00001CF0: 3C 28 50 55 46 53 54 41 52 54 29 3B 50 4F 49 4E |<(PUFSTART);POIN|
00001D00: 54 45 52 20 41 55 46 00 FF 3C 44 0C 20 4C 44 58 |TER AUF..<D. LDX|
00001D10: 23 3E 28 50 55 46 53 54 41 52 54 29 3B 50 55 46 |#>(PUFSTART);PUF|
00001D20: 46 45 52 20 4E 52 2E 30 00 17 3D 4E 0C 20 53 54 |FER NR.0..=N. ST|
00001D30: 41 50 55 46 50 4F 49 3B 45 52 5A 45 55 47 45 4E |APUFPOI;ERZEUGEN|
00001D40: 00 28 3D 58 0C 20 53 54 58 50 55 46 50 4F 49 2B |.(=X. STXPUFPOI+|
00001D50: 31 00 2E 3D 62 0C 3B 00 3B 3D 6C 0C 20 4C 44 41 |1..=b.;.;=l. LDA|
00001D60: 46 4C 41 47 00 4B 3D 76 0C 20 42 4E 45 4E 4F 57 |FLAG.K=v. BNENOW|
00001D70: 52 49 54 45 00 59 3D 80 0C 20 49 4E 43 50 55 46 |RITE.Y=.. INCPUF|
00001D80: 4E 52 00 5F 3D 8A 0C 3B 00 87 3D 94 0C 4E 4F 57 |NR._=..;..=..NOW|
00001D90: 52 49 54 45 20 4C 44 41 50 55 46 4E 52 3B 41 44 |RITE LDAPUFNR;AD|
00001DA0: 52 45 53 53 45 20 44 45 53 20 41 4E 47 45 47 2E |RESSE DES ANGEG.|
00001DB0: 00 90 3D 9E 0C 20 41 53 4C 00 99 3D A8 0C 20 54 |..=.. ASL..=.. T|
00001DC0: 41 58 00 B7 3D B2 0C 20 4C 44 41 50 55 46 50 4F |AX..=.. LDAPUFPO|
00001DD0: 49 2C 58 3B 50 55 46 46 45 52 53 20 4E 41 43 48 |I,X;PUFFERS NACH|
00001DE0: 00 D4 3D BC 0C 20 53 54 41 50 55 46 46 45 52 50 |..=.. STAPUFFERP|
00001DF0: 3B 27 50 55 46 50 4F 49 28 2B 31 29 27 00 F0 3D |;'PUFPOI(+1)'..=|
00001E00: C6 0C 20 4C 44 41 50 55 46 50 4F 49 2B 31 2C 58 |.. LDAPUFPOI+1,X|
00001E10: 3B 4B 4F 50 49 45 52 45 4E 00 02 3E D0 0C 20 53 |;KOPIEREN..>.. S|
00001E20: 54 41 50 55 46 46 45 52 50 2B 31 00 08 3E DA 0C |TAPUFFERP+1..>..|
00001E30: 3B 00 2E 3E E4 0C 20 4A 53 52 45 4E 44 5A 45 49 |;..>.. JSRENDZEI|
00001E40: 3B 4C 45 54 5A 54 45 20 5A 45 49 4C 45 20 45 52 |;LETZTE ZEILE ER|
00001E50: 4D 49 54 54 45 4C 4E 00 34 3E EE 0C 3B 00 51 3E |MITTELN.4>..;.Q>|
00001E60: F8 0C 20 4C 44 58 4C 49 4E 45 3B 43 55 52 53 4F |.. LDXLINE;CURSO|
00001E70: 52 20 41 55 46 20 4C 49 4E 45 00 5D 3E 02 0D 20 |R AUF LINE.]>.. |
00001E80: 4C 44 59 43 4F 4C 00 77 3E 0C 0D 20 43 4C 43 3B |LDYCOL.w>.. CLC;|
00001E90: 4F 42 45 52 45 20 57 49 4E 44 4F 57 45 43 4B 45 |OBERE WINDOWECKE|
00001EA0: 00 84 3E 16 0D 20 4A 53 52 50 4C 4F 54 00 8A 3E |..>.. JSRPLOT..>|
00001EB0: 20 0D 3B 00 A0 3E 2A 0D 57 45 49 54 45 52 20 4A | .;..>*.WEITER J|
00001EC0: 53 52 4C 49 4E 45 50 54 52 00 C6 3E 34 0D 20 4C |SRLINEPTR..>4. L|
00001ED0: 44 41 4C 49 4E 45 50 4F 49 2B 31 3B 27 53 43 52 |DALINEPOI+1;'SCR|
00001EE0: 45 45 4E 50 4F 49 4E 54 45 52 28 2B 31 29 27 00 |EENPOINTER(+1)'.|
00001EF0: EB 3E 3E 0D 20 53 54 41 53 43 52 45 45 4E 50 2B |.>>. STASCREENP+|
00001F00: 31 3B 2B 57 49 4E 44 4F 57 53 54 41 52 54 53 50 |1;+WINDOWSTARTSP|
00001F10: 41 4C 54 45 00 0A 3F 48 0D 20 4C 44 41 4C 49 4E |ALTE..?H. LDALIN|
00001F20: 45 50 4F 49 3B 45 52 47 49 42 54 20 50 4F 49 4E |EPOI;ERGIBT POIN|
00001F30: 54 45 52 00 22 3F 52 0D 20 43 4C 43 3B 41 55 46 |TER."?R. CLC;AUF|
00001F40: 20 41 4E 46 41 4E 47 20 44 45 52 00 44 3F 5C 0D | ANFANG DER.D?\.|
00001F50: 20 41 44 43 43 4F 4C 3B 41 4B 54 55 45 4C 4C 45 | ADCCOL;AKTUELLE|
00001F60: 4E 20 57 49 4E 44 4F 57 5A 45 49 4C 45 00 61 3F |N WINDOWZEILE.a?|
00001F70: 66 0D 20 53 54 41 53 43 52 45 45 4E 50 3B 2B 53 |f. STASCREENP;+S|
00001F80: 54 41 52 54 53 50 41 4C 54 45 00 6E 3F 70 0D 20 |TARTSPALTE.n?p. |
00001F90: 42 43 43 4F 4B 41 59 00 80 3F 7A 0D 20 49 4E 43 |BCCOKAY..?z. INC|
00001FA0: 53 43 52 45 45 4E 50 2B 31 00 86 3F 84 0D 3B 00 |SCREENP+1..?..;.|
00001FB0: 9B 3F 8E 0D 4F 4B 41 59 20 4A 53 52 50 41 49 4E |.?..OKAY JSRPAIN|
00001FC0: 54 50 54 52 00 A1 3F 98 0D 3B 00 A7 3F A2 0D 3B |TPTR..?..;..?..;|
00001FD0: 00 CC 3F AC 0D 20 4C 44 59 42 52 45 49 54 45 3B |..?.. LDYBREITE;|
00001FE0: 5A 41 45 48 4C 45 52 20 49 4E 49 54 49 41 4C 49 |ZAEHLER INITIALI|
00001FF0: 53 45 52 45 4E 00 D5 3F B6 0D 20 44 45 59 00 DB |SEREN..?.. DEY..|
00002000: 3F C0 0D 3B 00 E8 3F CA 0D 43 4F 50 59 20 54 59 |?..;..?..COPY TY|
00002010: 41 00 F1 3F D4 0D 20 43 4C 43 00 00 40 DE 0D 20 |A..?.. CLC..@.. |
00002020: 41 44 43 42 52 45 49 54 45 00 0D 40 E8 0D 20 53 |ADCBREITE..@.. S|
00002030: 54 41 48 45 4C 50 00 13 40 F2 0D 3B 00 37 40 FC |TAHELP..@..;.7@.|
00002040: 0D 20 4C 44 41 46 4C 41 47 3B 45 49 4E 20 5A 45 |. LDAFLAG;EIN ZE|
00002050: 49 43 48 45 4E 20 41 55 53 20 50 55 46 46 45 52 |ICHEN AUS PUFFER|
00002060: 00 55 40 06 0E 20 42 4E 45 57 52 49 54 45 3B 41 |.U@.. BNEWRITE;A|
00002070: 55 46 20 53 43 52 45 45 4E 20 4F 44 45 52 00 5B |UF SCREEN ODER.[|
00002080: 40 10 0E 3B 00 6E 40 1A 0E 20 4C 44 41 28 50 41 |@..;.n@.. LDA(PA|
00002090: 49 4E 54 50 29 2C 59 00 7D 40 24 0E 20 53 54 59 |INTP),Y.}@$. STY|
000020A0: 48 45 4C 50 2B 31 00 8A 40 2E 0E 20 4C 44 59 48 |HELP+1..@.. LDYH|
000020B0: 45 4C 50 00 9E 40 38 0E 20 53 54 41 28 50 55 46 |ELP..@8. STA(PUF|
000020C0: 46 45 52 50 29 2C 59 00 AD 40 42 0E 20 4C 44 59 |FERP),Y..@B. LDY|
000020D0: 48 45 4C 50 2B 31 00 B3 40 4C 0E 3B 00 D2 40 56 |HELP+1..@L.;..@V|
000020E0: 0E 20 4C 44 41 28 53 43 52 45 45 4E 50 29 2C 59 |. LDA(SCREENP),Y|
000020F0: 3B 55 4D 47 45 4B 45 48 52 54 2C 00 FA 40 60 0E |;UMGEKEHRT,..@`.|
00002100: 20 53 54 41 28 50 55 46 46 45 52 50 29 2C 59 3B | STA(PUFFERP),Y;|
00002110: 4A 45 20 4E 41 43 48 20 46 4C 41 47 5A 55 53 54 |JE NACH FLAGZUST|
00002120: 41 4E 44 00 07 41 6A 0E 20 42 4E 45 4A 55 4D 50 |AND..Aj. BNEJUMP|
00002130: 00 0D 41 74 0E 3B 00 21 41 7E 0E 57 52 49 54 45 |..At.;.!A~.WRITE|
00002140: 20 53 54 59 48 45 4C 50 2B 31 00 2E 41 88 0E 20 | STYHELP+1..A.. |
00002150: 4C 44 59 48 45 4C 50 00 3A 41 92 0E 20 4A 53 52 |LDYHELP.:A.. JSR|
00002160: 52 41 4D 00 4E 41 9C 0E 20 4C 44 41 28 50 55 46 |RAM.NA.. LDA(PUF|
00002170: 46 45 52 50 29 2C 59 00 57 41 A6 0E 20 50 48 41 |FERP),Y.WA.. PHA|
00002180: 00 63 41 B0 0E 20 4A 53 52 52 4F 4D 00 6C 41 BA |.cA.. JSRROM.lA.|
00002190: 0E 20 50 4C 41 00 7B 41 C4 0E 20 4C 44 59 48 45 |. PLA.{A.. LDYHE|
000021A0: 4C 50 2B 31 00 8E 41 CE 0E 20 53 54 41 28 50 41 |LP+1..A.. STA(PA|
000021B0: 49 4E 54 50 29 2C 59 00 9A 41 D8 0E 20 4A 53 52 |INTP),Y..A.. JSR|
000021C0: 52 41 4D 00 AE 41 E2 0E 20 4C 44 41 28 50 55 46 |RAM..A.. LDA(PUF|
000021D0: 46 45 52 50 29 2C 59 00 C2 41 EC 0E 20 53 54 41 |FERP),Y..A.. STA|
000021E0: 28 53 43 52 45 45 4E 50 29 2C 59 00 CE 41 F6 0E |(SCREENP),Y..A..|
000021F0: 20 4A 53 52 52 4F 4D 00 EC 41 00 0F 4A 55 4D 50 | JSRROM..A..JUMP|
00002200: 20 44 45 59 3B 5A 45 49 4C 45 20 42 45 48 41 4E | DEY;ZEILE BEHAN|
00002210: 44 45 4C 54 3F 00 01 42 0A 0F 20 42 50 4C 43 4F |DELT?..B.. BPLCO|
00002220: 50 59 3B 4E 45 49 4E 20 3D 3E 00 07 42 14 0F 3B |PY;NEIN =>..B..;|
00002230: 00 22 42 1E 0F 20 4C 44 41 42 52 45 49 54 45 3B |."B.. LDABREITE;|
00002240: 50 4F 49 4E 54 45 52 20 41 55 46 00 35 42 28 0F |POINTER AUF.5B(.|
00002250: 20 41 53 4C 3B 50 55 46 46 45 52 20 55 4D 00 4B | ASL;PUFFER UM.K|
00002260: 42 32 0F 20 43 4C 43 3B 57 49 4E 44 4F 57 42 52 |B2. CLC;WINDOWBR|
00002270: 45 49 54 45 00 5B 42 3C 0F 20 41 44 43 50 55 46 |EITE.[B<. ADCPUF|
00002280: 46 45 52 50 00 74 42 46 0F 20 53 54 41 50 55 46 |FERP.tBF. STAPUF|
00002290: 46 45 52 50 3B 45 52 48 4F 45 48 45 4E 00 83 42 |FERP;ERHOEHEN..B|
000022A0: 50 0F 20 42 43 43 4E 4F 49 4E 43 52 00 95 42 5A |P. BCCNOINCR..BZ|
000022B0: 0F 20 49 4E 43 50 55 46 46 45 52 50 2B 31 00 9B |. INCPUFFERP+1..|
000022C0: 42 64 0F 3B 00 BF 42 6E 0F 4E 4F 49 4E 43 52 20 |Bd.;..Bn.NOINCR |
000022D0: 4C 44 41 23 31 37 3B 43 55 52 53 4F 52 20 45 49 |LDA#17;CURSOR EI|
000022E0: 4E 45 20 5A 45 49 4C 45 00 DB 42 78 0F 20 4A 53 |NE ZEILE..Bx. JS|
000022F0: 52 42 53 4F 55 54 3B 54 49 45 46 45 52 20 53 45 |RBSOUT;TIEFER SE|
00002300: 54 5A 45 4E 00 FE 42 82 0F 20 4C 44 41 43 52 53 |TZEN..B.. LDACRS|
00002310: 4C 49 4E 45 3B 4C 45 54 5A 54 45 20 57 49 4E 44 |LINE;LETZTE WIND|
00002320: 4F 57 5A 45 49 4C 45 00 18 43 8C 0F 20 43 4D 50 |OWZEILE..C.. CMP|
00002330: 4C 41 45 4E 47 45 3B 42 45 48 41 4E 44 45 4C 54 |LAENGE;BEHANDELT|
00002340: 3F 00 2F 43 96 0F 20 42 4E 45 57 45 49 54 45 52 |?./C.. BNEWEITER|
00002350: 3B 4E 45 49 4E 20 3D 3E 00 35 43 A0 0F 3B 00 3B |;NEIN =>.5C..;.;|
00002360: 43 AA 0F 3B 00 54 43 B4 0F 20 4C 44 58 50 55 46 |C..;.TC.. LDXPUF|
00002370: 4E 52 3B 41 4E 46 41 4E 47 20 44 45 53 00 6F 43 |NR;ANFANG DES.oC|
00002380: BE 0F 20 49 4E 58 3B 4E 41 45 43 48 53 54 45 4E |.. INX;NAECHSTEN|
00002390: 20 50 55 46 46 45 52 53 00 88 43 C8 0F 20 54 58 | PUFFERS..C.. TX|
000023A0: 41 3B 48 49 4E 54 45 52 20 44 41 53 20 45 4E 44 |A;HINTER DAS END|
000023B0: 45 00 9F 43 D2 0F 20 41 53 4C 3B 44 45 53 20 41 |E..C.. ASL;DES A|
000023C0: 4B 54 55 45 4C 4C 45 4E 00 B7 43 DC 0F 20 54 41 |KTUELLEN..C.. TA|
000023D0: 58 3B 50 55 46 46 45 52 53 20 53 45 54 5A 45 4E |X;PUFFERS SETZEN|
000023E0: 00 C7 43 E6 0F 20 4C 44 41 50 55 46 46 45 52 50 |..C.. LDAPUFFERP|
000023F0: 00 D8 43 F0 0F 20 53 54 41 50 55 46 50 4F 49 2C |..C.. STAPUFPOI,|
00002400: 58 00 EA 43 FA 0F 20 4C 44 41 50 55 46 46 45 52 |X..C.. LDAPUFFER|
00002410: 50 2B 31 00 FD 43 04 10 20 53 54 41 50 55 46 50 |P+1..C.. STAPUFP|
00002420: 4F 49 2B 31 2C 58 00 03 44 0E 10 3B 00 10 44 18 |OI+1,X..D..;..D.|
00002430: 10 20 4C 44 41 46 4C 41 47 00 1F 44 22 10 20 42 |. LDAFLAG..D". B|
00002440: 45 51 4E 4F 4C 49 45 53 00 2D 44 2C 10 20 44 45 |EQNOLIES.-D,. DE|
00002450: 43 50 55 46 4E 52 00 3C 44 36 10 4E 4F 4C 49 45 |CPUFNR.<D6.NOLIE|
00002460: 53 20 52 54 53 00 42 44 40 10 3B 00 48 44 4A 10 |S RTS.BD@.;.HDJ.|
00002470: 3B 00 6F 44 54 10 52 41 4D 20 4A 53 52 4E 4F 49 |;.oDT.RAM JSRNOI|
00002480: 4E 54 3B 49 4E 54 45 52 52 55 50 54 20 41 55 53 |NT;INTERRUPT AUS|
00002490: 53 43 48 41 4C 54 45 4E 00 8E 44 5E 10 20 4C 44 |SCHALTEN..D^. LD|
000024A0: 41 23 24 33 34 3B 52 41 4D 2D 4B 4F 4E 46 4F 47 |A#$34;RAM-KONFOG|
000024B0: 55 52 41 54 49 4F 4E 00 A3 44 68 10 20 53 54 41 |URATION..Dh. STA|
000024C0: 31 3B 45 49 4E 53 54 45 4C 4C 45 4E 00 C8 44 72 |1;EINSTELLEN..Dr|
000024D0: 10 20 4A 4D 50 49 4E 54 45 49 4E 3B 49 4E 54 45 |. JMPINTEIN;INTE|
000024E0: 52 52 55 50 54 20 45 49 4E 53 43 48 41 4C 54 45 |RRUPT EINSCHALTE|
000024F0: 4E 00 CE 44 7C 10 3B 00 D4 44 86 10 3B 00 F3 44 |N..D|.;..D..;..D|
00002500: 90 10 52 4F 4D 20 4A 53 52 4E 4F 49 4E 54 3B 49 |..ROM JSRNOINT;I|
00002510: 4E 54 45 52 52 55 50 54 20 41 55 53 00 12 45 9A |NTERRUPT AUS..E.|
00002520: 10 20 4C 44 41 23 24 33 37 3B 52 4F 4D 2D 4B 4F |. LDA#$37;ROM-KO|
00002530: 4E 46 49 47 55 52 41 54 49 4F 4E 00 28 45 A4 10 |NFIGURATION.(E..|
00002540: 20 53 54 41 31 3B 45 49 4E 53 43 48 41 4C 54 45 | STA1;EINSCHALTE|
00002550: 4E 00 45 45 AE 10 20 4A 4D 50 49 4E 54 45 49 4E |N.EE.. JMPINTEIN|
00002560: 3B 49 4E 54 45 52 52 55 50 54 20 45 49 4E 00 4B |;INTERRUPT EIN.K|
00002570: 45 B8 10 3B 00 51 45 C2 10 3B 00 7C 45 CC 10 4E |E..;.QE..;.|E..N|
00002580: 4F 49 4E 54 20 4C 44 41 49 4E 54 43 54 52 4C 3B |OINT LDAINTCTRL;|
00002590: 49 4E 54 45 52 52 55 50 54 53 20 56 45 52 48 49 |INTERRUPTS VERHI|
000025A0: 4E 44 45 52 4E 00 89 45 D6 10 20 41 4E 44 23 24 |NDERN..E.. AND#$|
000025B0: 46 45 00 99 45 E0 10 20 53 54 41 49 4E 54 43 54 |FE..E.. STAINTCT|
000025C0: 52 4C 00 A2 45 EA 10 20 52 54 53 00 A8 45 F4 10 |RL..E.. RTS..E..|
000025D0: 3B 00 D2 45 FE 10 49 4E 54 45 49 4E 20 4C 44 41 |;..E..INTEIN LDA|
000025E0: 49 4E 54 43 54 52 4C 3B 49 4E 54 45 52 52 55 50 |INTCTRL;INTERRUP|
000025F0: 54 53 20 5A 55 4C 41 53 53 45 4E 00 DF 45 08 11 |TS ZULASSEN..E..|
00002600: 20 4F 52 41 23 24 30 31 00 EF 45 12 11 20 53 54 | ORA#$01..E.. ST|
00002610: 41 49 4E 54 43 54 52 4C 00 F8 45 1C 11 20 52 54 |AINTCTRL..E.. RT|
00002620: 53 00 1E 46 26 11 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |S..F&.;*********|
00002630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002640: 2A 2A 2A 2A 2A 2A 2A 00 24 46 30 11 3B 00 2A 46 |*******.$F0.;.*F|
00002650: 3A 11 3B 00 30 46 44 11 3B 00 56 46 4E 11 3B 2A |:.;.0FD.;.VFN.;*|
00002660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002680: 7C 46 58 11 3B 2A 20 53 43 52 45 45 4E 41 55 53 ||FX.;* SCREENAUS|
00002690: 53 43 48 4E 49 54 54 20 49 4E 56 45 52 54 49 45 |SCHNITT INVERTIE|
000026A0: 52 45 4E 20 2A 00 A2 46 62 11 3B 2A 2A 2A 2A 2A |REN *..Fb.;*****|
000026B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000026C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A8 46 6C 11 |***********..Fl.|
000026D0: 3B 00 CC 46 76 11 3B 41 55 46 52 55 46 3A 20 53 |;..Fv.;AUFRUF: S|
000026E0: 59 53 20 58 58 58 58 2C 53 50 41 4C 54 45 2C 5A |YS XXXX,SPALTE,Z|
000026F0: 45 49 4C 45 2C 00 EC 46 80 11 3B 20 20 20 20 20 |EILE,..F..; |
00002700: 20 20 20 42 52 45 49 54 45 2C 4C 41 45 4E 47 45 | BREITE,LAENGE|
00002710: 2C 46 4C 41 47 00 F2 46 8A 11 3B 00 17 47 94 11 |,FLAG..F..;..G..|
00002720: 3B 46 55 4E 4B 54 49 4F 4E 3A 20 49 4E 56 45 52 |;FUNKTION: INVER|
00002730: 54 49 45 52 54 28 27 46 4C 41 47 27 3D 31 29 2F |TIERT('FLAG'=1)/|
00002740: 00 3D 47 9E 11 3B 20 20 20 20 20 20 20 20 20 20 |.=G..; |
00002750: 4E 4F 52 4D 41 4C 49 53 49 45 52 54 28 27 46 4C |NORMALISIERT('FL|
00002760: 41 47 27 3D 30 29 00 5F 47 A8 11 3B 20 20 20 20 |AG'=0)._G..; |
00002770: 20 20 20 20 20 20 45 49 4E 45 4E 20 52 45 43 48 | EINEN RECH|
00002780: 54 45 43 4B 49 47 45 4E 00 83 47 B2 11 3B 20 20 |TECKIGEN..G..; |
00002790: 20 20 20 20 20 20 20 20 42 49 4C 44 53 43 48 49 | BILDSCHI|
000027A0: 52 4D 41 55 53 53 43 48 4E 49 54 54 00 A8 47 BC |RMAUSSCHNITT..G.|
000027B0: 11 3B 20 20 20 20 20 20 20 20 20 20 4D 49 54 20 |.; MIT |
000027C0: 44 45 52 20 4F 42 45 52 45 4E 20 4C 49 4E 4B 45 |DER OBEREN LINKE|
000027D0: 4E 00 CD 47 C6 11 3B 20 20 20 20 20 20 20 20 20 |N..G..; |
000027E0: 20 45 43 4B 45 20 27 53 50 41 4C 54 45 27 2F 27 | ECKE 'SPALTE'/'|
000027F0: 5A 45 49 4C 45 27 00 F0 47 D0 11 3B 20 20 20 20 |ZEILE'..G..; |
00002800: 20 20 20 20 20 20 55 4E 44 20 44 45 52 20 41 4E | UND DER AN|
00002810: 47 45 47 45 42 45 4E 45 4E 00 13 48 DA 11 3B 20 |GEGEBENEN..H..; |
00002820: 20 20 20 20 20 20 20 20 20 4C 41 45 4E 47 45 20 | LAENGE |
00002830: 42 5A 57 2E 20 42 52 45 49 54 45 2E 00 19 48 E4 |BZW. BREITE...H.|
00002840: 11 3B 00 39 48 EE 11 3B 42 53 50 2E 3A 20 53 59 |.;.9H..;BSP.: SY|
00002850: 53 20 58 58 58 58 2C 32 2C 35 2C 31 30 2C 31 35 |S XXXX,2,5,10,15|
00002860: 2C 31 00 5C 48 F8 11 3B 20 20 20 20 20 20 49 4E |,1.\H..; IN|
00002870: 56 45 52 54 49 45 52 54 20 45 49 4E 20 52 45 43 |VERTIERT EIN REC|
00002880: 48 54 45 43 4B 00 82 48 02 12 3B 20 20 20 20 20 |HTECK..H..; |
00002890: 20 4D 49 54 20 44 45 52 20 4C 49 4E 4B 45 4E 20 | MIT DER LINKEN |
000028A0: 4F 42 45 52 45 42 20 45 43 4B 45 00 A8 48 0C 12 |OBEREB ECKE..H..|
000028B0: 3B 20 20 20 20 20 20 32 2F 37 2C 20 44 45 52 20 |; 2/7, DER |
000028C0: 42 52 45 49 54 45 20 31 30 20 53 50 41 4C 54 45 |BREITE 10 SPALTE|
000028D0: 4E 00 CD 48 16 12 3B 20 20 20 20 20 20 55 4E 44 |N..H..; UND|
000028E0: 20 44 45 52 20 4C 41 45 4E 47 45 20 31 35 20 5A | DER LAENGE 15 Z|
000028F0: 45 49 4C 45 4E 2E 00 D3 48 20 12 3B 00 D9 48 2A |EILEN...H .;..H*|
00002900: 12 3B 00 FC 48 34 12 49 4E 56 45 52 54 20 4C 44 |.;..H4.INVERT LD|
00002910: 41 23 35 3B 35 20 42 59 54 45 57 45 52 54 45 20 |A#5;5 BYTEWERTE |
00002920: 48 4F 4C 45 4E 00 0A 49 3E 12 20 4A 53 52 50 41 |HOLEN..I>. JSRPA|
00002930: 52 41 4D 00 10 49 48 12 3B 00 3A 49 52 12 49 4E |RAM..IH.;.:IR.IN|
00002940: 56 4A 53 52 20 4A 53 52 45 4E 44 5A 45 49 3B 4C |VJSR JSRENDZEI;L|
00002950: 45 54 5A 54 45 20 52 45 43 48 54 45 43 4B 5A 45 |ETZTE RECHTECKZE|
00002960: 49 4C 45 00 53 49 5C 12 20 44 45 43 42 52 45 49 |ILE.SI\. DECBREI|
00002970: 54 45 3B 4B 4F 52 52 45 4B 54 55 52 00 5E 49 66 |TE;KORREKTUR.^If|
00002980: 12 20 4C 44 59 23 30 00 7F 49 70 12 20 4C 44 58 |. LDY#0..Ip. LDX|
00002990: 4C 49 4E 45 3B 43 55 52 53 4F 52 20 41 55 46 20 |LINE;CURSOR AUF |
000029A0: 41 4B 54 55 45 4C 4C 45 00 85 49 7A 12 3B 00 A8 |AKTUELLE..Iz.;..|
000029B0: 49 84 12 49 4E 56 32 20 43 4C 43 3B 5A 45 49 4C |I..INV2 CLC;ZEIL|
000029C0: 45 20 55 4E 44 20 53 54 41 52 54 53 50 41 4C 54 |E UND STARTSPALT|
000029D0: 45 00 BC 49 8E 12 20 4A 53 52 50 4C 4F 54 3B 53 |E..I.. JSRPLOT;S|
000029E0: 45 54 5A 45 4E 00 CC 49 98 12 20 4A 53 52 4C 49 |ETZEN..I.. JSRLI|
000029F0: 4E 45 50 54 52 00 D2 49 A2 12 3B 00 F7 49 AC 12 |NEPTR..I..;..I..|
00002A00: 20 4C 44 41 4C 49 4E 45 50 4F 49 3B 27 4C 49 4E | LDALINEPOI;'LIN|
00002A10: 45 50 4F 49 27 20 2B 20 27 43 4F 4C 27 20 3D 3E |EPOI' + 'COL' =>|
00002A20: 00 0C 4A B6 12 20 43 4C 43 3B 50 4F 49 4E 54 45 |..J.. CLC;POINTE|
00002A30: 52 20 41 55 46 00 29 4A C0 12 20 41 44 43 43 4F |R AUF.)J.. ADCCO|
00002A40: 4C 3B 45 52 53 54 45 53 20 5A 55 20 42 45 48 41 |L;ERSTES ZU BEHA|
00002A50: 4E 2D 00 49 4A CA 12 20 53 54 41 4C 49 4E 45 50 |N-.IJ.. STALINEP|
00002A60: 4F 49 3B 44 45 4C 4E 44 45 53 20 5A 45 49 43 48 |OI;DELNDES ZEICH|
00002A70: 45 4E 00 69 4A D4 12 20 42 43 43 49 4E 56 33 3B |EN.iJ.. BCCINV3;|
00002A80: 5A 45 49 43 48 45 4E 20 44 45 52 20 4A 45 57 45 |ZEICHEN DER JEWE|
00002A90: 49 2D 00 87 4A DE 12 20 49 4E 43 4C 49 4E 45 50 |I-..J.. INCLINEP|
00002AA0: 4F 49 2B 31 3B 4C 49 47 45 4E 20 5A 45 49 4C 45 |OI+1;LIGEN ZEILE|
00002AB0: 00 8D 4A E8 12 3B 00 B2 4A F2 12 49 4E 56 33 20 |..J..;..J..INV3 |
00002AC0: 4C 44 59 42 52 45 49 54 45 3B 57 45 4E 4E 20 46 |LDYBREITE;WENN F|
00002AD0: 4C 41 47 3D 30 2C 20 57 49 52 44 00 D8 4A FC 12 |LAG=0, WIRD..J..|
00002AE0: 49 4E 56 31 20 4C 44 41 28 4C 49 4E 45 50 4F 49 |INV1 LDA(LINEPOI|
00002AF0: 29 2C 59 3B 44 49 45 20 4B 4F 4D 50 4C 45 54 54 |),Y;DIE KOMPLETT|
00002B00: 45 00 F8 4A 06 13 20 4C 44 58 46 4C 41 47 3B 5A |E..J.. LDXFLAG;Z|
00002B10: 45 49 4C 45 20 4E 4F 52 4D 41 4C 49 53 49 45 52 |EILE NORMALISIER|
00002B20: 54 00 17 4B 10 13 20 42 45 51 4E 4F 52 4D 3B 28 |T..K.. BEQNORM;(|
00002B30: 42 49 54 20 37 20 4C 4F 45 53 43 48 45 4E 29 2C |BIT 7 LOESCHEN),|
00002B40: 00 35 4B 1A 13 20 4F 52 41 23 24 38 30 3B 53 4F |.5K.. ORA#$80;SO|
00002B50: 4E 53 54 20 49 4E 56 45 52 54 49 45 52 54 00 51 |NST INVERTIERT.Q|
00002B60: 4B 24 13 20 2E 42 59 24 32 43 3B 28 42 49 54 20 |K$. .BY$2C;(BIT |
00002B70: 37 20 53 45 45 54 5A 45 4E 29 00 62 4B 2E 13 4E |7 SEETZEN).bK..N|
00002B80: 4F 52 4D 20 41 4E 44 23 24 37 46 00 76 4B 38 13 |ORM AND#$7F.vK8.|
00002B90: 20 53 54 41 28 4C 49 4E 45 50 4F 49 29 2C 59 00 | STA(LINEPOI),Y.|
00002BA0: 90 4B 42 13 20 44 45 59 3B 5A 45 49 4C 45 20 42 |.KB. DEY;ZEILE B|
00002BB0: 45 48 41 4E 44 45 4C 54 3F 00 A5 4B 4C 13 20 42 |EHANDELT?..KL. B|
00002BC0: 50 4C 49 4E 56 31 3B 4E 45 49 4E 20 3D 3E 00 AB |PLINV1;NEIN =>..|
00002BD0: 4B 56 13 3B 00 C3 4B 60 13 20 49 4E 43 4C 49 4E |KV.;..K`. INCLIN|
00002BE0: 45 3B 4E 45 58 54 20 5A 45 49 4C 45 00 D0 4B 6A |E;NEXT ZEILE..Kj|
00002BF0: 13 20 4C 44 58 4C 49 4E 45 00 F7 4B 74 13 20 43 |. LDXLINE..Kt. C|
00002C00: 50 58 4C 41 45 4E 47 45 3B 4C 45 54 5A 54 45 20 |PXLAENGE;LETZTE |
00002C10: 5A 45 49 4C 45 20 42 45 48 41 4E 44 45 4C 54 3F |ZEILE BEHANDELT?|
00002C20: 00 0C 4C 7E 13 20 42 4E 45 49 4E 56 32 3B 4E 45 |..L~. BNEINV2;NE|
00002C30: 49 4E 20 3D 3E 00 15 4C 88 13 20 52 54 53 00 3B |IN =>..L.. RTS.;|
00002C40: 4C 92 13 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |L..;************|
00002C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C60: 2A 2A 2A 2A 00 41 4C 9C 13 3B 00 47 4C A6 13 3B |****.AL..;.GL..;|
00002C70: 00 4D 4C B0 13 3B 00 73 4C BA 13 3B 2A 2A 2A 2A |.ML..;.sL..;****|
00002C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 99 4C C4 |************..L.|
00002CA0: 13 3B 2A 20 56 45 52 57 41 4C 54 55 4E 47 20 56 |.;* VERWALTUNG V|
00002CB0: 2E 50 55 4C 4C 2D 44 4F 57 4E 2D 4D 45 4E 55 45 |.PULL-DOWN-MENUE|
00002CC0: 53 2A 00 BF 4C CE 13 3B 2A 2A 2A 2A 2A 2A 2A 2A |S*..L..;********|
00002CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002CE0: 2A 2A 2A 2A 2A 2A 2A 2A 00 C5 4C D8 13 3B 00 EB |********..L..;..|
00002CF0: 4C E2 13 3B 41 55 46 52 55 46 3A 53 59 53 20 58 |L..;AUFRUF:SYS X|
00002D00: 58 58 58 2C 4D 45 4E 55 45 24 2C 4D 45 4E 55 45 |XXX,MENUE$,MENUE|
00002D10: 24 28 31 29 00 07 4D EC 13 3B 20 20 20 20 20 20 |$(1)..M..; |
00002D20: 20 2C 4D 45 4E 55 45 25 2C 42 45 46 45 48 4C 25 | ,MENUE%,BEFEHL%|
00002D30: 00 0D 4D F6 13 3B 00 2F 4D 00 14 3B 46 55 4E 4B |..M..;./M..;FUNK|
00002D40: 54 49 4F 4E 3A 20 56 45 52 57 41 4C 54 45 54 20 |TION: VERWALTET |
00002D50: 42 45 4C 49 45 42 49 47 00 53 4D 0A 14 3B 20 20 |BELIEBIG.SM..; |
00002D60: 20 20 20 20 20 20 20 20 56 49 45 4C 45 20 50 55 | VIELE PU|
00002D70: 4C 4C 2D 44 2E 4D 45 4E 55 45 53 2C 00 78 4D 14 |LL-D.MENUES,.xM.|
00002D80: 14 3B 20 20 20 20 20 20 20 20 20 20 44 45 52 45 |.; DERE|
00002D90: 4E 20 4F 42 45 52 42 45 47 52 49 46 46 45 20 49 |N OBERBEGRIFFE I|
00002DA0: 4E 00 9E 4D 1E 14 3B 20 20 20 20 20 20 20 20 20 |N..M..; |
00002DB0: 20 27 4D 45 4E 55 45 24 27 45 4E 54 48 41 4C 54 | 'MENUE$'ENTHALT|
00002DC0: 45 4E 20 53 49 4E 44 00 C4 4D 28 14 3B 20 20 20 |EN SIND..M(.; |
00002DD0: 20 20 20 20 20 20 20 28 5A 2E 42 2E 3A 41 24 3D | (Z.B.:A$=|
00002DE0: 27 46 49 4C 45 20 45 44 49 54 27 29 2E 00 E6 4D |'FILE EDIT')...M|
00002DF0: 32 14 3B 20 20 20 20 20 20 20 20 20 20 44 49 45 |2.; DIE|
00002E00: 20 4D 45 4E 55 45 4B 4F 4D 4D 41 4E 44 4F 53 00 | MENUEKOMMANDOS.|
00002E10: 0B 4E 3C 14 3B 20 20 20 20 20 20 20 20 20 20 45 |.N<.; E|
00002E20: 4E 54 48 41 45 4C 54 20 44 41 53 20 41 4E 47 45 |NTHAELT DAS ANGE|
00002E30: 47 45 42 2E 00 31 4E 46 14 3B 20 20 20 20 20 20 |GEB..1NF.; |
00002E40: 20 20 20 20 53 54 52 49 4E 47 41 52 52 41 59 2E | STRINGARRAY.|
00002E50: 20 56 4F 52 20 4A 45 44 45 4D 00 54 4E 50 14 3B | VOR JEDEM.TNP.;|
00002E60: 20 20 20 20 20 20 20 20 20 20 55 4E 54 45 52 4D | UNTERM|
00002E70: 45 4E 55 45 20 42 45 46 49 4E 44 45 54 00 77 4E |ENUE BEFINDET.wN|
00002E80: 5A 14 3B 20 20 20 20 20 20 20 20 20 20 53 49 43 |Z.; SIC|
00002E90: 48 20 45 49 4E 20 4C 45 45 52 53 54 52 49 4E 47 |H EIN LEERSTRING|
00002EA0: 00 9B 4E 64 14 3B 20 20 20 20 20 20 20 20 20 20 |..Nd.; |
00002EB0: 4D 49 54 20 44 45 52 20 47 45 57 55 45 4E 53 43 |MIT DER GEWUENSC|
00002EC0: 48 54 45 4E 00 B7 4E 6E 14 3B 20 20 20 20 20 20 |HTEN..Nn.; |
00002ED0: 20 20 20 20 4D 45 4E 55 45 4C 41 45 4E 47 45 2E | MENUELAENGE.|
00002EE0: 00 D9 4E 78 14 3B 20 20 20 20 20 20 20 20 20 20 |..Nx.; |
00002EF0: 44 45 4D 20 4C 45 54 5A 54 45 4E 20 4D 45 4E 55 |DEM LETZTEN MENU|
00002F00: 45 2D 00 FF 4E 82 14 3B 20 20 20 20 20 20 20 20 |E-..N..; |
00002F10: 20 20 53 54 52 49 4E 47 20 46 4F 4C 47 54 20 45 | STRING FOLGT E|
00002F20: 42 45 4E 46 41 4C 4C 53 00 1E 4F 8C 14 3B 20 20 |BENFALLS..O..; |
00002F30: 20 20 20 20 20 20 20 20 45 49 4E 20 4C 45 45 52 | EIN LEER|
00002F40: 53 54 52 49 4E 47 2E 00 24 4F 96 14 3B 00 47 4F |STRING..$O..;.GO|
00002F50: A0 14 3B 42 53 50 2E 3A 20 53 59 53 20 58 58 58 |..;BSP.: SYS XXX|
00002F60: 58 2C 41 24 2C 41 24 28 31 29 2C 4D 25 2C 42 25 |X,A$,A$(1),M%,B%|
00002F70: 00 6A 4F AA 14 3B 20 20 20 20 20 20 56 45 52 57 |.jO..; VERW|
00002F80: 41 4C 54 45 54 20 5A 2E 42 2E 20 46 4F 4C 47 45 |ALTET Z.B. FOLGE|
00002F90: 4E 44 45 00 8D 4F B4 14 3B 20 20 20 20 20 20 56 |NDE..O..; V|
00002FA0: 45 52 57 41 4C 54 45 54 20 32 20 55 4E 54 45 52 |ERWALTET 2 UNTER|
00002FB0: 4D 45 4E 55 45 53 00 B3 4F BE 14 3B 20 20 20 20 |MENUES..O..; |
00002FC0: 20 20 4D 49 54 20 34 20 42 5A 57 2E 20 37 20 41 | MIT 4 BZW. 7 A|
00002FD0: 55 53 57 41 48 4C 50 4B 54 45 4E 2C 00 D3 4F C8 |USWAHLPKTEN,..O.|
00002FE0: 14 3B 20 20 20 20 20 20 57 45 4E 4E 20 46 4F 4C |.; WENN FOL|
00002FF0: 47 45 4E 44 45 53 20 47 49 4C 54 3A 00 D9 4F D2 |GENDES GILT:..O.|
00003000: 14 3B 00 F8 4F DC 14 3B 20 20 20 20 20 20 20 41 |.;..O..; A|
00003010: 24 3D 27 44 4F 43 55 4D 45 4E 54 20 44 49 53 4B |$='DOCUMENT DISK|
00003020: 27 00 12 50 E6 14 3B 20 20 20 20 20 20 20 41 24 |'..P..; A$|
00003030: 28 31 29 3D 27 20 20 20 20 20 27 00 2B 50 F0 14 |(1)=' '.+P..|
00003040: 3B 20 20 20 20 20 20 20 41 24 28 32 29 3D 27 4C |; A$(2)='L|
00003050: 4F 41 44 27 00 44 50 FA 14 3B 20 20 20 20 20 20 |OAD'.DP..; |
00003060: 20 41 24 28 33 29 3D 27 53 41 56 45 27 00 5E 50 | A$(3)='SAVE'.^P|
00003070: 04 15 3B 20 20 20 20 20 20 20 41 24 28 34 29 3D |..; A$(4)=|
00003080: 27 4D 45 52 47 45 27 00 78 50 0E 15 3B 20 20 20 |'MERGE'.xP..; |
00003090: 20 20 20 20 41 24 28 35 29 3D 27 50 52 49 4E 54 | A$(5)='PRINT|
000030A0: 27 00 98 50 18 15 3B 20 20 20 20 20 20 20 41 24 |'..P..; A$|
000030B0: 28 36 29 3D 27 20 20 20 20 20 20 20 20 20 20 20 |(6)=' |
000030C0: 27 00 B6 50 22 15 3B 20 20 20 20 20 20 20 41 24 |'..P".; A$|
000030D0: 28 37 29 3D 27 44 49 52 45 43 54 4F 52 59 27 00 |(7)='DIRECTORY'.|
000030E0: D5 50 2C 15 3B 20 20 20 20 20 20 20 41 24 28 38 |.P,.; A$(8|
000030F0: 29 3D 27 49 4E 49 54 49 41 4C 49 53 45 27 00 F2 |)='INITIALISE'..|
00003100: 50 36 15 3B 20 20 20 20 20 20 20 41 24 28 39 29 |P6.; A$(9)|
00003110: 3D 27 56 41 4C 49 44 41 54 45 27 00 12 51 40 15 |='VALIDATE'..Q@.|
00003120: 3B 20 20 20 20 20 20 41 24 28 31 30 29 3D 27 46 |; A$(10)='F|
00003130: 4F 52 4D 41 54 20 44 49 53 4B 27 00 33 51 4A 15 |ORMAT DISK'.3QJ.|
00003140: 3B 20 20 20 20 20 20 41 24 28 31 31 29 3D 27 53 |; A$(11)='S|
00003150: 43 52 41 54 43 48 20 46 49 4C 45 27 00 51 51 54 |CRATCH FILE'.QQT|
00003160: 15 3B 20 20 20 20 20 20 41 24 28 31 32 29 3D 27 |.; A$(12)='|
00003170: 43 4F 50 59 20 46 49 4C 45 27 00 71 51 5E 15 3B |COPY FILE'.qQ^.;|
00003180: 20 20 20 20 20 20 41 24 28 31 33 29 3D 27 52 45 | A$(13)='RE|
00003190: 4E 41 4D 45 20 46 49 4C 45 27 00 87 51 68 15 3B |NAME FILE'..Qh.;|
000031A0: 20 20 20 20 20 20 41 24 28 31 34 29 3D 27 20 27 | A$(14)=' '|
000031B0: 00 8D 51 72 15 3B 00 B2 51 7C 15 3B 42 45 44 49 |..Qr.;..Q|.;BEDI|
000031C0: 45 4E 55 4E 47 3A 20 43 55 52 53 4F 52 20 52 49 |ENUNG: CURSOR RI|
000031D0: 47 48 54 2F 4C 45 46 54 20 3D 3E 00 D5 51 86 15 |GHT/LEFT =>..Q..|
000031E0: 3B 20 20 20 20 20 20 20 20 20 20 20 41 55 53 57 |; AUSW|
000031F0: 41 48 4C 20 55 4E 54 45 52 4D 45 4E 55 45 00 F7 |AHL UNTERMENUE..|
00003200: 51 90 15 3B 20 20 20 20 20 20 20 20 20 20 20 43 |Q..; C|
00003210: 55 52 53 4F 52 20 44 4F 57 4E 2F 55 50 20 3D 3E |URSOR DOWN/UP =>|
00003220: 00 1D 52 9A 15 3B 20 20 20 20 20 20 20 20 20 20 |..R..; |
00003230: 20 41 55 53 57 41 48 4C 20 49 4D 20 55 4E 54 45 | AUSWAHL IM UNTE|
00003240: 52 4D 45 4E 55 45 00 37 52 A4 15 3B 20 20 20 20 |RMENUE.7R..; |
00003250: 20 20 20 20 20 20 20 52 45 54 55 52 4E 20 3D 3E | RETURN =>|
00003260: 00 59 52 AE 15 3B 20 20 20 20 20 20 20 20 20 20 |.YR..; |
00003270: 20 41 55 53 57 41 48 4C 20 41 4B 54 55 45 4C 4C | AUSWAHL AKTUELL|
00003280: 45 52 00 74 52 B8 15 3B 20 20 20 20 20 20 20 20 |ER.tR..; |
00003290: 20 20 20 4D 45 4E 55 45 50 55 4E 4B 54 00 7A 52 | MENUEPUNKT.zR|
000032A0: C2 15 3B 00 9E 52 CC 15 3B 20 20 20 20 20 20 20 |..;..R..; |
000032B0: 20 20 20 20 45 49 4E 20 55 4E 54 45 52 4D 45 4E | EIN UNTERMEN|
000032C0: 55 45 20 4B 41 4E 4E 00 C3 52 D6 15 3B 20 20 20 |UE KANN..R..; |
000032D0: 20 20 20 20 20 20 20 20 41 4C 54 45 52 4E 41 54 | ALTERNAT|
000032E0: 49 56 20 4D 49 54 20 43 54 52 4C 2B 00 E9 52 E0 |IV MIT CTRL+..R.|
000032F0: 15 3B 20 20 20 20 20 20 20 20 20 20 20 44 45 4D |.; DEM|
00003300: 20 41 4E 46 41 4E 47 53 42 55 43 48 53 54 41 42 | ANFANGSBUCHSTAB|
00003310: 45 4E 00 09 53 EA 15 3B 20 20 20 20 20 20 20 20 |EN..S..; |
00003320: 20 20 20 44 45 53 20 4D 45 4E 55 45 4E 41 4D 45 | DES MENUENAME|
00003330: 4E 53 00 2B 53 F4 15 3B 20 20 20 20 20 20 20 20 |NS.+S..; |
00003340: 20 20 20 44 49 52 45 4B 54 20 41 4E 47 45 57 41 | DIREKT ANGEWA|
00003350: 45 48 4C 54 00 4F 53 FE 15 3B 20 20 20 20 20 20 |EHLT.OS..; |
00003360: 20 20 20 20 20 57 45 52 44 45 4E 2C 20 5A 2E 42 | WERDEN, Z.B|
00003370: 2E 20 43 54 52 4C 2B 46 00 74 53 08 16 3B 20 20 |. CTRL+F.tS..; |
00003380: 20 20 20 20 20 20 20 20 20 46 55 45 52 20 44 2E | FUER D.|
00003390: 4D 45 4E 55 45 20 27 46 49 4C 45 27 2E 00 98 53 |MENUE 'FILE'...S|
000033A0: 12 16 3B 20 20 20 20 20 20 20 20 20 20 20 45 49 |..; EI|
000033B0: 4E 20 4D 45 4E 55 45 50 55 4E 4B 54 20 4B 41 4E |N MENUEPUNKT KAN|
000033C0: 4E 00 BB 53 1C 16 3B 20 20 20 20 20 20 20 20 20 |N..S..; |
000033D0: 20 20 41 4C 54 45 52 4E 41 54 49 56 20 4D 49 54 | ALTERNATIV MIT|
000033E0: 20 44 45 4D 00 DD 53 26 16 3B 20 20 20 20 20 20 | DEM..S&.; |
000033F0: 20 20 20 20 20 41 4E 46 41 4E 47 53 42 55 43 48 | ANFANGSBUCH|
00003400: 53 54 41 42 45 4E 00 02 54 30 16 3B 20 20 20 20 |STABEN..T0.; |
00003410: 20 20 20 20 20 20 20 44 49 52 45 4B 54 20 47 45 | DIREKT GE|
00003420: 57 41 45 48 4C 54 20 57 45 52 2D 00 28 54 3A 16 |WAEHLT WER-.(T:.|
00003430: 3B 20 20 20 20 20 20 20 20 20 20 20 44 45 4E 28 |; DEN(|
00003440: 27 53 27 46 55 45 52 27 53 43 52 41 54 43 48 27 |'S'FUER'SCRATCH'|
00003450: 29 00 2E 54 44 16 3B 00 54 54 4E 16 3B 20 20 20 |)..TD.;.TTN.; |
00003460: 20 20 20 20 20 20 20 20 44 41 53 20 41 4E 47 45 | DAS ANGE|
00003470: 57 41 45 48 4C 54 45 20 4D 45 4E 55 45 00 7A 54 |WAEHLTE MENUE.zT|
00003480: 58 16 3B 20 20 20 20 20 20 20 20 20 20 20 57 49 |X.; WI|
00003490: 52 44 20 49 4E 20 27 4D 45 4E 55 45 25 27 2C 20 |RD IN 'MENUE%', |
000034A0: 44 45 52 00 9F 54 62 16 3B 20 20 20 20 20 20 20 |DER..Tb.; |
000034B0: 20 20 20 20 47 45 57 41 45 48 4C 54 45 20 4D 45 | GEWAEHLTE ME|
000034C0: 4E 55 45 50 55 4E 4B 54 00 C4 54 6C 16 3B 20 20 |NUEPUNKT..Tl.; |
000034D0: 20 20 20 20 20 20 20 20 20 49 4E 20 27 42 45 46 | IN 'BEF|
000034E0: 45 48 4C 25 27 20 55 45 42 45 52 47 2E 00 CA 54 |EHL%' UEBERG...T|
000034F0: 76 16 3B 00 ED 54 80 16 3B 42 53 50 2E 3A 20 53 |v.;..T..;BSP.: S|
00003500: 59 53 20 58 58 58 58 2C 41 24 2C 41 24 28 31 29 |YS XXXX,A$,A$(1)|
00003510: 2C 4D 25 2C 42 25 00 12 55 8A 16 3B 20 20 20 20 |,M%,B%..U..; |
00003520: 20 20 56 45 52 57 41 4C 54 45 54 20 4F 42 49 47 | VERWALTET OBIG|
00003530: 45 53 20 42 45 49 53 50 49 45 4C 00 18 55 94 16 |ES BEISPIEL..U..|
00003540: 3B 00 1E 55 9E 16 3B 00 54 55 A8 16 2E 45 51 20 |;..U..;.TU...EQ |
00003550: 4D 43 4F 55 4E 54 20 20 3D 20 52 4F 55 54 49 4E |MCOUNT = ROUTIN|
00003560: 2B 31 20 20 3B 5A 41 45 48 4C 45 52 3A 20 41 4B |+1 ;ZAEHLER: AK|
00003570: 54 55 45 4C 4C 45 53 20 4D 45 4E 55 45 00 85 55 |TUELLES MENUE..U|
00003580: B2 16 2E 45 51 20 4D 5A 41 48 4C 20 20 20 3D 20 |...EQ MZAHL = |
00003590: 4D 43 4F 55 4E 54 2B 31 20 20 3B 47 45 53 41 4D |MCOUNT+1 ;GESAM|
000035A0: 54 45 20 4D 45 4E 55 45 41 4E 5A 41 48 4C 00 C0 |TE MENUEANZAHL..|
000035B0: 55 BC 16 2E 45 51 20 50 4F 49 4E 54 20 20 20 3D |U...EQ POINT =|
000035C0: 20 4D 5A 41 48 4C 2B 31 20 20 20 3B 5A 41 45 48 | MZAHL+1 ;ZAEH|
000035D0: 4C 45 52 3A 20 41 4B 54 55 45 4C 4C 45 52 20 4D |LER: AKTUELLER M|
000035E0: 45 4E 55 45 50 55 4E 4B 54 00 EE 55 C6 16 2E 45 |ENUEPUNKT..U...E|
000035F0: 51 20 5A 45 49 43 48 45 4E 20 3D 20 50 4F 49 4E |Q ZEICHEN = POIN|
00003600: 54 2B 31 20 20 20 3B 47 45 44 52 55 45 43 4B 54 |T+1 ;GEDRUECKT|
00003610: 45 20 54 41 53 54 45 00 1E 56 D0 16 2E 45 51 20 |E TASTE..V...EQ |
00003620: 56 45 4B 54 4F 52 20 20 3D 20 5A 45 49 43 48 45 |VEKTOR = ZEICHE|
00003630: 4E 2B 31 20 3B 56 45 4B 54 4F 52 20 46 2E 49 4E |N+1 ;VEKTOR F.IN|
00003640: 44 49 52 2E 4A 4D 50 00 24 56 DA 16 3B 00 2A 56 |DIR.JMP.$V..;.*V|
00003650: E4 16 3B 00 30 56 EE 16 3B 00 56 56 F8 16 3B 2A |..;.0V..;.VV..;*|
00003660: 2A 2A 2A 2A 20 4D 45 4E 55 45 50 41 52 41 4D 45 |**** MENUEPARAME|
00003670: 54 45 52 20 48 4F 4C 45 4E 20 2A 2A 2A 2A 2A 00 |TER HOLEN *****.|
00003680: 83 56 02 17 43 4E 54 52 4C 20 4A 53 52 43 48 4B |.V..CNTRL JSRCHK|
00003690: 4B 4F 4D 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 |KOM;POINTER AUF |
000036A0: 44 45 53 43 52 49 50 54 4F 52 45 4E 00 AA 56 0C |DESCRIPTOREN..V.|
000036B0: 17 20 4A 53 52 47 45 54 50 4F 53 3B 44 45 53 20 |. JSRGETPOS;DES |
000036C0: 4D 45 4E 55 45 4C 45 49 53 54 45 4E 53 54 52 49 |MENUELEISTENSTRI|
000036D0: 4E 47 53 00 CD 56 16 17 20 53 54 41 49 4E 44 49 |NGS..V.. STAINDI|
000036E0: 5A 3B 4E 41 43 48 20 27 49 4E 44 49 5A 28 2B 31 |Z;NACH 'INDIZ(+1|
000036F0: 29 27 20 55 4E 44 00 F6 56 20 17 20 53 54 59 49 |)' UND..V . STYI|
00003700: 4E 44 49 5A 2B 31 3B 44 45 53 43 52 49 50 54 4F |NDIZ+1;DESCRIPTO|
00003710: 52 45 4E 20 53 45 4C 42 53 54 20 4E 41 43 48 00 |REN SELBST NACH.|
00003720: 1A 57 2A 17 20 4A 53 52 48 4F 4C 44 45 53 3B 27 |.W*. JSRHOLDES;'|
00003730: 53 54 52 4C 45 4E 27 2C 53 54 52 50 4F 53 28 2B |STRLEN',STRPOS(+|
00003740: 31 29 27 00 20 57 34 17 3B 00 43 57 3E 17 20 4C |1)'. W4.;.CW>. L|
00003750: 44 41 53 54 52 4C 45 4E 3B 44 45 53 43 52 49 50 |DASTRLEN;DESCRIP|
00003760: 54 4F 52 45 4E 20 52 45 54 54 45 4E 00 4C 57 48 |TOREN RETTEN.LWH|
00003770: 17 20 50 48 41 00 5B 57 52 17 20 4C 44 41 53 54 |. PHA.[WR. LDAST|
00003780: 52 50 4F 53 00 64 57 5C 17 20 50 48 41 00 75 57 |RPOS.dW\. PHA.uW|
00003790: 66 17 20 4C 44 41 53 54 52 50 4F 53 2B 31 00 7E |f. LDASTRPOS+1.~|
000037A0: 57 70 17 20 50 48 41 00 84 57 7A 17 3B 00 8A 57 |Wp. PHA..Wz.;..W|
000037B0: 84 17 3B 00 90 57 8E 17 3B 00 B7 57 98 17 3B 2A |..;..W..;..W..;*|
000037C0: 2A 2A 2A 2A 20 53 54 41 52 54 53 50 41 4C 54 45 |**** STARTSPALTE|
000037D0: 4E 20 44 2E 4D 45 4E 55 45 53 20 2A 2A 2A 2A 2A |N D.MENUES *****|
000037E0: 00 D4 57 A2 17 20 4C 44 59 23 30 3B 53 50 41 4C |..W.. LDY#0;SPAL|
000037F0: 54 45 20 55 4E 44 20 41 4E 5A 41 48 4C 00 EE 57 |TE UND ANZAHL..W|
00003800: AC 17 20 4C 44 58 23 30 3B 49 4E 49 54 49 41 4C |.. LDX#0;INITIAL|
00003810: 49 53 49 45 52 45 4E 00 1D 58 B6 17 53 54 41 52 |ISIEREN..X..STAR|
00003820: 54 31 20 4C 44 41 28 53 54 52 50 4F 53 29 2C 59 |T1 LDA(STRPOS),Y|
00003830: 3B 49 4D 20 4C 45 49 53 54 45 4E 53 54 52 49 4E |;IM LEISTENSTRIN|
00003840: 47 20 41 4C 4C 45 00 39 58 C0 17 20 43 4D 50 23 |G ALLE.9X.. CMP#|
00003850: 22 20 22 3B 53 50 41 43 45 53 20 42 49 53 20 5A |" ";SPACES BIS Z|
00003860: 55 4D 00 56 58 CA 17 20 42 4E 45 53 54 41 52 54 |UM.VX.. BNESTART|
00003870: 32 3B 31 2E 4E 49 43 48 54 2D 53 50 41 43 45 00 |2;1.NICHT-SPACE.|
00003880: 6A 58 D4 17 20 49 4E 59 3B 55 45 42 45 52 4C 45 |jX.. INY;UEBERLE|
00003890: 53 45 4E 00 79 58 DE 17 20 43 50 59 53 54 52 4C |SEN.yX.. CPYSTRL|
000038A0: 45 4E 00 88 58 E8 17 20 42 43 53 53 54 41 52 54 |EN..X.. BCSSTART|
000038B0: 35 00 A1 58 F2 17 20 42 43 43 53 54 41 52 54 31 |5..X.. BCCSTART1|
000038C0: 3B 49 4D 4D 45 52 20 21 21 21 00 A7 58 FC 17 3B |;IMMER !!!..X..;|
000038D0: 00 D8 58 06 18 53 54 41 52 54 32 20 53 54 41 53 |..X..START2 STAS|
000038E0: 49 47 4E 2C 58 3B 41 4E 46 41 4E 47 53 42 55 43 |IGN,X;ANFANGSBUC|
000038F0: 48 53 54 41 42 45 20 44 45 53 20 4D 45 4E 55 45 |HSTABE DES MENUE|
00003900: 53 00 FD 58 10 18 20 54 59 41 3B 59 3D 50 4F 53 |S..X.. TYA;Y=POS|
00003910: 49 54 49 4F 4E 20 56 4F 4E 20 31 2E 4E 49 43 48 |ITION VON 1.NICH|
00003920: 54 53 50 41 43 45 00 23 59 1A 18 20 53 54 41 53 |TSPACE.#Y.. STAS|
00003930: 54 41 52 54 2C 58 3B 3D 53 54 41 52 54 43 4F 4C |TART,X;=STARTCOL|
00003940: 20 46 55 45 52 20 49 4E 56 45 52 54 00 45 59 24 | FUER INVERT.EY$|
00003950: 18 53 54 41 52 54 33 20 4C 44 41 28 53 54 52 50 |.START3 LDA(STRP|
00003960: 4F 53 29 2C 59 3B 4E 55 4E 20 41 4C 4C 45 00 5E |OS),Y;NUN ALLE.^|
00003970: 59 2E 18 20 43 4D 50 23 22 20 22 3B 4E 49 43 48 |Y.. CMP#" ";NICH|
00003980: 54 53 50 41 43 45 53 00 78 59 38 18 20 42 45 51 |TSPACES.xY8. BEQ|
00003990: 53 54 41 52 54 34 3B 55 45 42 45 52 4C 45 53 45 |START4;UEBERLESE|
000039A0: 4E 00 92 59 42 18 20 49 4E 59 3B 4A 45 44 4F 43 |N..YB. INY;JEDOC|
000039B0: 48 20 4E 55 52 2C 20 57 45 4E 4E 00 B3 59 4C 18 |H NUR, WENN..YL.|
000039C0: 20 43 50 59 53 54 52 4C 45 4E 3B 53 54 52 49 4E | CPYSTRLEN;STRIN|
000039D0: 47 4C 41 45 4E 47 45 20 4E 4F 43 48 00 D7 59 56 |GLAENGE NOCH..YV|
000039E0: 18 20 42 43 43 53 54 41 52 54 33 3B 4E 49 43 48 |. BCCSTART3;NICH|
000039F0: 54 20 55 45 42 45 52 53 43 48 52 49 54 54 45 4E |T UEBERSCHRITTEN|
00003A00: 00 DD 59 60 18 3B 00 06 5A 6A 18 53 54 41 52 54 |..Y`.;..Zj.START|
00003A10: 34 20 54 59 41 3B 49 4E 56 45 52 54 49 45 52 42 |4 TYA;INVERTIERB|
00003A20: 52 45 49 54 45 20 53 54 45 48 54 20 4E 55 4E 00 |REITE STEHT NUN.|
00003A30: 23 5A 74 18 20 53 45 43 3B 46 45 53 54 3A 20 49 |#Zt. SEC;FEST: I|
00003A40: 4E 56 45 52 54 42 52 45 49 54 45 3D 00 3E 5A 7E |NVERTBREITE=.>Z~|
00003A50: 18 20 53 42 43 53 54 41 52 54 2C 58 3B 59 2D 53 |. SBCSTART,X;Y-S|
00003A60: 54 41 52 54 43 4F 4C 00 6D 5A 88 18 20 53 54 41 |TARTCOL.mZ.. STA|
00003A70: 4C 45 4E 47 54 48 2C 58 3B 45 52 47 45 42 4E 49 |LENGTH,X;ERGEBNI|
00003A80: 53 20 49 4E 20 54 41 42 45 4C 4C 45 20 53 50 45 |S IN TABELLE SPE|
00003A90: 49 43 48 45 52 4E 00 73 5A 92 18 3B 00 83 5A 9C |ICHERN.sZ..;..Z.|
00003AA0: 18 20 44 45 43 53 54 41 52 54 2C 58 00 93 5A A6 |. DECSTART,X..Z.|
00003AB0: 18 20 44 45 43 53 54 41 52 54 2C 58 00 99 5A B0 |. DECSTART,X..Z.|
00003AC0: 18 3B 00 A2 5A BA 18 20 49 4E 58 00 C1 5A C4 18 |.;..Z.. INX..Z..|
00003AD0: 20 49 4E 59 3B 57 45 49 54 45 52 2C 20 57 45 4E | INY;WEITER, WEN|
00003AE0: 4E 20 45 4E 44 45 20 44 45 53 00 EA 5A CE 18 20 |N ENDE DES..Z.. |
00003AF0: 43 50 59 53 54 52 4C 45 4E 3B 4C 45 49 53 54 45 |CPYSTRLEN;LEISTE|
00003B00: 4E 53 54 52 49 4E 47 53 20 4E 4F 43 48 20 4E 49 |NSTRINGS NOCH NI|
00003B10: 43 48 54 00 05 5B D8 18 20 42 43 43 53 54 41 52 |CHT..[.. BCCSTAR|
00003B20: 54 31 3B 45 52 52 45 49 43 48 54 20 3D 3E 00 0B |T1;ERREICHT =>..|
00003B30: 5B E2 18 3B 00 35 5B EC 18 53 54 41 52 54 35 20 |[..;.5[..START5 |
00003B40: 53 54 58 4D 5A 41 48 4C 3B 4D 45 4E 55 45 41 4E |STXMZAHL;MENUEAN|
00003B50: 5A 41 48 4C 20 53 50 45 49 43 48 45 52 4E 00 3B |ZAHL SPEICHERN.;|
00003B60: 5B F6 18 3B 00 41 5B 00 19 3B 00 47 5B 0A 19 3B |[..;.A[..;.G[..;|
00003B70: 00 6E 5B 14 19 3B 2A 2A 2A 2A 2A 20 57 49 4E 44 |.n[..;***** WIND|
00003B80: 4F 57 50 41 52 41 4D 45 54 45 52 20 48 4F 4C 45 |OWPARAMETER HOLE|
00003B90: 4E 20 2A 2A 2A 2A 2A 00 96 5B 1E 19 20 4A 53 52 |N *****..[.. JSR|
00003BA0: 43 48 4B 4B 4F 4D 3B 50 4F 49 4E 54 45 52 20 41 |CHKKOM;POINTER A|
00003BB0: 55 46 20 44 45 53 43 52 49 50 54 4F 52 45 4E 00 |UF DESCRIPTOREN.|
00003BC0: BE 5B 28 19 20 4A 53 52 47 45 54 50 4F 53 3B 44 |.[(. JSRGETPOS;D|
00003BD0: 45 53 20 31 2E 4D 45 4E 55 45 53 54 52 49 4E 47 |ES 1.MENUESTRING|
00003BE0: 53 20 48 4F 4C 45 4E 00 E3 5B 32 19 20 53 54 41 |S HOLEN..[2. STA|
00003BF0: 49 4E 44 49 5A 3B 55 4E 44 20 44 45 53 43 52 49 |INDIZ;UND DESCRI|
00003C00: 54 4F 52 45 4E 20 53 45 4C 42 53 54 00 0E 5C 3C |TOREN SELBST..\<|
00003C10: 19 20 53 54 59 49 4E 44 49 5A 2B 31 3B 4E 41 43 |. STYINDIZ+1;NAC|
00003C20: 48 20 27 53 54 52 4C 45 4E 27 2C 27 53 54 52 50 |H 'STRLEN','STRP|
00003C30: 4F 53 28 2B 31 29 27 00 26 5C 46 19 20 4A 53 52 |OS(+1)'.&\F. JSR|
00003C40: 48 4F 4C 44 45 53 3B 53 43 48 41 46 46 45 4E 00 |HOLDES;SCHAFFEN.|
00003C50: 2C 5C 50 19 3B 00 4A 5C 5A 19 20 4C 44 58 23 32 |,\P.;.J\Z. LDX#2|
00003C60: 35 35 3B 58 20 49 4E 49 54 49 41 4C 49 53 49 45 |55;X INITIALISIE|
00003C70: 52 45 4E 00 61 5C 64 19 20 42 4E 45 50 41 52 35 |REN.a\d. BNEPAR5|
00003C80: 3B 49 4D 4D 45 52 20 21 21 21 00 67 5C 6E 19 3B |;IMMER !!!.g\n.;|
00003C90: 00 84 5C 78 19 50 41 52 31 20 4C 44 41 23 30 3B |..\x.PAR1 LDA#0;|
00003CA0: 53 54 52 49 4E 47 5A 41 45 48 4C 45 52 00 A0 5C |STRINGZAEHLER..\|
00003CB0: 82 19 20 53 54 41 43 4E 54 49 3B 49 4E 49 54 49 |.. STACNTI;INITI|
00003CC0: 41 4C 49 53 49 45 52 45 4E 00 A6 5C 8C 19 3B 00 |ALISIEREN..\..;.|
00003CD0: D5 5C 96 19 50 41 52 32 20 4C 44 59 23 30 3B 50 |.\..PAR2 LDY#0;P|
00003CE0: 4F 49 4E 54 45 52 20 41 55 46 20 53 54 52 49 4E |OINTER AUF STRIN|
00003CF0: 47 5A 45 49 43 48 45 4E 20 49 4E 49 54 2E 00 F6 |GZEICHEN INIT...|
00003D00: 5C A0 19 50 41 52 33 20 4C 44 41 28 53 54 52 50 |\..PAR3 LDA(STRP|
00003D10: 4F 53 29 2C 59 3B 41 4B 54 55 45 4C 4C 45 53 00 |OS),Y;AKTUELLES.|
00003D20: 18 5D AA 19 20 43 4D 50 23 22 20 22 3B 53 54 52 |.].. CMP#" ";STR|
00003D30: 49 4E 47 5A 45 49 43 48 45 4E 3D 53 50 41 43 45 |INGZEICHEN=SPACE|
00003D40: 3F 00 2B 5D B4 19 20 42 45 51 50 41 52 34 3B 4A |?.+].. BEQPAR4;J|
00003D50: 41 20 3D 3E 00 31 5D BE 19 3B 00 52 5D C8 19 20 |A =>.1]..;.R].. |
00003D60: 4A 53 52 4E 45 58 54 53 54 52 3B 4E 41 45 43 48 |JSRNEXTSTR;NAECH|
00003D70: 53 54 45 4E 20 53 54 52 49 4E 47 00 74 5D D2 19 |STEN STRING.t]..|
00003D80: 20 4A 53 52 48 4F 4C 44 45 53 3B 44 45 53 43 52 | JSRHOLDES;DESCR|
00003D90: 49 50 54 4F 52 45 4E 20 48 4F 4C 45 4E 00 97 5D |IPTOREN HOLEN..]|
00003DA0: DC 19 20 49 4E 43 43 4E 54 49 3B 53 54 52 49 4E |.. INCCNTI;STRIN|
00003DB0: 47 5A 41 45 48 4C 45 52 20 49 4E 4B 52 45 4D 2E |GZAEHLER INKREM.|
00003DC0: 00 AE 5D E6 19 20 42 4E 45 50 41 52 32 3B 49 4D |..].. BNEPAR2;IM|
00003DD0: 4D 45 52 20 21 21 21 00 B4 5D F0 19 3B 00 D8 5D |MER !!!..]..;..]|
00003DE0: FA 19 50 41 52 34 20 49 4E 59 3B 5A 45 49 43 48 |..PAR4 INY;ZEICH|
00003DF0: 45 4E 50 4F 49 4E 54 45 52 20 49 4E 4B 52 45 4D |ENPOINTER INKREM|
00003E00: 2E 00 FC 5D 04 1A 20 43 50 59 53 54 52 4C 45 4E |...].. CPYSTRLEN|
00003E10: 3B 53 54 52 49 4E 47 45 4E 44 45 20 45 52 52 45 |;STRINGENDE ERRE|
00003E20: 49 43 48 54 3F 00 11 5E 0E 1A 20 42 43 43 50 41 |ICHT?..^.. BCCPA|
00003E30: 52 33 3B 4E 45 49 4E 20 3D 3E 00 17 5E 18 1A 3B |R3;NEIN =>..^..;|
00003E40: 00 39 5E 22 1A 20 4C 44 41 43 4E 54 49 3B 4C 41 |.9^". LDACNTI;LA|
00003E50: 45 4E 47 45 20 44 45 53 20 41 4B 54 55 45 4C 4C |ENGE DES AKTUELL|
00003E60: 45 4E 00 5E 5E 2C 1A 20 53 54 41 57 4C 41 45 4E |EN.^^,. STAWLAEN|
00003E70: 47 45 2C 58 3B 57 49 4E 44 4F 57 53 20 49 4E 20 |GE,X;WINDOWS IN |
00003E80: 54 41 42 45 4C 4C 45 00 64 5E 36 1A 3B 00 86 5E |TABELLE.d^6.;..^|
00003E90: 40 1A 50 41 52 35 20 49 4E 58 3B 42 52 45 49 54 |@.PAR5 INX;BREIT|
00003EA0: 45 20 44 45 53 20 41 4B 54 55 45 4C 4C 45 4E 00 |E DES AKTUELLEN.|
00003EB0: A7 5E 4A 1A 20 4C 44 41 53 54 52 4C 45 4E 3B 57 |.^J. LDASTRLEN;W|
00003EC0: 49 4E 44 4F 57 53 20 45 42 45 4E 46 41 4C 4C 53 |INDOWS EBENFALLS|
00003ED0: 00 CB 5E 54 1A 20 53 54 41 57 42 52 45 49 54 45 |..^T. STAWBREITE|
00003EE0: 2C 58 3B 49 4E 20 54 41 42 45 4C 4C 45 20 4D 45 |,X;IN TABELLE ME|
00003EF0: 52 4B 45 4E 00 D1 5E 5E 1A 3B 00 ED 5E 68 1A 20 |RKEN..^^.;..^h. |
00003F00: 4A 53 52 4E 45 58 54 53 54 52 3B 4E 45 58 54 20 |JSRNEXTSTR;NEXT |
00003F10: 53 54 52 49 4E 47 00 0F 5F 72 1A 20 4A 53 52 48 |STRING.._r. JSRH|
00003F20: 4F 4C 44 45 53 3B 44 45 53 43 52 49 50 54 4F 52 |OLDES;DESCRIPTOR|
00003F30: 45 4E 20 48 4F 4C 45 4E 00 36 5F 7C 1A 20 4C 44 |EN HOLEN.6_|. LD|
00003F40: 41 49 4E 44 49 5A 3B 41 44 52 45 53 53 45 20 44 |AINDIZ;ADRESSE D|
00003F50: 45 52 20 44 45 53 43 52 49 50 54 4F 52 45 4E 00 |ER DESCRIPTOREN.|
00003F60: 5A 5F 86 1A 20 53 54 41 57 50 4F 49 4C 4F 57 2C |Z_.. STAWPOILOW,|
00003F70: 58 3B 49 4E 20 54 41 42 45 4C 4C 45 20 4D 45 52 |X;IN TABELLE MER|
00003F80: 4B 45 4E 00 6A 5F 90 1A 20 4C 44 41 49 4E 44 49 |KEN.j_.. LDAINDI|
00003F90: 5A 2B 31 00 7D 5F 9A 1A 20 53 54 41 57 50 4F 49 |Z+1.}_.. STAWPOI|
00003FA0: 48 49 47 48 2C 58 00 83 5F A4 1A 3B 00 A4 5F AE |HIGH,X.._..;.._.|
00003FB0: 1A 20 43 50 58 4D 5A 41 48 4C 3B 41 4C 4C 45 20 |. CPXMZAHL;ALLE |
00003FC0: 4D 45 4E 55 45 53 20 44 55 52 43 48 3F 00 B9 5F |MENUES DURCH?.._|
00003FD0: B8 1A 20 42 43 43 50 41 52 31 3B 4E 45 49 4E 20 |.. BCCPAR1;NEIN |
00003FE0: 3D 3E 00 BF 5F C2 1A 3B 00 C5 5F CC 1A 3B 00 CB |=>.._..;.._..;..|
00003FF0: 5F D6 1A 3B 00 EC 5F E0 1A 3B 2A 2A 2A 2A 2A 20 |_..;.._..;***** |
00004000: 49 4E 49 54 49 41 4C 49 53 49 45 52 55 4E 47 20 |INITIALISIERUNG |
00004010: 2A 2A 2A 2A 2A 00 06 60 EA 1A 20 4C 44 41 23 31 |*****..`.. LDA#1|
00004020: 39 3B 27 43 55 52 53 4F 52 20 48 4F 4D 45 27 00 |9;'CURSOR HOME'.|
00004030: 1D 60 F4 1A 20 4A 53 52 42 53 4F 55 54 3B 41 55 |.`.. JSRBSOUT;AU|
00004040: 53 47 45 42 45 4E 00 23 60 FE 1A 3B 00 3D 60 08 |SGEBEN.#`..;.=`.|
00004050: 1B 20 50 4C 41 3B 44 45 53 43 52 49 50 54 4F 52 |. PLA;DESCRIPTOR|
00004060: 45 4E 20 44 45 53 00 5D 60 12 1B 20 53 54 41 53 |EN DES.]`.. STAS|
00004070: 54 52 50 4F 53 2B 31 3B 4C 45 49 53 54 45 4E 53 |TRPOS+1;LEISTENS|
00004080: 54 52 49 4E 47 53 00 6C 60 1C 1B 20 50 4C 41 3B |TRINGS.l`.. PLA;|
00004090: 48 4F 4C 45 4E 00 7B 60 26 1B 20 53 54 41 53 54 |HOLEN.{`&. STAST|
000040A0: 52 50 4F 53 00 84 60 30 1B 20 50 4C 41 00 93 60 |RPOS..`0. PLA..`|
000040B0: 3A 1B 20 53 54 41 53 54 52 4C 45 4E 00 99 60 44 |:. STASTRLEN..`D|
000040C0: 1B 3B 00 BB 60 4E 1B 20 4C 44 59 23 30 3B 4C 45 |.;..`N. LDY#0;LE|
000040D0: 49 53 54 45 4E 53 54 52 49 4E 47 20 41 55 53 47 |ISTENSTRING AUSG|
000040E0: 45 42 45 4E 00 D3 60 58 1B 49 4E 49 54 31 20 4C |EBEN..`X.INIT1 L|
000040F0: 44 41 28 53 54 52 50 4F 53 29 2C 59 00 E1 60 62 |DA(STRPOS),Y..`b|
00004100: 1B 20 4A 53 52 42 53 4F 55 54 00 EA 60 6C 1B 20 |. JSRBSOUT..`l. |
00004110: 49 4E 59 00 F9 60 76 1B 20 43 50 59 53 54 52 4C |INY..`v. CPYSTRL|
00004120: 45 4E 00 07 61 80 1B 20 42 43 43 49 4E 49 54 31 |EN..a.. BCCINIT1|
00004130: 00 0D 61 8A 1B 3B 00 25 61 94 1B 20 4C 44 58 23 |..a..;.%a.. LDX#|
00004140: 30 3B 4D 45 4E 55 45 5A 41 45 48 4C 45 52 00 43 |0;MENUEZAEHLER.C|
00004150: 61 9E 1B 20 53 54 58 4D 43 4F 55 4E 54 3B 49 4E |a.. STXMCOUNT;IN|
00004160: 49 54 49 41 4C 49 53 49 45 52 45 4E 00 49 61 A8 |ITIALISIEREN.Ia.|
00004170: 1B 3B 00 4F 61 B2 1B 3B 00 55 61 BC 1B 3B 00 74 |.;.Oa..;.Ua..;.t|
00004180: 61 C6 1B 3B 2A 2A 2A 2A 2A 20 4D 45 4E 55 45 2D |a..;***** MENUE-|
00004190: 41 55 53 47 41 42 45 20 2A 2A 2A 2A 2A 00 9C 61 |AUSGABE *****..a|
000041A0: D0 1B 41 55 53 47 41 42 45 20 4A 53 52 4C 49 45 |..AUSGABE JSRLIE|
000041B0: 53 47 52 3B 55 4E 54 45 52 47 52 55 4E 44 20 52 |SGR;UNTERGRUND R|
000041C0: 45 54 54 45 4E 00 C2 61 DA 1B 20 4A 53 52 4D 49 |ETTEN..a.. JSRMI|
000041D0: 4E 56 45 52 54 3B 4D 45 4E 55 45 4E 41 4D 45 20 |NVERT;MENUENAME |
000041E0: 49 4E 56 45 52 54 49 45 52 45 4E 00 E0 61 E4 1B |INVERTIEREN..a..|
000041F0: 20 4A 53 52 4D 50 52 49 4E 54 3B 4D 45 4E 55 45 | JSRMPRINT;MENUE|
00004200: 20 41 55 53 47 45 42 45 4E 00 07 62 EE 1B 20 4C | AUSGEBEN..b.. L|
00004210: 44 41 23 32 35 35 3B 4D 45 4E 55 45 50 55 4E 4B |DA#255;MENUEPUNK|
00004220: 54 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E |T INITIALISIEREN|
00004230: 00 31 62 F8 1B 20 53 54 41 50 4F 49 4E 54 3B 28 |.1b.. STAPOINT;(|
00004240: 32 35 35 3D 4B 45 49 4E 20 50 55 4E 4B 54 20 41 |255=KEIN PUNKT A|
00004250: 4E 47 45 57 41 45 48 4C 54 29 00 56 62 02 1C 20 |NGEWAEHLT).Vb.. |
00004260: 4A 4D 50 44 4F 57 4E 31 3B 43 55 52 53 4F 52 20 |JMPDOWN1;CURSOR |
00004270: 44 4F 57 4E 20 53 49 4D 55 4C 49 45 52 45 4E 00 |DOWN SIMULIEREN.|
00004280: 5C 62 0C 1C 3B 00 62 62 16 1C 3B 00 68 62 20 1C |\b..;.bb..;.hb .|
00004290: 3B 00 8B 62 2A 1C 3B 2A 2A 2A 2A 2A 20 54 41 53 |;..b*.;***** TAS|
000042A0: 54 41 54 55 52 20 41 42 46 52 41 47 45 4E 20 2A |TATUR ABFRAGEN *|
000042B0: 2A 2A 2A 2A 00 A6 62 34 1C 47 45 54 20 4A 53 52 |****..b4.GET JSR|
000042C0: 47 45 54 49 4E 3B 41 55 46 20 54 41 53 54 45 00 |GETIN;AUF TASTE.|
000042D0: B9 62 3E 1C 20 42 45 51 47 45 54 3B 57 41 52 54 |.b>. BEQGET;WART|
000042E0: 45 4E 00 BF 62 48 1C 3B 00 E4 62 52 1C 20 4C 44 |EN..bH.;..bR. LD|
000042F0: 58 23 34 3B 43 55 52 53 4F 52 2D 20 4F 44 45 52 |X#4;CURSOR- ODER|
00004300: 20 52 45 54 55 52 4E 2D 54 41 53 54 45 00 01 63 | RETURN-TASTE..c|
00004310: 5C 1C 47 45 54 31 20 43 4D 50 4B 45 59 2C 58 3B |\.GET1 CMPKEY,X;|
00004320: 47 45 44 52 55 45 43 4B 54 3F 00 14 63 66 1C 20 |GEDRUECKT?..cf. |
00004330: 42 45 51 47 45 54 32 3B 4A 41 20 3D 3E 00 2B 63 |BEQGET2;JA =>.+c|
00004340: 70 1C 20 44 45 58 3B 41 4E 53 4F 4E 53 54 45 4E |p. DEX;ANSONSTEN|
00004350: 20 5A 55 4D 00 4C 63 7A 1C 20 42 50 4C 47 45 54 | ZUM.Lcz. BPLGET|
00004360: 31 3B 54 45 49 4C 20 27 44 49 52 45 4B 54 41 4E |1;TEIL 'DIREKTAN|
00004370: 57 41 48 4C 27 00 5B 63 84 1C 20 42 4D 49 44 49 |WAHL'.[c.. BMIDI|
00004380: 52 45 4B 54 00 61 63 8E 1C 3B 00 7C 63 98 1C 47 |REKT.ac..;.|c..G|
00004390: 45 54 32 20 54 58 41 3B 5A 41 45 48 4C 45 52 20 |ET2 TXA;ZAEHLER |
000043A0: 4D 49 54 20 32 00 94 63 A2 1C 20 41 53 4C 3B 4D |MIT 2..c.. ASL;M|
000043B0: 55 4C 54 49 50 4C 49 5A 49 45 52 45 4E 00 AF 63 |ULTIPLIZIEREN..c|
000043C0: AC 1C 20 54 41 58 3B 45 52 47 49 42 54 20 5A 45 |.. TAX;ERGIBT ZE|
000043D0: 49 47 45 52 20 41 55 46 00 CB 63 B6 1C 20 4C 44 |IGER AUF..c.. LD|
000043E0: 41 54 41 42 2C 58 3B 53 50 52 55 4E 47 54 41 42 |ATAB,X;SPRUNGTAB|
000043F0: 45 4C 4C 45 00 E7 63 C0 1C 20 53 54 41 56 45 4B |ELLE..c.. STAVEK|
00004400: 54 4F 52 3B 50 4F 49 4E 54 45 52 20 46 55 45 52 |TOR;POINTER FUER|
00004410: 00 08 64 CA 1C 20 4C 44 41 54 41 42 2B 31 2C 58 |..d.. LDATAB+1,X|
00004420: 3B 49 4E 49 52 45 4B 54 45 4E 20 53 50 52 55 4E |;INIREKTEN SPRUN|
00004430: 47 00 22 64 D4 1C 20 53 54 41 56 45 4B 54 4F 52 |G."d.. STAVEKTOR|
00004440: 2B 31 3B 45 52 5A 45 55 47 45 4E 00 40 64 DE 1C |+1;ERZEUGEN.@d..|
00004450: 20 4A 4D 50 28 56 45 4B 54 4F 52 29 3B 4A 4D 50 | JMP(VEKTOR);JMP|
00004460: 20 49 4E 44 49 52 45 4B 54 00 46 64 E8 1C 3B 00 | INDIREKT.Fd..;.|
00004470: 4C 64 F2 1C 3B 00 52 64 FC 1C 3B 00 71 64 06 1D |Ld..;.Rd..;.qd..|
00004480: 3B 2A 2A 2A 2A 2A 20 44 49 52 45 4B 54 41 4E 57 |;***** DIREKTANW|
00004490: 41 48 4C 3F 20 2A 2A 2A 2A 2A 00 9D 64 10 1D 44 |AHL? *****..d..D|
000044A0: 49 52 45 4B 54 20 43 4D 50 23 31 39 32 3B 53 48 |IREKT CMP#192;SH|
000044B0: 49 46 54 2D 54 41 53 54 45 4E 4B 4F 4D 42 49 4E |IFT-TASTENKOMBIN|
000044C0: 41 54 49 4F 4E 3F 00 A6 64 1A 1D 20 50 48 50 00 |ATION?..d.. PHP.|
000044D0: B3 64 24 1D 20 4F 52 41 23 31 32 38 00 C3 64 2E |.d$. ORA#128..d.|
000044E0: 1D 20 53 54 41 5A 45 49 43 48 45 4E 00 CC 64 38 |. STAZEICHEN..d8|
000044F0: 1D 20 50 4C 50 00 E3 64 42 1D 20 42 43 43 44 49 |. PLP..dB. BCCDI|
00004500: 52 45 4B 54 32 3B 4E 45 49 4E 3D 3E 00 E9 64 4C |REKT2;NEIN=>..dL|
00004510: 1D 3B 00 11 65 56 1D 20 4C 44 58 4D 5A 41 48 4C |.;..eV. LDXMZAHL|
00004520: 3B 55 4E 44 20 4D 49 54 20 41 4E 46 41 4E 47 53 |;UND MIT ANFANGS|
00004530: 42 55 43 48 53 54 41 42 45 4E 00 29 65 60 1D 20 |BUCHSTABEN.)e`. |
00004540: 44 45 58 3B 44 45 52 20 4D 45 4E 55 45 4E 41 4D |DEX;DER MENUENAM|
00004550: 45 4E 00 4B 65 6A 1D 44 49 52 45 4B 54 31 20 43 |EN.Kej.DIREKT1 C|
00004560: 4D 50 53 49 47 4E 2C 58 3B 56 45 52 47 4C 45 49 |MPSIGN,X;VERGLEI|
00004570: 43 48 45 4E 00 63 65 74 1D 20 42 45 51 4D 45 4E |CHEN.cet. BEQMEN|
00004580: 55 45 3B 47 4C 45 49 43 48 20 3D 3E 00 6C 65 7E |UE;GLEICH =>.le~|
00004590: 1D 20 44 45 58 00 7C 65 88 1D 20 42 50 4C 44 49 |. DEX.|e.. BPLDI|
000045A0: 52 45 4B 54 31 00 9E 65 92 1D 20 42 4D 49 47 45 |REKT1..e.. BMIGE|
000045B0: 54 3B 46 41 4C 53 43 48 45 52 20 42 55 43 48 53 |T;FALSCHER BUCHS|
000045C0: 54 41 42 45 20 3D 3E 00 A4 65 9C 1D 3B 00 C0 65 |TABE =>..e..;..e|
000045D0: A6 1D 4D 45 4E 55 45 20 54 58 41 3B 58 20 28 5A |..MENUE TXA;X (Z|
000045E0: 45 49 47 45 52 20 41 55 46 00 DE 65 B0 1D 20 50 |EIGER AUF..e.. P|
000045F0: 48 41 3B 4D 45 4E 55 45 2D 43 4F 4D 41 4E 44 29 |HA;MENUE-COMAND)|
00004600: 20 52 45 54 54 45 4E 00 03 66 BA 1D 20 4A 53 52 | RETTEN..f.. JSR|
00004610: 48 4F 4C 47 52 3B 41 4C 54 45 4E 20 55 4E 54 45 |HOLGR;ALTEN UNTE|
00004620: 52 47 52 55 4E 44 20 48 4F 4C 45 4E 00 32 66 C4 |RGRUND HOLEN.2f.|
00004630: 1D 20 4A 53 52 4D 4E 4F 52 4D 41 4C 3B 41 4C 54 |. JSRMNORMAL;ALT|
00004640: 45 4E 20 4D 45 4E 55 45 4E 41 4D 45 4E 20 4E 4F |EN MENUENAMEN NO|
00004650: 52 4D 41 4C 49 53 49 45 52 45 4E 00 4D 66 CE 1D |RMALISIEREN.Mf..|
00004660: 20 50 4C 41 3B 58 20 57 49 45 44 45 52 48 4F 4C | PLA;X WIEDERHOL|
00004670: 45 4E 20 55 4E 44 00 75 66 D8 1D 20 54 41 58 3B |EN UND.uf.. TAX;|
00004680: 4E 41 43 48 20 27 43 52 53 2E 4C 45 46 54 2F 52 |NACH 'CRS.LEFT/R|
00004690: 49 47 48 54 27 20 53 50 52 49 4E 47 45 4E 00 8D |IGHT' SPRINGEN..|
000046A0: 66 E2 1D 20 4A 4D 50 4D 4F 4B 41 59 3B 49 4D 4D |f.. JMPMOKAY;IMM|
000046B0: 45 52 20 21 21 21 00 93 66 EC 1D 3B 00 BE 66 F6 |ER !!!..f..;..f.|
000046C0: 1D 44 49 52 45 4B 54 32 20 4C 44 58 4D 43 4F 55 |.DIREKT2 LDXMCOU|
000046D0: 4E 54 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 31 |NT;POINTER AUF 1|
000046E0: 2E 53 54 52 49 4E 47 00 DE 66 00 1E 20 4C 44 41 |.STRING..f.. LDA|
000046F0: 57 50 4F 49 4C 4F 57 2C 58 3B 44 45 53 20 41 4B |WPOILOW,X;DES AK|
00004700: 54 55 45 4C 4C 45 4E 00 F8 66 0A 1E 20 53 54 41 |TUELLEN..f.. STA|
00004710: 49 4E 44 49 5A 3B 4D 45 4E 55 45 53 20 4E 41 43 |INDIZ;MENUES NAC|
00004720: 48 00 17 67 14 1E 20 4C 44 41 57 50 4F 49 48 49 |H..g.. LDAWPOIHI|
00004730: 47 48 2C 58 3B 27 49 4E 44 49 5A 28 2B 31 29 27 |GH,X;'INDIZ(+1)'|
00004740: 00 2D 67 1E 1E 20 53 54 41 49 4E 44 49 5A 2B 31 |.-g.. STAINDIZ+1|
00004750: 3B 48 4F 4C 45 4E 00 33 67 28 1E 3B 00 54 67 32 |;HOLEN.3g(.;.Tg2|
00004760: 1E 20 4C 44 41 23 30 3B 5A 41 45 48 4C 45 52 20 |. LDA#0;ZAEHLER |
00004770: 49 4E 54 49 41 4C 49 53 49 45 52 45 4E 00 64 67 |INTIALISIEREN.dg|
00004780: 3C 1E 44 49 52 45 4B 54 33 20 54 41 58 00 86 67 |<.DIREKT3 TAX..g|
00004790: 46 1E 20 4A 53 52 48 4F 4C 44 45 53 3B 44 45 53 |F. JSRHOLDES;DES|
000047A0: 43 52 49 50 54 4F 52 45 4E 20 48 4F 4C 45 4E 00 |CRIPTOREN HOLEN.|
000047B0: AD 67 50 1E 44 49 52 45 4B 54 35 20 49 4E 59 3B |.gP.DIREKT5 INY;|
000047C0: 54 41 53 54 45 20 4D 49 54 20 44 45 4E 20 41 4E |TASTE MIT DEN AN|
000047D0: 46 41 4E 47 53 2D 00 D6 67 5A 1E 20 4C 44 41 28 |FANGS-..gZ. LDA(|
000047E0: 53 54 52 50 4F 53 29 2C 59 3B 42 55 43 48 53 54 |STRPOS),Y;BUCHST|
000047F0: 41 42 45 4E 20 44 45 52 20 4D 45 4E 55 45 2D 00 |ABEN DER MENUE-.|
00004800: E3 67 64 1E 20 43 4D 50 23 22 20 22 00 F3 67 6E |.gd. CMP#" "..gn|
00004810: 1E 20 42 45 51 44 49 52 45 4B 54 35 00 17 68 78 |. BEQDIREKT5..hx|
00004820: 1E 20 43 4D 50 5A 45 49 43 48 45 4E 3B 53 54 52 |. CMPZEICHEN;STR|
00004830: 49 4E 47 53 20 56 45 52 47 4C 45 49 43 48 45 4E |INGS VERGLEICHEN|
00004840: 00 31 68 82 1E 20 42 45 51 44 49 52 45 4B 54 34 |.1h.. BEQDIREKT4|
00004850: 3B 47 4C 45 49 43 48 20 3D 3E 00 53 68 8C 1E 20 |;GLEICH =>.Sh.. |
00004860: 4A 53 52 4E 45 58 54 53 54 52 3B 53 4F 4E 53 54 |JSRNEXTSTR;SONST|
00004870: 20 4E 45 58 54 20 53 54 52 49 4E 47 00 6E 68 96 | NEXT STRING.nh.|
00004880: 1E 20 49 4E 58 3B 55 4E 54 45 52 53 55 43 48 45 |. INX;UNTERSUCHE|
00004890: 4E 2C 20 57 45 4E 4E 00 86 68 A0 1E 20 54 58 41 |N, WENN..h.. TXA|
000048A0: 3B 4C 45 54 5A 54 45 52 20 4D 45 4E 55 45 2D 00 |;LETZTER MENUE-.|
000048B0: A7 68 AA 1E 20 4C 44 58 4D 43 4F 55 4E 54 3B 53 |.h.. LDXMCOUNT;S|
000048C0: 54 52 49 4E 47 20 4E 4F 43 48 20 4E 49 43 48 54 |TRING NOCH NICHT|
000048D0: 00 C9 68 B4 1E 20 43 4D 50 57 4C 41 45 4E 47 45 |..h.. CMPWLAENGE|
000048E0: 2C 58 3B 42 45 48 41 4E 44 45 4C 54 20 57 55 52 |,X;BEHANDELT WUR|
000048F0: 44 45 00 D9 68 BE 1E 20 42 43 43 44 49 52 45 4B |DE..h.. BCCDIREK|
00004900: 54 33 00 0B 69 C8 1E 20 42 43 53 47 45 54 3B 42 |T3..i.. BCSGET;B|
00004910: 55 43 48 53 54 41 42 45 20 4E 49 43 48 54 20 49 |UCHSTABE NICHT I|
00004920: 4D 20 4D 45 4E 55 45 20 56 4F 52 48 41 4E 44 45 |M MENUE VORHANDE|
00004930: 4E 20 3D 3E 00 11 69 D2 1E 3B 00 38 69 DC 1E 44 |N =>..i..;.8i..D|
00004940: 49 52 45 4B 54 34 20 53 54 58 50 4F 49 4E 54 3B |IREKT4 STXPOINT;|
00004950: 4D 45 4E 55 45 50 55 4E 4B 54 20 52 45 54 54 45 |MENUEPUNKT RETTE|
00004960: 4E 00 3E 69 E6 1E 3B 00 44 69 F0 1E 3B 00 4A 69 |N.>i..;.Di..;.Ji|
00004970: FA 1E 3B 00 72 69 04 1F 3B 2A 2A 2A 2A 2A 20 5A |..;.ri..;***** Z|
00004980: 55 52 55 45 43 4B 20 4E 41 43 48 20 42 41 53 49 |URUECK NACH BASI|
00004990: 43 20 21 21 21 20 2A 2A 2A 2A 2A 00 87 69 0E 1F |C !!! *****..i..|
000049A0: 52 45 54 55 52 4E 20 4A 53 52 43 48 4B 4B 4F 4D |RETURN JSRCHKKOM|
000049B0: 00 96 69 18 1F 20 4A 53 52 47 45 54 50 4F 53 00 |..i.. JSRGETPOS.|
000049C0: A4 69 22 1F 20 53 54 41 49 4E 44 49 5A 00 B4 69 |.i". STAINDIZ..i|
000049D0: 2C 1F 20 53 54 59 49 4E 44 49 5A 2B 31 00 C3 69 |,. STYINDIZ+1..i|
000049E0: 36 1F 20 4A 53 52 43 48 4B 4B 4F 4D 00 D2 69 40 |6. JSRCHKKOM..i@|
000049F0: 1F 20 4A 53 52 47 45 54 50 4F 53 00 E1 69 4A 1F |. JSRGETPOS..iJ.|
00004A00: 20 53 54 41 49 4E 44 49 5A 31 00 F2 69 54 1F 20 | STAINDIZ1..iT. |
00004A10: 53 54 59 49 4E 44 49 5A 31 2B 31 00 F8 69 5E 1F |STYINDIZ1+1..i^.|
00004A20: 3B 00 05 6A 68 1F 20 4C 44 41 23 24 30 30 00 0E |;..jh. LDA#$00..|
00004A30: 6A 72 1F 20 54 41 59 00 20 6A 7C 1F 20 53 54 41 |jr. TAY. j|. STA|
00004A40: 28 49 4E 44 49 5A 29 2C 59 00 33 6A 86 1F 20 53 |(INDIZ),Y.3j.. S|
00004A50: 54 41 28 49 4E 44 49 5A 31 29 2C 59 00 3C 6A 90 |TA(INDIZ1),Y.<j.|
00004A60: 1F 20 49 4E 59 00 4B 6A 9A 1F 20 4C 44 41 4D 43 |. INY.Kj.. LDAMC|
00004A70: 4F 55 4E 54 00 5D 6A A4 1F 20 53 54 41 28 49 4E |OUNT.]j.. STA(IN|
00004A80: 44 49 5A 29 2C 59 00 6B 6A AE 1F 20 4C 44 41 50 |DIZ),Y.kj.. LDAP|
00004A90: 4F 49 4E 54 00 7E 6A B8 1F 20 53 54 41 28 49 4E |OINT.~j.. STA(IN|
00004AA0: 44 49 5A 31 29 2C 59 00 84 6A C2 1F 3B 00 AC 6A |DIZ1),Y..j..;..j|
00004AB0: CC 1F 20 4A 53 52 4D 4E 4F 52 4D 41 4C 3B 4D 45 |.. JSRMNORMAL;ME|
00004AC0: 4E 55 45 4E 41 4D 45 20 4E 4F 52 4D 41 4C 49 53 |NUENAME NORMALIS|
00004AD0: 49 45 52 45 4E 00 E5 6A D6 1F 20 4A 4D 50 48 4F |IEREN..j.. JMPHO|
00004AE0: 4C 47 52 3B 55 4E 54 45 52 47 52 55 4E 44 20 48 |LGR;UNTERGRUND H|
00004AF0: 4F 4C 45 4E 20 2B 20 52 54 53 20 21 21 21 20 3D |OLEN + RTS !!! =|
00004B00: 3E 20 42 41 53 49 43 20 21 21 21 21 21 21 00 EB |> BASIC !!!!!!..|
00004B10: 6A E0 1F 3B 00 F1 6A EA 1F 3B 00 F7 6A F4 1F 3B |j..;..j..;..j..;|
00004B20: 00 1F 6B FE 1F 3B 2A 2A 2A 2A 2A 20 43 55 52 53 |..k..;***** CURS|
00004B30: 4F 52 54 41 53 54 45 4E 20 42 45 48 41 4E 44 45 |ORTASTEN BEHANDE|
00004B40: 4C 4E 20 2A 2A 2A 2A 2A 00 43 6B 08 20 52 49 47 |LN *****.Ck. RIG|
00004B50: 48 54 20 4A 53 52 48 4F 4C 47 52 3B 55 4E 54 45 |HT JSRHOLGR;UNTE|
00004B60: 52 47 52 55 4E 44 20 48 4F 4C 45 4E 00 6B 6B 12 |RGRUND HOLEN.kk.|
00004B70: 20 20 4A 53 52 4D 4E 4F 52 4D 41 4C 3B 4D 45 4E | JSRMNORMAL;MEN|
00004B80: 55 45 4E 41 4D 45 20 4E 4F 52 4D 41 4C 49 53 49 |UENAME NORMALISI|
00004B90: 45 52 45 4E 00 8F 6B 1C 20 20 4C 44 58 4D 43 4F |EREN..k. LDXMCO|
00004BA0: 55 4E 54 3B 57 45 4E 4E 20 42 45 52 45 49 54 53 |UNT;WENN BEREITS|
00004BB0: 20 4C 45 54 5A 54 45 53 00 B0 6B 26 20 20 49 4E | LETZTES..k& IN|
00004BC0: 58 3B 4D 45 4E 55 45 20 45 52 52 45 49 43 48 54 |X;MENUE ERREICHT|
00004BD0: 3A 20 5A 41 45 48 4C 45 52 00 D1 6B 30 20 20 43 |: ZAEHLER..k0 C|
00004BE0: 50 58 4D 5A 41 48 4C 3B 41 55 46 20 31 2E 4D 45 |PXMZAHL;AUF 1.ME|
00004BF0: 4E 55 45 2C 20 53 4F 4E 53 54 00 EF 6B 3A 20 20 |NUE, SONST..k: |
00004C00: 42 43 43 4D 4F 4B 41 59 3B 5A 41 45 48 4C 45 52 |BCCMOKAY;ZAEHLER|
00004C10: 20 49 4E 4B 52 45 4D 2E 00 FA 6B 44 20 20 4C 44 | INKREM...kD LD|
00004C20: 58 23 30 00 12 6C 4E 20 20 42 45 51 4D 4F 4B 41 |X#0..lN BEQMOKA|
00004C30: 59 3B 49 4D 4D 45 52 20 21 21 21 00 18 6C 58 20 |Y;IMMER !!!..lX |
00004C40: 3B 00 3B 6C 62 20 4C 45 46 54 20 4A 53 52 48 4F |;.;lb LEFT JSRHO|
00004C50: 4C 47 52 3B 55 4E 54 45 52 47 52 55 4E 44 20 48 |LGR;UNTERGRUND H|
00004C60: 4F 4C 45 4E 00 63 6C 6C 20 20 4A 53 52 4D 4E 4F |OLEN.cll JSRMNO|
00004C70: 52 4D 41 4C 3B 4D 45 4E 55 45 4E 41 4D 45 20 4E |RMAL;MENUENAME N|
00004C80: 4F 52 4D 41 4C 49 53 49 45 52 45 4E 00 87 6C 76 |ORMALISIEREN..lv|
00004C90: 20 20 4C 44 58 4D 43 4F 55 4E 54 3B 57 45 4E 4E | LDXMCOUNT;WENN|
00004CA0: 20 5A 41 45 48 4C 45 52 20 42 45 52 45 49 54 53 | ZAEHLER BEREITS|
00004CB0: 00 A5 6C 80 20 20 44 45 58 3B 41 55 46 20 31 2E |..l. DEX;AUF 1.|
00004CC0: 4D 45 4E 55 45 3A 20 5A 41 45 48 4C 45 52 00 C2 |MENUE: ZAEHLER..|
00004CD0: 6C 8A 20 20 43 50 58 23 32 35 35 3B 41 55 46 20 |l. CPX#255;AUF |
00004CE0: 4C 41 53 54 20 4D 45 4E 55 45 2C 00 DE 6C 94 20 |LAST MENUE,..l. |
00004CF0: 20 42 4E 45 4D 4F 4B 41 59 3B 53 4F 4E 53 54 20 | BNEMOKAY;SONST |
00004D00: 5A 41 45 48 4C 45 52 00 F4 6C 9E 20 20 4C 44 58 |ZAEHLER..l. LDX|
00004D10: 4D 5A 41 48 4C 3B 44 45 4B 52 45 4D 2E 00 FD 6C |MZAHL;DEKREM...l|
00004D20: A8 20 20 44 45 58 00 03 6D B2 20 3B 00 2A 6D BC |. DEX..m. ;.*m.|
00004D30: 20 4D 4F 4B 41 59 20 53 54 58 4D 43 4F 55 4E 54 | MOKAY STXMCOUNT|
00004D40: 3B 4D 45 4E 55 45 4E 55 4D 4D 45 52 20 52 45 54 |;MENUENUMMER RET|
00004D50: 54 45 4E 00 53 6D C6 20 20 4A 4D 50 41 55 53 47 |TEN.Sm. JMPAUSG|
00004D60: 41 42 45 3B 4D 45 4E 55 45 20 41 55 53 47 45 42 |ABE;MENUE AUSGEB|
00004D70: 45 4E 20 2B 20 52 54 53 20 21 21 21 00 59 6D D0 |EN + RTS !!!.Ym.|
00004D80: 20 3B 00 81 6D DA 20 44 4F 57 4E 20 4C 44 41 50 | ;..m. DOWN LDAP|
00004D90: 4F 49 4E 54 3B 4E 41 45 43 48 53 54 45 53 20 4D |OINT;NAECHSTES M|
00004DA0: 45 4E 55 45 2C 20 57 45 4E 4E 00 A3 6D E4 20 20 |ENUE, WENN..m. |
00004DB0: 42 4D 49 44 4F 57 4E 31 3B 4C 45 54 5A 54 45 53 |BMIDOWN1;LETZTES|
00004DC0: 20 4D 45 4E 55 45 20 4E 49 43 48 54 00 C7 6D EE | MENUE NICHT..m.|
00004DD0: 20 20 4A 53 52 43 4F 4D 4E 4F 52 4D 41 4C 3B 42 | JSRCOMNORMAL;B|
00004DE0: 45 52 45 49 54 53 20 45 52 52 45 49 43 48 54 2C |EREITS ERREICHT,|
00004DF0: 00 E8 6D F8 20 44 4F 57 4E 31 20 49 4E 43 50 4F |..m. DOWN1 INCPO|
00004E00: 49 4E 54 3B 53 4F 4E 53 54 20 31 2E 4D 45 4E 55 |INT;SONST 1.MENU|
00004E10: 45 00 F7 6D 02 21 20 4C 44 58 4D 43 4F 55 4E 54 |E..m.! LDXMCOUNT|
00004E20: 00 05 6E 0C 21 20 4C 44 41 50 4F 49 4E 54 00 17 |..n.! LDAPOINT..|
00004E30: 6E 16 21 20 43 4D 50 57 4C 41 45 4E 47 45 2C 58 |n.! CMPWLAENGE,X|
00004E40: 00 25 6E 20 21 20 42 43 43 44 4F 57 4E 32 00 30 |.%n ! BCCDOWN2.0|
00004E50: 6E 2A 21 20 4C 44 41 23 30 00 3E 6E 34 21 20 53 |n*! LDA#0.>n4! S|
00004E60: 54 41 50 4F 49 4E 54 00 76 6E 3E 21 44 4F 57 4E |TAPOINT.vn>!DOWN|
00004E70: 32 20 4A 53 52 43 4F 4D 49 4E 56 45 52 54 3B 41 |2 JSRCOMINVERT;A|
00004E80: 4B 54 55 45 4C 4C 45 4E 20 4D 45 4E 55 45 50 55 |KTUELLEN MENUEPU|
00004E90: 4E 4B 54 20 49 4E 56 45 52 54 49 45 52 45 4E 00 |NKT INVERTIEREN.|
00004EA0: 9A 6E 48 21 44 4F 57 4E 33 20 4A 4D 50 47 45 54 |.nH!DOWN3 JMPGET|
00004EB0: 3B 3D 3E 20 45 49 4E 47 41 42 45 53 43 48 4C 45 |;=> EINGABESCHLE|
00004EC0: 49 46 45 00 A0 6E 52 21 3B 00 C4 6E 5C 21 55 50 |IFE..nR!;..n\!UP|
00004ED0: 20 4C 44 41 50 4F 49 4E 54 3B 56 4F 52 49 47 45 | LDAPOINT;VORIGE|
00004EE0: 52 20 4D 45 4E 55 45 50 55 4E 4B 54 2C 00 EA 6E |R MENUEPUNKT,..n|
00004EF0: 66 21 20 42 4D 49 44 4F 57 4E 33 3B 57 45 4E 4E |f! BMIDOWN3;WENN|
00004F00: 20 31 2E 4D 45 4E 55 45 50 55 4E 4B 54 20 4E 49 | 1.MENUEPUNKT NI|
00004F10: 43 48 54 00 0E 6F 70 21 20 4A 53 52 43 4F 4D 4E |CHT..op! JSRCOMN|
00004F20: 4F 52 4D 41 4C 3B 42 45 52 45 49 54 53 20 45 52 |ORMAL;BEREITS ER|
00004F30: 52 45 49 43 48 54 2C 00 32 6F 7A 21 20 4C 44 41 |REICHT,.2oz! LDA|
00004F40: 50 4F 49 4E 54 3B 53 4F 4E 53 54 20 4C 41 53 54 |POINT;SONST LAST|
00004F50: 20 4D 45 4E 55 45 50 55 4E 4B 54 00 3E 6F 84 21 | MENUEPUNKT.>o.!|
00004F60: 20 42 4E 45 55 50 31 00 4D 6F 8E 21 20 4C 44 58 | BNEUP1.Mo.! LDX|
00004F70: 4D 43 4F 55 4E 54 00 5F 6F 98 21 20 4C 44 41 57 |MCOUNT._o.! LDAW|
00004F80: 4C 41 45 4E 47 45 2C 58 00 6D 6F A2 21 20 53 54 |LAENGE,X.mo.! ST|
00004F90: 41 50 4F 49 4E 54 00 7E 6F AC 21 55 50 31 20 44 |APOINT.~o.!UP1 D|
00004FA0: 45 43 50 4F 49 4E 54 00 A2 6F B6 21 20 4A 4D 50 |ECPOINT..o.! JMP|
00004FB0: 44 4F 57 4E 32 3B 57 45 49 54 45 52 20 57 49 45 |DOWN2;WEITER WIE|
00004FC0: 20 42 45 49 20 27 44 4F 57 4E 27 00 A8 6F C0 21 | BEI 'DOWN'..o.!|
00004FD0: 3B 00 AE 6F CA 21 3B 00 B4 6F D4 21 3B 00 DE 6F |;..o.!;..o.!;..o|
00004FE0: DE 21 3B 2A 2A 2A 2A 2A 20 4D 45 4E 55 45 50 55 |.!;***** MENUEPU|
00004FF0: 4E 4B 54 20 49 4E 56 45 52 54 2E 2F 4E 4F 52 4D |NKT INVERT./NORM|
00005000: 41 4C 2A 2A 2A 2A 2A 00 01 70 E8 21 43 4F 4D 4E |AL*****..p.!COMN|
00005010: 4F 52 4D 41 4C 20 4C 44 41 23 30 3B 4E 4F 52 4D |ORMAL LDA#0;NORM|
00005020: 41 4C 49 53 49 45 52 45 4E 3A 00 14 70 F2 21 20 |ALISIEREN:..p.! |
00005030: 2E 42 59 24 32 43 3B 46 4C 41 47 3D 30 00 35 70 |.BY$2C;FLAG=0.5p|
00005040: FC 21 43 4F 4D 49 4E 56 45 52 54 20 4C 44 41 23 |.!COMINVERT LDA#|
00005050: 31 3B 49 4E 56 45 52 54 49 45 52 45 4E 3A 00 49 |1;INVERTIEREN:.I|
00005060: 70 06 22 20 53 54 41 46 4C 41 47 3B 46 4C 41 47 |p." STAFLAG;FLAG|
00005070: 3D 31 00 58 70 10 22 43 4F 4D 31 20 4C 44 41 23 |=1.Xp."COM1 LDA#|
00005080: 32 00 74 70 1A 22 20 43 4C 43 3B 49 4E 56 45 52 |2.tp." CLC;INVER|
00005090: 54 49 45 52 50 41 52 41 4D 45 54 45 52 00 94 70 |TIERPARAMETER..p|
000050A0: 24 22 20 41 44 43 50 4F 49 4E 54 3B 28 4C 49 4E |$" ADCPOINT;(LIN|
000050B0: 45 2C 43 4F 4C 2C 42 52 45 49 54 45 2C 00 B2 70 |E,COL,BREITE,..p|
000050C0: 2E 22 20 53 54 41 4C 49 4E 45 3B 4C 41 45 4E 47 |." STALINE;LAENG|
000050D0: 45 29 20 46 55 45 52 20 44 45 4E 00 D2 70 38 22 |E) FUER DEN..p8"|
000050E0: 20 4C 44 58 4D 43 4F 55 4E 54 3B 41 4B 54 55 45 | LDXMCOUNT;AKTUE|
000050F0: 4C 4C 45 4E 20 4D 45 4E 55 45 2D 00 F3 70 42 22 |LLEN MENUE-..pB"|
00005100: 20 4C 44 41 53 54 41 52 54 2C 58 3B 50 55 4E 4B | LDASTART,X;PUNK|
00005110: 54 20 53 45 54 5A 45 4E 20 55 4E 44 00 0E 71 4C |T SETZEN UND..qL|
00005120: 22 20 53 54 41 43 4F 4C 3B 44 49 45 20 49 4E 56 |" STACOL;DIE INV|
00005130: 45 52 54 49 45 52 2D 00 2B 71 56 22 20 49 4E 43 |ERTIER-.+qV" INC|
00005140: 43 4F 4C 3B 52 4F 55 54 49 4E 45 20 41 55 46 52 |COL;ROUTINE AUFR|
00005150: 55 46 45 4E 00 3D 71 60 22 20 4C 44 41 57 42 52 |UFEN.=q`" LDAWBR|
00005160: 45 49 54 45 2C 58 00 4C 71 6A 22 20 53 54 41 42 |EITE,X.Lqj" STAB|
00005170: 52 45 49 54 45 00 57 71 74 22 20 4C 44 41 23 31 |REITE.Wqt" LDA#1|
00005180: 00 66 71 7E 22 20 53 54 41 4C 41 45 4E 47 45 00 |.fq~" STALAENGE.|
00005190: 7D 71 88 22 20 4A 4D 50 49 4E 56 4A 53 52 3B 52 |}q." JMPINVJSR;R|
000051A0: 54 53 20 21 21 21 00 83 71 92 22 3B 00 89 71 9C |TS !!!..q.";..q.|
000051B0: 22 3B 00 8F 71 A6 22 3B 00 B9 71 B0 22 3B 2A 2A |";..q.";..q.";**|
000051C0: 2A 2A 2A 20 4D 45 4E 55 45 4E 41 4D 45 20 49 4E |*** MENUENAME IN|
000051D0: 56 45 52 54 2F 4E 4F 52 4D 41 4C 49 53 2A 2A 2A |VERT/NORMALIS***|
000051E0: 2A 2A 00 DA 71 BA 22 4D 4E 4F 52 4D 41 4C 20 4C |**..q."MNORMAL L|
000051F0: 44 41 23 30 3B 4E 4F 52 4D 41 4C 49 53 49 45 52 |DA#0;NORMALISIER|
00005200: 45 4E 3A 00 ED 71 C4 22 20 2E 42 59 24 32 43 3B |EN:..q." .BY$2C;|
00005210: 46 4C 41 47 3D 30 00 0C 72 CE 22 4D 49 4E 56 45 |FLAG=0..r."MINVE|
00005220: 52 54 20 4C 44 41 23 31 3B 49 4E 56 45 52 54 49 |RT LDA#1;INVERTI|
00005230: 45 52 45 4E 3A 00 20 72 D8 22 20 53 54 41 46 4C |EREN:. r." STAFL|
00005240: 41 47 3B 46 4C 41 47 3D 31 00 2F 72 E2 22 4D 4E |AG;FLAG=1./r."MN|
00005250: 4F 52 20 4C 44 58 23 30 00 4F 72 EC 22 20 53 54 |OR LDX#0.Or." ST|
00005260: 58 4C 49 4E 45 3B 49 4E 56 45 52 54 49 45 52 50 |XLINE;INVERTIERP|
00005270: 41 52 41 4D 45 54 45 52 00 6B 72 F6 22 20 49 4E |ARAMETER.kr." IN|
00005280: 58 3B 55 45 42 45 52 47 45 42 45 4E 20 28 5A 45 |X;UEBERGEBEN (ZE|
00005290: 49 4C 45 2C 00 91 72 00 23 20 53 54 58 4C 41 45 |ILE,..r.# STXLAE|
000052A0: 4E 47 45 3B 4C 41 45 4E 47 45 2C 46 4C 41 47 20 |NGE;LAENGE,FLAG |
000052B0: 53 49 4E 44 20 46 45 53 54 29 00 97 72 0A 23 3B |SIND FEST)..r.#;|
000052C0: 00 B7 72 14 23 20 4C 44 58 4D 43 4F 55 4E 54 3B |..r.# LDXMCOUNT;|
000052D0: 53 54 41 52 54 53 50 41 41 4C 54 45 20 55 4E 44 |STARTSPAALTE UND|
000052E0: 00 D7 72 1E 23 20 4C 44 41 53 54 41 52 54 2C 58 |..r.# LDASTART,X|
000052F0: 3B 49 4E 56 45 52 54 49 45 52 42 52 45 49 54 45 |;INVERTIERBREITE|
00005300: 00 DD 72 28 23 3B 00 E6 72 32 23 20 43 4C 43 00 |..r(#;..r2# CLC.|
00005310: F1 72 3C 23 20 41 44 43 23 32 00 F7 72 46 23 3B |.r<# ADC#2..rF#;|
00005320: 00 0D 73 50 23 20 53 54 41 43 4F 4C 3B 42 45 53 |..sP# STACOL;BES|
00005330: 54 49 4D 4D 45 4E 00 33 73 5A 23 20 4C 44 41 4C |TIMMEN.3sZ# LDAL|
00005340: 45 4E 47 54 48 2C 58 3B 55 4E 44 20 49 4E 56 45 |ENGTH,X;UND INVE|
00005350: 52 54 49 45 52 52 4F 55 54 49 4E 45 00 4B 73 64 |RTIERROUTINE.Ksd|
00005360: 23 20 53 54 41 42 52 45 49 54 45 3B 41 55 46 52 |# STABREITE;AUFR|
00005370: 55 46 45 4E 00 51 73 6E 23 3B 00 68 73 78 23 20 |UFEN.Qsn#;.hsx# |
00005380: 4A 4D 50 49 4E 56 4A 53 52 3B 52 54 53 20 21 21 |JMPINVJSR;RTS !!|
00005390: 21 00 6E 73 82 23 3B 00 74 73 8C 23 3B 00 7A 73 |!.ns.#;.ts.#;.zs|
000053A0: 96 23 3B 00 9A 73 A0 23 3B 2A 2A 2A 2A 2A 20 4D |.#;..s.#;***** M|
000053B0: 45 4E 55 45 20 41 55 53 47 45 42 45 4E 20 2A 2A |ENUE AUSGEBEN **|
000053C0: 2A 2A 2A 00 C4 73 AA 23 4D 50 52 49 4E 54 20 4A |***..s.#MPRINT J|
000053D0: 53 52 57 50 41 52 41 4D 3B 50 4F 49 4E 54 45 52 |SRWPARAM;POINTER|
000053E0: 20 41 55 46 20 31 2E 4D 45 4E 55 45 2D 00 EC 73 | AUF 1.MENUE-..s|
000053F0: B4 23 20 4C 44 41 57 50 4F 49 4C 4F 57 2C 58 3B |.# LDAWPOILOW,X;|
00005400: 53 54 52 49 4E 47 20 55 45 42 45 52 47 45 42 45 |STRING UEBERGEBE|
00005410: 4E 20 55 4E 44 00 13 74 BE 23 20 4C 44 59 57 50 |N UND..t.# LDYWP|
00005420: 4F 49 48 49 47 48 2C 58 3B 4D 41 4C 52 4F 55 54 |OIHIGH,X;MALROUT|
00005430: 49 4E 45 20 41 55 46 52 55 46 45 4E 00 2A 74 C8 |INE AUFRUFEN.*t.|
00005440: 23 20 4A 4D 50 57 49 4E 4A 53 52 3B 52 54 53 20 |# JMPWINJSR;RTS |
00005450: 21 21 21 00 30 74 D2 23 3B 00 36 74 DC 23 3B 00 |!!!.0t.#;.6t.#;.|
00005460: 3C 74 E6 23 3B 00 65 74 F0 23 3B 2A 2A 2A 2A 2A |<t.#;.et.#;*****|
00005470: 20 55 4E 54 45 52 47 52 55 4E 44 20 52 45 54 54 | UNTERGRUND RETT|
00005480: 45 4E 2F 48 4F 4C 45 4E 20 2A 2A 2A 2A 2A 00 76 |EN/HOLEN *****.v|
00005490: 74 FA 23 4C 49 45 53 47 52 20 4C 44 41 23 30 00 |t.#LIESGR LDA#0.|
000054A0: 82 74 04 24 20 2E 42 59 24 32 43 00 92 74 0E 24 |.t.$ .BY$2C..t.$|
000054B0: 48 4F 4C 47 52 20 4C 44 41 23 31 00 9F 74 18 24 |HOLGR LDA#1..t.$|
000054C0: 20 53 54 41 46 4C 41 47 00 C9 74 22 24 4C 49 45 | STAFLAG..t"$LIE|
000054D0: 53 31 20 4A 53 52 57 50 41 52 41 4D 3B 57 49 4E |S1 JSRWPARAM;WIN|
000054E0: 44 4F 57 50 41 52 41 4D 45 54 45 52 20 48 4F 4C |DOWPARAMETER HOL|
000054F0: 45 4E 00 EF 74 2C 24 20 4A 4D 50 50 55 46 46 45 |EN..t,$ JMPPUFFE|
00005500: 52 4A 53 52 3B 45 49 4E 53 50 52 55 4E 47 20 2B |RJSR;EINSPRUNG +|
00005510: 20 52 54 53 20 21 21 21 00 F5 74 36 24 3B 00 FB | RTS !!!..t6$;..|
00005520: 74 40 24 3B 00 01 75 4A 24 3B 00 2A 75 54 24 3B |t@$;..uJ$;.*uT$;|
00005530: 2A 2A 2A 2A 2A 20 57 49 4E 44 4F 57 50 41 52 41 |***** WINDOWPARA|
00005540: 4D 2E 20 55 45 42 45 52 47 45 42 45 4E 20 2A 2A |M. UEBERGEBEN **|
00005550: 2A 2A 2A 00 4E 75 5E 24 57 50 41 52 41 4D 20 4C |***.Nu^$WPARAM L|
00005560: 44 58 4D 43 4F 55 4E 54 3B 55 45 42 45 52 20 27 |DXMCOUNT;UEBER '|
00005570: 4D 43 4F 55 4E 54 27 00 73 75 68 24 20 4C 44 41 |MCOUNT'.suh$ LDA|
00005580: 53 54 41 52 54 2C 58 3B 28 3D 41 4B 54 55 45 4C |START,X;(=AKTUEL|
00005590: 4C 45 20 4D 45 4E 55 45 4E 52 2E 29 00 94 75 72 |LE MENUENR.)..ur|
000055A0: 24 20 53 54 41 43 4F 4C 3B 57 45 52 44 45 4E 20 |$ STACOL;WERDEN |
000055B0: 44 49 45 20 50 41 52 41 4D 45 54 45 52 00 AD 75 |DIE PARAMETER..u|
000055C0: 7C 24 20 4C 44 41 23 31 3B 44 45 53 20 41 4B 54 ||$ LDA#1;DES AKT|
000055D0: 55 45 4C 4C 45 4E 00 CA 75 86 24 20 53 54 41 4C |UELLEN..u.$ STAL|
000055E0: 49 4E 45 3B 57 49 4E 44 4F 57 53 20 41 55 53 20 |INE;WINDOWS AUS |
000055F0: 44 45 4E 00 EF 75 90 24 20 4C 44 41 57 42 52 45 |DEN..u.$ LDAWBRE|
00005600: 49 54 45 2C 58 3B 54 41 42 45 4C 4C 45 4E 20 45 |ITE,X;TABELLEN E|
00005610: 52 4D 49 54 54 45 4C 54 00 0A 76 9A 24 20 43 4C |RMITTELT..v.$ CL|
00005620: 43 3B 28 43 4F 4C 2C 4C 49 4E 45 2C 42 52 45 49 |C;(COL,LINE,BREI|
00005630: 54 45 2C 00 1D 76 A4 24 20 41 44 43 23 32 3B 4C |TE,..v.$ ADC#2;L|
00005640: 41 45 4E 47 45 29 00 2C 76 AE 24 20 53 54 41 42 |AENGE).,v.$ STAB|
00005650: 52 45 49 54 45 00 3E 76 B8 24 20 4C 44 41 57 4C |REITE.>v.$ LDAWL|
00005660: 41 45 4E 47 45 2C 58 00 47 76 C2 24 20 43 4C 43 |AENGE,X.Gv.$ CLC|
00005670: 00 52 76 CC 24 20 41 44 43 23 32 00 61 76 D6 24 |.Rv.$ ADC#2.av.$|
00005680: 20 53 54 41 4C 41 45 4E 47 45 00 6A 76 E0 24 20 | STALAENGE.jv.$ |
00005690: 52 54 53 00 70 76 EA 24 3B 00 76 76 F4 24 3B 00 |RTS.pv.$;.vv.$;.|
000056A0: 7C 76 FE 24 3B 00 9D 76 08 25 3B 2A 2A 2A 2A 2A ||v.$;..v.%;*****|
000056B0: 20 4B 4F 4D 4D 41 4E 44 4F 2D 54 41 53 54 45 4E | KOMMANDO-TASTEN|
000056C0: 20 2A 2A 2A 2A 2A 00 B5 76 12 25 4B 45 59 20 2E | *****..v.%KEY .|
000056D0: 42 59 32 39 3B 43 52 53 2E 52 49 47 48 54 00 C1 |BY29;CRS.RIGHT..|
000056E0: 76 1C 25 20 2E 42 59 31 35 37 00 D5 76 26 25 20 |v.% .BY157..v&% |
000056F0: 2E 42 59 31 37 3B 43 52 53 2E 44 4F 57 4E 00 E8 |.BY17;CRS.DOWN..|
00005700: 76 30 25 20 2E 42 59 31 34 35 3B 43 52 53 2E 55 |v0% .BY145;CRS.U|
00005710: 50 00 FA 76 3A 25 20 2E 42 59 31 33 3B 52 45 54 |P..v:% .BY13;RET|
00005720: 55 52 4E 00 00 77 44 25 3B 00 06 77 4E 25 3B 00 |URN..wD%;..wN%;.|
00005730: 0C 77 58 25 3B 00 2B 77 62 25 3B 2A 2A 2A 2A 2A |.wX%;.+wb%;*****|
00005740: 20 53 50 52 55 4E 47 54 41 42 45 4C 4C 45 20 2A | SPRUNGTABELLE *|
00005750: 2A 2A 2A 2A 00 3C 77 6C 25 54 41 42 20 2E 57 4F |****.<wl%TAB .WO|
00005760: 52 49 47 48 54 00 49 77 76 25 20 2E 57 4F 4C 45 |RIGHT.Iwv% .WOLE|
00005770: 46 54 00 56 77 80 25 20 2E 57 4F 44 4F 57 4E 00 |FT.Vw.% .WODOWN.|
00005780: 61 77 8A 25 20 2E 57 4F 55 50 00 70 77 94 25 20 |aw.% .WOUP.pw.% |
00005790: 2E 57 4F 52 45 54 55 52 4E 00 76 77 9E 25 3B 00 |.WORETURN.vw.%;.|
000057A0: 7C 77 A8 25 3B 00 82 77 B2 25 3B 00 A9 77 BC 25 ||w.%;..w.%;..w.%|
000057B0: 3B 2A 2A 2A 2A 2A 20 57 49 4E 44 4F 57 50 41 52 |;***** WINDOWPAR|
000057C0: 41 4D 2E 2D 54 41 42 45 4C 4C 45 4E 20 2A 2A 2A |AM.-TABELLEN ***|
000057D0: 2A 2A 00 C8 77 C6 25 53 54 41 52 54 20 2E 42 59 |**..w.%START .BY|
000057E0: 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C |1,2,3,4,5,6,7,8,|
000057F0: 39 00 E8 77 D0 25 4C 45 4E 47 54 48 20 2E 42 59 |9..w.%LENGTH .BY|
00005800: 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C |1,2,3,4,5,6,7,8,|
00005810: 39 00 06 78 DA 25 53 49 47 4E 20 2E 42 59 31 2C |9..x.%SIGN .BY1,|
00005820: 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 |2,3,4,5,6,7,8,9.|
00005830: 27 78 E4 25 57 42 52 45 49 54 45 20 2E 42 59 31 |'x.%WBREITE .BY1|
00005840: 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 |,2,3,4,5,6,7,8,9|
00005850: 00 48 78 EE 25 57 4C 41 45 4E 47 45 20 2E 42 59 |.Hx.%WLAENGE .BY|
00005860: 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C |1,2,3,4,5,6,7,8,|
00005870: 39 00 69 78 F8 25 57 50 4F 49 4C 4F 57 20 2E 42 |9.ix.%WPOILOW .B|
00005880: 59 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 |Y1,2,3,4,5,6,7,8|
00005890: 2C 39 00 8B 78 02 26 57 50 4F 49 48 49 47 48 20 |,9..x.&WPOIHIGH |
000058A0: 2E 42 59 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 |.BY1,2,3,4,5,6,7|
000058B0: 2C 38 2C 39 00 93 78 0C 26 2E 45 4E 00 00 00 |,8,9..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.."@.;.."J
.;.M"T.;*** LABEL: PROGRAMMMINTERN ***..
"^..EQ NEWCOLOR = 1..#H..EQ PARBACK =
$A7 ;AUSWAHLRUECKUEBERGABE AN BASIC
.^#R..EQ INDIZ = $A9 ;POINTER F.
INDIZIERTE ADRESSIERUNG..#|..EQ INDIZ1
= $AB ;POINTER F.INDIZIERTE ADRESS
IERUNG..#...EQ STRLEN = $AD ;LAEN
GE DER VON BASIC UEBERGEB.STRINGVARIABLE
N.)$...EQ STRPOS = $AE ;POINTER A
UF UEBERGEB.STRINGVARIABLE.@$...EQ PAINT
P = $B4.Y$...EQ HELP = $0334.~$...
EQ CNTI = HELP+2 ;ZAEHLER..$...EQ
CNTJ = CNTI+1 ;ZAEHLER.N$B..EQ COL
= CNTJ+1 ;SPALTE MERKEN..$L..EQ
LINE = COL+1 ;ZEILE MERKEN.+%V..E
Q BREITE = LINE+1 ;RECHTECKBREITE ME
RKEN.^%...EQ LAENGE = BREITE+1 ;RECHTE
CKLAENGE MERKEN.Z%...EQ FLAG = LAENG
E+1..%...EQ PUFNR = FLAG+1 ;NR.DES
ANZUSPRECHENDEN PUFFERS.Q%...EQ ROUTIN
= PUFNR+2.W%..;..%..;..%..;..&&.;*** LA
BELS F.PUFFER-ROUTINE ***.:&0..EQ SCREEN
P = INDIZ ;POINTER AUF BILDSCHIRM.H&:.
.EQ PUFFERP = INDIZ1 ;POINTER AUF PUFFE
R..&D..EQ PUFPOI = $0293 ;TABELLE MIT
STARTADRESSEN DER AKTUELLEN PUFFER.Z&N.
.EQ PUFSTART = $F000 ;PUFFERANFANG..'X.
.EQ INTCTRL = $DC0E ;VIC-REGISTER ZUR
INTERRUPTKONTROLLE.@'B..EQ CRSLINE = 21
4 ;CURSORZEILE..'L..EQ LINEPOI = $FB
;ECHTER (!!!) POINTER AUF CURSORZEIL
E..'V.;..'..;..'..;..'...BA $C1A0 ;PROGR
AMMSTART..'..;..'..;.A'..;..'..;********
***************..'F.;*** SPRUNGVERTEILER
***..(P.;***********************.)(Z. J
MPPUFFINIT.8(.. JMPWINDOW.G(.. JMPPUFFER
.V(.. JMPINVERT.D(.. JMPCNTRL..(..;*****
****************************..(..;..( .;
..(*.;..(4.;****************************
*..(>.;*** GEMEINSAME UNTERPROGS ***..)H
.;*****************************..)R.;.3)
\.;***** LINEPOINTER BERECHNEN *****.E)F
.LINEPTR LDA#0.T)P. LDXSCREEN.D)Z. STALI
NEPOI.V).. STXLINEPOI+1.|)..;..).. LDXCR
SLINE..).. BEQLINEPTR3..)..LINEPTR1 LDAL
INEPOI..).. CLC.J).. ADC#40.Z)J. STALINE
POI..)T. BCCLINEPTR2..).. INCLINEPOI+1..
*..LINEPTR2 DEX..*.. BNELINEPTR1.0*..LIN
EPTR3 RTS.6*..;.<*..;.B*..;.L*$.;*** PAI
NTP AUS SCREENP BERECHNEN ***.R*..;..*8.
PAINTPTR LDASCREENP..*B. STAPAINTP..*L.
LDASCREENP+1..*V. AND#$03.J*`. ORA#>(PAI
NT)..*J. STAPAINTP+1..*T. RTS..*~.;..*..
;..*..;..+..;***** PARAMETER LESEN *****
.9+..PARAM STACNTI;LIEST BELIEBIGE.N+..
LDX#0;ANZAHL AN.P+..LESEN STXCNTJ;EIN-BY
TE-WERTEN..+D. JSRCHKKOM;AUS DEM BASIC-T
EXT..+N. JSRGETBYT;UND LEGT SIE.D+X. TXA
;AB 'COL' AB..Q+.. LDXCNTJ..+.. STACOL,X
..+.. INX..+.. CPXCNTI..,.. BNELESEN..,.
. RTS..,..;..,(.;..,2.;.H,<.;***** STRIN
GDESCRIPTOREN HOLEN *****.J,F.HOLDES LDY
#2;HOLT DIE STRING-..,P.HOLDES1 LDA(INDI
Z),Y;DESCRIPTOREN DER..,Z. STASTRLEN,Y;U
EBERGEBENEN STRING-.M,D. DEY;VARIABLEN..
,N. BPLHOLDES1;LAENGE/POINTER AUF STRING
..-X. RTS..-..;..-..;..-..;.:- .;***** I
NDIZ(+1)=>NEXT STRING *****.E-..NEXTSTR
LDAINDIZ;ERHOEHT EINEN POINTER..-.. CLC;
(IN 'INDIZ') AUF EINEN..-.. ADC#3;STRING
DESCRIPTOR, SO.G-H. STAINDIZ;DASS DIESER
AUF DEN..-R. BCCNEXT1;NAECHSTEN DESCRIP
TOR..... INCINDIZ+1;WEIST (INDIZ=INDIZ+3
).....NEXT1 RTS.$...;.*...;.0...;.T...;*
**** ENDZEILE BERECHNEN *****.....ENDZEI
LDALINE;BERECHNET DIE NUMMER DER...". C
LC;LETZTEN ZEILE DES ANGEG..G.,. ADCLAEN
GE;RECHTECKS (LASTZEILE=...6. STALAENGE;
STARTZEILE+LAENGE)...@. RTS../J.;*******
*************************../T.;.$/^.;.*/
H.;.I/R.;*************************.H/|.;
* WINDOW + INHALT MALEN *../..;*********
****************../..;../..;AUFRUF: SYS
XXXX,SPALTE,ZEILE,.R/..; BREITE,L
AENGE,ARRAY.X/..;../..;FUNKTION: MALT EI
N WINDOW DER..0B.; ANGEGEBENEN
GROESSE.B0L.; ('BREITE','LAENG
E').H0V.; AB DER POSIT.'SPALTE'
/..0..; 'ZEILE' UND FUELLT DIE.
.0..; INNENZEILEN MIT DEN.W0..;
ANGEGEB. ARRAYSTRINGS,..0..;
DEREN ANZAHL MINDES-. 1..;
TENS EBENSO GROSS WIE.E1..;
DIE ANZAHL DER INNEN-.F1..; ZE
ILEN SEIN MUSS..L1&.;..10.;BSP.: SYS XXX
X,2,5,10,15,A$(2)..1:.; MALT WINDOW
MIT LINKER.V1D.; ECKE 2/5, DAS 10
SPALTEN..1N.; BREIT UND 15 ZEILEN L
ANG..2X.; IST; DIE INNENZEILEN WER-
.C2B.; DEN MIT 'A$(2)'-'A$(15)'.W2L
.; GEFUELLT.]2V.;.C2..;..2..WINDOW
LDA#4;4 BYTEWERTE HOLEN..2.. JSRPARAM..2
..;..2.. JSRCHKKOM;STRINGDESCRRIPTOR.P2.
. JSRGETPOS;HOLEN.V2..;..2F.WINJSR STAIN
DIZ;UND NACH 'INDIZ(+1)'..3P. STYINDIZ+1
;SCHAFFEN..3Z.;.@3.. JSRENDZEI;LETZTE WI
NDOWZEILE.Y3.. DECLAENGE;KORREKTUR.P3..
DECBREITE;KORREK-..3.. DECBREITE;TUR..3.
.;..3..;..3 .;..3*. LDACOLOR..34. PHA..3
>. LDA#NEWCOLOR.L3H. STACOLOR.R3R.;.X3\.
;..3F.;..4P.;***** ERSTE ZEILE MALEN ***
**..4Z. LDA#0;FLAG=0 =>.84.. STAFLAG;OHN
E STRING AUSGEBEN.F4.. JSRMALEN.L4..;.R4
..;.X4..;.{4..;***** INNENZEILEN MALEN *
****..4.. INCFLAG;FLAG=0 =>..4J.INNEN JS
RHOLDES;ZEILEN MIT INHALTEN..4T. JSRMALE
N;DER ARRAYSTRINGS FUELLEN..4.. JSRNEXTS
TR..5.. LDALINE;ALLE INNENZEILEN.*5.. CM
PLAENGE;AUSGEGEBEN?.@5.. BNEINNEN;NEIN =
>.F5..;.L5..;.R5..;.V5$.;***** LETZTE ZE
ILE MALEN *****..5.. INCFLAG;FLAG=2 =>..
58. JSRMALEN;ZEILE OHNE STRINGINHALTE..5
B.;.C5L. PLA.Q5V. STACOLOR.Z5`. RTS..5J.
;..5T.;..5~.;..6..;***** ZEILE MALEN ***
**.)6..MALEN LDXLINE;CURSOR SETZEN.56..
LDYCOL.>6.. CLC.K6.. JSRPLOT.X6.. LDXFLA
G.W6D. LDALINKS,X;LINKES ZEICHEN..6N. JS
RBSOUT;AUSGEBEN..6X. LDY#0;MITTLERES ZEI
CHEN.S6..LOOP LDAMITTE,X;LADEN UND AUSGE
BEN,..6.. CPX#1;WENN FLAG..7.. BNENOSTRI
NG;<>1 =>..7.. CPYSTRLEN;ODER STRINGENDE
.<7.. BCSNOSTRING;ERREICHT =>.C7.. LDA(S
TRPOS),Y;SONST STRINGZEICHEN..7..NOSTRIN
G JSRBSOUT;AUSGEBEN..7(. INY;ZEILE -1 ZE
ICHEN..72. CPYBREITE;KOMPLETT AUSGEGEBEN
?.U7<. BNELOOP;NEIN =>..7F. INCLINE;NEXT
ZEILE..8P. LDARECHTS,X;RECHTES ZEICHEN.
/8Z. JMPBSOUT;AUSGEBEN + RTS !!!.58D.;.N
8N.LINKS .BY176,125,173.D8X.MITTE .BY96,
32,96.~8..RECHTS .BY174,125,189..8..;***
*****************************..8..;..8 .
;..8..;..8..;***************************
*****..9..;* WINDOWUNTERGRUND RETTEN/HOL
EN*.(9H.;*******************************
*..9R.;.Q9..;AUFRUF:SYS XXXX,SPALTE,ZEIL
E,.W9..; BREITE,LAENGE,FLAG,PUFFER
.}9..;..9..;FUNKTION: KOPIERT DEN DURCH.
B9..; 'SPALTE'/'ZEILE' UND..9..
; 'BREITE' BZW.'LAENGE'..:..;
ANGEGEBENEN BILD-.+:".;
SCHIRMAUSSCHNITT IN.N:,.; PUFF
ER NR.'PUFFER',.L:6.; WENN 'FLA
G'=1...:@.; 'FLAG'=1 =>DER INHA
LT..:J.; DES ANGEG.PUFFERS WIRD
.Z:T.; IN DEN ANGEG. BILD-..:^.
; SCHIRMAUSSCHNITT..;H.;
KOPIERT..5;R.; PUFFER: NUMER
IERUNG.X;|.; BEGINNT BEI 0; MAX
..{;..; PUFFERBEREICH: 2 KB..;.
.;..;..;BSP.: SYS XXXX,2,5,10,15,1,0.G;.
.; WINDOW MIT LINKER OBERER..;..;
ECKE 2/5, BREITE 10 SPAL-..<..;
TEN U.LAENGE 15 ZEILEN IN.3<B.; PU
FFER NR.0 SCHREIBEN..9<L.;.?<V.;.T<..PUF
FINIT LDA#$FF.B<.. STAPUFNR.K<.. RTS.Q<.
.;.W<..;.}<..;. <..PUFFER LDA#5;6 BYTEWE
RTE LESEN..<&. JSRPARAM..<0.;..<:.PUFFER
JSR LDA#<(PUFSTART);POINTER AUF..<D. LDX
#>(PUFSTART);PUFFER NR.0..=N. STAPUFPOI;
ERZEUGEN.(=X. STXPUFPOI+1..=B.;.;=L. LDA
FLAG.K=V. BNENOWRITE.Y=.. INCPUFNR._=..;
..=..NOWRITE LDAPUFNR;ADRESSE DES ANGEG.
..=.. ASL..=.. TAX..=.. LDAPUFPOI,X;PUFF
ERS NACH.T=.. STAPUFFERP;'PUFPOI(+1)'..=
F. LDAPUFPOI+1,X;KOPIEREN..>P. STAPUFFER
P+1..>Z.;..>.. JSRENDZEI;LETZTE ZEILE ER
MITTELN.4>..;.Q>.. LDXLINE;CURSOR AUF LI
NE.]>.. LDYCOL.W>.. CLC;OBERE WINDOWECKE
..>.. JSRPLOT..> .;. >*.WEITER JSRLINEPT
R.F>4. LDALINEPOI+1;'SCREENPOINTER(+1)'.
.>>. STASCREENP+1;+WINDOWSTARTSPALTE..?H
. LDALINEPOI;ERGIBT POINTER."?R. CLC;AUF
ANFANG DER.D?\. ADCCOL;AKTUELLEN WINDOW
ZEILE.A?F. STASCREENP;+STARTSPALTE.N?P.
BCCOKAY..?Z. INCSCREENP+1..?..;..?..OKAY
JSRPAINTPTR..?..;..?..;.L?.. LDYBREITE;
ZAEHLER INITIALISEREN.U?.. DEY..?..;..?J
.COPY TYA..?T. CLC..@.. ADCBREITE..@.. S
TAHELP..@..;.7@.. LDAFLAG;EIN ZEICHEN AU
S PUFFER.U@.. BNEWRITE;AUF SCREEN ODER.[
@..;.N@.. LDA(PAINTP),Y.}@$. STYHELP+1..
@.. LDYHELP..@8. STA(PUFFERP),Y..@B. LDY
HELP+1..@L.;.R@V. LDA(SCREENP),Y;UMGEKEH
RT,..@`. STA(PUFFERP),Y;JE NACH FLAGZUST
AND..AJ. BNEJUMP..AT.;.!A~.WRITE STYHELP
+1..A.. LDYHELP.:A.. JSRRAM.NA.. LDA(PUF
FERP),Y.WA.. PHA.CA.. JSRROM.LA.. PLA.{A
D. LDYHELP+1..AN. STA(PAINTP),Y..AX. JSR
RAM..A.. LDA(PUFFERP),Y.BA.. STA(SCREENP
),Y.NA.. JSRROM..A..JUMP DEY;ZEILE BEHAN
DELT?..B.. BPLCOPY;NEIN =>..B..;."B.. LD
ABREITE;POINTER AUF.5B(. ASL;PUFFER UM.K
B2. CLC;WINDOWBREITE.[B<. ADCPUFFERP.TBF
. STAPUFFERP;ERHOEHEN..BP. BCCNOINCR..BZ
. INCPUFFERP+1..BD.;..BN.NOINCR LDA#17;C
URSOR EINE ZEILE..BX. JSRBSOUT;TIEFER SE
TZEN..B.. LDACRSLINE;LETZTE WINDOWZEILE.
.C.. CMPLAENGE;BEHANDELT?./C.. BNEWEITER
;NEIN =>.5C .;.;C..;.TC.. LDXPUFNR;ANFAN
G DES.OC.. INX;NAECHSTEN PUFFERS..CH. TX
A;HINTER DAS ENDE..CR. ASL;DES AKTUELLEN
..C.. TAX;PUFFERS SETZEN.GC.. LDAPUFFERP
.XC.. STAPUFPOI,X..C.. LDAPUFFERP+1..C..
STAPUFPOI+1,X..D..;..D.. LDAFLAG..D". B
EQNOLIES.-D,. DECPUFNR.<D6.NOLIES RTS.BD
@.;.HDJ.;.ODT.RAM JSRNOINT;INTERRUPT AUS
SCHALTEN..D^. LDA#$34;RAM-KONFOGURATION.
.DH. STA1;EINSTELLEN.HDR. JMPINTEIN;INTE
RRUPT EINSCHALTEN.ND|.;.TD..;..D..ROM JS
RNOINT;INTERRUPT AUS..E.. LDA#$37;ROM-KO
NFIGURATION.(E.. STA1;EINSCHALTEN.EE.. J
MPINTEIN;INTERRUPT EIN.KE..;.QEB.;.|EL.N
OINT LDAINTCTRL;INTERRUPTS VERHINDERN..E
V. AND#$FE..E.. STAINTCTRL..E.. RTS..E..
;.RE..INTEIN LDAINTCTRL;INTERRUPTS ZULAS
SEN..E.. ORA#$01..E.. STAINTCTRL..E.. RT
S..F&.;********************************.
$F0.;.*F:.;.0FD.;.VFN.;*****************
***************.|FX.;* SCREENAUSSCHNITT
INVERTIEREN *..FB.;*********************
***********..FL.;.LFV.;AUFRUF: SYS XXXX,
SPALTE,ZEILE,..F..; BREITE,LAENGE
,FLAG..F..;..G..;FUNKTION: INVERTIERT('F
LAG'=1)/.=G..; NORMALISIERT('FL
AG'=0)._G..; EINEN RECHTECKIGEN
..G..; BILDSCHIRMAUSSCHNITT..G.
.; MIT DER OBEREN LINKEN.MGF.;
ECKE 'SPALTE'/'ZEILE'..GP.;
UND DER ANGEGEBENEN..HZ.;
LAENGE BZW. BREITE...H..;.9H..;BSP.: SY
S XXXX,2,5,10,15,1.\H..; INVERTIERT
EIN RECHTECK..H..; MIT DER LINKEN
OBEREB ECKE..H..; 2/7, DER BREITE 1
0 SPALTEN.MH..; UND DER LAENGE 15 Z
EILEN..SH .;.YH*.;..H4.INVERT LDA#5;5 BY
TEWERTE HOLEN..I>. JSRPARAM..IH.;.:IR.IN
VJSR JSRENDZEI;LETZTE RECHTECKZEILE.SI\.
DECBREITE;KORREKTUR.^IF. LDY#0.IP. LDX
LINE;CURSOR AUF AKTUELLE..IZ.;..I..INV2
CLC;ZEILE UND STARTSPALTE..I.. JSRPLOT;S
ETZEN.LI.. JSRLINEPTR.RI..;..I.. LDALINE
POI;'LINEPOI' + 'COL' =>..J.. CLC;POINTE
R AUF.)J.. ADCCOL;ERSTES ZU BEHAN-.IJJ.
STALINEPOI;DELNDES ZEICHEN.IJT. BCCINV3;
ZEICHEN DER JEWEI-..J.. INCLINEPOI+1;LIG
EN ZEILE..J..;..J..INV3 LDYBREITE;WENN F
LAG=0, WIRD.XJ..INV1 LDA(LINEPOI),Y;DIE
KOMPLETTE..J.. LDXFLAG;ZEILE NORMALISIER
T..K.. BEQNORM;(BIT 7 LOESCHEN),.5K.. OR
A#$80;SONST INVERTIERT.QK$. .BY$2C;(BIT
7 SEETZEN).BK..NORM AND#$7F.VK8. STA(LIN
EPOI),Y..KB. DEY;ZEILE BEHANDELT?..KL. B
PLINV1;NEIN =>..KV.;.CK`. INCLINE;NEXT Z
EILE.PKJ. LDXLINE..KT. CPXLAENGE;LETZTE
ZEILE BEHANDELT?..L~. BNEINV2;NEIN =>..L
.. RTS.;L..;****************************
****.AL..;.GL..;.ML..;.SL..;************
********************..LD.;* VERWALTUNG V
.PULL-DOWN-MENUES*..LN.;****************
****************.ELX.;..L..;AUFRUF:SYS X
XXX,MENUE$,MENUE$(1)..M..; ,MENUE%
,BEFEHL%..M..;./M..;FUNKTION: VERWALTET
BELIEBIG.SM..; VIELE PULL-D.MEN
UES,.XM..; DEREN OBERBEGRIFFE I
N..M..; 'MENUE$'ENTHALTEN SIND.
DM(.; (Z.B.:A$='FILE EDIT')...M
2.; DIE MENUEKOMMANDOS..N<.;
ENTHAELT DAS ANGEGEB..1NF.;
STRINGARRAY. VOR JEDEM.TNP.;
UNTERMENUE BEFINDET.WNZ.; SIC
H EIN LEERSTRING..ND.; MIT DER
GEWUENSCHTEN..NN.; MENUELAENGE.
.YNX.; DEM LETZTEN MENUE-..N..;
STRING FOLGT EBENFALLS..O..;
EIN LEERSTRING..$O..;.GO .;BSP.:
SYS XXXX,A$,A$(1),M%,B%.JO..; VERW
ALTET Z.B. FOLGENDE..O..; VERWALTET
2 UNTERMENUES..O..; MIT 4 BZW. 7 A
USWAHLPKTEN,.SOH.; WENN FOLGENDES G
ILT:.YOR.;..O..; A$='DOCUMENT DISK
'..P..; A$(1)=' '.+P..;
A$(2)='LOAD'.DP..; A$(3)='SAVE'.^P
..; A$(4)='MERGE'.XP..; A$(5
)='PRINT'..P..; A$(6)='
'..P".; A$(7)='DIRECTORY'.UP,.;
A$(8)='INITIALISE'..P6.; A$(9)
='VALIDATE'..Q@.; A$(10)='FORMAT DI
SK'.3QJ.; A$(11)='SCRATCH FILE'.QQT
.; A$(12)='COPY FILE'.QQ^.; A$
(13)='RENAME FILE'..QH.; A$(14)=' '
..QR.;..Q|.;BEDIENUNG: CURSOR RIGHT/LEFT
=>.UQ..; AUSWAHL UNTERMENUE..
Q..; CURSOR DOWN/UP =>..R..;
AUSWAHL IM UNTERMENUE.7R..;
RETURN =>.YR..; AUSWAHL
AKTUELLER.TR..; MENUEPUNKT.ZR
B.;..RL.; EIN UNTERMENUE KANN.
CRV.; ALTERNATIV MIT CTRL+..R.
.; DEM ANFANGSBUCHSTABEN..S..;
DES MENUENAMENS.+S..;
DIREKT ANGEWAEHLT.OS..; WER
DEN, Z.B. CTRL+F.TS..; FUER D.
MENUE 'FILE'...S..; EIN MENUEP
UNKT KANN..S..; ALTERNATIV MIT
DEM..S&.; ANFANGSBUCHSTABEN..
T0.; DIREKT GEWAEHLT WER-.(T:.
; DEN('S'FUER'SCRATCH')..TD.;.
TTN.; DAS ANGEWAEHLTE MENUE.ZT
X.; WIRD IN 'MENUE%', DER..TB.
; GEWAEHLTE MENUEPUNKT.DTL.;
IN 'BEFEHL%' UEBERG..JTV.;..T..
;BSP.: SYS XXXX,A$,A$(1),M%,B%..U..;
VERWALTET OBIGES BEISPIEL..U..;..U..;.
TU...EQ MCOUNT = ROUTIN+1 ;ZAEHLER: AK
TUELLES MENUE..U...EQ MZAHL = MCOUNT+1
;GESAMTE MENUEANZAHL..U...EQ POINT =
MZAHL+1 ;ZAEHLER: AKTUELLER MENUEPUNK
T..UF..EQ ZEICHEN = POINT+1 ;GEDRUECKT
E TASTE..VP..EQ VEKTOR = ZEICHEN+1 ;VEK
TOR F.INDIR.JMP.$VZ.;.*V..;.0V..;.VV..;*
**** MENUEPARAMETER HOLEN *****..V..CNTR
L JSRCHKKOM;POINTER AUF DESCRIPTOREN..V.
. JSRGETPOS;DES MENUELEISTENSTRINGS.MV..
STAINDIZ;NACH 'INDIZ(+1)' UND..V . STYI
NDIZ+1;DESCRIPTOREN SELBST NACH..W*. JSR
HOLDES;'STRLEN',STRPOS(+1)'. W4.;.CW>. L
DASTRLEN;DESCRIPTOREN RETTEN.LWH. PHA.[W
R. LDASTRPOS.DW\. PHA.UWF. LDASTRPOS+1.~
WP. PHA..WZ.;..W..;..W..;..W..;***** STA
RTSPALTEN D.MENUES *****.TW.. LDY#0;SPAL
TE UND ANZAHL..W.. LDX#0;INITIALISIEREN.
.X..START1 LDA(STRPOS),Y;IM LEISTENSTRIN
G ALLE.9X.. CMP#" ";SPACES BIS ZUM.VXJ.
BNESTART2;1.NICHT-SPACE.JXT. INY;UEBERLE
SEN.YX.. CPYSTRLEN..X.. BCSSTART5..X.. B
CCSTART1;IMMER !!!..X..;.XX..START2 STAS
IGN,X;ANFANGSBUCHSTABE DES MENUES..X.. T
YA;Y=POSITION VON 1.NICHTSPACE.#Y.. STAS
TART,X;=STARTCOL FUER INVERT.EY$.START3
LDA(STRPOS),Y;NUN ALLE.^Y.. CMP#" ";NICH
TSPACES.XY8. BEQSTART4;UEBERLESEN..YB. I
NY;JEDOCH NUR, WENN..YL. CPYSTRLEN;STRIN
GLAENGE NOCH.WYV. BCCSTART3;NICHT UEBERS
CHRITTEN..Y`.;..ZJ.START4 TYA;INVERTIERB
REITE STEHT NUN.#ZT. SEC;FEST: INVERTBRE
ITE=.>Z~. SBCSTART,X;Y-STARTCOL.MZ.. STA
LENGTH,X;ERGEBNIS IN TABELLE SPEICHERN.S
Z..;..Z.. DECSTART,X..Z.. DECSTART,X..Z.
.;..Z.. INX.AZD. INY;WEITER, WENN ENDE D
ES..ZN. CPYSTRLEN;LEISTENSTRINGS NOCH NI
CHT..[X. BCCSTART1;ERREICHT =>..[..;.5[.
.START5 STXMZAHL;MENUEANZAHL SPEICHERN.;
[..;.A[..;.G[..;.N[..;***** WINDOWPARAME
TER HOLEN *****..[.. JSRCHKKOM;POINTER A
UF DESCRIPTOREN..[(. JSRGETPOS;DES 1.MEN
UESTRINGS HOLEN..[2. STAINDIZ;UND DESCRI
TOREN SELBST..\<. STYINDIZ+1;NACH 'STRLE
N','STRPOS(+1)'.&\F. JSRHOLDES;SCHAFFEN.
,\P.;.J\Z. LDX#255;X INITIALISIEREN.A\D.
BNEPAR5;IMMER !!!.G\N.;..\X.PAR1 LDA#0;
STRINGZAEHLER. \.. STACNTI;INITIALISIERE
N..\..;.U\..PAR2 LDY#0;POINTER AUF STRIN
GZEICHEN INIT...\ .PAR3 LDA(STRPOS),Y;AK
TUELLES..].. CMP#" ";STRINGZEICHEN=SPACE
?.+].. BEQPAR4;JA =>.1]..;.R]H. JSRNEXTS
TR;NAECHSTEN STRING.T]R. JSRHOLDES;DESCR
IPTOREN HOLEN..].. INCCNTI;STRINGZAEHLER
INKREM...].. BNEPAR2;IMMER !!!..]..;.X]
..PAR4 INY;ZEICHENPOINTER INKREM...].. C
PYSTRLEN;STRINGENDE ERREICHT?..^.. BCCPA
R3;NEIN =>..^..;.9^". LDACNTI;LAENGE DES
AKTUELLEN.^^,. STAWLAENGE,X;WINDOWS IN
TABELLE.D^6.;..^@.PAR5 INX;BREITE DES AK
TUELLEN..^J. LDASTRLEN;WINDOWS EBENFALLS
.K^T. STAWBREITE,X;IN TABELLE MERKEN.Q^^
.;..^H. JSRNEXTSTR;NEXT STRING.._R. JSRH
OLDES;DESCRIPTOREN HOLEN.6_|. LDAINDIZ;A
DRESSE DER DESCRIPTOREN.Z_.. STAWPOILOW,
X;IN TABELLE MERKEN.J_.. LDAINDIZ+1.}_..
STAWPOIHIGH,X.._..;.._.. CPXMZAHL;ALLE
MENUES DURCH?.._.. BCCPAR1;NEIN =>.._B.;
.E_L.;.K_V.;.._..;***** INITIALISIERUNG
*****..`.. LDA#19;'CURSOR HOME'..`.. JSR
BSOUT;AUSGEBEN.#`..;.=`.. PLA;DESCRIPTOR
EN DES.]`.. STASTRPOS+1;LEISTENSTRINGS.L
`.. PLA;HOLEN.{`&. STASTRPOS..`0. PLA..`
:. STASTRLEN..`D.;..`N. LDY#0;LEISTENSTR
ING AUSGEBEN.S`X.INIT1 LDA(STRPOS),Y..`B
. JSRBSOUT..`L. INY..`V. CPYSTRLEN..A..
BCCINIT1..A..;.%A.. LDX#0;MENUEZAEHLER.C
A.. STXMCOUNT;INITIALISIEREN.IA..;.OA..;
.UA..;.TAF.;***** MENUE-AUSGABE *****..A
P.AUSGABE JSRLIESGR;UNTERGRUND RETTEN.BA
Z. JSRMINVERT;MENUENAME INVERTIEREN..A..
JSRMPRINT;MENUE AUSGEBEN..B.. LDA#255;M
ENUEPUNKT INITIALISIEREN.1B.. STAPOINT;(
255=KEIN PUNKT ANGEWAEHLT).VB.. JMPDOWN1
;CURSOR DOWN SIMULIEREN.\B..;.BB..;.HB .
;..B*.;***** TASTATUR ABFRAGEN *****..B4
.GET JSRGETIN;AUF TASTE..B>. BEQGET;WART
EN..BH.;..BR. LDX#4;CURSOR- ODER RETURN-
TASTE..C\.GET1 CMPKEY,X;GEDRUECKT?..CF.
BEQGET2;JA =>.+CP. DEX;ANSONSTEN ZUM.LCZ
. BPLGET1;TEIL 'DIREKTANWAHL'.[C.. BMIDI
REKT.AC..;.|C..GET2 TXA;ZAEHLER MIT 2..C
.. ASL;MULTIPLIZIEREN..C.. TAX;ERGIBT ZE
IGER AUF.KC.. LDATAB,X;SPRUNGTABELLE..C.
. STAVEKTOR;POINTER FUER..DJ. LDATAB+1,X
;INIREKTEN SPRUNG."DT. STAVEKTOR+1;ERZEU
GEN.@D.. JMP(VEKTOR);JMP INDIREKT.FD..;.
LD..;.RD..;.QD..;***** DIREKTANWAHL? ***
**..D..DIREKT CMP#192;SHIFT-TASTENKOMBIN
ATION?..D.. PHP..D$. ORA#128.CD.. STAZEI
CHEN.LD8. PLP..DB. BCCDIREKT2;NEIN=>..DL
.;..EV. LDXMZAHL;UND MIT ANFANGSBUCHSTAB
EN.)E`. DEX;DER MENUENAMEN.KEJ.DIREKT1 C
MPSIGN,X;VERGLEICHEN.CET. BEQMENUE;GLEIC
H =>.LE~. DEX.|E.. BPLDIREKT1..E.. BMIGE
T;FALSCHER BUCHSTABE =>..E..;..E..MENUE
TXA;X (ZEIGER AUF..E.. PHA;MENUE-COMAND)
RETTEN..F.. JSRHOLGR;ALTEN UNTERGRUND H
OLEN.2FD. JSRMNORMAL;ALTEN MENUENAMEN NO
RMALISIEREN.MFN. PLA;X WIEDERHOLEN UND.U
FX. TAX;NACH 'CRS.LEFT/RIGHT' SPRINGEN..
F.. JMPMOKAY;IMMER !!!..F..;..F..DIREKT2
LDXMCOUNT;POINTER AUF 1.STRING..F.. LDA
WPOILOW,X;DES AKTUELLEN..F.. STAINDIZ;ME
NUES NACH..G.. LDAWPOIHIGH,X;'INDIZ(+1)'
.-G.. STAINDIZ+1;HOLEN.3G(.;.TG2. LDA#0;
ZAEHLER INTIALISIEREN.DG<.DIREKT3 TAX..G
F. JSRHOLDES;DESCRIPTOREN HOLEN..GP.DIRE
KT5 INY;TASTE MIT DEN ANFANGS-.VGZ. LDA(
STRPOS),Y;BUCHSTABEN DER MENUE-..GD. CMP
#" "..GN. BEQDIREKT5..HX. CMPZEICHEN;STR
INGS VERGLEICHEN.1H.. BEQDIREKT4;GLEICH
=>.SH.. JSRNEXTSTR;SONST NEXT STRING.NH.
. INX;UNTERSUCHEN, WENN..H . TXA;LETZTER
MENUE-..H.. LDXMCOUNT;STRING NOCH NICHT
.IH.. CMPWLAENGE,X;BEHANDELT WURDE.YH..
BCCDIREKT3..IH. BCSGET;BUCHSTABE NICHT I
M MENUE VORHANDEN =>..IR.;.8I..DIREKT4 S
TXPOINT;MENUEPUNKT RETTEN.>I..;.DI..;.JI
..;.RI..;***** ZURUECK NACH BASIC !!! **
***..I..RETURN JSRCHKKOM..I.. JSRGETPOS.
.I". STAINDIZ..I,. STYINDIZ+1.CI6. JSRCH
KKOM.RI@. JSRGETPOS..IJ. STAINDIZ1..IT.
STYINDIZ1+1..I^.;..JH. LDA#$00..JR. TAY.
J|. STA(INDIZ),Y.3J.. STA(INDIZ1),Y.<J.
. INY.KJ.. LDAMCOUNT.]J.. STA(INDIZ),Y.K
J.. LDAPOINT.~J.. STA(INDIZ1),Y..JB.;..J
L. JSRMNORMAL;MENUENAME NORMALISIEREN..J
V. JMPHOLGR;UNTERGRUND HOLEN + RTS !!! =
> BASIC !!!!!!..J..;..J..;..J..;..K..;**
*** CURSORTASTEN BEHANDELN *****.CK. RIG
HT JSRHOLGR;UNTERGRUND HOLEN.KK. JSRMNO
RMAL;MENUENAME NORMALISIEREN..K. LDXMCO
UNT;WENN BEREITS LETZTES..K& INX;MENUE
ERREICHT: ZAEHLER.QK0 CPXMZAHL;AUF 1.ME
NUE, SONST..K: BCCMOKAY;ZAEHLER INKREM.
..KD LDX#0..LN BEQMOKAY;IMMER !!!..LX
;.;LB LEFT JSRHOLGR;UNTERGRUND HOLEN.CLL
JSRMNORMAL;MENUENAME NORMALISIEREN..LV
LDXMCOUNT;WENN ZAEHLER BEREITS..L. DE
X;AUF 1.MENUE: ZAEHLER.BL. CPX#255;AUF
LAST MENUE,..L. BNEMOKAY;SONST ZAEHLER.
.L. LDXMZAHL;DEKREM...L. DEX..M. ;.*M.
MOKAY STXMCOUNT;MENUENUMMER RETTEN.SMF
JMPAUSGABE;MENUE AUSGEBEN + RTS !!!.YMP
;..MZ DOWN LDAPOINT;NAECHSTES MENUE, WE
NN..M. BMIDOWN1;LETZTES MENUE NICHT.GM.
JSRCOMNORMAL;BEREITS ERREICHT,..M. DOW
N1 INCPOINT;SONST 1.MENUE..M.! LDXMCOUNT
..N.! LDAPOINT..N.! CMPWLAENGE,X.%N ! BC
CDOWN2.0N*! LDA#0.>N4! STAPOINT.VN>!DOWN
2 JSRCOMINVERT;AKTUELLEN MENUEPUNKT INVE
RTIEREN..NH!DOWN3 JMPGET;=> EINGABESCHLE
IFE. NR!;.DN\!UP LDAPOINT;VORIGER MENUEP
UNKT,..NF! BMIDOWN3;WENN 1.MENUEPUNKT NI
CHT..OP! JSRCOMNORMAL;BEREITS ERREICHT,.
2OZ! LDAPOINT;SONST LAST MENUEPUNKT.>O.!
BNEUP1.MO.! LDXMCOUNT._O.! LDAWLAENGE,X
.MO.! STAPOINT.~O.!UP1 DECPOINT..O.! JMP
DOWN2;WEITER WIE BEI 'DOWN'..O.!;..OJ!;.
.OT!;..O.!;***** MENUEPUNKT INVERT./NORM
AL*****..P.!COMNORMAL LDA#0;NORMALISIERE
N:..P.! .BY$2C;FLAG=0.5P.!COMINVERT LDA#
1;INVERTIEREN:.IP." STAFLAG;FLAG=1.XP."C
OM1 LDA#2.TP." CLC;INVERTIERPARAMETER..P
$" ADCPOINT;(LINE,COL,BREITE,..P." STALI
NE;LAENGE) FUER DEN.RP8" LDXMCOUNT;AKTUE
LLEN MENUE-..PB" LDASTART,X;PUNKT SETZEN
UND..QL" STACOL;DIE INVERTIER-.+QV" INC
COL;ROUTINE AUFRUFEN.=Q`" LDAWBREITE,X.L
QJ" STABREITE.WQT" LDA#1.FQ~" STALAENGE.
}Q." JMPINVJSR;RTS !!!..Q.";..Q.";..Q.";
..Q.";***** MENUENAME INVERT/NORMALIS***
**.ZQ."MNORMAL LDA#0;NORMALISIEREN:..QD"
.BY$2C;FLAG=0..RN"MINVERT LDA#1;INVERTI
EREN:. RX" STAFLAG;FLAG=1./R."MNOR LDX#0
.OR." STXLINE;INVERTIERPARAMETER.KR." IN
X;UEBERGEBEN (ZEILE,..R.# STXLAENGE;LAEN
GE,FLAG SIND FEST)..R.#;..R.# LDXMCOUNT;
STARTSPAALTE UND.WR.# LDASTART,X;INVERTI
ERBREITE..R(#;..R2# CLC..R<# ADC#2..RF#;
..SP# STACOL;BESTIMMEN.3SZ# LDALENGTH,X;
UND INVERTIERROUTINE.KSD# STABREITE;AUFR
UFEN.QSN#;.HSX# JMPINVJSR;RTS !!!.NS.#;.
TS.#;.ZS.#;..S #;***** MENUE AUSGEBEN **
***.DS.#MPRINT JSRWPARAM;POINTER AUF 1.M
ENUE-..S.# LDAWPOILOW,X;STRING UEBERGEBE
N UND..T.# LDYWPOIHIGH,X;MALROUTINE AUFR
UFEN.*TH# JMPWINJSR;RTS !!!.0TR#;.6T.#;.
<T.#;.ET.#;***** UNTERGRUND RETTEN/HOLEN
*****.VT.#LIESGR LDA#0..T.$ .BY$2C..T.$
HOLGR LDA#1..T.$ STAFLAG.IT"$LIES1 JSRWP
ARAM;WINDOWPARAMETER HOLEN..T,$ JMPPUFFE
RJSR;EINSPRUNG + RTS !!!..T6$;..T@$;..UJ
$;.*UT$;***** WINDOWPARAM. UEBERGEBEN **
***.NU^$WPARAM LDXMCOUNT;UEBER 'MCOUNT'.
SUH$ LDASTART,X;(=AKTUELLE MENUENR.)..UR
$ STACOL;WERDEN DIE PARAMETER..U|$ LDA#1
;DES AKTUELLEN.JU.$ STALINE;WINDOWS AUS
DEN..U.$ LDAWBREITE,X;TABELLEN ERMITTELT
..V.$ CLC;(COL,LINE,BREITE,..V.$ ADC#2;L
AENGE).,V.$ STABREITE.>V.$ LDAWLAENGE,X.
GVB$ CLC.RVL$ ADC#2.AVV$ STALAENGE.JV.$
RTS.PV.$;.VV.$;.|V.$;..V.%;***** KOMMAND
O-TASTEN *****..V.%KEY .BY29;CRS.RIGHT.A
V.% .BY157.UV&% .BY17;CRS.DOWN..V0% .BY1
45;CRS.UP..V:% .BY13;RETURN..WD%;..WN%;.
.WX%;.+WB%;***** SPRUNGTABELLE *****.<WL
%TAB .WORIGHT.IWV% .WOLEFT.VW.% .WODOWN.
AW.% .WOUP.PW.% .WORETURN.VW.%;.|W.%;..W
.%;..W.%;***** WINDOWPARAM.-TABELLEN ***
**.HWF%START .BY1,2,3,4,5,6,7,8,9..WP%LE
NGTH .BY1,2,3,4,5,6,7,8,9..XZ%SIGN .BY1,
2,3,4,5,6,7,8,9.'X.%WBREITE .BY1,2,3,4,5
,6,7,8,9.HX.%WLAENGE .BY1,2,3,4,5,6,7,8,
9.IX.%WPOILOW .BY1,2,3,4,5,6,7,8,9..X.&W
POIHIGH .BY1,2,3,4,5,6,7,8,9..X.&.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL