PULL-DOWN-SOURCE
FILE INFORMATION
FILENAME(S): PULL-DOWN-SOURCE
FILE TYPE(S): PRG
FILE SIZE: 23.8K
FIRST SEEN: 2025-11-30 01:12:40
APPEARS ON: 2 disk(s)
FILE HASH
7aeb8097b6d876014b851c19fdc6f941d40dc3aca81d6a525b5abc15ce1bb044
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SH 12 86 VORDERS | PULL-DOWN-SOURCE | PRG | C64er, DuncanTwain | 22 | 0 | DOWNLOAD FILE |
| SH 12 86 VORDERS | PULL-DOWN-SOURCE | PRG | DuncanTwain | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F9 1F 0A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |......;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 00 1A 20 14 00 3B 2A 20 52 4F 55 54 49 4E |**.. ..;* 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 1E 00 3B 2A 20 20 56 4F 4E 20 |G *.; ..;* 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 28 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 32 00 3B 2A 2A 2A 2A 2A | *.} 2.;*****|
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 3C 00 3B 00 89 20 46 |******.. <.;.. F|
000000B0: 00 3B 00 8F 20 50 00 3B 00 B2 20 64 00 3B 2A 2A |.;.. P.;.. d.;**|
000000C0: 2A 20 4C 41 42 45 4C 3A 20 42 45 54 52 49 45 42 |* LABEL: BETRIEB|
000000D0: 53 53 59 53 54 45 4D 20 2A 2A 2A 00 E8 20 6E 00 |SSYSTEM ***.. n.|
000000E0: 2E 45 51 20 47 45 54 49 4E 20 20 20 20 3D 20 24 |.EQ GETIN = $|
000000F0: 46 46 45 34 20 20 3B 5A 45 49 43 48 45 4E 20 56 |FFE4 ;ZEICHEN V|
00000100: 4F 4E 20 54 41 53 54 41 54 55 52 20 4C 45 53 45 |ON TASTATUR LESE|
00000110: 4E 00 29 21 78 00 2E 45 51 20 43 48 4B 4B 4F 4D |N.)!x..EQ CHKKOM|
00000120: 20 20 20 3D 20 24 41 45 46 44 20 20 3B 42 41 53 | = $AEFD ;BAS|
00000130: 49 43 2D 54 45 58 54 3A 20 4E 41 45 43 48 53 54 |IC-TEXT: NAECHST|
00000140: 45 53 20 5A 45 49 43 48 45 4E 3A 20 4B 4F 4D 4D |ES ZEICHEN: KOMM|
00000150: 41 3F 00 6C 21 82 00 2E 45 51 20 47 45 54 42 59 |A?.l!...EQ GETBY|
00000160: 54 20 20 20 3D 20 24 42 37 39 45 20 20 3B 42 41 |T = $B79E ;BA|
00000170: 53 49 43 2D 54 45 58 54 3A 20 42 59 54 45 57 45 |SIC-TEXT: BYTEWE|
00000180: 52 54 20 48 4F 4C 45 4E 20 28 58 2D 52 45 47 49 |RT HOLEN (X-REGI|
00000190: 53 54 45 52 29 00 AE 21 8C 00 2E 45 51 20 47 45 |STER)..!...EQ GE|
000001A0: 54 50 4F 53 20 20 20 3D 20 24 42 30 38 42 20 20 |TPOS = $B08B |
000001B0: 3B 42 41 53 49 43 2D 54 45 58 54 3A 20 50 4F 49 |;BASIC-TEXT: POI|
000001C0: 4E 54 45 52 20 41 55 46 20 56 41 52 49 41 42 4C |NTER AUF VARIABL|
000001D0: 45 20 48 4F 4C 45 4E 00 D7 21 96 00 2E 45 51 20 |E HOLEN..!...EQ |
000001E0: 50 4C 4F 54 20 20 20 20 20 3D 20 24 46 46 46 30 |PLOT = $FFF0|
000001F0: 20 20 3B 43 55 52 53 4F 52 20 53 45 54 5A 45 4E | ;CURSOR SETZEN|
00000200: 00 04 22 A0 00 2E 45 51 20 42 53 4F 55 54 20 20 |.."...EQ BSOUT |
00000210: 20 20 3D 20 24 46 46 44 32 20 20 3B 5A 45 49 43 | = $FFD2 ;ZEIC|
00000220: 48 45 4E 20 41 55 53 53 47 45 42 45 4E 00 0A 22 |HEN AUSSGEBEN.."|
00000230: B4 00 3B 00 10 22 B6 00 3B 00 34 22 B7 00 3B 2A |..;.."..;.4"..;*|
00000240: 2A 2A 20 4C 41 42 45 4C 3A 20 50 52 4F 47 52 41 |** LABEL: PROGRA|
00000250: 4D 4D 4D 49 4E 54 45 52 4E 20 2A 2A 2A 00 70 22 |MMMINTERN ***.p"|
00000260: B9 00 2E 45 51 20 50 41 52 42 41 43 4B 20 20 3D |...EQ PARBACK =|
00000270: 20 24 41 37 20 20 20 20 20 20 3B 41 55 53 57 41 | $A7 ;AUSWA|
00000280: 48 4C 52 55 45 43 4B 55 45 42 45 52 47 41 42 45 |HLRUECKUEBERGABE|
00000290: 20 41 4E 20 42 41 53 49 43 00 AF 22 BE 00 2E 45 | AN BASIC.."...E|
000002A0: 51 20 49 4E 44 49 5A 20 20 20 20 3D 20 24 41 39 |Q INDIZ = $A9|
000002B0: 20 20 20 20 20 20 3B 50 4F 49 4E 54 45 52 20 46 | ;POINTER F|
000002C0: 2E 49 4E 44 49 5A 49 45 52 54 45 20 41 44 52 45 |.INDIZIERTE ADRE|
000002D0: 53 53 49 45 52 55 4E 47 00 EE 22 C8 00 2E 45 51 |SSIERUNG.."...EQ|
000002E0: 20 49 4E 44 49 5A 31 20 20 20 3D 20 24 41 42 20 | INDIZ1 = $AB |
000002F0: 20 20 20 20 20 3B 50 4F 49 4E 54 45 52 20 46 2E | ;POINTER F.|
00000300: 49 4E 44 49 5A 49 45 52 54 45 20 41 44 52 45 53 |INDIZIERTE ADRES|
00000310: 53 49 45 52 55 4E 47 00 39 23 CA 00 2E 45 51 20 |SIERUNG.9#...EQ |
00000320: 53 54 52 4C 45 4E 20 20 20 3D 20 24 41 44 20 20 |STRLEN = $AD |
00000330: 20 20 20 20 3B 4C 41 45 4E 47 45 20 44 45 52 20 | ;LAENGE DER |
00000340: 56 4F 4E 20 42 41 53 49 43 20 55 45 42 45 52 47 |VON BASIC UEBERG|
00000350: 45 42 2E 53 54 52 49 4E 47 56 41 52 49 41 42 4C |EB.STRINGVARIABL|
00000360: 45 4E 00 7A 23 CC 00 2E 45 51 20 53 54 52 50 4F |EN.z#...EQ STRPO|
00000370: 53 20 20 20 3D 20 24 41 45 20 20 20 20 20 20 3B |S = $AE ;|
00000380: 50 4F 49 4E 54 45 52 20 41 55 46 20 55 45 42 45 |POINTER AUF UEBE|
00000390: 52 47 45 42 2E 53 54 52 49 4E 47 56 41 52 49 41 |RGEB.STRINGVARIA|
000003A0: 42 4C 45 00 9F 23 D2 00 2E 45 51 20 43 4E 54 49 |BLE..#...EQ CNTI|
000003B0: 20 20 20 20 20 3D 20 24 30 33 33 34 20 20 20 20 | = $0334 |
000003C0: 3B 5A 41 45 48 4C 45 52 00 C4 23 DC 00 2E 45 51 |;ZAEHLER..#...EQ|
000003D0: 20 43 4E 54 4A 20 20 20 20 20 3D 20 43 4E 54 49 | CNTJ = CNTI|
000003E0: 2B 31 20 20 20 3B 5A 41 45 48 4C 45 52 00 EF 23 |+1 ;ZAEHLER..#|
000003F0: E6 00 2E 45 51 20 43 4F 4C 20 20 20 20 20 20 3D |...EQ COL =|
00000400: 20 43 4E 54 4A 2B 31 20 20 20 3B 53 50 41 4C 54 | CNTJ+1 ;SPALT|
00000410: 45 20 4D 45 52 4B 45 4E 00 19 24 F0 00 2E 45 51 |E MERKEN..$...EQ|
00000420: 20 4C 49 4E 45 20 20 20 20 20 3D 20 43 4F 4C 2B | LINE = COL+|
00000430: 31 20 20 20 20 3B 5A 45 49 4C 45 20 4D 45 52 4B |1 ;ZEILE MERK|
00000440: 45 4E 00 4C 24 FA 00 2E 45 51 20 42 52 45 49 54 |EN.L$...EQ BREIT|
00000450: 45 20 20 20 3D 20 4C 49 4E 45 2B 31 20 20 20 3B |E = LINE+1 ;|
00000460: 52 45 43 48 54 45 43 4B 42 52 45 49 54 45 20 4D |RECHTECKBREITE M|
00000470: 45 52 4B 45 4E 00 7F 24 04 01 2E 45 51 20 4C 41 |ERKEN..$...EQ LA|
00000480: 45 4E 47 45 20 20 20 3D 20 42 52 45 49 54 45 2B |ENGE = BREITE+|
00000490: 31 20 3B 52 45 43 48 54 45 43 4B 4C 41 45 4E 47 |1 ;RECHTECKLAENG|
000004A0: 45 20 4D 45 52 4B 45 4E 00 9B 24 0E 01 2E 45 51 |E MERKEN..$...EQ|
000004B0: 20 46 4C 41 47 20 20 20 20 20 3D 20 4C 41 45 4E | FLAG = LAEN|
000004C0: 47 45 2B 31 00 D7 24 18 01 2E 45 51 20 50 55 46 |GE+1..$...EQ PUF|
000004D0: 4E 52 20 20 20 20 3D 20 46 4C 41 47 2B 31 20 20 |NR = FLAG+1 |
000004E0: 20 3B 4E 52 2E 44 45 53 20 41 4E 5A 55 53 50 52 | ;NR.DES ANZUSPR|
000004F0: 45 43 48 45 4E 44 45 4E 20 50 55 46 46 45 52 53 |ECHENDEN PUFFERS|
00000500: 00 F2 24 36 01 2E 45 51 20 52 4F 55 54 49 4E 20 |..$6..EQ ROUTIN |
00000510: 20 20 3D 20 50 55 46 4E 52 2B 32 00 F8 24 40 01 | = PUFNR+2..$@.|
00000520: 3B 00 FE 24 4A 01 3B 00 04 25 54 01 3B 00 29 25 |;..$J.;..%T.;.)%|
00000530: 5E 01 3B 2A 2A 2A 20 4C 41 42 45 4C 53 20 46 2E |^.;*** LABELS F.|
00000540: 50 55 46 46 45 52 2D 52 4F 55 54 49 4E 45 20 2A |PUFFER-ROUTINE *|
00000550: 2A 2A 00 5B 25 68 01 2E 45 51 20 53 43 52 45 45 |**.[%h..EQ SCREE|
00000560: 4E 50 20 20 3D 20 49 4E 44 49 5A 20 20 3B 50 4F |NP = INDIZ ;PO|
00000570: 49 4E 54 45 52 20 41 55 46 20 42 49 4C 44 53 43 |INTER AUF BILDSC|
00000580: 48 49 52 4D 00 89 25 72 01 2E 45 51 20 50 55 46 |HIRM..%r..EQ PUF|
00000590: 46 45 52 50 20 20 3D 20 49 4E 44 49 5A 31 20 3B |FERP = INDIZ1 ;|
000005A0: 50 4F 49 4E 54 45 52 20 41 55 46 20 50 55 46 46 |POINTER AUF PUFF|
000005B0: 45 52 00 D3 25 7C 01 2E 45 51 20 50 55 46 50 4F |ER..%|..EQ PUFPO|
000005C0: 49 20 20 20 3D 20 24 30 32 39 33 20 20 3B 54 41 |I = $0293 ;TA|
000005D0: 42 45 4C 4C 45 20 4D 49 54 20 53 54 41 52 54 41 |BELLE MIT STARTA|
000005E0: 44 52 45 53 53 45 4E 20 44 45 52 20 41 4B 54 55 |DRESSEN DER AKTU|
000005F0: 45 4C 4C 45 4E 20 50 55 46 46 45 52 00 FB 25 86 |ELLEN PUFFER..%.|
00000600: 01 2E 45 51 20 50 55 46 53 54 41 52 54 20 3D 20 |..EQ PUFSTART = |
00000610: 24 46 30 30 30 20 20 3B 50 55 46 46 45 52 41 4E |$F000 ;PUFFERAN|
00000620: 46 41 4E 47 00 3A 26 90 01 2E 45 51 20 49 4E 54 |FANG.:&...EQ INT|
00000630: 43 54 52 4C 20 20 3D 20 24 44 43 30 45 20 20 3B |CTRL = $DC0E ;|
00000640: 56 49 43 2D 52 45 47 49 53 54 45 52 20 5A 55 52 |VIC-REGISTER ZUR|
00000650: 20 49 4E 54 45 52 52 55 50 54 4B 4F 4E 54 52 4F | INTERRUPTKONTRO|
00000660: 4C 4C 45 00 61 26 9A 01 2E 45 51 20 43 52 53 4C |LLE.a&...EQ CRSL|
00000670: 49 4E 45 20 20 3D 20 32 31 34 20 20 20 20 3B 43 |INE = 214 ;C|
00000680: 55 52 53 4F 52 5A 45 49 4C 45 00 94 26 A4 01 2E |URSORZEILE..&...|
00000690: 45 51 20 4C 49 4E 45 50 4F 49 20 20 3D 20 32 30 |EQ LINEPOI = 20|
000006A0: 39 20 20 20 20 3B 50 4F 49 4E 54 45 52 20 41 55 |9 ;POINTER AU|
000006B0: 46 20 43 55 52 53 4F 52 5A 45 49 4C 45 00 9A 26 |F CURSORZEILE..&|
000006C0: AE 01 3B 00 A0 26 B8 01 3B 00 A6 26 C2 01 3B 00 |..;..&..;..&..;.|
000006D0: C3 26 CC 01 2E 42 41 20 24 43 36 30 30 20 3B 50 |.&...BA $C600 ;P|
000006E0: 52 4F 47 52 41 4D 4D 53 54 41 52 54 00 C9 26 D6 |ROGRAMMSTART..&.|
000006F0: 01 3B 00 CF 26 E0 01 3B 00 D5 26 EA 01 3B 00 F2 |.;..&..;..&..;..|
00000700: 26 F4 01 3B 2A 2A 2A 20 53 50 52 55 4E 47 56 45 |&..;*** SPRUNGVE|
00000710: 52 54 45 49 4C 45 52 20 2A 2A 2A 00 01 27 FE 01 |RTEILER ***..'..|
00000720: 20 4A 4D 50 57 49 4E 44 4F 57 00 10 27 08 02 20 | JMPWINDOW..'.. |
00000730: 4A 4D 50 50 55 46 46 45 52 00 1F 27 12 02 20 4A |JMPPUFFER..'.. J|
00000740: 4D 50 49 4E 56 45 52 54 00 2D 27 1C 02 20 4A 4D |MPINVERT.-'.. JM|
00000750: 50 43 4E 54 52 4C 00 33 27 26 02 3B 00 39 27 30 |PCNTRL.3'&.;.9'0|
00000760: 02 3B 00 3F 27 3A 02 3B 00 62 27 44 02 3B 2A 2A |.;.?':.;.b'D.;**|
00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 85 27 4E 02 |***********..'N.|
00000790: 3B 2A 2A 2A 20 47 45 4D 45 49 4E 53 41 4D 45 20 |;*** GEMEINSAME |
000007A0: 55 4E 54 45 52 50 52 4F 47 53 20 2A 2A 2A 00 A8 |UNTERPROGS ***..|
000007B0: 27 58 02 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |'X.;************|
000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007D0: 2A 00 AE 27 62 02 3B 00 CB 27 6C 02 3B 2A 2A 2A |*..'b.;..'l.;***|
000007E0: 20 50 41 52 41 4D 45 54 45 52 20 4C 45 53 45 4E | PARAMETER LESEN|
000007F0: 20 2A 2A 2A 00 ED 27 76 02 50 41 52 41 4D 20 53 | ***..'v.PARAM S|
00000800: 54 41 43 4E 54 49 3B 4C 49 45 53 54 20 42 45 4C |TACNTI;LIEST BEL|
00000810: 49 45 42 49 47 45 00 02 28 80 02 20 4C 44 58 23 |IEBIGE..(.. LDX#|
00000820: 30 3B 41 4E 5A 41 48 4C 20 41 4E 00 24 28 8A 02 |0;ANZAHL AN.$(..|
00000830: 4C 45 53 45 4E 20 53 54 58 43 4E 54 4A 3B 45 49 |LESEN STXCNTJ;EI|
00000840: 4E 2D 42 59 54 45 2D 57 45 52 54 45 4E 00 46 28 |N-BYTE-WERTEN.F(|
00000850: 94 02 20 4A 53 52 43 48 4B 4B 4F 4D 3B 41 55 53 |.. JSRCHKKOM;AUS|
00000860: 20 44 45 4D 20 42 41 53 49 43 2D 54 45 58 54 00 | DEM BASIC-TEXT.|
00000870: 62 28 9E 02 20 4A 53 52 47 45 54 42 59 54 3B 55 |b(.. JSRGETBYT;U|
00000880: 4E 44 20 4C 45 47 54 20 53 49 45 00 78 28 A8 02 |ND LEGT SIE.x(..|
00000890: 20 54 58 41 3B 41 42 20 27 43 4F 4C 27 20 41 42 | TXA;AB 'COL' AB|
000008A0: 2E 00 85 28 B2 02 20 4C 44 58 43 4E 54 4A 00 93 |...(.. LDXCNTJ..|
000008B0: 28 BC 02 20 53 54 41 43 4F 4C 2C 58 00 9C 28 C6 |(.. STACOL,X..(.|
000008C0: 02 20 49 4E 58 00 A9 28 D0 02 20 43 50 58 43 4E |. INX..(.. CPXCN|
000008D0: 54 49 00 B7 28 DA 02 20 42 4E 45 4C 45 53 45 4E |TI..(.. BNELESEN|
000008E0: 00 C0 28 E4 02 20 52 54 53 00 C6 28 EE 02 3B 00 |..(.. RTS..(..;.|
000008F0: CC 28 F8 02 3B 00 F2 28 02 03 3B 2A 2A 2A 20 53 |.(..;..(..;*** S|
00000900: 54 52 49 4E 47 44 45 53 43 52 49 50 54 4F 52 45 |TRINGDESCRIPTORE|
00000910: 4E 20 48 4F 4C 45 4E 20 2A 2A 2A 00 14 29 0C 03 |N HOLEN ***..)..|
00000920: 48 4F 4C 44 45 53 20 4C 44 59 23 32 3B 48 4F 4C |HOLDES LDY#2;HOL|
00000930: 54 20 44 49 45 20 53 54 52 49 4E 47 2D 00 3E 29 |T DIE STRING-.>)|
00000940: 16 03 48 4F 4C 44 45 53 31 20 4C 44 41 28 49 4E |..HOLDES1 LDA(IN|
00000950: 44 49 5A 29 2C 59 3B 44 45 53 43 52 49 50 54 4F |DIZ),Y;DESCRIPTO|
00000960: 52 45 4E 20 44 45 52 00 64 29 20 03 20 53 54 41 |REN DER.d) . STA|
00000970: 53 54 52 4C 45 4E 2C 59 3B 55 45 42 45 52 47 45 |STRLEN,Y;UEBERGE|
00000980: 42 45 4E 45 4E 20 53 54 52 49 4E 47 2D 00 77 29 |BENEN STRING-.w)|
00000990: 2A 03 20 44 45 59 3B 56 41 52 49 41 42 4C 45 4E |*. DEY;VARIABLEN|
000009A0: 00 A1 29 34 03 20 42 50 4C 48 4F 4C 44 45 53 31 |..)4. BPLHOLDES1|
000009B0: 3B 4C 41 45 4E 47 45 2F 50 4F 49 4E 54 45 52 20 |;LAENGE/POINTER |
000009C0: 41 55 46 20 53 54 52 49 4E 47 00 AA 29 3E 03 20 |AUF STRING..)>. |
000009D0: 52 54 53 00 B0 29 48 03 3B 00 B6 29 52 03 3B 00 |RTS..)H.;..)R.;.|
000009E0: DA 29 5C 03 3B 2A 2A 2A 20 49 4E 44 49 5A 28 2B |.)\.;*** INDIZ(+|
000009F0: 31 29 3D 3E 4E 45 58 54 20 53 54 52 49 4E 47 20 |1)=>NEXT STRING |
00000A00: 2A 2A 2A 00 05 2A 66 03 4E 45 58 54 53 54 52 20 |***..*f.NEXTSTR |
00000A10: 4C 44 41 49 4E 44 49 5A 3B 45 52 48 4F 45 48 54 |LDAINDIZ;ERHOEHT|
00000A20: 20 45 49 4E 45 4E 20 50 4F 49 4E 54 45 52 00 25 | EINEN POINTER.%|
00000A30: 2A 70 03 20 43 4C 43 3B 28 49 4E 20 27 49 4E 44 |*p. CLC;(IN 'IND|
00000A40: 49 5A 27 29 20 41 55 46 20 45 49 4E 45 4E 00 45 |IZ') AUF EINEN.E|
00000A50: 2A 7A 03 20 41 44 43 23 33 3B 53 54 52 49 4E 47 |*z. ADC#3;STRING|
00000A60: 44 45 53 43 52 49 50 54 4F 52 2C 20 53 4F 00 67 |DESCRIPTOR, SO.g|
00000A70: 2A 84 03 20 53 54 41 49 4E 44 49 5A 3B 44 41 53 |*.. STAINDIZ;DAS|
00000A80: 53 20 44 49 45 53 45 52 20 41 55 46 20 44 45 4E |S DIESER AUF DEN|
00000A90: 00 8A 2A 8E 03 20 42 43 43 4E 45 58 54 31 3B 4E |..*.. BCCNEXT1;N|
00000AA0: 41 45 43 48 53 54 45 4E 20 44 45 53 43 52 49 50 |AECHSTEN DESCRIP|
00000AB0: 54 4F 52 00 B0 2A 98 03 20 49 4E 43 49 4E 44 49 |TOR..*.. INCINDI|
00000AC0: 5A 2B 31 3B 57 45 49 53 54 20 28 49 4E 44 49 5A |Z+1;WEIST (INDIZ|
00000AD0: 3D 49 4E 44 49 5A 2B 33 29 00 BE 2A A2 03 4E 45 |=INDIZ+3)..*..NE|
00000AE0: 58 54 31 20 52 54 53 00 C4 2A AC 03 3B 00 CA 2A |XT1 RTS..*..;..*|
00000AF0: B6 03 3B 00 EA 2A C0 03 3B 2A 2A 2A 20 45 4E 44 |..;..*..;*** END|
00000B00: 5A 45 49 4C 45 20 42 45 52 45 43 48 4E 45 4E 20 |ZEILE BERECHNEN |
00000B10: 2A 2A 2A 00 16 2B CA 03 45 4E 44 5A 45 49 20 4C |***..+..ENDZEI L|
00000B20: 44 41 4C 49 4E 45 3B 42 45 52 45 43 48 4E 45 54 |DALINE;BERECHNET|
00000B30: 20 44 49 45 20 4E 55 4D 4D 45 52 20 44 45 52 00 | DIE NUMMER DER.|
00000B40: 38 2B D4 03 20 43 4C 43 3B 4C 45 54 5A 54 45 4E |8+.. CLC;LETZTEN|
00000B50: 20 5A 45 49 4C 45 20 44 45 53 20 41 4E 47 45 47 | ZEILE DES ANGEG|
00000B60: 2E 00 5D 2B DE 03 20 41 44 43 4C 41 45 4E 47 45 |..]+.. ADCLAENGE|
00000B70: 3B 52 45 43 48 54 45 43 4B 53 20 28 4C 41 53 54 |;RECHTECKS (LAST|
00000B80: 5A 45 49 4C 45 3D 00 7F 2B E8 03 20 53 54 41 4C |ZEILE=..+.. STAL|
00000B90: 41 45 4E 47 45 3B 53 54 41 52 54 5A 45 49 4C 45 |AENGE;STARTZEILE|
00000BA0: 2B 4C 41 45 4E 47 45 29 00 88 2B F2 03 20 52 54 |+LAENGE)..+.. RT|
00000BB0: 53 00 8E 2B FC 03 3B 00 94 2B 06 04 3B 00 9A 2B |S..+..;..+..;..+|
00000BC0: 10 04 3B 00 B9 2B 1A 04 3B 2A 2A 2A 2A 2A 2A 2A |..;..+..;*******|
00000BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BE0: 2A 2A 00 D8 2B 24 04 3B 2A 20 57 49 4E 44 4F 57 |**..+$.;* WINDOW|
00000BF0: 20 2B 20 49 4E 48 41 4C 54 20 4D 41 4C 45 4E 20 | + INHALT MALEN |
00000C00: 2A 00 F7 2B 2E 04 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*..+..;*********|
00000C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C20: 00 FD 2B 38 04 3B 00 21 2C 42 04 3B 41 55 46 52 |..+8.;.!,B.;AUFR|
00000C30: 55 46 3A 20 53 59 53 20 58 58 58 58 2C 53 50 41 |UF: SYS XXXX,SPA|
00000C40: 4C 54 45 2C 5A 45 49 4C 45 2C 00 42 2C 4C 04 3B |LTE,ZEILE,.B,L.;|
00000C50: 20 20 20 20 20 20 20 20 42 52 45 49 54 45 2C 4C | BREITE,L|
00000C60: 41 45 4E 47 45 2C 41 52 52 41 59 00 48 2C 56 04 |AENGE,ARRAY.H,V.|
00000C70: 3B 00 6B 2C 60 04 3B 46 55 4E 4B 54 49 4F 4E 3A |;.k,`.;FUNKTION:|
00000C80: 20 4D 41 4C 54 20 45 49 4E 20 57 49 4E 44 4F 57 | MALT EIN WINDOW|
00000C90: 20 44 45 52 00 8F 2C 6A 04 3B 20 20 20 20 20 20 | DER..,j.; |
00000CA0: 20 20 20 20 41 4E 47 45 47 45 42 45 4E 45 4E 20 | ANGEGEBENEN |
00000CB0: 20 47 52 4F 45 53 53 45 00 B2 2C 74 04 3B 20 20 | GROESSE..,t.; |
00000CC0: 20 20 20 20 20 20 20 20 28 27 42 52 45 49 54 45 | ('BREITE|
00000CD0: 27 2C 27 4C 41 45 4E 47 45 27 29 00 D8 2C 7E 04 |','LAENGE')..,~.|
00000CE0: 3B 20 20 20 20 20 20 20 20 20 20 41 42 20 44 45 |; AB DE|
00000CF0: 52 20 50 4F 53 49 54 2E 27 53 50 41 4C 54 45 27 |R POSIT.'SPALTE'|
00000D00: 2F 00 FE 2C 88 04 3B 20 20 20 20 20 20 20 20 20 |/..,..; |
00000D10: 20 27 5A 45 49 4C 45 27 20 55 4E 44 20 46 55 45 | 'ZEILE' UND FUE|
00000D20: 4C 4C 54 20 44 49 45 00 21 2D 92 04 3B 20 20 20 |LLT DIE.!-..; |
00000D30: 20 20 20 20 20 20 20 49 4E 4E 45 4E 5A 45 49 4C | INNENZEIL|
00000D40: 45 4E 20 4D 49 54 20 44 45 4E 00 47 2D 9C 04 3B |EN MIT DEN.G-..;|
00000D50: 20 20 20 20 20 20 20 20 20 20 41 4E 47 45 47 45 | ANGEGE|
00000D60: 42 2E 20 41 52 52 41 59 53 54 52 49 4E 47 53 2C |B. ARRAYSTRINGS,|
00000D70: 00 6B 2D 9E 04 3B 20 20 20 20 20 20 20 20 20 20 |.k-..; |
00000D80: 44 45 52 45 4E 20 41 4E 5A 41 48 4C 20 4D 49 4E |DEREN ANZAHL MIN|
00000D90: 44 45 53 2D 00 90 2D A0 04 3B 20 20 20 20 20 20 |DES-..-..; |
00000DA0: 20 20 20 20 54 45 4E 53 20 45 42 45 4E 53 4F 20 | TENS EBENSO |
00000DB0: 47 52 4F 53 53 20 57 49 45 00 B5 2D A2 04 3B 20 |GROSS WIE..-..; |
00000DC0: 20 20 20 20 20 20 20 20 20 44 49 45 20 41 4E 5A | DIE ANZ|
00000DD0: 41 48 4C 20 44 45 52 20 49 4E 4E 45 4E 2D 00 D6 |AHL DER INNEN-..|
00000DE0: 2D A4 04 3B 20 20 20 20 20 20 20 20 20 20 5A 45 |-..; ZE|
00000DF0: 49 4C 45 4E 20 53 45 49 4E 20 4D 55 53 53 2E 00 |ILEN SEIN MUSS..|
00000E00: DC 2D A6 04 3B 00 00 2E B0 04 3B 42 53 50 2E 3A |.-..;.....;BSP.:|
00000E10: 20 53 59 53 20 58 58 58 58 2C 32 2C 35 2C 31 30 | SYS XXXX,2,5,10|
00000E20: 2C 31 35 2C 41 24 28 32 29 00 22 2E BA 04 3B 20 |,15,A$(2)."...; |
00000E30: 20 20 20 20 20 4D 41 4C 54 20 57 49 4E 44 4F 57 | MALT WINDOW|
00000E40: 20 4D 49 54 20 4C 49 4E 4B 45 52 00 46 2E C4 04 | MIT LINKER.F...|
00000E50: 3B 20 20 20 20 20 20 45 43 4B 45 20 32 2F 35 2C |; ECKE 2/5,|
00000E60: 20 44 41 53 20 31 30 20 53 50 41 4C 54 45 4E 00 | DAS 10 SPALTEN.|
00000E70: 6A 2E CE 04 3B 20 20 20 20 20 20 42 52 45 49 54 |j...; BREIT|
00000E80: 20 55 4E 44 20 31 35 20 5A 45 49 4C 45 4E 20 4C | UND 15 ZEILEN L|
00000E90: 41 4E 47 00 8F 2E D8 04 3B 20 20 20 20 20 20 49 |ANG.....; I|
00000EA0: 53 54 3B 20 44 49 45 20 49 4E 4E 45 4E 5A 45 49 |ST; DIE INNENZEI|
00000EB0: 4C 45 4E 20 57 45 52 2D 00 B3 2E E2 04 3B 20 20 |LEN WER-.....; |
00000EC0: 20 20 20 20 44 45 4E 20 4D 49 54 20 27 41 24 28 | DEN MIT 'A$(|
00000ED0: 32 29 27 2D 27 41 24 28 31 35 29 27 00 C7 2E EC |2)'-'A$(15)'....|
00000EE0: 04 3B 20 20 20 20 20 20 47 45 46 55 45 4C 4C 54 |.; GEFUELLT|
00000EF0: 00 CD 2E F6 04 3B 00 D3 2E 00 05 3B 00 F6 2E 0A |.....;.....;....|
00000F00: 05 57 49 4E 44 4F 57 20 4C 44 41 23 34 3B 34 20 |.WINDOW LDA#4;4 |
00000F10: 42 59 54 45 57 45 52 54 45 20 48 4F 4C 45 4E 00 |BYTEWERTE HOLEN.|
00000F20: 04 2F 14 05 20 4A 53 52 50 41 52 41 4D 00 0A 2F |./.. JSRPARAM../|
00000F30: 1E 05 3B 00 2B 2F 28 05 20 4A 53 52 43 48 4B 4B |..;.+/(. JSRCHKK|
00000F40: 4F 4D 3B 53 54 52 49 4E 47 44 45 53 43 52 52 49 |OM;STRINGDESCRRI|
00000F50: 50 54 4F 52 00 40 2F 32 05 20 4A 53 52 47 45 54 |PTOR.@/2. JSRGET|
00000F60: 50 4F 53 3B 48 4F 4C 45 4E 00 46 2F 3C 05 3B 00 |POS;HOLEN.F/<.;.|
00000F70: 6F 2F 46 05 57 49 4E 4A 53 52 20 53 54 41 49 4E |o/F.WINJSR STAIN|
00000F80: 44 49 5A 3B 55 4E 44 20 4E 41 43 48 20 27 49 4E |DIZ;UND NACH 'IN|
00000F90: 44 49 5A 28 2B 31 29 27 00 88 2F 50 05 20 53 54 |DIZ(+1)'../P. ST|
00000FA0: 59 49 4E 44 49 5A 2B 31 3B 53 43 48 41 46 46 45 |YINDIZ+1;SCHAFFE|
00000FB0: 4E 00 8E 2F 5A 05 3B 00 B0 2F 64 05 20 4A 53 52 |N../Z.;../d. JSR|
00000FC0: 45 4E 44 5A 45 49 3B 4C 45 54 5A 54 45 20 57 49 |ENDZEI;LETZTE WI|
00000FD0: 4E 44 4F 57 5A 45 49 4C 45 00 C9 2F 6E 05 20 44 |NDOWZEILE../n. D|
00000FE0: 45 43 4C 41 45 4E 47 45 3B 4B 4F 52 52 45 4B 54 |ECLAENGE;KORREKT|
00000FF0: 55 52 00 E0 2F 78 05 20 44 45 43 42 52 45 49 54 |UR../x. DECBREIT|
00001000: 45 3B 4B 4F 52 52 45 4B 2D 00 F3 2F 82 05 20 44 |E;KORREK-../.. D|
00001010: 45 43 42 52 45 49 54 45 3B 54 55 52 00 F9 2F 8C |ECBREITE;TUR../.|
00001020: 05 3B 00 FF 2F 96 05 3B 00 1E 30 A0 05 3B 2A 2A |.;../..;..0..;**|
00001030: 2A 20 45 52 53 54 45 20 5A 45 49 4C 45 20 4D 41 |* ERSTE ZEILE MA|
00001040: 4C 45 4E 20 2A 2A 2A 00 33 30 AA 05 20 4C 44 41 |LEN ***.30.. LDA|
00001050: 23 30 3B 46 4C 41 47 3D 30 20 3D 3E 00 55 30 B4 |#0;FLAG=0 =>.U0.|
00001060: 05 20 53 54 41 46 4C 41 47 3B 4F 48 4E 45 20 53 |. STAFLAG;OHNE S|
00001070: 54 52 49 4E 47 20 41 55 53 47 45 42 45 4E 00 63 |TRING AUSGEBEN.c|
00001080: 30 BE 05 20 4A 53 52 4D 41 4C 45 4E 00 69 30 C8 |0.. JSRMALEN.i0.|
00001090: 05 3B 00 6F 30 D2 05 3B 00 8E 30 DC 05 3B 2A 2A |.;.o0..;..0..;**|
000010A0: 2A 20 49 4E 4E 45 4E 5A 45 49 4C 45 4E 20 4D 41 |* INNENZEILEN MA|
000010B0: 4C 45 4E 20 2A 2A 2A 00 A5 30 E6 05 20 49 4E 43 |LEN ***..0.. INC|
000010C0: 46 4C 41 47 3B 46 4C 41 47 3D 30 20 3D 3E 00 CD |FLAG;FLAG=0 =>..|
000010D0: 30 F0 05 49 4E 4E 45 4E 20 4A 53 52 48 4F 4C 44 |0..INNEN JSRHOLD|
000010E0: 45 53 3B 5A 45 49 4C 45 4E 20 4D 49 54 20 49 4E |ES;ZEILEN MIT IN|
000010F0: 48 41 4C 54 45 4E 00 F4 30 FA 05 20 4A 53 52 4D |HALTEN..0.. JSRM|
00001100: 41 4C 45 4E 3B 44 45 52 20 41 52 52 41 59 53 54 |ALEN;DER ARRAYST|
00001110: 52 49 4E 47 53 20 46 55 45 4C 4C 45 4E 00 04 31 |RINGS FUELLEN..1|
00001120: 04 06 20 4A 53 52 4E 45 58 54 53 54 52 00 22 31 |.. JSRNEXTSTR."1|
00001130: 0E 06 20 4C 44 41 4C 49 4E 45 3B 41 4C 4C 45 20 |.. LDALINE;ALLE |
00001140: 49 4E 4E 45 4E 5A 45 49 4C 45 4E 00 3D 31 18 06 |INNENZEILEN.=1..|
00001150: 20 43 4D 50 4C 41 45 4E 47 45 3B 41 55 53 47 45 | CMPLAENGE;AUSGE|
00001160: 47 45 42 45 4E 3F 00 53 31 22 06 20 42 4E 45 49 |GEBEN?.S1". BNEI|
00001170: 4E 4E 45 4E 3B 4E 45 49 4E 20 3D 3E 00 59 31 2C |NNEN;NEIN =>.Y1,|
00001180: 06 3B 00 5F 31 36 06 3B 00 7F 31 40 06 3B 2A 2A |.;._16.;..1@.;**|
00001190: 2A 20 4C 45 54 5A 54 45 20 5A 45 49 4C 45 20 4D |* LETZTE ZEILE M|
000011A0: 41 4C 45 4E 20 2A 2A 2A 00 96 31 4A 06 20 49 4E |ALEN ***..1J. IN|
000011B0: 43 46 4C 41 47 3B 46 4C 41 47 3D 32 20 3D 3E 00 |CFLAG;FLAG=2 =>.|
000011C0: BD 31 54 06 20 4A 4D 50 4D 41 4C 45 4E 3B 5A 45 |.1T. JMPMALEN;ZE|
000011D0: 49 4C 45 20 4F 48 4E 45 20 53 54 52 49 4E 47 49 |ILE OHNE STRINGI|
000011E0: 4E 48 41 4C 54 45 00 C3 31 5E 06 3B 00 C9 31 68 |NHALTE..1^.;..1h|
000011F0: 06 3B 00 E2 31 72 06 3B 2A 2A 2A 20 5A 45 49 4C |.;..1r.;*** ZEIL|
00001200: 45 20 4D 41 4C 45 4E 20 2A 2A 2A 00 02 32 7C 06 |E MALEN ***..2|.|
00001210: 4D 41 4C 45 4E 20 4C 44 58 4C 49 4E 45 3B 43 55 |MALEN LDXLINE;CU|
00001220: 52 53 4F 52 20 53 45 54 5A 45 4E 00 0E 32 86 06 |RSOR SETZEN..2..|
00001230: 20 4C 44 59 43 4F 4C 00 17 32 90 06 20 43 4C 43 | LDYCOL..2.. CLC|
00001240: 00 24 32 9A 06 20 4A 53 52 50 4C 4F 54 00 31 32 |.$2.. JSRPLOT.12|
00001250: A4 06 20 4C 44 58 46 4C 41 47 00 50 32 AE 06 20 |.. LDXFLAG.P2.. |
00001260: 4C 44 41 4C 49 4E 4B 53 2C 58 3B 4C 49 4E 4B 45 |LDALINKS,X;LINKE|
00001270: 53 20 5A 45 49 43 48 45 4E 00 67 32 B8 06 20 4A |S ZEICHEN.g2.. J|
00001280: 53 52 42 53 4F 55 54 3B 41 55 53 47 45 42 45 4E |SRBSOUT;AUSGEBEN|
00001290: 00 84 32 C2 06 20 4C 44 59 23 30 3B 4D 49 54 54 |..2.. LDY#0;MITT|
000012A0: 4C 45 52 45 53 20 5A 45 49 43 48 45 4E 00 AC 32 |LERES ZEICHEN..2|
000012B0: CC 06 4C 4F 4F 50 20 4C 44 41 4D 49 54 54 45 2C |..LOOP LDAMITTE,|
000012C0: 58 3B 4C 41 44 45 4E 20 55 4E 44 20 41 55 53 47 |X;LADEN UND AUSG|
000012D0: 45 42 45 4E 2C 00 C1 32 D6 06 20 43 50 58 23 31 |EBEN,..2.. CPX#1|
000012E0: 3B 57 45 4E 4E 20 46 4C 41 47 00 D9 32 E0 06 20 |;WENN FLAG..2.. |
000012F0: 42 4E 45 4E 4F 53 54 52 49 4E 47 3B 3C 3E 31 20 |BNENOSTRING;<>1 |
00001300: 3D 3E 00 F8 32 EA 06 20 43 50 59 53 54 52 4C 45 |=>..2.. CPYSTRLE|
00001310: 4E 3B 4F 44 45 52 20 53 54 52 49 4E 47 45 4E 44 |N;ODER STRINGEND|
00001320: 45 00 15 33 F4 06 20 42 43 53 4E 4F 53 54 52 49 |E..3.. BCSNOSTRI|
00001330: 4E 47 3B 45 52 52 45 49 43 48 54 20 3D 3E 00 3C |NG;ERREICHT =>.<|
00001340: 33 FE 06 20 4C 44 41 28 53 54 52 50 4F 53 29 2C |3.. LDA(STRPOS),|
00001350: 59 3B 53 4F 4E 53 54 20 53 54 52 49 4E 47 5A 45 |Y;SONST STRINGZE|
00001360: 49 43 48 45 4E 00 5B 33 08 07 4E 4F 53 54 52 49 |ICHEN.[3..NOSTRI|
00001370: 4E 47 20 4A 53 52 42 53 4F 55 54 3B 41 55 53 47 |NG JSRBSOUT;AUSG|
00001380: 45 42 45 4E 00 75 33 12 07 20 49 4E 59 3B 5A 45 |EBEN.u3.. INY;ZE|
00001390: 49 4C 45 20 2D 31 20 5A 45 49 43 48 45 4E 00 99 |ILE -1 ZEICHEN..|
000013A0: 33 1C 07 20 43 50 59 42 52 45 49 54 45 3B 4B 4F |3.. CPYBREITE;KO|
000013B0: 4D 50 4C 45 54 54 20 41 55 53 47 45 47 45 42 45 |MPLETT AUSGEGEBE|
000013C0: 4E 3F 00 AE 33 26 07 20 42 4E 45 4C 4F 4F 50 3B |N?..3&. BNELOOP;|
000013D0: 4E 45 49 4E 20 3D 3E 00 C6 33 30 07 20 49 4E 43 |NEIN =>..30. INC|
000013E0: 4C 49 4E 45 3B 4E 45 58 54 20 5A 45 49 4C 45 00 |LINE;NEXT ZEILE.|
000013F0: E7 33 3A 07 20 4C 44 41 52 45 43 48 54 53 2C 58 |.3:. LDARECHTS,X|
00001400: 3B 52 45 43 48 54 45 53 20 5A 45 49 43 48 45 4E |;RECHTES ZEICHEN|
00001410: 00 08 34 44 07 20 4A 4D 50 42 53 4F 55 54 3B 41 |..4D. JMPBSOUT;A|
00001420: 55 53 47 45 42 45 4E 20 2B 20 52 54 53 20 21 21 |USGEBEN + RTS !!|
00001430: 21 00 0E 34 4E 07 3B 00 27 34 58 07 4C 49 4E 4B |!..4N.;.'4X.LINK|
00001440: 53 20 2E 42 59 31 37 36 2C 31 32 35 2C 31 37 33 |S .BY176,125,173|
00001450: 00 3D 34 62 07 4D 49 54 54 45 20 2E 42 59 39 36 |.=4b.MITTE .BY96|
00001460: 2C 33 32 2C 39 36 00 57 34 6C 07 52 45 43 48 54 |,32,96.W4l.RECHT|
00001470: 53 20 2E 42 59 31 37 34 2C 31 32 35 2C 31 38 39 |S .BY174,125,189|
00001480: 00 5D 34 76 07 3B 00 63 34 80 07 3B 00 69 34 8A |.]4v.;.c4..;.i4.|
00001490: 07 3B 00 8F 34 94 07 3B 2A 2A 2A 2A 2A 2A 2A 2A |.;..4..;********|
000014A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014B0: 2A 2A 2A 2A 2A 2A 2A 2A 00 B5 34 9E 07 3B 2A 20 |********..4..;* |
000014C0: 57 49 4E 44 4F 57 55 4E 54 45 52 47 52 55 4E 44 |WINDOWUNTERGRUND|
000014D0: 20 52 45 54 54 45 4E 2F 48 4F 4C 45 4E 2A 00 DB | RETTEN/HOLEN*..|
000014E0: 34 A8 07 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |4..;************|
000014F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001500: 2A 2A 2A 2A 00 E1 34 B2 07 3B 00 04 35 BC 07 3B |****..4..;..5..;|
00001510: 41 55 46 52 55 46 3A 53 59 53 20 58 58 58 58 2C |AUFRUF:SYS XXXX,|
00001520: 53 50 41 4C 54 45 2C 5A 45 49 4C 45 2C 00 2A 35 |SPALTE,ZEILE,.*5|
00001530: C6 07 3B 20 20 20 20 20 20 20 42 52 45 49 54 45 |..; BREITE|
00001540: 2C 4C 41 45 4E 47 45 2C 46 4C 41 47 2C 50 55 46 |,LAENGE,FLAG,PUF|
00001550: 46 45 52 00 30 35 D0 07 3B 00 51 35 DA 07 3B 46 |FER.05..;.Q5..;F|
00001560: 55 4E 4B 54 49 4F 4E 3A 20 4B 4F 50 49 45 52 54 |UNKTION: KOPIERT|
00001570: 20 44 45 4E 20 44 55 52 43 48 00 75 35 E4 07 3B | DEN DURCH.u5..;|
00001580: 20 20 20 20 20 20 20 20 20 20 27 53 50 41 4C 54 | 'SPALT|
00001590: 45 27 2F 27 5A 45 49 4C 45 27 20 55 4E 44 00 9A |E'/'ZEILE' UND..|
000015A0: 35 EE 07 3B 20 20 20 20 20 20 20 20 20 20 27 42 |5..; 'B|
000015B0: 52 45 49 54 45 27 20 42 5A 57 2E 27 4C 41 45 4E |REITE' BZW.'LAEN|
000015C0: 47 45 27 00 BB 35 F8 07 3B 20 20 20 20 20 20 20 |GE'..5..; |
000015D0: 20 20 20 41 4E 47 45 47 45 42 45 4E 45 4E 20 42 | ANGEGEBENEN B|
000015E0: 49 4C 44 2D 00 DE 35 02 08 3B 20 20 20 20 20 20 |ILD-..5..; |
000015F0: 20 20 20 20 53 43 48 49 52 4D 41 55 53 53 43 48 | SCHIRMAUSSCH|
00001600: 4E 49 54 54 20 49 4E 00 01 36 0C 08 3B 20 20 20 |NITT IN..6..; |
00001610: 20 20 20 20 20 20 20 50 55 46 46 45 52 20 4E 52 | PUFFER NR|
00001620: 2E 27 50 55 46 46 45 52 27 2C 00 1F 36 16 08 3B |.'PUFFER',..6..;|
00001630: 20 20 20 20 20 20 20 20 20 20 57 45 4E 4E 20 27 | WENN '|
00001640: 46 4C 41 47 27 3D 31 2E 00 44 36 20 08 3B 20 20 |FLAG'=1..D6 .; |
00001650: 20 20 20 20 20 20 20 20 27 46 4C 41 47 27 3D 31 | 'FLAG'=1|
00001660: 20 3D 3E 44 45 52 20 49 4E 48 41 4C 54 00 6A 36 | =>DER INHALT.j6|
00001670: 2A 08 3B 20 20 20 20 20 20 20 20 20 20 44 45 53 |*.; DES|
00001680: 20 41 4E 47 45 47 2E 50 55 46 46 45 52 53 20 57 | ANGEG.PUFFERS W|
00001690: 49 52 44 00 8D 36 34 08 3B 20 20 20 20 20 20 20 |IRD..64.; |
000016A0: 20 20 20 49 4E 20 44 45 4E 20 41 4E 47 45 47 2E | IN DEN ANGEG.|
000016B0: 20 42 49 4C 44 2D 00 AD 36 3E 08 3B 20 20 20 20 | BILD-..6>.; |
000016C0: 20 20 20 20 20 20 53 43 48 49 52 4D 41 55 53 53 | SCHIRMAUSS|
000016D0: 43 48 4E 49 54 54 00 C5 36 48 08 3B 20 20 20 20 |CHNITT..6H.; |
000016E0: 20 20 20 20 20 20 4B 4F 50 49 45 52 54 2E 00 E8 | KOPIERT...|
000016F0: 36 4A 08 3B 20 20 20 20 20 20 20 20 20 20 50 55 |6J.; PU|
00001700: 46 46 45 52 3A 20 4E 55 4D 45 52 49 45 52 55 4E |FFER: NUMERIERUN|
00001710: 47 00 0B 37 4C 08 3B 20 20 20 20 20 20 20 20 20 |G..7L.; |
00001720: 20 42 45 47 49 4E 4E 54 20 42 45 49 20 30 3B 20 | BEGINNT BEI 0; |
00001730: 4D 41 58 2E 00 2E 37 4E 08 3B 20 20 20 20 20 20 |MAX...7N.; |
00001740: 20 20 20 20 50 55 46 46 45 52 42 45 52 45 49 43 | PUFFERBEREIC|
00001750: 48 3A 20 32 20 4B 42 00 34 37 50 08 3B 00 56 37 |H: 2 KB.47P.;.V7|
00001760: 52 08 3B 42 53 50 2E 3A 20 53 59 53 20 58 58 58 |R.;BSP.: SYS XXX|
00001770: 58 2C 32 2C 35 2C 31 30 2C 31 35 2C 31 2C 30 00 |X,2,5,10,15,1,0.|
00001780: 7A 37 5C 08 3B 20 20 20 20 20 20 57 49 4E 44 4F |z7\.; WINDO|
00001790: 57 20 4D 49 54 20 4C 49 4E 4B 45 52 20 4F 42 45 |W MIT LINKER OBE|
000017A0: 52 45 52 00 9F 37 66 08 3B 20 20 20 20 20 20 45 |RER..7f.; E|
000017B0: 43 4B 45 20 32 2F 35 2C 20 42 52 45 49 54 45 20 |CKE 2/5, BREITE |
000017C0: 31 30 20 53 50 41 4C 2D 00 C4 37 70 08 3B 20 20 |10 SPAL-..7p.; |
000017D0: 20 20 20 20 54 45 4E 20 55 2E 4C 41 45 4E 47 45 | TEN U.LAENGE|
000017E0: 20 31 35 20 5A 45 49 4C 45 4E 20 49 4E 00 E6 37 | 15 ZEILEN IN..7|
000017F0: 7A 08 3B 20 20 20 20 20 20 50 55 46 46 45 52 20 |z.; PUFFER |
00001800: 4E 52 2E 30 20 53 43 48 52 45 49 42 45 4E 2E 00 |NR.0 SCHREIBEN..|
00001810: EC 37 84 08 3B 00 F2 37 8E 08 3B 00 15 38 98 08 |.7..;..7..;..8..|
00001820: 50 55 46 46 45 52 20 4C 44 41 23 36 3B 36 20 42 |PUFFER LDA#6;6 B|
00001830: 59 54 45 57 45 52 54 45 20 4C 45 53 45 4E 00 23 |YTEWERTE LESEN.#|
00001840: 38 A2 08 20 4A 53 52 50 41 52 41 4D 00 29 38 AC |8.. JSRPARAM.)8.|
00001850: 08 3B 00 52 38 B6 08 50 55 46 46 45 52 4A 53 52 |.;.R8..PUFFERJSR|
00001860: 20 4C 44 41 3C 28 50 55 46 53 54 41 52 54 29 3B | LDA<(PUFSTART);|
00001870: 50 4F 49 4E 54 45 52 20 41 55 46 00 72 38 C0 08 |POINTER AUF.r8..|
00001880: 20 4C 44 58 3E 28 50 55 46 53 54 41 52 54 29 3B | LDX>(PUFSTART);|
00001890: 50 55 46 46 45 52 20 4E 52 2E 30 00 8A 38 CA 08 |PUFFER NR.0..8..|
000018A0: 20 53 54 41 50 55 46 50 4F 49 3B 45 52 5A 45 55 | STAPUFPOI;ERZEU|
000018B0: 47 45 4E 00 9B 38 D4 08 20 53 54 58 50 55 46 50 |GEN..8.. STXPUFP|
000018C0: 4F 49 2B 31 00 A1 38 DE 08 3B 00 C2 38 E8 08 20 |OI+1..8..;..8.. |
000018D0: 4C 44 58 50 55 46 4E 52 3B 41 44 52 45 53 53 45 |LDXPUFNR;ADRESSE|
000018E0: 20 44 45 53 20 41 4E 47 45 47 2E 00 E0 38 F2 08 | DES ANGEG...8..|
000018F0: 20 4C 44 41 50 55 46 50 4F 49 2C 58 3B 50 55 46 | LDAPUFPOI,X;PUF|
00001900: 46 45 52 53 20 4E 41 43 48 00 FD 38 FC 08 20 53 |FERS NACH..8.. S|
00001910: 54 41 50 55 46 46 45 52 50 3B 27 50 55 46 50 4F |TAPUFFERP;'PUFPO|
00001920: 49 28 2B 31 29 27 00 19 39 06 09 20 4C 44 41 50 |I(+1)'..9.. LDAP|
00001930: 55 46 50 4F 49 2B 31 2C 58 3B 4B 4F 50 49 45 52 |UFPOI+1,X;KOPIER|
00001940: 45 4E 00 2B 39 10 09 20 53 54 41 50 55 46 46 45 |EN.+9.. STAPUFFE|
00001950: 52 50 2B 31 00 31 39 1A 09 3B 00 57 39 24 09 20 |RP+1.19..;.W9$. |
00001960: 4A 53 52 45 4E 44 5A 45 49 3B 4C 45 54 5A 54 45 |JSRENDZEI;LETZTE|
00001970: 20 5A 45 49 4C 45 20 45 52 4D 49 54 54 45 4C 4E | ZEILE ERMITTELN|
00001980: 00 5D 39 2E 09 3B 00 7A 39 38 09 20 4C 44 58 4C |.]9..;.z98. LDXL|
00001990: 49 4E 45 3B 43 55 52 53 4F 52 20 41 55 46 20 4C |INE;CURSOR AUF L|
000019A0: 49 4E 45 00 86 39 42 09 20 4C 44 59 43 4F 4C 00 |INE..9B. LDYCOL.|
000019B0: A0 39 4C 09 20 43 4C 43 3B 4F 42 45 52 45 20 57 |.9L. CLC;OBERE W|
000019C0: 49 4E 44 4F 57 45 43 4B 45 00 AD 39 56 09 20 4A |INDOWECKE..9V. J|
000019D0: 53 52 50 4C 4F 54 00 B3 39 60 09 3B 00 DD 39 6A |SRPLOT..9`.;..9j|
000019E0: 09 57 45 49 54 45 52 20 4A 53 52 4E 4F 49 4E 54 |.WEITER JSRNOINT|
000019F0: 3B 49 4E 54 45 52 52 55 50 54 20 41 55 53 53 43 |;INTERRUPT AUSSC|
00001A00: 48 41 4C 54 45 4E 00 FC 39 74 09 20 4C 44 41 23 |HALTEN..9t. LDA#|
00001A10: 24 33 34 3B 52 41 4D 2D 4B 4F 4E 46 4F 47 55 52 |$34;RAM-KONFOGUR|
00001A20: 41 54 49 4F 4E 00 11 3A 7E 09 20 53 54 41 31 3B |ATION..:~. STA1;|
00001A30: 45 49 4E 53 54 45 4C 4C 45 4E 00 36 3A 88 09 20 |EINSTELLEN.6:.. |
00001A40: 4A 53 52 49 4E 54 45 49 4E 3B 49 4E 54 45 52 52 |JSRINTEIN;INTERR|
00001A50: 55 50 54 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 |UPT EINSCHALTEN.|
00001A60: 5C 3A 92 09 20 4C 44 41 4C 49 4E 45 50 4F 49 2B |\:.. LDALINEPOI+|
00001A70: 31 3B 27 53 43 52 45 45 4E 50 4F 49 4E 54 45 52 |1;'SCREENPOINTER|
00001A80: 28 2B 31 29 27 00 81 3A 9C 09 20 53 54 41 53 43 |(+1)'..:.. STASC|
00001A90: 52 45 45 4E 50 2B 31 3B 2B 57 49 4E 44 4F 57 53 |REENP+1;+WINDOWS|
00001AA0: 54 41 52 54 53 50 41 4C 54 45 00 A0 3A A6 09 20 |TARTSPALTE..:.. |
00001AB0: 4C 44 41 4C 49 4E 45 50 4F 49 3B 45 52 47 49 42 |LDALINEPOI;ERGIB|
00001AC0: 54 20 50 4F 49 4E 54 45 52 00 B8 3A B0 09 20 43 |T POINTER..:.. C|
00001AD0: 4C 43 3B 41 55 46 20 41 4E 46 41 4E 47 20 44 45 |LC;AUF ANFANG DE|
00001AE0: 52 00 DA 3A BA 09 20 41 44 43 43 4F 4C 3B 41 4B |R..:.. ADCCOL;AK|
00001AF0: 54 55 45 4C 4C 45 4E 20 57 49 4E 44 4F 57 5A 45 |TUELLEN WINDOWZE|
00001B00: 49 4C 45 00 F7 3A C4 09 20 53 54 41 53 43 52 45 |ILE..:.. STASCRE|
00001B10: 45 4E 50 3B 2B 53 54 41 52 54 53 50 41 4C 54 45 |ENP;+STARTSPALTE|
00001B20: 00 04 3B CE 09 20 42 43 43 4F 4B 41 59 00 16 3B |..;.. BCCOKAY..;|
00001B30: D8 09 20 49 4E 43 53 43 52 45 45 4E 50 2B 31 00 |.. INCSCREENP+1.|
00001B40: 1C 3B E2 09 3B 00 45 3B EC 09 4F 4B 41 59 20 4C |.;..;.E;..OKAY L|
00001B50: 44 59 42 52 45 49 54 45 3B 5A 41 45 48 4C 45 52 |DYBREITE;ZAEHLER|
00001B60: 20 49 4E 49 54 49 41 4C 49 53 45 52 45 4E 00 4E | INITIALISEREN.N|
00001B70: 3B F6 09 20 44 45 59 00 76 3B 00 0A 43 4F 50 59 |;.. DEY.v;..COPY|
00001B80: 20 4C 44 41 46 4C 41 47 3B 45 49 4E 20 5A 45 49 | LDAFLAG;EIN ZEI|
00001B90: 43 48 45 4E 20 41 55 53 20 50 55 46 46 45 52 00 |CHEN AUS PUFFER.|
00001BA0: 94 3B 0A 0A 20 42 4E 45 57 52 49 54 45 3B 41 55 |.;.. BNEWRITE;AU|
00001BB0: 46 20 53 43 52 45 45 4E 20 4F 44 45 52 00 B3 3B |F SCREEN ODER..;|
00001BC0: 14 0A 20 4C 44 41 28 53 43 52 45 45 4E 50 29 2C |.. LDA(SCREENP),|
00001BD0: 59 3B 55 4D 47 45 4B 45 48 52 54 2C 00 DB 3B 1E |Y;UMGEKEHRT,..;.|
00001BE0: 0A 20 53 54 41 28 50 55 46 46 45 52 50 29 2C 59 |. STA(PUFFERP),Y|
00001BF0: 3B 4A 45 20 4E 41 43 48 20 46 4C 41 47 5A 55 53 |;JE NACH FLAGZUS|
00001C00: 54 41 4E 44 00 E8 3B 28 0A 20 42 4E 45 4A 55 4D |TAND..;(. BNEJUM|
00001C10: 50 00 01 3C 32 0A 57 52 49 54 45 20 4C 44 41 28 |P..<2.WRITE LDA(|
00001C20: 50 55 46 46 45 52 50 29 2C 59 00 15 3C 3C 0A 20 |PUFFERP),Y..<<. |
00001C30: 53 54 41 28 53 43 52 45 45 4E 50 29 2C 59 00 33 |STA(SCREENP),Y.3|
00001C40: 3C 46 0A 4A 55 4D 50 20 44 45 59 3B 5A 45 49 4C |<F.JUMP DEY;ZEIL|
00001C50: 45 20 42 45 48 41 4E 44 45 4C 54 3F 00 48 3C 50 |E BEHANDELT?.H<P|
00001C60: 0A 20 42 50 4C 43 4F 50 59 3B 4E 45 49 4E 20 3D |. BPLCOPY;NEIN =|
00001C70: 3E 00 4E 3C 5A 0A 3B 00 6A 3C 64 0A 20 4C 44 41 |>.N<Z.;.j<d. LDA|
00001C80: 50 55 46 46 45 52 50 3B 50 4F 49 4E 54 45 52 20 |PUFFERP;POINTER |
00001C90: 41 55 46 00 7D 3C 6E 0A 20 43 4C 43 3B 50 55 46 |AUF.}<n. CLC;PUF|
00001CA0: 46 45 52 20 55 4D 00 99 3C 78 0A 20 41 44 43 42 |FER UM..<x. ADCB|
00001CB0: 52 45 49 54 45 3B 57 49 4E 44 4F 57 42 52 45 49 |REITE;WINDOWBREI|
00001CC0: 54 45 00 B2 3C 82 0A 20 53 54 41 50 55 46 46 45 |TE..<.. STAPUFFE|
00001CD0: 52 50 3B 45 52 48 4F 45 48 45 4E 00 C1 3C 8C 0A |RP;ERHOEHEN..<..|
00001CE0: 20 42 43 43 4E 4F 49 4E 43 52 00 D3 3C 96 0A 20 | BCCNOINCR..<.. |
00001CF0: 49 4E 43 50 55 46 46 45 52 50 2B 31 00 D9 3C A0 |INCPUFFERP+1..<.|
00001D00: 0A 3B 00 FB 3C AA 0A 4E 4F 49 4E 43 52 20 4A 53 |.;..<..NOINCR JS|
00001D10: 52 4E 4F 49 4E 54 3B 49 4E 54 45 52 52 55 50 54 |RNOINT;INTERRUPT|
00001D20: 20 41 55 53 00 1A 3D B4 0A 20 4C 44 41 23 24 33 | AUS..=.. LDA#$3|
00001D30: 37 3B 52 4F 4D 2D 4B 4F 4E 46 49 47 55 52 41 54 |7;ROM-KONFIGURAT|
00001D40: 49 4F 4E 00 30 3D BE 0A 20 53 54 41 31 3B 45 49 |ION.0=.. STA1;EI|
00001D50: 4E 53 43 48 41 4C 54 45 4E 00 4D 3D C8 0A 20 4A |NSCHALTEN.M=.. J|
00001D60: 53 52 49 4E 54 45 49 4E 3B 49 4E 54 45 52 52 55 |SRINTEIN;INTERRU|
00001D70: 50 54 20 45 49 4E 00 6B 3D D2 0A 20 4C 44 41 23 |PT EIN.k=.. LDA#|
00001D80: 31 37 3B 43 55 52 53 4F 52 20 45 49 4E 45 20 5A |17;CURSOR EINE Z|
00001D90: 45 49 4C 45 00 87 3D DC 0A 20 4A 53 52 42 53 4F |EILE..=.. JSRBSO|
00001DA0: 55 54 3B 54 49 45 46 45 52 20 53 45 54 5A 45 4E |UT;TIEFER SETZEN|
00001DB0: 00 AA 3D E6 0A 20 4C 44 41 43 52 53 4C 49 4E 45 |..=.. LDACRSLINE|
00001DC0: 3B 4C 45 54 5A 54 45 20 57 49 4E 44 4F 57 5A 45 |;LETZTE WINDOWZE|
00001DD0: 49 4C 45 00 C4 3D F0 0A 20 43 4D 50 4C 41 45 4E |ILE..=.. CMPLAEN|
00001DE0: 47 45 3B 42 45 48 41 4E 44 45 4C 54 3F 00 DB 3D |GE;BEHANDELT?..=|
00001DF0: FA 0A 20 42 4E 45 57 45 49 54 45 52 3B 4E 45 49 |.. BNEWEITER;NEI|
00001E00: 4E 20 3D 3E 00 E1 3D 04 0B 3B 00 E7 3D 0E 0B 3B |N =>..=..;..=..;|
00001E10: 00 00 3E 18 0B 20 4C 44 58 50 55 46 4E 52 3B 41 |..>.. LDXPUFNR;A|
00001E20: 4E 46 41 4E 47 20 44 45 53 00 1B 3E 22 0B 20 49 |NFANG DES..>". I|
00001E30: 4E 58 3B 4E 41 45 43 48 53 54 45 4E 20 50 55 46 |NX;NAECHSTEN PUF|
00001E40: 46 45 52 53 00 34 3E 2C 0B 20 54 58 41 3B 48 49 |FERS.4>,. TXA;HI|
00001E50: 4E 54 45 52 20 44 41 53 20 45 4E 44 45 00 4B 3E |NTER DAS ENDE.K>|
00001E60: 36 0B 20 41 53 4C 3B 44 45 53 20 41 4B 54 55 45 |6. ASL;DES AKTUE|
00001E70: 4C 4C 45 4E 00 63 3E 40 0B 20 54 41 58 3B 50 55 |LLEN.c>@. TAX;PU|
00001E80: 46 46 45 52 53 20 53 45 54 5A 45 4E 00 73 3E 4A |FFERS SETZEN.s>J|
00001E90: 0B 20 4C 44 41 50 55 46 46 45 52 50 00 84 3E 54 |. LDAPUFFERP..>T|
00001EA0: 0B 20 53 54 41 50 55 46 50 4F 49 2C 58 00 96 3E |. STAPUFPOI,X..>|
00001EB0: 5E 0B 20 4C 44 41 50 55 46 46 45 52 50 2B 31 00 |^. LDAPUFFERP+1.|
00001EC0: A9 3E 68 0B 20 53 54 41 50 55 46 50 4F 49 2B 31 |.>h. STAPUFPOI+1|
00001ED0: 2C 58 00 B2 3E 72 0B 20 52 54 53 00 B8 3E 7C 0B |,X..>r. RTS..>|.|
00001EE0: 3B 00 BE 3E 86 0B 3B 00 E9 3E 90 0B 4E 4F 49 4E |;..>..;..>..NOIN|
00001EF0: 54 20 4C 44 41 49 4E 54 43 54 52 4C 3B 49 4E 54 |T LDAINTCTRL;INT|
00001F00: 45 52 52 55 50 54 53 20 56 45 52 48 49 4E 44 45 |ERRUPTS VERHINDE|
00001F10: 52 4E 00 F6 3E 9A 0B 20 41 4E 44 23 24 46 45 00 |RN..>.. AND#$FE.|
00001F20: 06 3F A4 0B 20 53 54 41 49 4E 54 43 54 52 4C 00 |.?.. STAINTCTRL.|
00001F30: 0F 3F AE 0B 20 52 54 53 00 15 3F B8 0B 3B 00 3F |.?.. RTS..?..;.?|
00001F40: 3F C2 0B 49 4E 54 45 49 4E 20 4C 44 41 49 4E 54 |?..INTEIN LDAINT|
00001F50: 43 54 52 4C 3B 49 4E 54 45 52 52 55 50 54 53 20 |CTRL;INTERRUPTS |
00001F60: 5A 55 4C 41 53 53 45 4E 00 4C 3F CC 0B 20 4F 52 |ZULASSEN.L?.. OR|
00001F70: 41 23 24 30 31 00 5C 3F D6 0B 20 53 54 41 49 4E |A#$01.\?.. STAIN|
00001F80: 54 43 54 52 4C 00 65 3F E0 0B 20 52 54 53 00 6B |TCTRL.e?.. RTS.k|
00001F90: 3F EA 0B 3B 00 71 3F F4 0B 3B 00 77 3F FE 0B 3B |?..;.q?..;.w?..;|
00001FA0: 00 9D 3F 08 0C 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..?..;**********|
00001FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001FC0: 2A 2A 2A 2A 2A 2A 00 C3 3F 12 0C 3B 2A 20 53 43 |******..?..;* SC|
00001FD0: 52 45 45 4E 41 55 53 53 43 48 4E 49 54 54 20 49 |REENAUSSCHNITT I|
00001FE0: 4E 56 45 52 54 49 45 52 45 4E 20 2A 00 E9 3F 1C |NVERTIEREN *..?.|
00001FF0: 0C 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00002000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002010: 2A 2A 00 EF 3F 26 0C 3B 00 13 40 30 0C 3B 41 55 |**..?&.;..@0.;AU|
00002020: 46 52 55 46 3A 20 53 59 53 20 58 58 58 58 2C 53 |FRUF: SYS XXXX,S|
00002030: 50 41 4C 54 45 2C 5A 45 49 4C 45 2C 00 33 40 3A |PALTE,ZEILE,.3@:|
00002040: 0C 3B 20 20 20 20 20 20 20 20 42 52 45 49 54 45 |.; BREITE|
00002050: 2C 4C 41 45 4E 47 45 2C 46 4C 41 47 00 39 40 44 |,LAENGE,FLAG.9@D|
00002060: 0C 3B 00 5E 40 4E 0C 3B 46 55 4E 4B 54 49 4F 4E |.;.^@N.;FUNKTION|
00002070: 3A 20 49 4E 56 45 52 54 49 45 52 54 28 27 46 4C |: INVERTIERT('FL|
00002080: 41 47 27 3D 31 29 2F 00 84 40 58 0C 3B 20 20 20 |AG'=1)/..@X.; |
00002090: 20 20 20 20 20 20 20 4E 4F 52 4D 41 4C 49 53 49 | NORMALISI|
000020A0: 45 52 54 28 27 46 4C 41 47 27 3D 30 29 00 A6 40 |ERT('FLAG'=0)..@|
000020B0: 62 0C 3B 20 20 20 20 20 20 20 20 20 20 45 49 4E |b.; EIN|
000020C0: 45 4E 20 52 45 43 48 54 45 43 4B 49 47 45 4E 00 |EN RECHTECKIGEN.|
000020D0: CA 40 6C 0C 3B 20 20 20 20 20 20 20 20 20 20 42 |.@l.; B|
000020E0: 49 4C 44 53 43 48 49 52 4D 41 55 53 53 43 48 4E |ILDSCHIRMAUSSCHN|
000020F0: 49 54 54 00 EF 40 76 0C 3B 20 20 20 20 20 20 20 |ITT..@v.; |
00002100: 20 20 20 4D 49 54 20 44 45 52 20 4F 42 45 52 45 | MIT DER OBERE|
00002110: 4E 20 4C 49 4E 4B 45 4E 00 14 41 80 0C 3B 20 20 |N LINKEN..A..; |
00002120: 20 20 20 20 20 20 20 20 45 43 4B 45 20 27 53 50 | ECKE 'SP|
00002130: 41 4C 54 45 27 2F 27 5A 45 49 4C 45 27 00 37 41 |ALTE'/'ZEILE'.7A|
00002140: 8A 0C 3B 20 20 20 20 20 20 20 20 20 20 55 4E 44 |..; UND|
00002150: 20 44 45 52 20 41 4E 47 45 47 45 42 45 4E 45 4E | DER ANGEGEBENEN|
00002160: 00 5A 41 94 0C 3B 20 20 20 20 20 20 20 20 20 20 |.ZA..; |
00002170: 4C 41 45 4E 47 45 20 42 5A 57 2E 20 42 52 45 49 |LAENGE BZW. BREI|
00002180: 54 45 2E 00 60 41 9E 0C 3B 00 80 41 A8 0C 3B 42 |TE..`A..;..A..;B|
00002190: 53 50 2E 3A 20 53 59 53 20 58 58 58 58 2C 32 2C |SP.: SYS XXXX,2,|
000021A0: 35 2C 31 30 2C 31 35 2C 31 00 A3 41 B2 0C 3B 20 |5,10,15,1..A..; |
000021B0: 20 20 20 20 20 49 4E 56 45 52 54 49 45 52 54 20 | INVERTIERT |
000021C0: 45 49 4E 20 52 45 43 48 54 45 43 4B 00 C9 41 BC |EIN RECHTECK..A.|
000021D0: 0C 3B 20 20 20 20 20 20 4D 49 54 20 44 45 52 20 |.; MIT DER |
000021E0: 4C 49 4E 4B 45 4E 20 4F 42 45 52 45 42 20 45 43 |LINKEN OBEREB EC|
000021F0: 4B 45 00 EF 41 C6 0C 3B 20 20 20 20 20 20 32 2F |KE..A..; 2/|
00002200: 37 2C 20 44 45 52 20 42 52 45 49 54 45 20 31 30 |7, DER BREITE 10|
00002210: 20 53 50 41 4C 54 45 4E 00 14 42 D0 0C 3B 20 20 | SPALTEN..B..; |
00002220: 20 20 20 20 55 4E 44 20 44 45 52 20 4C 41 45 4E | UND DER LAEN|
00002230: 47 45 20 31 35 20 5A 45 49 4C 45 4E 2E 00 1A 42 |GE 15 ZEILEN...B|
00002240: DA 0C 3B 00 20 42 E4 0C 3B 00 43 42 EE 0C 49 4E |..;. B..;.CB..IN|
00002250: 56 45 52 54 20 4C 44 41 23 35 3B 35 20 42 59 54 |VERT LDA#5;5 BYT|
00002260: 45 57 45 52 54 45 20 48 4F 4C 45 4E 00 51 42 F8 |EWERTE HOLEN.QB.|
00002270: 0C 20 4A 53 52 50 41 52 41 4D 00 57 42 02 0D 3B |. JSRPARAM.WB..;|
00002280: 00 81 42 0C 0D 49 4E 56 4A 53 52 20 4A 53 52 45 |..B..INVJSR JSRE|
00002290: 4E 44 5A 45 49 3B 4C 45 54 5A 54 45 20 52 45 43 |NDZEI;LETZTE REC|
000022A0: 48 54 45 43 4B 5A 45 49 4C 45 00 9A 42 16 0D 20 |HTECKZEILE..B.. |
000022B0: 44 45 43 42 52 45 49 54 45 3B 4B 4F 52 52 45 4B |DECBREITE;KORREK|
000022C0: 54 55 52 00 BB 42 20 0D 20 4C 44 58 4C 49 4E 45 |TUR..B . LDXLINE|
000022D0: 3B 43 55 52 53 4F 52 20 41 55 46 20 41 4B 54 55 |;CURSOR AUF AKTU|
000022E0: 45 4C 4C 45 00 C1 42 2A 0D 3B 00 E4 42 34 0D 49 |ELLE..B*.;..B4.I|
000022F0: 4E 56 32 20 43 4C 43 3B 5A 45 49 4C 45 20 55 4E |NV2 CLC;ZEILE UN|
00002300: 44 20 53 54 41 52 54 53 50 41 4C 54 45 00 F8 42 |D STARTSPALTE..B|
00002310: 3E 0D 20 4A 53 52 50 4C 4F 54 3B 53 45 54 5A 45 |>. JSRPLOT;SETZE|
00002320: 4E 00 FE 42 48 0D 3B 00 23 43 52 0D 20 4C 44 41 |N..BH.;.#CR. LDA|
00002330: 4C 49 4E 45 50 4F 49 3B 27 4C 49 4E 45 50 4F 49 |LINEPOI;'LINEPOI|
00002340: 27 20 2B 20 27 43 4F 4C 27 20 3D 3E 00 38 43 5C |' + 'COL' =>.8C\|
00002350: 0D 20 43 4C 43 3B 50 4F 49 4E 54 45 52 20 41 55 |. CLC;POINTER AU|
00002360: 46 00 55 43 66 0D 20 41 44 43 43 4F 4C 3B 45 52 |F.UCf. ADCCOL;ER|
00002370: 53 54 45 53 20 5A 55 20 42 45 48 41 4E 2D 00 75 |STES ZU BEHAN-.u|
00002380: 43 70 0D 20 53 54 41 4C 49 4E 45 50 4F 49 3B 44 |Cp. STALINEPOI;D|
00002390: 45 4C 4E 44 45 53 20 5A 45 49 43 48 45 4E 00 95 |ELNDES ZEICHEN..|
000023A0: 43 7A 0D 20 42 43 43 49 4E 56 33 3B 5A 45 49 43 |Cz. BCCINV3;ZEIC|
000023B0: 48 45 4E 20 44 45 52 20 4A 45 57 45 49 2D 00 B3 |HEN DER JEWEI-..|
000023C0: 43 84 0D 20 49 4E 43 4C 49 4E 45 50 4F 49 2B 31 |C.. INCLINEPOI+1|
000023D0: 3B 4C 49 47 45 4E 20 5A 45 49 4C 45 00 B9 43 8E |;LIGEN ZEILE..C.|
000023E0: 0D 3B 00 DE 43 98 0D 49 4E 56 33 20 4C 44 59 42 |.;..C..INV3 LDYB|
000023F0: 52 45 49 54 45 3B 57 45 4E 4E 20 46 4C 41 47 3D |REITE;WENN FLAG=|
00002400: 30 2C 20 57 49 52 44 00 04 44 A2 0D 49 4E 56 31 |0, WIRD..D..INV1|
00002410: 20 4C 44 41 28 4C 49 4E 45 50 4F 49 29 2C 59 3B | LDA(LINEPOI),Y;|
00002420: 44 49 45 20 4B 4F 4D 50 4C 45 54 54 45 00 24 44 |DIE KOMPLETTE.$D|
00002430: AC 0D 20 4C 44 58 46 4C 41 47 3B 5A 45 49 4C 45 |.. LDXFLAG;ZEILE|
00002440: 20 4E 4F 52 4D 41 4C 49 53 49 45 52 54 00 43 44 | NORMALISIERT.CD|
00002450: B6 0D 20 42 45 51 4E 4F 52 4D 3B 28 42 49 54 20 |.. BEQNORM;(BIT |
00002460: 37 20 4C 4F 45 53 43 48 45 4E 29 2C 00 61 44 C0 |7 LOESCHEN),.aD.|
00002470: 0D 20 4F 52 41 23 24 38 30 3B 53 4F 4E 53 54 20 |. ORA#$80;SONST |
00002480: 49 4E 56 45 52 54 49 45 52 54 00 7D 44 CA 0D 20 |INVERTIERT.}D.. |
00002490: 2E 42 59 24 32 43 3B 28 42 49 54 20 37 20 53 45 |.BY$2C;(BIT 7 SE|
000024A0: 45 54 5A 45 4E 29 00 8E 44 D4 0D 4E 4F 52 4D 20 |ETZEN)..D..NORM |
000024B0: 41 4E 44 23 24 37 46 00 A2 44 DE 0D 20 53 54 41 |AND#$7F..D.. STA|
000024C0: 28 4C 49 4E 45 50 4F 49 29 2C 59 00 BC 44 E8 0D |(LINEPOI),Y..D..|
000024D0: 20 44 45 59 3B 5A 45 49 4C 45 20 42 45 48 41 4E | DEY;ZEILE BEHAN|
000024E0: 44 45 4C 54 3F 00 D1 44 F2 0D 20 42 50 4C 49 4E |DELT?..D.. BPLIN|
000024F0: 56 31 3B 4E 45 49 4E 20 3D 3E 00 D7 44 FC 0D 3B |V1;NEIN =>..D..;|
00002500: 00 EF 44 06 0E 20 49 4E 43 4C 49 4E 45 3B 4E 45 |..D.. INCLINE;NE|
00002510: 58 54 20 5A 45 49 4C 45 00 FC 44 10 0E 20 4C 44 |XT ZEILE..D.. LD|
00002520: 58 4C 49 4E 45 00 23 45 1A 0E 20 43 50 58 4C 41 |XLINE.#E.. CPXLA|
00002530: 45 4E 47 45 3B 4C 45 54 5A 54 45 20 5A 45 49 4C |ENGE;LETZTE ZEIL|
00002540: 45 20 42 45 48 41 4E 44 45 4C 54 3F 00 38 45 24 |E BEHANDELT?.8E$|
00002550: 0E 20 42 4E 45 49 4E 56 32 3B 4E 45 49 4E 20 3D |. BNEINV2;NEIN =|
00002560: 3E 00 41 45 2E 0E 20 52 54 53 00 47 45 38 0E 3B |>.AE.. RTS.GE8.;|
00002570: 00 4D 45 42 0E 3B 00 53 45 4C 0E 3B 00 79 45 56 |.MEB.;.SEL.;.yEV|
00002580: 0E 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00002590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000025A0: 2A 2A 00 9F 45 60 0E 3B 2A 20 56 45 52 57 41 4C |**..E`.;* VERWAL|
000025B0: 54 55 4E 47 20 56 2E 50 55 4C 4C 2D 44 4F 57 4E |TUNG V.PULL-DOWN|
000025C0: 2D 4D 45 4E 55 45 53 2A 00 C5 45 6A 0E 3B 2A 2A |-MENUES*..Ej.;**|
000025D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000025E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CB |**************..|
000025F0: 45 74 0E 3B 00 F1 45 7E 0E 3B 41 55 46 52 55 46 |Et.;..E~.;AUFRUF|
00002600: 3A 53 59 53 20 58 58 58 58 2C 4D 45 4E 55 45 24 |:SYS XXXX,MENUE$|
00002610: 2C 4D 45 4E 55 45 24 28 31 29 00 F7 45 88 0E 3B |,MENUE$(1)..E..;|
00002620: 00 19 46 92 0E 3B 46 55 4E 4B 54 49 4F 4E 3A 20 |..F..;FUNKTION: |
00002630: 56 45 52 57 41 4C 54 45 54 20 42 45 4C 49 45 42 |VERWALTET BELIEB|
00002640: 49 47 00 3D 46 9C 0E 3B 20 20 20 20 20 20 20 20 |IG.=F..; |
00002650: 20 20 56 49 45 4C 45 20 50 55 4C 4C 2D 44 2E 4D | VIELE PULL-D.M|
00002660: 45 4E 55 45 53 2C 00 62 46 A6 0E 3B 20 20 20 20 |ENUES,.bF..; |
00002670: 20 20 20 20 20 20 44 45 52 45 4E 20 4F 42 45 52 | DEREN OBER|
00002680: 42 45 47 52 49 46 46 45 20 49 4E 00 88 46 B0 0E |BEGRIFFE IN..F..|
00002690: 3B 20 20 20 20 20 20 20 20 20 20 27 4D 45 4E 55 |; 'MENU|
000026A0: 45 24 27 45 4E 54 48 41 4C 54 45 4E 20 53 49 4E |E$'ENTHALTEN SIN|
000026B0: 44 00 AE 46 BA 0E 3B 20 20 20 20 20 20 20 20 20 |D..F..; |
000026C0: 20 28 5A 2E 42 2E 3A 41 24 3D 27 46 49 4C 45 20 | (Z.B.:A$='FILE |
000026D0: 45 44 49 54 27 29 2E 00 D0 46 C4 0E 3B 20 20 20 |EDIT')...F..; |
000026E0: 20 20 20 20 20 20 20 44 49 45 20 4D 45 4E 55 45 | DIE MENUE|
000026F0: 4B 4F 4D 4D 41 4E 44 4F 53 00 F5 46 CE 0E 3B 20 |KOMMANDOS..F..; |
00002700: 20 20 20 20 20 20 20 20 20 45 4E 54 48 41 45 4C | ENTHAEL|
00002710: 54 20 44 41 53 20 41 4E 47 45 47 45 42 2E 00 1B |T DAS ANGEGEB...|
00002720: 47 D8 0E 3B 20 20 20 20 20 20 20 20 20 20 53 54 |G..; ST|
00002730: 52 49 4E 47 41 52 52 41 59 2E 20 56 4F 52 20 4A |RINGARRAY. VOR J|
00002740: 45 44 45 4D 00 3E 47 E2 0E 3B 20 20 20 20 20 20 |EDEM.>G..; |
00002750: 20 20 20 20 55 4E 54 45 52 4D 45 4E 55 45 20 42 | UNTERMENUE B|
00002760: 45 46 49 4E 44 45 54 00 61 47 EC 0E 3B 20 20 20 |EFINDET.aG..; |
00002770: 20 20 20 20 20 20 20 53 49 43 48 20 45 49 4E 20 | SICH EIN |
00002780: 4C 45 45 52 53 54 52 49 4E 47 00 85 47 F6 0E 3B |LEERSTRING..G..;|
00002790: 20 20 20 20 20 20 20 20 20 20 4D 49 54 20 44 45 | MIT DE|
000027A0: 52 20 47 45 57 55 45 4E 53 43 48 54 45 4E 00 A1 |R GEWUENSCHTEN..|
000027B0: 47 00 0F 3B 20 20 20 20 20 20 20 20 20 20 4D 45 |G..; ME|
000027C0: 4E 55 45 4C 41 45 4E 47 45 2E 00 C3 47 0A 0F 3B |NUELAENGE...G..;|
000027D0: 20 20 20 20 20 20 20 20 20 20 44 45 4D 20 4C 45 | DEM LE|
000027E0: 54 5A 54 45 4E 20 4D 45 4E 55 45 2D 00 E9 47 14 |TZTEN MENUE-..G.|
000027F0: 0F 3B 20 20 20 20 20 20 20 20 20 20 53 54 52 49 |.; STRI|
00002800: 4E 47 20 46 4F 4C 47 54 20 45 42 45 4E 46 41 4C |NG FOLGT EBENFAL|
00002810: 4C 53 00 08 48 1E 0F 3B 20 20 20 20 20 20 20 20 |LS..H..; |
00002820: 20 20 45 49 4E 20 4C 45 45 52 53 54 52 49 4E 47 | EIN LEERSTRING|
00002830: 2E 00 0E 48 28 0F 3B 00 2B 48 32 0F 3B 42 53 50 |...H(.;.+H2.;BSP|
00002840: 2E 3A 20 53 59 53 20 58 58 58 58 2C 41 24 2C 41 |.: SYS XXXX,A$,A|
00002850: 24 28 31 29 00 4E 48 3C 0F 3B 20 20 20 20 20 20 |$(1).NH<.; |
00002860: 56 45 52 57 41 4C 54 45 54 20 5A 2E 42 2E 20 46 |VERWALTET Z.B. F|
00002870: 4F 4C 47 45 4E 44 45 00 71 48 46 0F 3B 20 20 20 |OLGENDE.qHF.; |
00002880: 20 20 20 56 45 52 57 41 4C 54 45 54 20 32 20 55 | VERWALTET 2 U|
00002890: 4E 54 45 52 4D 45 4E 55 45 53 00 97 48 50 0F 3B |NTERMENUES..HP.;|
000028A0: 20 20 20 20 20 20 4D 49 54 20 34 20 42 5A 57 2E | MIT 4 BZW.|
000028B0: 20 37 20 41 55 53 57 41 48 4C 50 4B 54 45 4E 2C | 7 AUSWAHLPKTEN,|
000028C0: 00 B7 48 5A 0F 3B 20 20 20 20 20 20 57 45 4E 4E |..HZ.; WENN|
000028D0: 20 46 4F 4C 47 45 4E 44 45 53 20 47 49 4C 54 3A | FOLGENDES GILT:|
000028E0: 00 BD 48 5F 0F 3B 00 DC 48 64 0F 3B 20 20 20 20 |..H_.;..Hd.; |
000028F0: 20 20 20 41 24 3D 27 44 4F 43 55 4D 45 4E 54 20 | A$='DOCUMENT |
00002900: 44 49 53 4B 27 00 F6 48 6E 0F 3B 20 20 20 20 20 |DISK'..Hn.; |
00002910: 20 20 41 24 28 31 29 3D 27 20 20 20 20 20 27 00 | A$(1)=' '.|
00002920: 0F 49 78 0F 3B 20 20 20 20 20 20 20 41 24 28 32 |.Ix.; A$(2|
00002930: 29 3D 27 4C 4F 41 44 27 00 28 49 82 0F 3B 20 20 |)='LOAD'.(I..; |
00002940: 20 20 20 20 20 41 24 28 33 29 3D 27 53 41 56 45 | A$(3)='SAVE|
00002950: 27 00 42 49 8C 0F 3B 20 20 20 20 20 20 20 41 24 |'.BI..; A$|
00002960: 28 34 29 3D 27 4D 45 52 47 45 27 00 5C 49 96 0F |(4)='MERGE'.\I..|
00002970: 3B 20 20 20 20 20 20 20 41 24 28 35 29 3D 27 50 |; A$(5)='P|
00002980: 52 49 4E 54 27 00 7C 49 A0 0F 3B 20 20 20 20 20 |RINT'.|I..; |
00002990: 20 20 41 24 28 36 29 3D 27 20 20 20 20 20 20 20 | A$(6)=' |
000029A0: 20 20 20 20 27 00 9A 49 AA 0F 3B 20 20 20 20 20 | '..I..; |
000029B0: 20 20 41 24 28 37 29 3D 27 44 49 52 45 43 54 4F | A$(7)='DIRECTO|
000029C0: 52 59 27 00 B9 49 AC 0F 3B 20 20 20 20 20 20 20 |RY'..I..; |
000029D0: 41 24 28 38 29 3D 27 49 4E 49 54 49 41 4C 49 53 |A$(8)='INITIALIS|
000029E0: 45 27 00 D6 49 AE 0F 3B 20 20 20 20 20 20 20 41 |E'..I..; A|
000029F0: 24 28 39 29 3D 27 56 41 4C 49 44 41 54 45 27 00 |$(9)='VALIDATE'.|
00002A00: F6 49 B4 0F 3B 20 20 20 20 20 20 41 24 28 31 30 |.I..; A$(10|
00002A10: 29 3D 27 46 4F 52 4D 41 54 20 44 49 53 4B 27 00 |)='FORMAT DISK'.|
00002A20: 17 4A BE 0F 3B 20 20 20 20 20 20 41 24 28 31 31 |.J..; A$(11|
00002A30: 29 3D 27 53 43 52 41 54 43 48 20 46 49 4C 45 27 |)='SCRATCH FILE'|
00002A40: 00 35 4A C8 0F 3B 20 20 20 20 20 20 41 24 28 31 |.5J..; A$(1|
00002A50: 32 29 3D 27 43 4F 50 59 20 46 49 4C 45 27 00 55 |2)='COPY FILE'.U|
00002A60: 4A D2 0F 3B 20 20 20 20 20 20 41 24 28 31 33 29 |J..; A$(13)|
00002A70: 3D 27 52 45 4E 41 4D 45 20 46 49 4C 45 27 00 6B |='RENAME FILE'.k|
00002A80: 4A DC 0F 3B 20 20 20 20 20 20 41 24 28 31 34 29 |J..; A$(14)|
00002A90: 3D 27 20 27 00 71 4A E6 0F 3B 00 96 4A F0 0F 3B |=' '.qJ..;..J..;|
00002AA0: 42 45 44 49 45 4E 55 4E 47 3A 20 43 55 52 53 4F |BEDIENUNG: CURSO|
00002AB0: 52 20 52 49 47 48 54 2F 4C 45 46 54 20 3D 3E 00 |R RIGHT/LEFT =>.|
00002AC0: B9 4A FA 0F 3B 20 20 20 20 20 20 20 20 20 20 20 |.J..; |
00002AD0: 41 55 53 57 41 48 4C 20 55 4E 54 45 52 4D 45 4E |AUSWAHL UNTERMEN|
00002AE0: 55 45 00 DB 4A 04 10 3B 20 20 20 20 20 20 20 20 |UE..J..; |
00002AF0: 20 20 20 43 55 52 53 4F 52 20 44 4F 57 4E 2F 55 | CURSOR DOWN/U|
00002B00: 50 20 3D 3E 00 01 4B 0E 10 3B 20 20 20 20 20 20 |P =>..K..; |
00002B10: 20 20 20 20 20 41 55 53 57 41 48 4C 20 49 4D 20 | AUSWAHL IM |
00002B20: 55 4E 54 45 52 4D 45 4E 55 45 00 1B 4B 18 10 3B |UNTERMENUE..K..;|
00002B30: 20 20 20 20 20 20 20 20 20 20 20 52 45 54 55 52 | RETUR|
00002B40: 4E 20 3D 3E 00 3D 4B 22 10 3B 20 20 20 20 20 20 |N =>.=K".; |
00002B50: 20 20 20 20 20 41 55 53 57 41 48 4C 20 41 4B 54 | AUSWAHL AKT|
00002B60: 55 45 4C 4C 45 52 00 58 4B 36 10 3B 20 20 20 20 |UELLER.XK6.; |
00002B70: 20 20 20 20 20 20 20 4D 45 4E 55 45 50 55 4E 4B | MENUEPUNK|
00002B80: 54 00 5E 4B 40 10 3B 00 82 4B 4A 10 3B 20 20 20 |T.^K@.;..KJ.; |
00002B90: 20 20 20 20 20 20 20 20 45 49 4E 20 55 4E 54 45 | EIN UNTE|
00002BA0: 52 4D 45 4E 55 45 20 4B 41 4E 4E 00 A8 4B 54 10 |RMENUE KANN..KT.|
00002BB0: 3B 20 20 20 20 20 20 20 20 20 20 20 41 4C 54 45 |; ALTE|
00002BC0: 52 4E 41 54 49 56 20 4D 49 54 20 53 48 49 46 54 |RNATIV MIT SHIFT|
00002BD0: 2B 00 CE 4B 5E 10 3B 20 20 20 20 20 20 20 20 20 |+..K^.; |
00002BE0: 20 20 44 45 4D 20 41 4E 46 41 4E 47 53 42 55 43 | DEM ANFANGSBUC|
00002BF0: 48 53 54 41 42 45 4E 00 EE 4B 68 10 3B 20 20 20 |HSTABEN..Kh.; |
00002C00: 20 20 20 20 20 20 20 20 44 45 53 20 4D 45 4E 55 | DES MENU|
00002C10: 45 4E 41 4D 45 4E 53 00 10 4C 72 10 3B 20 20 20 |ENAMENS..Lr.; |
00002C20: 20 20 20 20 20 20 20 20 44 49 52 45 4B 54 20 41 | DIREKT A|
00002C30: 4E 47 45 57 41 45 48 4C 54 00 35 4C 7C 10 3B 20 |NGEWAEHLT.5L|.; |
00002C40: 20 20 20 20 20 20 20 20 20 20 57 45 52 44 45 4E | WERDEN|
00002C50: 2C 20 5A 2E 42 2E 20 53 48 49 46 54 2B 46 00 5A |, Z.B. SHIFT+F.Z|
00002C60: 4C 86 10 3B 20 20 20 20 20 20 20 20 20 20 20 46 |L..; F|
00002C70: 55 45 52 20 44 2E 4D 45 4E 55 45 20 27 46 49 4C |UER D.MENUE 'FIL|
00002C80: 45 27 2E 00 7E 4C 90 10 3B 20 20 20 20 20 20 20 |E'..~L..; |
00002C90: 20 20 20 20 45 49 4E 20 4D 45 4E 55 45 50 55 4E | EIN MENUEPUN|
00002CA0: 4B 54 20 4B 41 4E 4E 00 A1 4C 9A 10 3B 20 20 20 |KT KANN..L..; |
00002CB0: 20 20 20 20 20 20 20 20 41 4C 54 45 52 4E 41 54 | ALTERNAT|
00002CC0: 49 56 20 4D 49 54 20 44 45 4D 00 C3 4C A4 10 3B |IV MIT DEM..L..;|
00002CD0: 20 20 20 20 20 20 20 20 20 20 20 41 4E 46 41 4E | ANFAN|
00002CE0: 47 53 42 55 43 48 53 54 41 42 45 4E 00 E8 4C AE |GSBUCHSTABEN..L.|
00002CF0: 10 3B 20 20 20 20 20 20 20 20 20 20 20 44 49 52 |.; DIR|
00002D00: 45 4B 54 20 47 45 57 41 45 48 4C 54 20 57 45 52 |EKT GEWAEHLT WER|
00002D10: 2D 00 0E 4D B8 10 3B 20 20 20 20 20 20 20 20 20 |-..M..; |
00002D20: 20 20 44 45 4E 28 27 53 27 46 55 45 52 27 53 43 | DEN('S'FUER'SC|
00002D30: 52 41 54 43 48 27 29 00 14 4D B9 10 3B 00 3A 4D |RATCH')..M..;.:M|
00002D40: BA 10 3B 20 20 20 20 20 20 20 20 20 20 20 44 41 |..; DA|
00002D50: 53 20 41 4E 47 45 57 41 45 48 4C 54 45 20 4D 45 |S ANGEWAEHLTE ME|
00002D60: 4E 55 45 00 60 4D BB 10 3B 20 20 20 20 20 20 20 |NUE.`M..; |
00002D70: 20 20 20 20 57 49 52 44 20 49 4E 20 27 4D 43 4F | WIRD IN 'MCO|
00002D80: 55 4E 54 27 2C 20 44 45 52 00 85 4D BC 10 3B 20 |UNT', DER..M..; |
00002D90: 20 20 20 20 20 20 20 20 20 20 47 45 57 41 45 48 | GEWAEH|
00002DA0: 4C 54 45 20 4D 45 4E 55 45 50 55 4E 4B 54 00 AB |LTE MENUEPUNKT..|
00002DB0: 4D BD 10 3B 20 20 20 20 20 20 20 20 20 20 20 49 |M..; I|
00002DC0: 4E 20 27 50 4F 49 4E 54 27 20 55 45 42 45 52 47 |N 'POINT' UEBERG|
00002DD0: 45 42 45 4E 00 B1 4D C2 10 3B 00 D3 4D CC 10 3B |EBEN..M..;..M..;|
00002DE0: 42 53 50 2E 3A 20 53 59 53 20 58 58 58 58 2C 41 |BSP.: SYS XXXX,A|
00002DF0: 24 2C 41 24 28 31 29 20 56 45 52 2D 00 F9 4D D6 |$,A$(1) VER-..M.|
00002E00: 10 3B 20 20 20 20 20 20 57 41 4C 54 45 54 20 44 |.; WALTET D|
00002E10: 41 53 20 4F 42 45 4E 20 56 45 52 57 45 4E 44 45 |AS OBEN VERWENDE|
00002E20: 54 45 00 0D 4E E0 10 3B 20 20 20 20 20 20 42 45 |TE..N..; BE|
00002E30: 49 53 50 49 45 4C 00 13 4E EA 10 3B 00 19 4E F4 |ISPIEL..N..;..N.|
00002E40: 10 3B 00 4F 4E FE 10 2E 45 51 20 4D 43 4F 55 4E |.;.ON...EQ MCOUN|
00002E50: 54 20 20 3D 20 52 4F 55 54 49 4E 2B 31 20 20 3B |T = ROUTIN+1 ;|
00002E60: 5A 41 45 48 4C 45 52 3A 20 41 4B 54 55 45 4C 4C |ZAEHLER: AKTUELL|
00002E70: 45 53 20 4D 45 4E 55 45 00 80 4E 08 11 2E 45 51 |ES MENUE..N...EQ|
00002E80: 20 4D 5A 41 48 4C 20 20 20 3D 20 4D 43 4F 55 4E | MZAHL = MCOUN|
00002E90: 54 2B 31 20 20 3B 47 45 53 41 4D 54 45 20 4D 45 |T+1 ;GESAMTE ME|
00002EA0: 4E 55 45 41 4E 5A 41 48 4C 00 BB 4E 12 11 2E 45 |NUEANZAHL..N...E|
00002EB0: 51 20 50 4F 49 4E 54 20 20 20 3D 20 4D 5A 41 48 |Q POINT = MZAH|
00002EC0: 4C 2B 31 20 20 20 3B 5A 41 45 48 4C 45 52 3A 20 |L+1 ;ZAEHLER: |
00002ED0: 41 4B 54 55 45 4C 4C 45 52 20 4D 45 4E 55 45 50 |AKTUELLER MENUEP|
00002EE0: 55 4E 4B 54 00 E9 4E 1C 11 2E 45 51 20 5A 45 49 |UNKT..N...EQ ZEI|
00002EF0: 43 48 45 4E 20 3D 20 50 4F 49 4E 54 2B 31 20 20 |CHEN = POINT+1 |
00002F00: 20 3B 47 45 44 52 55 45 43 4B 54 45 20 54 41 53 | ;GEDRUECKTE TAS|
00002F10: 54 45 00 19 4F 26 11 2E 45 51 20 56 45 4B 54 4F |TE..O&..EQ VEKTO|
00002F20: 52 20 20 3D 20 5A 45 49 43 48 45 4E 2B 31 20 3B |R = ZEICHEN+1 ;|
00002F30: 56 45 4B 54 4F 52 20 46 2E 49 4E 44 49 52 2E 4A |VEKTOR F.INDIR.J|
00002F40: 4D 50 00 1F 4F 30 11 3B 00 25 4F 3A 11 3B 00 47 |MP..O0.;.%O:.;.G|
00002F50: 4F 44 11 3B 2A 2A 2A 20 4D 45 4E 55 45 50 41 52 |OD.;*** MENUEPAR|
00002F60: 41 4D 45 54 45 52 20 48 4F 4C 45 4E 20 2A 2A 2A |AMETER HOLEN ***|
00002F70: 00 74 4F 4E 11 43 4E 54 52 4C 20 4A 53 52 43 48 |.tON.CNTRL JSRCH|
00002F80: 4B 4B 4F 4D 3B 50 4F 49 4E 54 45 52 20 41 55 46 |KKOM;POINTER AUF|
00002F90: 20 44 45 53 43 52 49 50 54 4F 52 45 4E 00 9B 4F | DESCRIPTOREN..O|
00002FA0: 58 11 20 4A 53 52 47 45 54 50 4F 53 3B 44 45 53 |X. JSRGETPOS;DES|
00002FB0: 20 4D 45 4E 55 45 4C 45 49 53 54 45 4E 53 54 52 | MENUELEISTENSTR|
00002FC0: 49 4E 47 53 00 BE 4F 62 11 20 53 54 41 49 4E 44 |INGS..Ob. STAIND|
00002FD0: 49 5A 3B 4E 41 43 48 20 27 49 4E 44 49 5A 28 2B |IZ;NACH 'INDIZ(+|
00002FE0: 31 29 27 20 55 4E 44 00 E7 4F 6C 11 20 53 54 59 |1)' UND..Ol. STY|
00002FF0: 49 4E 44 49 5A 2B 31 3B 44 45 53 43 52 49 50 54 |INDIZ+1;DESCRIPT|
00003000: 4F 52 45 4E 20 53 45 4C 42 53 54 20 4E 41 43 48 |OREN SELBST NACH|
00003010: 00 0B 50 76 11 20 4A 53 52 48 4F 4C 44 45 53 3B |..Pv. JSRHOLDES;|
00003020: 27 53 54 52 4C 45 4E 27 2C 53 54 52 50 4F 53 28 |'STRLEN',STRPOS(|
00003030: 2B 31 29 27 00 11 50 80 11 3B 00 34 50 8A 11 20 |+1)'..P..;.4P.. |
00003040: 4C 44 41 53 54 52 4C 45 4E 3B 44 45 53 43 52 49 |LDASTRLEN;DESCRI|
00003050: 50 54 4F 52 45 4E 20 52 45 54 54 45 4E 00 3D 50 |PTOREN RETTEN.=P|
00003060: 94 11 20 50 48 41 00 4C 50 9E 11 20 4C 44 41 53 |.. PHA.LP.. LDAS|
00003070: 54 52 50 4F 53 00 55 50 A8 11 20 50 48 41 00 66 |TRPOS.UP.. PHA.f|
00003080: 50 B2 11 20 4C 44 41 53 54 52 50 4F 53 2B 31 00 |P.. LDASTRPOS+1.|
00003090: 6F 50 BC 11 20 50 48 41 00 75 50 C6 11 3B 00 7B |oP.. PHA.uP..;.{|
000030A0: 50 D0 11 3B 00 9E 50 DA 11 3B 2A 2A 2A 20 53 54 |P..;..P..;*** ST|
000030B0: 41 52 54 53 50 41 4C 54 45 4E 20 44 2E 4D 45 4E |ARTSPALTEN D.MEN|
000030C0: 55 45 53 20 2A 2A 2A 00 BB 50 E4 11 20 4C 44 59 |UES ***..P.. LDY|
000030D0: 23 30 3B 53 50 41 4C 54 45 20 55 4E 44 20 41 4E |#0;SPALTE UND AN|
000030E0: 5A 41 48 4C 00 D5 50 EE 11 20 4C 44 58 23 30 3B |ZAHL..P.. LDX#0;|
000030F0: 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 04 |INITIALISIEREN..|
00003100: 51 F8 11 53 54 41 52 54 31 20 4C 44 41 28 53 54 |Q..START1 LDA(ST|
00003110: 52 50 4F 53 29 2C 59 3B 49 4D 20 4C 45 49 53 54 |RPOS),Y;IM LEIST|
00003120: 45 4E 53 54 52 49 4E 47 20 41 4C 4C 45 00 20 51 |ENSTRING ALLE. Q|
00003130: 02 12 20 43 4D 50 23 22 20 22 3B 53 50 41 43 45 |.. CMP#" ";SPACE|
00003140: 53 20 42 49 53 20 5A 55 4D 00 3D 51 0C 12 20 42 |S BIS ZUM.=Q.. B|
00003150: 4E 45 53 54 41 52 54 32 3B 31 2E 4E 49 43 48 54 |NESTART2;1.NICHT|
00003160: 2D 53 50 41 43 45 00 51 51 16 12 20 49 4E 59 3B |-SPACE.QQ.. INY;|
00003170: 55 45 42 45 52 4C 45 53 45 4E 00 6A 51 20 12 20 |UEBERLESEN.jQ . |
00003180: 42 4E 45 53 54 41 52 54 31 3B 49 4D 4D 45 52 20 |BNESTART1;IMMER |
00003190: 21 21 21 00 70 51 2A 12 3B 00 A1 51 34 12 53 54 |!!!.pQ*.;..Q4.ST|
000031A0: 41 52 54 32 20 53 54 41 53 49 47 4E 2C 58 3B 41 |ART2 STASIGN,X;A|
000031B0: 4E 46 41 4E 47 53 42 55 43 48 53 54 41 42 45 20 |NFANGSBUCHSTABE |
000031C0: 44 45 53 20 4D 45 4E 55 45 53 00 C6 51 3E 12 20 |DES MENUES..Q>. |
000031D0: 54 59 41 3B 59 3D 50 4F 53 49 54 49 4F 4E 20 56 |TYA;Y=POSITION V|
000031E0: 4F 4E 20 31 2E 4E 49 43 48 54 53 50 41 43 45 00 |ON 1.NICHTSPACE.|
000031F0: EC 51 48 12 20 53 54 41 53 54 41 52 54 2C 58 3B |.QH. STASTART,X;|
00003200: 3D 53 54 41 52 54 43 4F 4C 20 46 55 45 52 20 49 |=STARTCOL FUER I|
00003210: 4E 56 45 52 54 00 0E 52 52 12 53 54 41 52 54 33 |NVERT..RR.START3|
00003220: 20 4C 44 41 28 53 54 52 50 4F 53 29 2C 59 3B 4E | LDA(STRPOS),Y;N|
00003230: 55 4E 20 41 4C 4C 45 00 27 52 5C 12 20 43 4D 50 |UN ALLE.'R\. CMP|
00003240: 23 22 20 22 3B 4E 49 43 48 54 53 50 41 43 45 53 |#" ";NICHTSPACES|
00003250: 00 41 52 66 12 20 42 45 51 53 54 41 52 54 34 3B |.ARf. BEQSTART4;|
00003260: 55 45 42 45 52 4C 45 53 45 4E 00 5B 52 70 12 20 |UEBERLESEN.[Rp. |
00003270: 49 4E 59 3B 4A 45 44 4F 43 48 20 4E 55 52 2C 20 |INY;JEDOCH NUR, |
00003280: 57 45 4E 4E 00 7C 52 7A 12 20 43 50 59 53 54 52 |WENN.|Rz. CPYSTR|
00003290: 4C 45 4E 3B 53 54 52 49 4E 47 4C 41 45 4E 47 45 |LEN;STRINGLAENGE|
000032A0: 20 4E 4F 43 48 00 A0 52 84 12 20 42 43 43 53 54 | NOCH..R.. BCCST|
000032B0: 41 52 54 33 3B 4E 49 43 48 54 20 55 45 42 45 52 |ART3;NICHT UEBER|
000032C0: 53 43 48 52 49 54 54 45 4E 00 A6 52 8E 12 3B 00 |SCHRITTEN..R..;.|
000032D0: CF 52 98 12 53 54 41 52 54 34 20 54 59 41 3B 49 |.R..START4 TYA;I|
000032E0: 4E 56 45 52 54 49 45 52 42 52 45 49 54 45 20 53 |NVERTIERBREITE S|
000032F0: 54 45 48 54 20 4E 55 4E 00 EC 52 A2 12 20 53 45 |TEHT NUN..R.. SE|
00003300: 43 3B 46 45 53 54 3A 20 49 4E 56 45 52 54 42 52 |C;FEST: INVERTBR|
00003310: 45 49 54 45 3D 00 07 53 AC 12 20 53 42 43 53 54 |EITE=..S.. SBCST|
00003320: 41 52 54 2C 58 3B 59 2D 53 54 41 52 54 43 4F 4C |ART,X;Y-STARTCOL|
00003330: 00 36 53 B6 12 20 53 54 41 4C 45 4E 47 54 48 2C |.6S.. STALENGTH,|
00003340: 58 3B 45 52 47 45 42 4E 49 53 20 49 4E 20 54 41 |X;ERGEBNIS IN TA|
00003350: 42 45 4C 4C 45 20 53 50 45 49 43 48 45 52 4E 00 |BELLE SPEICHERN.|
00003360: 3F 53 C0 12 20 49 4E 58 00 5E 53 CA 12 20 49 4E |?S.. INX.^S.. IN|
00003370: 59 3B 57 45 49 54 45 52 2C 20 57 45 4E 4E 20 45 |Y;WEITER, WENN E|
00003380: 4E 44 45 20 44 45 53 00 87 53 D4 12 20 43 50 59 |NDE DES..S.. CPY|
00003390: 53 54 52 4C 45 4E 3B 4C 45 49 53 54 45 4E 53 54 |STRLEN;LEISTENST|
000033A0: 52 49 4E 47 53 20 4E 4F 43 48 20 4E 49 43 48 54 |RINGS NOCH NICHT|
000033B0: 00 A2 53 DE 12 20 42 43 43 53 54 41 52 54 31 3B |..S.. BCCSTART1;|
000033C0: 45 52 52 45 49 43 48 54 20 3D 3E 00 A8 53 E8 12 |ERREICHT =>..S..|
000033D0: 3B 00 CC 53 F2 12 20 53 54 58 4D 5A 41 48 4C 3B |;..S.. STXMZAHL;|
000033E0: 4D 45 4E 55 45 41 4E 5A 41 48 4C 20 53 50 45 49 |MENUEANZAHL SPEI|
000033F0: 43 48 45 52 4E 00 D2 53 FC 12 3B 00 D8 53 06 13 |CHERN..S..;..S..|
00003400: 3B 00 FB 53 10 13 3B 2A 2A 2A 20 57 49 4E 44 4F |;..S..;*** WINDO|
00003410: 57 50 41 52 41 4D 45 54 45 52 20 48 4F 4C 45 4E |WPARAMETER HOLEN|
00003420: 20 2A 2A 2A 00 23 54 1A 13 20 4A 53 52 43 48 4B | ***.#T.. JSRCHK|
00003430: 4B 4F 4D 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 |KOM;POINTER AUF |
00003440: 44 45 53 43 52 49 50 54 4F 52 45 4E 00 4B 54 24 |DESCRIPTOREN.KT$|
00003450: 13 20 4A 53 52 47 45 54 50 4F 53 3B 44 45 53 20 |. JSRGETPOS;DES |
00003460: 31 2E 4D 45 4E 55 45 53 54 52 49 4E 47 53 20 48 |1.MENUESTRINGS H|
00003470: 4F 4C 45 4E 00 70 54 2E 13 20 53 54 41 49 4E 44 |OLEN.pT.. STAIND|
00003480: 49 5A 3B 55 4E 44 20 44 45 53 43 52 49 54 4F 52 |IZ;UND DESCRITOR|
00003490: 45 4E 20 53 45 4C 42 53 54 00 9B 54 38 13 20 53 |EN SELBST..T8. S|
000034A0: 54 59 49 4E 44 49 5A 2B 31 3B 4E 41 43 48 20 27 |TYINDIZ+1;NACH '|
000034B0: 53 54 52 4C 45 4E 27 2C 27 53 54 52 50 4F 53 28 |STRLEN','STRPOS(|
000034C0: 2B 31 29 27 00 B3 54 42 13 20 4A 53 52 48 4F 4C |+1)'..TB. JSRHOL|
000034D0: 44 45 53 3B 53 43 48 41 46 46 45 4E 00 B9 54 4C |DES;SCHAFFEN..TL|
000034E0: 13 3B 00 D7 54 56 13 20 4C 44 58 23 32 35 35 3B |.;..TV. LDX#255;|
000034F0: 58 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E |X INITIALISIEREN|
00003500: 00 EE 54 60 13 20 42 4E 45 50 41 52 35 3B 49 4D |..T`. BNEPAR5;IM|
00003510: 4D 45 52 20 21 21 21 00 F4 54 6A 13 3B 00 11 55 |MER !!!..Tj.;..U|
00003520: 74 13 50 41 52 31 20 4C 44 41 23 30 3B 53 54 52 |t.PAR1 LDA#0;STR|
00003530: 49 4E 47 5A 41 45 48 4C 45 52 00 2D 55 7E 13 20 |INGZAEHLER.-U~. |
00003540: 53 54 41 43 4E 54 49 3B 49 4E 49 54 49 41 4C 49 |STACNTI;INITIALI|
00003550: 53 49 45 52 45 4E 00 33 55 88 13 3B 00 62 55 92 |SIEREN.3U..;.bU.|
00003560: 13 50 41 52 32 20 4C 44 59 23 30 3B 50 4F 49 4E |.PAR2 LDY#0;POIN|
00003570: 54 45 52 20 41 55 46 20 53 54 52 49 4E 47 5A 45 |TER AUF STRINGZE|
00003580: 49 43 48 45 4E 20 49 4E 49 54 2E 00 83 55 9C 13 |ICHEN INIT...U..|
00003590: 50 41 52 33 20 4C 44 41 28 53 54 52 50 4F 53 29 |PAR3 LDA(STRPOS)|
000035A0: 2C 59 3B 41 4B 54 55 45 4C 4C 45 53 00 A5 55 A6 |,Y;AKTUELLES..U.|
000035B0: 13 20 43 4D 50 23 22 20 22 3B 53 54 52 49 4E 47 |. CMP#" ";STRING|
000035C0: 5A 45 49 43 48 45 4E 3D 53 50 41 43 45 3F 00 B8 |ZEICHEN=SPACE?..|
000035D0: 55 B0 13 20 42 45 51 50 41 52 34 3B 4A 41 20 3D |U.. BEQPAR4;JA =|
000035E0: 3E 00 BE 55 BA 13 3B 00 DF 55 C4 13 20 4A 53 52 |>..U..;..U.. JSR|
000035F0: 4E 45 58 54 53 54 52 3B 4E 41 45 43 48 53 54 45 |NEXTSTR;NAECHSTE|
00003600: 4E 20 53 54 52 49 4E 47 00 01 56 CE 13 20 4A 53 |N STRING..V.. JS|
00003610: 52 48 4F 4C 44 45 53 3B 44 45 53 43 52 49 50 54 |RHOLDES;DESCRIPT|
00003620: 4F 52 45 4E 20 48 4F 4C 45 4E 00 24 56 D8 13 20 |OREN HOLEN.$V.. |
00003630: 49 4E 43 43 4E 54 49 3B 53 54 52 49 4E 47 5A 41 |INCCNTI;STRINGZA|
00003640: 45 48 4C 45 52 20 49 4E 4B 52 45 4D 2E 00 3B 56 |EHLER INKREM..;V|
00003650: E2 13 20 42 4E 45 50 41 52 32 3B 49 4D 4D 45 52 |.. BNEPAR2;IMMER|
00003660: 20 21 21 21 00 41 56 EC 13 3B 00 65 56 F6 13 50 | !!!.AV..;.eV..P|
00003670: 41 52 34 20 49 4E 59 3B 5A 45 49 43 48 45 4E 50 |AR4 INY;ZEICHENP|
00003680: 4F 49 4E 54 45 52 20 49 4E 4B 52 45 4D 2E 00 89 |OINTER INKREM...|
00003690: 56 00 14 20 43 50 59 53 54 52 4C 45 4E 3B 53 54 |V.. CPYSTRLEN;ST|
000036A0: 52 49 4E 47 45 4E 44 45 20 45 52 52 45 49 43 48 |RINGENDE ERREICH|
000036B0: 54 3F 00 9E 56 0A 14 20 42 43 43 50 41 52 33 3B |T?..V.. BCCPAR3;|
000036C0: 4E 45 49 4E 20 3D 3E 00 A4 56 14 14 3B 00 C6 56 |NEIN =>..V..;..V|
000036D0: 1E 14 20 4C 44 41 43 4E 54 49 3B 4C 41 45 4E 47 |.. LDACNTI;LAENG|
000036E0: 45 20 44 45 53 20 41 4B 54 55 45 4C 4C 45 4E 00 |E DES AKTUELLEN.|
000036F0: EB 56 28 14 20 53 54 41 57 4C 41 45 4E 47 45 2C |.V(. STAWLAENGE,|
00003700: 58 3B 57 49 4E 44 4F 57 53 20 49 4E 20 54 41 42 |X;WINDOWS IN TAB|
00003710: 45 4C 4C 45 00 F1 56 32 14 3B 00 13 57 3C 14 50 |ELLE..V2.;..W<.P|
00003720: 41 52 35 20 49 4E 58 3B 42 52 45 49 54 45 20 44 |AR5 INX;BREITE D|
00003730: 45 53 20 41 4B 54 55 45 4C 4C 45 4E 00 34 57 46 |ES AKTUELLEN.4WF|
00003740: 14 20 4C 44 41 53 54 52 4C 45 4E 3B 57 49 4E 44 |. LDASTRLEN;WIND|
00003750: 4F 57 53 20 45 42 45 4E 46 41 4C 4C 53 00 58 57 |OWS EBENFALLS.XW|
00003760: 50 14 20 53 54 41 57 42 52 45 49 54 45 2C 58 3B |P. STAWBREITE,X;|
00003770: 49 4E 20 54 41 42 45 4C 4C 45 20 4D 45 52 4B 45 |IN TABELLE MERKE|
00003780: 4E 00 5E 57 5A 14 3B 00 7A 57 64 14 20 4A 53 52 |N.^WZ.;.zWd. JSR|
00003790: 4E 45 58 54 53 54 52 3B 4E 45 58 54 20 53 54 52 |NEXTSTR;NEXT STR|
000037A0: 49 4E 47 00 9C 57 6E 14 20 4A 53 52 48 4F 4C 44 |ING..Wn. JSRHOLD|
000037B0: 45 53 3B 44 45 53 43 52 49 50 54 4F 52 45 4E 20 |ES;DESCRIPTOREN |
000037C0: 48 4F 4C 45 4E 00 C3 57 78 14 20 4C 44 41 49 4E |HOLEN..Wx. LDAIN|
000037D0: 44 49 5A 3B 41 44 52 45 53 53 45 20 44 45 52 20 |DIZ;ADRESSE DER |
000037E0: 44 45 53 43 52 49 50 54 4F 52 45 4E 00 E7 57 82 |DESCRIPTOREN..W.|
000037F0: 14 20 53 54 41 57 50 4F 49 4C 4F 57 2C 58 3B 49 |. STAWPOILOW,X;I|
00003800: 4E 20 54 41 42 45 4C 4C 45 20 4D 45 52 4B 45 4E |N TABELLE MERKEN|
00003810: 00 F7 57 8C 14 20 4C 44 41 49 4E 44 49 5A 2B 31 |..W.. LDAINDIZ+1|
00003820: 00 0A 58 96 14 20 53 54 41 57 50 4F 49 48 49 47 |..X.. STAWPOIHIG|
00003830: 48 2C 58 00 10 58 A0 14 3B 00 31 58 AA 14 20 43 |H,X..X..;.1X.. C|
00003840: 50 58 4D 5A 41 48 4C 3B 41 4C 4C 45 20 4D 45 4E |PXMZAHL;ALLE MEN|
00003850: 55 45 53 20 44 55 52 43 48 3F 00 46 58 B4 14 20 |UES DURCH?.FX.. |
00003860: 42 43 43 50 41 52 31 3B 4E 45 49 4E 20 3D 3E 00 |BCCPAR1;NEIN =>.|
00003870: 4C 58 BE 14 3B 00 52 58 C8 14 3B 00 6F 58 D2 14 |LX..;.RX..;.oX..|
00003880: 3B 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 53 49 45 |;*** INITIALISIE|
00003890: 52 55 4E 47 20 2A 2A 2A 00 89 58 DC 14 20 4C 44 |RUNG ***..X.. LD|
000038A0: 41 23 31 39 3B 27 43 55 52 53 4F 52 20 48 4F 4D |A#19;'CURSOR HOM|
000038B0: 45 27 00 A0 58 E6 14 20 4A 53 52 42 53 4F 55 54 |E'..X.. JSRBSOUT|
000038C0: 3B 41 55 53 47 45 42 45 4E 00 A6 58 F0 14 3B 00 |;AUSGEBEN..X..;.|
000038D0: C0 58 FA 14 20 50 4C 41 3B 44 45 53 43 52 49 50 |.X.. PLA;DESCRIP|
000038E0: 54 4F 52 45 4E 20 44 45 53 00 E0 58 04 15 20 53 |TOREN DES..X.. S|
000038F0: 54 41 53 54 52 50 4F 53 2B 31 3B 4C 45 49 53 54 |TASTRPOS+1;LEIST|
00003900: 45 4E 53 54 52 49 4E 47 53 00 EF 58 0E 15 20 50 |ENSTRINGS..X.. P|
00003910: 4C 41 3B 48 4F 4C 45 4E 00 FE 58 18 15 20 53 54 |LA;HOLEN..X.. ST|
00003920: 41 53 54 52 50 4F 53 00 07 59 22 15 20 50 4C 41 |ASTRPOS..Y". PLA|
00003930: 00 16 59 2C 15 20 53 54 41 53 54 52 4C 45 4E 00 |..Y,. STASTRLEN.|
00003940: 1C 59 36 15 3B 00 3E 59 40 15 20 4C 44 59 23 30 |.Y6.;.>Y@. LDY#0|
00003950: 3B 4C 45 49 53 54 45 4E 53 54 52 49 4E 47 20 41 |;LEISTENSTRING A|
00003960: 55 53 47 45 42 45 4E 00 56 59 4A 15 49 4E 49 54 |USGEBEN.VYJ.INIT|
00003970: 31 20 4C 44 41 28 53 54 52 50 4F 53 29 2C 59 00 |1 LDA(STRPOS),Y.|
00003980: 64 59 54 15 20 4A 53 52 42 53 4F 55 54 00 6D 59 |dYT. JSRBSOUT.mY|
00003990: 5E 15 20 49 4E 59 00 7C 59 68 15 20 43 50 59 53 |^. INY.|Yh. CPYS|
000039A0: 54 52 4C 45 4E 00 8A 59 72 15 20 42 43 43 49 4E |TRLEN..Yr. BCCIN|
000039B0: 49 54 31 00 90 59 7C 15 3B 00 A8 59 86 15 20 4C |IT1..Y|.;..Y.. L|
000039C0: 44 58 23 30 3B 4D 45 4E 55 45 5A 41 45 48 4C 45 |DX#0;MENUEZAEHLE|
000039D0: 52 00 C6 59 90 15 20 53 54 58 4D 43 4F 55 4E 54 |R..Y.. STXMCOUNT|
000039E0: 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 |;INITIALISIEREN.|
000039F0: CC 59 9A 15 3B 00 D2 59 A4 15 3B 00 ED 59 AE 15 |.Y..;..Y..;..Y..|
00003A00: 3B 2A 2A 2A 20 4D 45 4E 55 45 2D 41 55 53 47 41 |;*** MENUE-AUSGA|
00003A10: 42 45 20 2A 2A 2A 00 15 5A B8 15 41 55 53 47 41 |BE ***..Z..AUSGA|
00003A20: 42 45 20 4A 53 52 4C 49 45 53 47 52 3B 55 4E 54 |BE JSRLIESGR;UNT|
00003A30: 45 52 47 52 55 4E 44 20 52 45 54 54 45 4E 00 3B |ERGRUND RETTEN.;|
00003A40: 5A C2 15 20 4A 53 52 4D 49 4E 56 45 52 54 3B 4D |Z.. JSRMINVERT;M|
00003A50: 45 4E 55 45 4E 41 4D 45 20 49 4E 56 45 52 54 49 |ENUENAME INVERTI|
00003A60: 45 52 45 4E 00 59 5A CC 15 20 4A 53 52 4D 50 52 |EREN.YZ.. JSRMPR|
00003A70: 49 4E 54 3B 4D 45 4E 55 45 20 41 55 53 47 45 42 |INT;MENUE AUSGEB|
00003A80: 45 4E 00 80 5A D6 15 20 4C 44 41 23 32 35 35 3B |EN..Z.. LDA#255;|
00003A90: 4D 45 4E 55 45 50 55 4E 4B 54 20 49 4E 49 54 49 |MENUEPUNKT INITI|
00003AA0: 41 4C 49 53 49 45 52 45 4E 00 AA 5A E0 15 20 53 |ALISIEREN..Z.. S|
00003AB0: 54 41 50 4F 49 4E 54 3B 28 32 35 35 3D 4B 45 49 |TAPOINT;(255=KEI|
00003AC0: 4E 20 50 55 4E 4B 54 20 41 4E 47 45 57 41 45 48 |N PUNKT ANGEWAEH|
00003AD0: 4C 54 29 00 B0 5A EA 15 3B 00 B6 5A F4 15 3B 00 |LT)..Z..;..Z..;.|
00003AE0: D5 5A FE 15 3B 2A 2A 2A 20 54 41 53 54 41 54 55 |.Z..;*** TASTATU|
00003AF0: 52 20 41 42 46 52 41 47 45 4E 20 2A 2A 2A 00 F0 |R ABFRAGEN ***..|
00003B00: 5A 08 16 47 45 54 20 4A 53 52 47 45 54 49 4E 3B |Z..GET JSRGETIN;|
00003B10: 41 55 46 20 54 41 53 54 45 00 03 5B 12 16 20 42 |AUF TASTE..[.. B|
00003B20: 45 51 47 45 54 3B 57 41 52 54 45 4E 00 22 5B 1C |EQGET;WARTEN."[.|
00003B30: 16 20 53 54 41 5A 45 49 43 48 45 4E 3B 5A 45 49 |. STAZEICHEN;ZEI|
00003B40: 43 48 45 4E 20 4D 45 52 4B 45 4E 00 28 5B 26 16 |CHEN MERKEN.([&.|
00003B50: 3B 00 4D 5B 30 16 20 4C 44 58 23 34 3B 43 55 52 |;.M[0. LDX#4;CUR|
00003B60: 53 4F 52 2D 20 4F 44 45 52 20 52 45 54 55 52 4E |SOR- ODER RETURN|
00003B70: 2D 54 41 53 54 45 00 6A 5B 3A 16 47 45 54 31 20 |-TASTE.j[:.GET1 |
00003B80: 43 4D 50 4B 45 59 2C 58 3B 47 45 44 52 55 45 43 |CMPKEY,X;GEDRUEC|
00003B90: 4B 54 3F 00 7D 5B 44 16 20 42 45 51 47 45 54 32 |KT?.}[D. BEQGET2|
00003BA0: 3B 4A 41 20 3D 3E 00 94 5B 4E 16 20 44 45 58 3B |;JA =>..[N. DEX;|
00003BB0: 41 4E 53 4F 4E 53 54 45 4E 20 5A 55 4D 00 B5 5B |ANSONSTEN ZUM..[|
00003BC0: 58 16 20 42 50 4C 47 45 54 31 3B 54 45 49 4C 20 |X. BPLGET1;TEIL |
00003BD0: 27 44 49 52 45 4B 54 41 4E 57 41 48 4C 27 00 C4 |'DIREKTANWAHL'..|
00003BE0: 5B 62 16 20 42 4D 49 44 49 52 45 4B 54 00 CA 5B |[b. BMIDIREKT..[|
00003BF0: 6C 16 3B 00 E5 5B 76 16 47 45 54 32 20 54 58 41 |l.;..[v.GET2 TXA|
00003C00: 3B 5A 41 45 48 4C 45 52 20 4D 49 54 20 32 00 FD |;ZAEHLER MIT 2..|
00003C10: 5B 80 16 20 41 53 4C 3B 4D 55 4C 54 49 50 4C 49 |[.. ASL;MULTIPLI|
00003C20: 5A 49 45 52 45 4E 00 18 5C 8A 16 20 54 41 58 3B |ZIEREN..\.. TAX;|
00003C30: 45 52 47 49 42 54 20 5A 45 49 47 45 52 20 41 55 |ERGIBT ZEIGER AU|
00003C40: 46 00 34 5C 94 16 20 4C 44 41 54 41 42 2C 58 3B |F.4\.. LDATAB,X;|
00003C50: 53 50 52 55 4E 47 54 41 42 45 4C 4C 45 00 50 5C |SPRUNGTABELLE.P\|
00003C60: 9E 16 20 53 54 41 56 45 4B 54 4F 52 3B 50 4F 49 |.. STAVEKTOR;POI|
00003C70: 4E 54 45 52 20 46 55 45 52 00 71 5C A8 16 20 4C |NTER FUER.q\.. L|
00003C80: 44 41 54 41 42 2B 31 2C 58 3B 49 4E 49 52 45 4B |DATAB+1,X;INIREK|
00003C90: 54 45 4E 20 53 50 52 55 4E 47 00 8B 5C B2 16 20 |TEN SPRUNG..\.. |
00003CA0: 53 54 41 56 45 4B 54 4F 52 2B 31 3B 45 52 5A 45 |STAVEKTOR+1;ERZE|
00003CB0: 55 47 45 4E 00 A9 5C BC 16 20 4A 4D 50 28 56 45 |UGEN..\.. JMP(VE|
00003CC0: 4B 54 4F 52 29 3B 4A 4D 50 20 49 4E 44 49 52 45 |KTOR);JMP INDIRE|
00003CD0: 4B 54 00 AF 5C C6 16 3B 00 B5 5C D0 16 3B 00 D0 |KT..\..;..\..;..|
00003CE0: 5C DA 16 3B 2A 2A 2A 20 44 49 52 45 4B 54 41 4E |\..;*** DIREKTAN|
00003CF0: 57 41 48 4C 3F 20 2A 2A 2A 00 FC 5C E4 16 44 49 |WAHL? ***..\..DI|
00003D00: 52 45 4B 54 20 43 4D 50 23 24 34 30 3B 53 48 49 |REKT CMP#$40;SHI|
00003D10: 46 54 2D 54 41 53 54 45 4E 4B 4F 4D 42 49 4E 41 |FT-TASTENKOMBINA|
00003D20: 54 49 4F 4E 3F 00 12 5D EE 16 20 42 43 53 44 49 |TION?..].. BCSDI|
00003D30: 52 45 4B 54 32 3B 4A 41 20 3D 3E 00 39 5D F8 16 |REKT2;JA =>.9]..|
00003D40: 20 4F 52 41 23 24 34 30 3B 49 4E 20 47 52 4F 53 | ORA#$40;IN GROS|
00003D50: 53 42 55 43 48 53 54 41 42 45 20 57 41 4E 44 45 |SBUCHSTABE WANDE|
00003D60: 4C 4E 00 61 5D 02 17 20 4C 44 58 4D 5A 41 48 4C |LN.a].. LDXMZAHL|
00003D70: 3B 55 4E 44 20 4D 49 54 20 41 4E 46 41 4E 47 53 |;UND MIT ANFANGS|
00003D80: 42 55 43 48 53 54 41 42 45 4E 00 79 5D 0C 17 20 |BUCHSTABEN.y].. |
00003D90: 44 45 58 3B 44 45 52 20 4D 45 4E 55 45 4E 41 4D |DEX;DER MENUENAM|
00003DA0: 45 4E 00 9B 5D 16 17 44 49 52 45 4B 54 31 20 43 |EN..]..DIREKT1 C|
00003DB0: 4D 50 53 49 47 4E 2C 58 3B 56 45 52 47 4C 45 49 |MPSIGN,X;VERGLEI|
00003DC0: 43 48 45 4E 00 B3 5D 20 17 20 42 45 51 4D 45 4E |CHEN..] . BEQMEN|
00003DD0: 55 45 3B 47 4C 45 49 43 48 20 3D 3E 00 BC 5D 2A |UE;GLEICH =>..]*|
00003DE0: 17 20 44 45 58 00 CC 5D 34 17 20 42 50 4C 44 49 |. DEX..]4. BPLDI|
00003DF0: 52 45 4B 54 31 00 EE 5D 3E 17 20 42 4D 49 47 45 |REKT1..]>. BMIGE|
00003E00: 54 3B 46 41 4C 53 43 48 45 52 20 42 55 43 48 53 |T;FALSCHER BUCHS|
00003E10: 54 41 42 45 20 3D 3E 00 F4 5D 48 17 3B 00 10 5E |TABE =>..]H.;..^|
00003E20: 52 17 4D 45 4E 55 45 20 54 58 41 3B 58 20 28 5A |R.MENUE TXA;X (Z|
00003E30: 45 49 47 45 52 20 41 55 46 00 2E 5E 5C 17 20 50 |EIGER AUF..^\. P|
00003E40: 48 41 3B 4D 45 4E 55 45 2D 43 4F 4D 41 4E 44 29 |HA;MENUE-COMAND)|
00003E50: 20 52 45 54 54 45 4E 00 53 5E 66 17 20 4A 53 52 | RETTEN.S^f. JSR|
00003E60: 48 4F 4C 47 52 3B 41 4C 54 45 4E 20 55 4E 54 45 |HOLGR;ALTEN UNTE|
00003E70: 52 47 52 55 4E 44 20 48 4F 4C 45 4E 00 82 5E 70 |RGRUND HOLEN..^p|
00003E80: 17 20 4A 53 52 4D 4E 4F 52 4D 41 4C 3B 41 4C 54 |. JSRMNORMAL;ALT|
00003E90: 45 4E 20 4D 45 4E 55 45 4E 41 4D 45 4E 20 4E 4F |EN MENUENAMEN NO|
00003EA0: 52 4D 41 4C 49 53 49 45 52 45 4E 00 9D 5E 7A 17 |RMALISIEREN..^z.|
00003EB0: 20 50 4C 41 3B 58 20 57 49 45 44 45 52 48 4F 4C | PLA;X WIEDERHOL|
00003EC0: 45 4E 20 55 4E 44 00 C5 5E 84 17 20 54 41 58 3B |EN UND..^.. TAX;|
00003ED0: 4E 41 43 48 20 27 43 52 53 2E 4C 45 46 54 2F 52 |NACH 'CRS.LEFT/R|
00003EE0: 49 47 48 54 27 20 53 50 52 49 4E 47 45 4E 00 DD |IGHT' SPRINGEN..|
00003EF0: 5E 8E 17 20 42 50 4C 4D 4F 4B 41 59 3B 49 4D 4D |^.. BPLMOKAY;IMM|
00003F00: 45 52 20 21 21 21 00 E3 5E 98 17 3B 00 0E 5F A2 |ER !!!..^..;.._.|
00003F10: 17 44 49 52 45 4B 54 32 20 4C 44 58 4D 43 4F 55 |.DIREKT2 LDXMCOU|
00003F20: 4E 54 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 31 |NT;POINTER AUF 1|
00003F30: 2E 53 54 52 49 4E 47 00 2E 5F AC 17 20 4C 44 41 |.STRING.._.. LDA|
00003F40: 57 50 4F 49 4C 4F 57 2C 58 3B 44 45 53 20 41 4B |WPOILOW,X;DES AK|
00003F50: 54 55 45 4C 4C 45 4E 00 48 5F B6 17 20 53 54 41 |TUELLEN.H_.. STA|
00003F60: 49 4E 44 49 5A 3B 4D 45 4E 55 45 53 20 4E 41 43 |INDIZ;MENUES NAC|
00003F70: 48 00 67 5F C0 17 20 4C 44 41 57 50 4F 49 48 49 |H.g_.. LDAWPOIHI|
00003F80: 47 48 2C 58 3B 27 49 4E 44 49 5A 28 2B 31 29 27 |GH,X;'INDIZ(+1)'|
00003F90: 00 7D 5F CA 17 20 53 54 41 49 4E 44 49 5A 2B 31 |.}_.. STAINDIZ+1|
00003FA0: 3B 48 4F 4C 45 4E 00 83 5F D4 17 3B 00 A4 5F DE |;HOLEN.._..;.._.|
00003FB0: 17 20 4C 44 41 23 30 3B 5A 41 45 48 4C 45 52 20 |. LDA#0;ZAEHLER |
00003FC0: 49 4E 54 49 41 4C 49 53 49 45 52 45 4E 00 B4 5F |INTIALISIEREN.._|
00003FD0: E8 17 44 49 52 45 4B 54 33 20 54 41 58 00 D6 5F |..DIREKT3 TAX.._|
00003FE0: F2 17 20 4A 53 52 48 4F 4C 44 45 53 3B 44 45 53 |.. JSRHOLDES;DES|
00003FF0: 43 52 49 50 54 4F 52 45 4E 20 48 4F 4C 45 4E 00 |CRIPTOREN HOLEN.|
00004000: F6 5F FC 17 20 49 4E 59 3B 54 41 53 54 45 20 4D |._.. INY;TASTE M|
00004010: 49 54 20 44 45 4E 20 41 4E 46 41 4E 47 53 2D 00 |IT DEN ANFANGS-.|
00004020: 1F 60 06 18 20 4C 44 41 28 53 54 52 50 4F 53 29 |.`.. LDA(STRPOS)|
00004030: 2C 59 3B 42 55 43 48 53 54 41 42 45 4E 20 44 45 |,Y;BUCHSTABEN DE|
00004040: 52 20 4D 45 4E 55 45 2D 00 43 60 10 18 20 43 4D |R MENUE-.C`.. CM|
00004050: 50 5A 45 49 43 48 45 4E 3B 53 54 52 49 4E 47 53 |PZEICHEN;STRINGS|
00004060: 20 56 45 52 47 4C 45 49 43 48 45 4E 00 5D 60 1A | VERGLEICHEN.]`.|
00004070: 18 20 42 45 51 44 49 52 45 4B 54 34 3B 47 4C 45 |. BEQDIREKT4;GLE|
00004080: 49 43 48 20 3D 3E 00 7F 60 24 18 20 4A 53 52 4E |ICH =>..`$. JSRN|
00004090: 45 58 54 53 54 52 3B 53 4F 4E 53 54 20 4E 45 58 |EXTSTR;SONST NEX|
000040A0: 54 20 53 54 52 49 4E 47 00 9A 60 2E 18 20 49 4E |T STRING..`.. IN|
000040B0: 58 3B 55 4E 54 45 52 53 55 43 48 45 4E 2C 20 57 |X;UNTERSUCHEN, W|
000040C0: 45 4E 4E 00 B2 60 38 18 20 54 58 41 3B 4C 45 54 |ENN..`8. TXA;LET|
000040D0: 5A 54 45 52 20 4D 45 4E 55 45 2D 00 D3 60 42 18 |ZTER MENUE-..`B.|
000040E0: 20 4C 44 58 4D 43 4F 55 4E 54 3B 53 54 52 49 4E | LDXMCOUNT;STRIN|
000040F0: 47 20 4E 4F 43 48 20 4E 49 43 48 54 00 F5 60 4C |G NOCH NICHT..`L|
00004100: 18 20 43 4D 50 57 4C 41 45 4E 47 45 2C 58 3B 42 |. CMPWLAENGE,X;B|
00004110: 45 48 41 4E 44 45 4C 54 20 57 55 52 44 45 00 05 |EHANDELT WURDE..|
00004120: 61 56 18 20 42 43 43 44 49 52 45 4B 54 33 00 37 |aV. BCCDIREKT3.7|
00004130: 61 60 18 20 42 43 53 47 45 54 3B 42 55 43 48 53 |a`. BCSGET;BUCHS|
00004140: 54 41 42 45 20 4E 49 43 48 54 20 49 4D 20 4D 45 |TABE NICHT IM ME|
00004150: 4E 55 45 20 56 4F 52 48 41 4E 44 45 4E 20 3D 3E |NUE VORHANDEN =>|
00004160: 00 3D 61 6A 18 3B 00 64 61 74 18 44 49 52 45 4B |.=aj.;.dat.DIREK|
00004170: 54 34 20 53 54 58 50 4F 49 4E 54 3B 4D 45 4E 55 |T4 STXPOINT;MENU|
00004180: 45 50 55 4E 4B 54 20 52 45 54 54 45 4E 00 89 61 |EPUNKT RETTEN..a|
00004190: 7E 18 52 45 54 55 52 4E 20 4C 44 41 4D 43 4F 55 |~.RETURN LDAMCOU|
000041A0: 4E 54 3B 4D 45 4E 55 45 4E 55 4D 4D 45 52 20 55 |NT;MENUENUMMER U|
000041B0: 4E 44 00 AD 61 88 18 20 53 54 41 50 41 52 42 41 |ND..a.. STAPARBA|
000041C0: 43 4B 3B 4D 45 4E 55 45 50 55 4E 4B 54 20 41 4E |CK;MENUEPUNKT AN|
000041D0: 20 42 41 53 49 43 00 C6 61 92 18 20 4C 44 41 50 | BASIC..a.. LDAP|
000041E0: 4F 49 4E 54 3B 55 45 42 45 52 47 45 42 45 4E 00 |OINT;UEBERGEBEN.|
000041F0: D8 61 9C 18 20 53 54 41 50 41 52 42 41 43 4B 2B |.a.. STAPARBACK+|
00004200: 31 00 00 62 A6 18 20 4A 53 52 4D 4E 4F 52 4D 41 |1..b.. JSRMNORMA|
00004210: 4C 3B 4D 45 4E 55 45 4E 41 4D 45 20 4E 4F 52 4D |L;MENUENAME NORM|
00004220: 41 4C 49 53 49 45 52 45 4E 00 39 62 AB 18 20 4A |ALISIEREN.9b.. J|
00004230: 4D 50 48 4F 4C 47 52 3B 55 4E 54 45 52 47 52 55 |MPHOLGR;UNTERGRU|
00004240: 4E 44 20 48 4F 4C 45 4E 20 2B 20 52 54 53 20 21 |ND HOLEN + RTS !|
00004250: 21 21 20 3D 3E 20 42 41 53 49 43 20 21 21 21 21 |!! => BASIC !!!!|
00004260: 21 21 00 3F 62 B0 18 3B 00 63 62 BA 18 52 49 47 |!!.?b..;.cb..RIG|
00004270: 48 54 20 4A 53 52 48 4F 4C 47 52 3B 55 4E 54 45 |HT JSRHOLGR;UNTE|
00004280: 52 47 52 55 4E 44 20 48 4F 4C 45 4E 00 8B 62 C4 |RGRUND HOLEN..b.|
00004290: 18 20 4A 53 52 4D 4E 4F 52 4D 41 4C 3B 4D 45 4E |. JSRMNORMAL;MEN|
000042A0: 55 45 4E 41 4D 45 20 4E 4F 52 4D 41 4C 49 53 49 |UENAME NORMALISI|
000042B0: 45 52 45 4E 00 AF 62 CE 18 20 4C 44 58 4D 43 4F |EREN..b.. LDXMCO|
000042C0: 55 4E 54 3B 57 45 4E 4E 20 42 45 52 45 49 54 53 |UNT;WENN BEREITS|
000042D0: 20 4C 45 54 5A 54 45 53 00 D0 62 D8 18 20 49 4E | LETZTES..b.. IN|
000042E0: 58 3B 4D 45 4E 55 45 20 45 52 52 45 49 43 48 54 |X;MENUE ERREICHT|
000042F0: 3A 20 5A 41 45 48 4C 45 52 00 F1 62 E2 18 20 43 |: ZAEHLER..b.. C|
00004300: 50 58 4D 5A 41 48 4C 3B 41 55 46 20 31 2E 4D 45 |PXMZAHL;AUF 1.ME|
00004310: 4E 55 45 2C 20 53 4F 4E 53 54 00 0F 63 EC 18 20 |NUE, SONST..c.. |
00004320: 42 43 43 4D 4F 4B 41 59 3B 5A 41 45 48 4C 45 52 |BCCMOKAY;ZAEHLER|
00004330: 20 49 4E 4B 52 45 4D 2E 00 1A 63 F6 18 20 4C 44 | INKREM...c.. LD|
00004340: 58 23 30 00 32 63 00 19 20 42 45 51 4D 4F 4B 41 |X#0.2c.. BEQMOKA|
00004350: 59 3B 49 4D 4D 45 52 20 21 21 21 00 38 63 0A 19 |Y;IMMER !!!.8c..|
00004360: 3B 00 5B 63 14 19 4C 45 46 54 20 4A 53 52 48 4F |;.[c..LEFT JSRHO|
00004370: 4C 47 52 3B 55 4E 54 45 52 47 52 55 4E 44 20 48 |LGR;UNTERGRUND H|
00004380: 4F 4C 45 4E 00 83 63 1E 19 20 4A 53 52 4D 4E 4F |OLEN..c.. JSRMNO|
00004390: 52 4D 41 4C 3B 4D 45 4E 55 45 4E 41 4D 45 20 4E |RMAL;MENUENAME N|
000043A0: 4F 52 4D 41 4C 49 53 49 45 52 45 4E 00 A7 63 28 |ORMALISIEREN..c(|
000043B0: 19 20 4C 44 58 4D 43 4F 55 4E 54 3B 57 45 4E 4E |. LDXMCOUNT;WENN|
000043C0: 20 5A 41 45 48 4C 45 52 20 42 45 52 45 49 54 53 | ZAEHLER BEREITS|
000043D0: 00 C5 63 32 19 20 44 45 58 3B 41 55 46 20 31 2E |..c2. DEX;AUF 1.|
000043E0: 4D 45 4E 55 45 3A 20 5A 41 45 48 4C 45 52 00 E2 |MENUE: ZAEHLER..|
000043F0: 63 3C 19 20 43 50 58 23 32 35 35 3B 41 55 46 20 |c<. CPX#255;AUF |
00004400: 4C 41 53 54 20 4D 45 4E 55 45 2C 00 FE 63 46 19 |LAST MENUE,..cF.|
00004410: 20 42 4E 45 4D 4F 4B 41 59 3B 53 4F 4E 53 54 20 | BNEMOKAY;SONST |
00004420: 5A 41 45 48 4C 45 52 00 14 64 50 19 20 4C 44 58 |ZAEHLER..dP. LDX|
00004430: 4D 5A 41 48 4C 3B 44 45 4B 52 45 4D 2E 00 1D 64 |MZAHL;DEKREM...d|
00004440: 5A 19 20 44 45 58 00 23 64 64 19 3B 00 4A 64 6E |Z. DEX.#dd.;.Jdn|
00004450: 19 4D 4F 4B 41 59 20 53 54 58 4D 43 4F 55 4E 54 |.MOKAY STXMCOUNT|
00004460: 3B 4D 45 4E 55 45 4E 55 4D 4D 45 52 20 52 45 54 |;MENUENUMMER RET|
00004470: 54 45 4E 00 73 64 78 19 20 4A 4D 50 41 55 53 47 |TEN.sdx. JMPAUSG|
00004480: 41 42 45 3B 4D 45 4E 55 45 20 41 55 53 47 45 42 |ABE;MENUE AUSGEB|
00004490: 45 4E 20 2B 20 52 54 53 20 21 21 21 00 79 64 82 |EN + RTS !!!.yd.|
000044A0: 19 3B 00 A1 64 8C 19 44 4F 57 4E 20 4C 44 41 50 |.;..d..DOWN LDAP|
000044B0: 4F 49 4E 54 3B 4E 41 45 43 48 53 54 45 53 20 4D |OINT;NAECHSTES M|
000044C0: 45 4E 55 45 2C 20 57 45 4E 4E 00 C3 64 96 19 20 |ENUE, WENN..d.. |
000044D0: 42 4D 49 44 4F 57 4E 31 3B 4C 45 54 5A 54 45 53 |BMIDOWN1;LETZTES|
000044E0: 20 4D 45 4E 55 45 20 4E 49 43 48 54 00 E7 64 A0 | MENUE NICHT..d.|
000044F0: 19 20 4A 53 52 43 4F 4D 4E 4F 52 4D 41 4C 3B 42 |. JSRCOMNORMAL;B|
00004500: 45 52 45 49 54 53 20 45 52 52 45 49 43 48 54 2C |EREITS ERREICHT,|
00004510: 00 08 65 AA 19 44 4F 57 4E 31 20 49 4E 43 50 4F |..e..DOWN1 INCPO|
00004520: 49 4E 54 3B 53 4F 4E 53 54 20 31 2E 4D 45 4E 55 |INT;SONST 1.MENU|
00004530: 45 00 17 65 B4 19 20 4C 44 58 4D 43 4F 55 4E 54 |E..e.. LDXMCOUNT|
00004540: 00 25 65 BE 19 20 4C 44 41 50 4F 49 4E 54 00 37 |.%e.. LDAPOINT.7|
00004550: 65 C8 19 20 43 4D 50 57 4C 41 45 4E 47 45 2C 58 |e.. CMPWLAENGE,X|
00004560: 00 45 65 D2 19 20 42 43 43 44 4F 57 4E 32 00 50 |.Ee.. BCCDOWN2.P|
00004570: 65 DC 19 20 4C 44 41 23 30 00 5E 65 E6 19 20 53 |e.. LDA#0.^e.. S|
00004580: 54 41 50 4F 49 4E 54 00 96 65 F0 19 44 4F 57 4E |TAPOINT..e..DOWN|
00004590: 32 20 4A 53 52 43 4F 4D 49 4E 56 45 52 54 3B 41 |2 JSRCOMINVERT;A|
000045A0: 4B 54 55 45 4C 4C 45 4E 20 4D 45 4E 55 45 50 55 |KTUELLEN MENUEPU|
000045B0: 4E 4B 54 20 49 4E 56 45 52 54 49 45 52 45 4E 00 |NKT INVERTIEREN.|
000045C0: BA 65 FA 19 44 4F 57 4E 33 20 4A 4D 50 47 45 54 |.e..DOWN3 JMPGET|
000045D0: 3B 3D 3E 20 45 49 4E 47 41 42 45 53 43 48 4C 45 |;=> EINGABESCHLE|
000045E0: 49 46 45 00 C0 65 04 1A 3B 00 E4 65 0E 1A 55 50 |IFE..e..;..e..UP|
000045F0: 20 4C 44 41 50 4F 49 4E 54 3B 56 4F 52 49 47 45 | LDAPOINT;VORIGE|
00004600: 52 20 4D 45 4E 55 45 50 55 4E 4B 54 2C 00 0A 66 |R MENUEPUNKT,..f|
00004610: 18 1A 20 42 4D 49 44 4F 57 4E 33 3B 57 45 4E 4E |.. BMIDOWN3;WENN|
00004620: 20 31 2E 4D 45 4E 55 45 50 55 4E 4B 54 20 4E 49 | 1.MENUEPUNKT NI|
00004630: 43 48 54 00 2E 66 22 1A 20 4A 53 52 43 4F 4D 4E |CHT..f". JSRCOMN|
00004640: 4F 52 4D 41 4C 3B 42 45 52 45 49 54 53 20 45 52 |ORMAL;BEREITS ER|
00004650: 52 45 49 43 48 54 2C 00 52 66 2C 1A 20 4C 44 41 |REICHT,.Rf,. LDA|
00004660: 50 4F 49 4E 54 3B 53 4F 4E 53 54 20 4C 41 53 54 |POINT;SONST LAST|
00004670: 20 4D 45 4E 55 45 50 55 4E 4B 54 00 5E 66 36 1A | MENUEPUNKT.^f6.|
00004680: 20 42 4E 45 55 50 31 00 6D 66 40 1A 20 4C 44 58 | BNEUP1.mf@. LDX|
00004690: 4D 43 4F 55 4E 54 00 7F 66 4A 1A 20 4C 44 41 57 |MCOUNT..fJ. LDAW|
000046A0: 4C 41 45 4E 47 45 2C 58 00 8D 66 54 1A 20 53 54 |LAENGE,X..fT. ST|
000046B0: 41 50 4F 49 4E 54 00 9E 66 5E 1A 55 50 31 20 44 |APOINT..f^.UP1 D|
000046C0: 45 43 50 4F 49 4E 54 00 C2 66 68 1A 20 4A 4D 50 |ECPOINT..fh. JMP|
000046D0: 44 4F 57 4E 32 3B 57 45 49 54 45 52 20 57 49 45 |DOWN2;WEITER WIE|
000046E0: 20 42 45 49 20 27 44 4F 57 4E 27 00 C8 66 72 1A | BEI 'DOWN'..fr.|
000046F0: 3B 00 CE 66 7C 1A 3B 00 F4 66 81 1A 3B 2A 2A 2A |;..f|.;..f..;***|
00004700: 20 4D 45 4E 55 45 4E 41 4D 45 20 49 4E 56 45 52 | MENUENAME INVER|
00004710: 54 2E 2F 4E 4F 52 4D 41 4C 2E 2A 2A 2A 00 17 67 |T./NORMAL.***..g|
00004720: 86 1A 43 4F 4D 4E 4F 52 4D 41 4C 20 4C 44 41 23 |..COMNORMAL LDA#|
00004730: 30 3B 4E 4F 52 4D 41 4C 49 53 49 45 52 45 4E 3A |0;NORMALISIEREN:|
00004740: 00 2A 67 90 1A 20 2E 42 59 24 32 43 3B 46 4C 41 |.*g.. .BY$2C;FLA|
00004750: 47 3D 30 00 4B 67 A4 1A 43 4F 4D 49 4E 56 45 52 |G=0.Kg..COMINVER|
00004760: 54 20 4C 44 41 23 31 3B 49 4E 56 45 52 54 49 45 |T LDA#1;INVERTIE|
00004770: 52 45 4E 3A 00 5F 67 AE 1A 20 53 54 41 46 4C 41 |REN:._g.. STAFLA|
00004780: 47 3B 46 4C 41 47 3D 31 00 6E 67 B8 1A 43 4F 4D |G;FLAG=1.ng..COM|
00004790: 31 20 4C 44 41 23 32 00 8A 67 C2 1A 20 43 4C 43 |1 LDA#2..g.. CLC|
000047A0: 3B 49 4E 56 45 52 54 49 45 52 50 41 52 41 4D 45 |;INVERTIERPARAME|
000047B0: 54 45 52 00 AA 67 CC 1A 20 41 44 43 50 4F 49 4E |TER..g.. ADCPOIN|
000047C0: 54 3B 28 4C 49 4E 45 2C 43 4F 4C 2C 42 52 45 49 |T;(LINE,COL,BREI|
000047D0: 54 45 2C 00 C8 67 D6 1A 20 53 54 41 4C 49 4E 45 |TE,..g.. STALINE|
000047E0: 3B 4C 41 45 4E 47 45 29 20 46 55 45 52 20 44 45 |;LAENGE) FUER DE|
000047F0: 4E 00 E8 67 E0 1A 20 4C 44 58 4D 43 4F 55 4E 54 |N..g.. LDXMCOUNT|
00004800: 3B 41 4B 54 55 45 4C 4C 45 4E 20 4D 45 4E 55 45 |;AKTUELLEN MENUE|
00004810: 2D 00 09 68 EA 1A 20 4C 44 41 53 54 41 52 54 2C |-..h.. LDASTART,|
00004820: 58 3B 50 55 4E 4B 54 20 53 45 54 5A 45 4E 20 55 |X;PUNKT SETZEN U|
00004830: 4E 44 00 24 68 F4 1A 20 53 54 41 43 4F 4C 3B 44 |ND.$h.. STACOL;D|
00004840: 49 45 20 49 4E 56 45 52 54 49 45 52 2D 00 41 68 |IE INVERTIER-.Ah|
00004850: FE 1A 20 49 4E 43 43 4F 4C 3B 52 4F 55 54 49 4E |.. INCCOL;ROUTIN|
00004860: 45 20 41 55 46 52 55 46 45 4E 00 53 68 08 1B 20 |E AUFRUFEN.Sh.. |
00004870: 4C 44 41 57 42 52 45 49 54 45 2C 58 00 62 68 12 |LDAWBREITE,X.bh.|
00004880: 1B 20 53 54 41 42 52 45 49 54 45 00 6D 68 1C 1B |. STABREITE.mh..|
00004890: 20 4C 44 41 23 31 00 7C 68 26 1B 20 53 54 41 4C | LDA#1.|h&. STAL|
000048A0: 41 45 4E 47 45 00 93 68 30 1B 20 4A 4D 50 49 4E |AENGE..h0. JMPIN|
000048B0: 56 4A 53 52 3B 52 54 53 20 21 21 21 00 99 68 3A |VJSR;RTS !!!..h:|
000048C0: 1B 3B 00 9F 68 44 1B 3B 00 C5 68 4E 1B 3B 2A 2A |.;..hD.;..hN.;**|
000048D0: 2A 20 4D 45 4E 55 45 50 4B 54 2E 49 4E 56 45 52 |* MENUEPKT.INVER|
000048E0: 54 2F 4E 4F 52 4D 41 4C 49 53 2E 2A 2A 2A 00 E6 |T/NORMALIS.***..|
000048F0: 68 58 1B 4D 4E 4F 52 4D 41 4C 20 4C 44 41 23 30 |hX.MNORMAL LDA#0|
00004900: 3B 4E 4F 52 4D 41 4C 49 53 49 45 52 45 4E 3A 00 |;NORMALISIEREN:.|
00004910: F9 68 62 1B 20 2E 42 59 24 32 43 3B 46 4C 41 47 |.hb. .BY$2C;FLAG|
00004920: 3D 30 00 18 69 76 1B 4D 49 4E 56 45 52 54 20 4C |=0..iv.MINVERT L|
00004930: 44 41 23 31 3B 49 4E 56 45 52 54 49 45 52 45 4E |DA#1;INVERTIEREN|
00004940: 3A 00 2C 69 80 1B 20 53 54 41 46 4C 41 47 3B 46 |:.,i.. STAFLAG;F|
00004950: 4C 41 47 3D 31 00 3B 69 8A 1B 4D 4E 4F 52 20 4C |LAG=1.;i..MNOR L|
00004960: 44 58 23 30 00 5B 69 94 1B 20 53 54 58 4C 49 4E |DX#0.[i.. STXLIN|
00004970: 45 3B 49 4E 56 45 52 54 49 45 52 50 41 52 41 4D |E;INVERTIERPARAM|
00004980: 45 54 45 52 00 77 69 9E 1B 20 49 4E 58 3B 55 45 |ETER.wi.. INX;UE|
00004990: 42 45 52 47 45 42 45 4E 20 28 5A 45 49 4C 45 2C |BERGEBEN (ZEILE,|
000049A0: 00 9D 69 A8 1B 20 53 54 58 4C 41 45 4E 47 45 3B |..i.. STXLAENGE;|
000049B0: 4C 41 45 4E 47 45 2C 46 4C 41 47 20 53 49 4E 44 |LAENGE,FLAG SIND|
000049C0: 20 46 45 53 54 29 00 A3 69 B2 1B 3B 00 C3 69 BC | FEST)..i..;..i.|
000049D0: 1B 20 4C 44 58 4D 43 4F 55 4E 54 3B 53 54 41 52 |. LDXMCOUNT;STAR|
000049E0: 54 53 50 41 41 4C 54 45 20 55 4E 44 00 E3 69 C6 |TSPAALTE UND..i.|
000049F0: 1B 20 4C 44 41 53 54 41 52 54 2C 58 3B 49 4E 56 |. LDASTART,X;INV|
00004A00: 45 52 54 49 45 52 42 52 45 49 54 45 00 F9 69 D0 |ERTIERBREITE..i.|
00004A10: 1B 20 53 54 41 43 4F 4C 3B 42 45 53 54 49 4D 4D |. STACOL;BESTIMM|
00004A20: 45 4E 00 1F 6A DA 1B 20 4C 44 41 4C 45 4E 47 54 |EN..j.. LDALENGT|
00004A30: 48 2C 58 3B 55 4E 44 20 49 4E 56 45 52 54 49 45 |H,X;UND INVERTIE|
00004A40: 52 52 4F 55 54 49 4E 45 00 37 6A E4 1B 20 53 54 |RROUTINE.7j.. ST|
00004A50: 41 42 52 45 49 54 45 3B 41 55 46 52 55 46 45 4E |ABREITE;AUFRUFEN|
00004A60: 00 3D 6A EE 1B 3B 00 54 6A F8 1B 20 4A 4D 50 49 |.=j..;.Tj.. JMPI|
00004A70: 4E 56 4A 53 52 3B 52 54 53 20 21 21 21 00 5A 6A |NVJSR;RTS !!!.Zj|
00004A80: 02 1C 3B 00 60 6A 0C 1C 3B 00 7C 6A 16 1C 3B 2A |..;.`j..;.|j..;*|
00004A90: 2A 2A 20 4D 45 4E 55 45 20 41 55 53 47 45 42 45 |** MENUE AUSGEBE|
00004AA0: 4E 20 2A 2A 2A 00 A6 6A 20 1C 4D 50 52 49 4E 54 |N ***..j .MPRINT|
00004AB0: 20 4A 53 52 57 50 41 52 41 4D 3B 50 4F 49 4E 54 | JSRWPARAM;POINT|
00004AC0: 45 52 20 41 55 46 20 31 2E 4D 45 4E 55 45 2D 00 |ER AUF 1.MENUE-.|
00004AD0: CE 6A 2A 1C 20 4C 44 41 57 50 4F 49 4C 4F 57 2C |.j*. LDAWPOILOW,|
00004AE0: 58 3B 53 54 52 49 4E 47 20 55 45 42 45 52 47 45 |X;STRING UEBERGE|
00004AF0: 42 45 4E 20 55 4E 44 00 F5 6A 34 1C 20 4C 44 59 |BEN UND..j4. LDY|
00004B00: 57 50 4F 49 48 49 47 48 2C 58 3B 4D 41 4C 52 4F |WPOIHIGH,X;MALRO|
00004B10: 55 54 49 4E 45 20 41 55 46 52 55 46 45 4E 00 0C |UTINE AUFRUFEN..|
00004B20: 6B 3E 1C 20 4A 4D 50 57 49 4E 4A 53 52 3B 52 54 |k>. JMPWINJSR;RT|
00004B30: 53 20 21 21 21 00 12 6B 48 1C 3B 00 18 6B 52 1C |S !!!..kH.;..kR.|
00004B40: 3B 00 3D 6B 5C 1C 3B 2A 2A 2A 20 55 4E 54 45 52 |;.=k\.;*** UNTER|
00004B50: 47 52 55 4E 44 20 52 45 54 54 45 4E 2F 48 4F 4C |GRUND RETTEN/HOL|
00004B60: 45 4E 20 2A 2A 2A 00 4E 6B 66 1C 4C 49 45 53 47 |EN ***.Nkf.LIESG|
00004B70: 52 20 4C 44 41 23 30 00 5A 6B 70 1C 20 2E 42 59 |R LDA#0.Zkp. .BY|
00004B80: 24 32 43 00 6A 6B 84 1C 48 4F 4C 47 52 20 4C 44 |$2C.jk..HOLGR LD|
00004B90: 41 23 31 00 77 6B 8E 1C 20 53 54 41 46 4C 41 47 |A#1.wk.. STAFLAG|
00004BA0: 00 9A 6B 98 1C 4C 49 45 53 31 20 4C 44 41 23 30 |..k..LIES1 LDA#0|
00004BB0: 3B 41 55 53 2F 49 4E 20 50 55 46 46 45 52 20 4E |;AUS/IN PUFFER N|
00004BC0: 52 2E 30 00 B9 6B A2 1C 20 53 54 41 50 55 46 46 |R.0..k.. STAPUFF|
00004BD0: 45 52 3B 48 4F 4C 45 4E 2F 53 43 48 52 45 49 42 |ER;HOLEN/SCHREIB|
00004BE0: 45 4E 00 DE 6B AC 1C 20 4A 53 52 57 50 41 52 41 |EN..k.. JSRWPARA|
00004BF0: 4D 3B 57 49 4E 44 4F 57 50 41 52 41 4D 45 54 45 |M;WINDOWPARAMETE|
00004C00: 52 20 48 4F 4C 45 4E 00 04 6C B6 1C 20 4A 4D 50 |R HOLEN..l.. JMP|
00004C10: 50 55 46 46 45 52 4A 53 52 3B 45 49 4E 53 50 52 |PUFFERJSR;EINSPR|
00004C20: 55 4E 47 20 2B 20 52 54 53 20 21 21 21 00 0A 6C |UNG + RTS !!!..l|
00004C30: C0 1C 3B 00 10 6C CA 1C 3B 00 35 6C D4 1C 3B 2A |..;..l..;.5l..;*|
00004C40: 2A 2A 20 57 49 4E 44 4F 57 50 41 52 41 4D 2E 20 |** WINDOWPARAM. |
00004C50: 55 45 42 45 52 47 45 42 45 4E 20 2A 2A 2A 00 59 |UEBERGEBEN ***.Y|
00004C60: 6C DE 1C 57 50 41 52 41 4D 20 4C 44 58 4D 43 4F |l..WPARAM LDXMCO|
00004C70: 55 4E 54 3B 55 45 42 45 52 20 27 4D 43 4F 55 4E |UNT;UEBER 'MCOUN|
00004C80: 54 27 00 7E 6C E8 1C 20 4C 44 41 53 54 41 52 54 |T'.~l.. LDASTART|
00004C90: 2C 58 3B 28 3D 41 4B 54 55 45 4C 4C 45 20 4D 45 |,X;(=AKTUELLE ME|
00004CA0: 4E 55 45 4E 52 2E 29 00 9F 6C F2 1C 20 53 54 41 |NUENR.)..l.. STA|
00004CB0: 43 4F 4C 3B 57 45 52 44 45 4E 20 44 49 45 20 50 |COL;WERDEN DIE P|
00004CC0: 41 52 41 4D 45 54 45 52 00 B8 6C FC 1C 20 4C 44 |ARAMETER..l.. LD|
00004CD0: 41 23 31 3B 44 45 53 20 41 4B 54 55 45 4C 4C 45 |A#1;DES AKTUELLE|
00004CE0: 4E 00 D5 6C 06 1D 20 53 54 41 4C 49 4E 45 3B 57 |N..l.. STALINE;W|
00004CF0: 49 4E 44 4F 57 53 20 41 55 53 20 44 45 4E 00 FA |INDOWS AUS DEN..|
00004D00: 6C 10 1D 20 4C 44 41 57 42 52 45 49 54 45 2C 58 |l.. LDAWBREITE,X|
00004D10: 3B 54 41 42 45 4C 4C 45 4E 20 45 52 4D 49 54 54 |;TABELLEN ERMITT|
00004D20: 45 4C 54 00 15 6D 1A 1D 20 43 4C 43 3B 28 43 4F |ELT..m.. CLC;(CO|
00004D30: 4C 2C 4C 49 4E 45 2C 42 52 45 49 54 45 2C 00 28 |L,LINE,BREITE,.(|
00004D40: 6D 24 1D 20 41 44 43 23 32 3B 4C 41 45 4E 47 45 |m$. ADC#2;LAENGE|
00004D50: 29 00 37 6D 2E 1D 20 53 54 41 42 52 45 49 54 45 |).7m.. STABREITE|
00004D60: 00 49 6D 38 1D 20 4C 44 41 57 4C 41 45 4E 47 45 |.Im8. LDAWLAENGE|
00004D70: 2C 58 00 52 6D 42 1D 20 43 4C 43 00 5D 6D 4C 1D |,X.RmB. CLC.]mL.|
00004D80: 20 41 44 43 23 32 00 6C 6D 56 1D 20 53 54 41 4C | ADC#2.lmV. STAL|
00004D90: 41 45 4E 47 45 00 75 6D 60 1D 20 52 54 53 00 7B |AENGE.um`. RTS.{|
00004DA0: 6D 6A 1D 3B 00 81 6D 74 1D 3B 00 9E 6D 7E 1D 3B |mj.;..mt.;..m~.;|
00004DB0: 2A 2A 2A 20 4B 4F 4D 4D 41 4E 44 4F 2D 54 41 53 |*** KOMMANDO-TAS|
00004DC0: 54 45 4E 20 2A 2A 2A 00 B6 6D 88 1D 4B 45 59 20 |TEN ***..m..KEY |
00004DD0: 2E 42 59 32 39 3B 43 52 53 2E 52 49 47 48 54 00 |.BY29;CRS.RIGHT.|
00004DE0: C2 6D 9C 1D 20 2E 42 59 31 35 37 00 D6 6D A6 1D |.m.. .BY157..m..|
00004DF0: 20 2E 42 59 31 37 3B 43 52 53 2E 44 4F 57 4E 00 | .BY17;CRS.DOWN.|
00004E00: E9 6D B0 1D 20 2E 42 59 31 34 35 3B 43 52 53 2E |.m.. .BY145;CRS.|
00004E10: 55 50 00 FB 6D BA 1D 20 2E 42 59 31 33 3B 52 45 |UP..m.. .BY13;RE|
00004E20: 54 55 52 4E 00 01 6E C4 1D 3B 00 07 6E CE 1D 3B |TURN..n..;..n..;|
00004E30: 00 22 6E D8 1D 3B 2A 2A 2A 20 53 50 52 55 4E 47 |."n..;*** SPRUNG|
00004E40: 54 41 42 45 4C 4C 45 20 2A 2A 2A 00 33 6E EC 1D |TABELLE ***.3n..|
00004E50: 54 41 42 20 2E 57 4F 52 49 47 48 54 00 40 6E F6 |TAB .WORIGHT.@n.|
00004E60: 1D 20 2E 57 4F 4C 45 46 54 00 4D 6E 00 1E 20 2E |. .WOLEFT.Mn.. .|
00004E70: 57 4F 44 4F 57 4E 00 58 6E 0A 1E 20 2E 57 4F 55 |WODOWN.Xn.. .WOU|
00004E80: 50 00 67 6E 14 1E 20 2E 57 4F 52 45 54 55 52 4E |P.gn.. .WORETURN|
00004E90: 00 6D 6E 1E 1E 3B 00 73 6E 28 1E 3B 00 96 6E 2D |.mn..;.sn(.;..n-|
00004EA0: 1E 3B 2A 2A 2A 20 57 49 4E 44 4F 57 50 41 52 41 |.;*** WINDOWPARA|
00004EB0: 4D 2E 2D 54 41 42 45 4C 4C 45 4E 20 2A 2A 2A 00 |M.-TABELLEN ***.|
00004EC0: B5 6E 32 1E 53 54 41 52 54 20 2E 42 59 31 2C 32 |.n2.START .BY1,2|
00004ED0: 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 D5 |,3,4,5,6,7,8,9..|
00004EE0: 6E 3C 1E 4C 45 4E 47 54 48 20 2E 42 59 31 2C 32 |n<.LENGTH .BY1,2|
00004EF0: 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 F3 |,3,4,5,6,7,8,9..|
00004F00: 6E 46 1E 53 49 47 4E 20 2E 42 59 31 2C 32 2C 33 |nF.SIGN .BY1,2,3|
00004F10: 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 14 6F 50 |,4,5,6,7,8,9..oP|
00004F20: 1E 57 42 52 45 49 54 45 20 2E 42 59 31 2C 32 2C |.WBREITE .BY1,2,|
00004F30: 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 35 6F |3,4,5,6,7,8,9.5o|
00004F40: 5A 1E 57 4C 41 45 4E 47 45 20 2E 42 59 31 2C 32 |Z.WLAENGE .BY1,2|
00004F50: 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 56 |,3,4,5,6,7,8,9.V|
00004F60: 6F 64 1E 57 50 4F 49 4C 4F 57 20 2E 42 59 31 2C |od.WPOILOW .BY1,|
00004F70: 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 00 |2,3,4,5,6,7,8,9.|
00004F80: 78 6F 6E 1E 57 50 4F 49 48 49 47 48 20 2E 42 59 |xon.WPOIHIGH .BY|
00004F90: 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C |1,2,3,4,5,6,7,8,|
00004FA0: 39 00 80 6F 40 1F 2E 45 4E 00 00 00 84 08 3B 00 |9..o@..EN.....;.|
00004FB0: 7F 30 8E 08 3B 00 90 30 98 08 50 55 46 46 45 52 |.0..;..0..PUFFER|
00004FC0: 20 4C 44 41 23 30 00 9E 30 A2 08 20 4A 53 52 50 | LDA#0..0.. JSRP|
00004FD0: 41 52 41 4D 00 A4 30 AC 08 3B 00 C1 30 B6 08 50 |ARAM..0..;..0..P|
00004FE0: 55 46 46 45 52 4A 53 52 20 4C 44 41 23 4C 2C 50 |UFFERJSR LDA#L,P|
00004FF0: 55 46 53 54 41 52 54 00 D5 30 C0 08 20 4C 44 58 |UFSTART..0.. LDX|
00005000: 23 48 2C 50 55 46 53 54 41 52 54 00 E4 30 CA 08 |#H,PUFSTART..0..|
00005010: 20 53 54 41 50 55 46 50 4F 49 00 F5 30 D4 08 20 | STAPUFPOI..0.. |
00005020: 53 54 58 50 55 46 50 4F 49 2B 31 00 FB 30 DE 08 |STXPUFPOI+1..0..|
00005030: 3B 00 09 31 E8 08 20 4C 44 58 50 55 46 4E 52 00 |;..1.. LDXPUFNR.|
00005040: 1A 31 F2 08 20 4C 44 41 50 55 46 50 4F 49 2C 58 |.1.. LDAPUFPOI,X|
00005050: 00 2A 31 FC 08 20 53 54 41 50 55 46 46 45 52 50 |.*1.. STAPUFFERP|
00005060: 00 3D 31 06 09 20 4C 44 41 50 55 46 50 4F 49 2B |.=1.. LDAPUFPOI+|
00005070: 31 2C 58 00 4F 31 10 09 20 53 54 41 50 55 46 46 |1,X.O1.. STAPUFF|
00005080: 45 52 50 2B 31 00 55 31 1A 09 3B 00 64 31 24 09 |ERP+1.U1..;.d1$.|
00005090: 20 4A 53 52 45 4E 44 5A 45 49 00 6A 31 2E 09 3B | JSRENDZEI.j1..;|
000050A0: 00 77 31 38 09 20 4C 44 58 4C 49 4E 45 00 83 31 |.w18. LDXLINE..1|
000050B0: 42 09 20 4C 44 59 43 4F 4C 00 8C 31 4C 09 20 43 |B. LDYCOL..1L. C|
000050C0: 4C 43 00 99 31 56 09 20 4A 53 52 50 4C 4F 54 00 |LC..1V. JSRPLOT.|
000050D0: 9F 31 60 09 3B 00 B3 31 6A 09 57 45 49 54 45 52 |.1`.;..1j.WEITER|
000050E0: 20 4A 53 52 4E 4F 49 4E 54 00 C0 31 74 09 20 4C | JSRNOINT..1t. L|
000050F0: 44 41 23 24 33 34 00 CA 31 7E 09 20 53 54 41 31 |DA#$34..1~. STA1|
00005100: 00 D9 31 88 09 20 4A 53 52 49 4E 54 45 49 4E 00 |..1.. JSRINTEIN.|
00005110: EB 31 92 09 20 4C 44 41 4C 49 4E 45 50 4F 49 2B |.1.. LDALINEPOI+|
00005120: 31 00 FD 31 9C 09 20 53 54 41 53 43 52 45 45 4E |1..1.. STASCREEN|
00005130: 50 2B 31 00 0D 32 A6 09 20 4C 44 41 4C 49 4E 45 |P+1..2.. LDALINE|
00005140: 50 4F 49 00 16 32 B0 09 20 43 4C 43 00 22 32 BA |POI..2.. CLC."2.|
00005150: 09 20 41 44 43 43 4F 4C 00 32 32 C4 09 20 53 54 |. ADCCOL.22.. ST|
00005160: 41 53 43 52 45 45 4E 50 00 3F 32 CE 09 20 42 43 |ASCREENP.?2.. BC|
00005170: 43 4F 4B 41 59 00 51 32 D8 09 20 49 4E 43 53 43 |COKAY.Q2.. INCSC|
00005180: 52 45 45 4E 50 2B 31 00 57 32 E2 09 3B 00 6A 32 |REENP+1.W2..;.j2|
00005190: EC 09 4F 4B 41 59 20 4C 44 59 42 52 45 49 54 45 |..OKAY LDYBREITE|
000051A0: 00 73 32 F6 09 20 44 45 59 00 84 32 00 0A 43 4F |.s2.. DEY..2..CO|
000051B0: 50 59 20 4C 44 41 46 4C 41 47 00 92 32 0A 0A 20 |PY LDAFLAG..2.. |
000051C0: 42 4E 45 57 52 49 54 45 00 A6 32 14 0A 20 4C 44 |BNEWRITE..2.. LD|
000051D0: 41 28 53 43 52 45 45 4E 50 29 2C 59 00 BA 32 1E |A(SCREENP),Y..2.|
000051E0: 0A 20 53 54 41 28 50 55 46 46 45 52 50 29 2C 59 |. STA(PUFFERP),Y|
000051F0: 00 C7 32 28 0A 20 42 4E 45 4A 55 4D 50 00 E0 32 |..2(. BNEJUMP..2|
00005200: 32 0A 57 52 49 54 45 20 4C 44 41 28 50 55 46 46 |2.WRITE LDA(PUFF|
00005210: 45 52 50 29 2C 59 00 F4 32 3C 0A 20 53 54 41 28 |ERP),Y..2<. STA(|
00005220: 53 43 52 45 45 4E 50 29 2C 59 00 01 33 46 0A 4A |SCREENP),Y..3F.J|
00005230: 55 4D 50 20 44 45 59 00 0E 33 50 0A 20 42 50 4C |UMP DEY..3P. BPL|
00005240: 43 4F 50 59 00 14 33 5A 0A 3B 00 24 33 64 0A 20 |COPY..3Z.;.$3d. |
00005250: 4C 44 41 50 55 46 46 45 52 50 00 2D 33 6E 0A 20 |LDAPUFFERP.-3n. |
00005260: 43 4C 43 00 3C 33 78 0A 20 41 44 43 42 52 45 49 |CLC.<3x. ADCBREI|
00005270: 54 45 00 4C 33 82 0A 20 53 54 41 50 55 46 46 45 |TE.L3.. STAPUFFE|
00005280: 52 50 00 5B 33 8C 0A 20 42 43 43 4E 4F 49 4E 43 |RP.[3.. BCCNOINC|
00005290: 52 00 6D 33 96 0A 20 49 4E 43 50 55 46 46 45 52 |R.m3.. INCPUFFER|
000052A0: 50 2B 31 00 73 33 A0 0A 3B 00 87 33 AA 0A 4E 4F |P+1.s3..;..3..NO|
000052B0: 49 4E 43 52 20 4A 53 52 4E 4F 49 4E 54 00 94 33 |INCR JSRNOINT..3|
000052C0: B4 0A 20 4C 44 41 23 24 33 37 00 9E 33 BE 0A 20 |.. LDA#$37..3.. |
000052D0: 53 54 41 31 00 AD 33 C8 0A 20 4A 53 52 49 4E 54 |STA1..3.. JSRINT|
000052E0: 45 49 4E 00 B9 33 D2 0A 20 4C 44 41 23 31 37 00 |EIN..3.. LDA#17.|
000052F0: C7 33 DC 0A 20 4A 53 52 42 53 4F 55 54 00 D7 33 |.3.. JSRBSOUT..3|
00005300: E6 0A 20 4C 44 41 43 52 53 4C 49 4E 45 00 E6 33 |.. LDACRSLINE..3|
00005310: F0 0A 20 43 4D 50 4C 41 45 4E 47 45 00 F5 33 FA |.. CMPLAENGE..3.|
00005320: 0A 20 42 4E 45 57 45 49 54 45 52 00 FB 33 04 0B |. BNEWEITER..3..|
00005330: 3B 00 01 34 0E 0B 3B 00 0F 34 18 0B 20 4C 44 58 |;..4..;..4.. LDX|
00005340: 50 55 46 4E 52 00 18 34 22 0B 20 49 4E 58 00 21 |PUFNR..4". INX.!|
00005350: 34 2C 0B 20 54 58 41 00 2B 34 36 0B 20 41 53 4C |4,. TXA.+46. ASL|
00005360: 41 00 34 34 40 0B 20 54 41 58 00 44 34 4A 0B 20 |A.44@. TAX.D4J. |
00005370: 4C 44 41 50 55 46 46 45 52 50 00 55 34 54 0B 20 |LDAPUFFERP.U4T. |
00005380: 53 54 41 50 55 46 50 4F 49 2C 58 00 67 34 5E 0B |STAPUFPOI,X.g4^.|
00005390: 20 4C 44 41 50 55 46 46 45 52 50 2B 31 00 7A 34 | LDAPUFFERP+1.z4|
000053A0: 68 0B 20 53 54 41 50 55 46 50 4F 49 2B 31 2C 58 |h. STAPUFPOI+1,X|
000053B0: 00 81 34 72 0B 20 3B 00 8A 34 7C 0B 20 52 54 53 |..4r. ;..4|. RTS|
000053C0: 00 90 34 86 0B 3B 00 96 34 90 0B 3B 00 AB 34 9A |..4..;..4..;..4.|
000053D0: 0B 4E 4F 49 4E 54 20 4C 44 41 49 4E 54 43 54 52 |.NOINT LDAINTCTR|
000053E0: 4C 00 B8 34 A4 0B 20 41 4E 44 23 24 46 45 00 C8 |L..4.. AND#$FE..|
000053F0: 34 AE 0B 20 53 54 41 49 4E 54 43 54 52 4C 00 D1 |4.. STAINTCTRL..|
00005400: 34 B8 0B 20 52 54 53 00 D7 34 C2 0B 3B 00 ED 34 |4.. RTS..4..;..4|
00005410: CC 0B 49 4E 54 45 49 4E 20 4C 44 41 49 4E 54 43 |..INTEIN LDAINTC|
00005420: 54 52 4C 00 FA 34 D6 0B 20 4F 52 41 23 24 30 31 |TRL..4.. ORA#$01|
00005430: 00 0A 35 E0 0B 20 53 54 41 49 4E 54 43 54 52 4C |..5.. STAINTCTRL|
00005440: 00 13 35 EA 0B 20 52 54 53 00 19 35 F4 0B 3B 00 |..5.. RTS..5..;.|
00005450: 1F 35 FE 0B 3B 00 25 35 08 0C 3B 00 4A 35 12 0C |.5..;.%5..;.J5..|
00005460: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00005470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005480: 00 6F 35 1C 0C 3B 2A 20 53 43 52 45 45 4E 41 55 |.o5..;* SCREENAU|
00005490: 53 53 43 48 4E 49 54 54 20 49 56 45 52 54 49 45 |SSCHNITT IVERTIE|
000054A0: 52 45 4E 20 2A 00 94 35 26 0C 3B 2A 2A 2A 2A 2A |REN *..5&.;*****|
000054B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000054C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9A 35 30 0C 3B |**********..50.;|
000054D0: 00 BE 35 3A 0C 3B 41 55 46 52 55 46 3A 20 53 59 |..5:.;AUFRUF: SY|
000054E0: 53 20 58 58 58 58 2C 53 50 41 4C 54 45 2C 5A 45 |S XXXX,SPALTE,ZE|
000054F0: 49 4C 45 2C 00 DE 35 44 0C 3B 20 20 20 20 20 20 |ILE,..5D.; |
00005500: 20 20 42 52 45 49 54 45 2C 4C 41 45 4E 47 45 2C | BREITE,LAENGE,|
00005510: 46 4C 41 47 00 E4 35 4E 0C 3B 00 07 36 58 0C 3B |FLAG..5N.;..6X.;|
00005520: 46 55 4E 4B 54 49 4F 4E 3A 20 49 4E 56 45 52 54 |FUNKTION: INVERT|
00005530: 49 45 52 54 2F 4E 4F 52 4D 41 4C 49 2D 00 2D 36 |IERT/NORMALI-.-6|
00005540: 62 0C 3B 20 20 20 20 20 20 20 20 20 20 53 49 45 |b.; SIE|
00005550: 52 54 20 45 49 4E 45 4E 20 42 45 4C 2E 20 42 49 |RT EINEN BEL. BI|
00005560: 4C 44 2D 00 51 36 6C 0C 3B 20 20 20 20 20 20 20 |LD-.Q6l.; |
00005570: 20 20 20 53 43 48 49 52 4D 54 45 49 4C 20 41 42 | SCHIRMTEIL AB|
00005580: 20 41 4E 47 45 47 2E 00 7C 36 76 0C 33 31 38 30 | ANGEG..|6v.3180|
00005590: 20 2D 3B 20 20 20 20 20 20 20 20 20 20 53 43 48 | -; SCH|
000055A0: 49 52 4D 54 45 49 4C 2E 20 C1 42 20 41 4E 47 45 |IRMTEIL. .B ANGE|
000055B0: 47 2E 00 A1 36 80 0C 3B 20 20 20 20 20 20 20 20 |G...6..; |
000055C0: 20 20 53 43 48 49 52 4D 54 45 49 4C 2E 20 C1 42 | SCHIRMTEIL. .B|
000055D0: 20 41 4E 47 45 47 2E 00 C3 36 8A 0C 3B 20 20 20 | ANGEG...6..; |
000055E0: 20 20 20 20 20 20 20 50 4F 53 49 54 49 4F 4E 20 | POSITION |
000055F0: 27 53 50 41 4C 54 45 27 2F 00 E3 36 94 0C 3B 20 |'SPALTE'/..6..; |
00005600: 20 20 20 20 20 20 20 20 20 27 5A 45 49 4C 45 27 | 'ZEILE'|
00005610: 20 57 49 52 44 20 45 49 4E 00 03 37 9E 0C 3B 20 | WIRD EIN..7..; |
00005620: 20 20 20 20 20 20 20 20 20 52 45 43 48 54 45 43 | RECHTEC|
00005630: 4B 20 4D 49 54 20 44 45 52 00 28 37 A8 0C 3B 20 |K MIT DER.(7..; |
00005640: 20 20 20 20 20 20 20 20 20 42 52 45 49 54 45 20 | BREITE |
00005650: 27 42 52 45 49 54 45 27 20 55 2E 44 45 52 00 4E |'BREITE' U.DER.N|
00005660: 37 B2 0C 3B 20 20 20 20 20 20 20 20 20 20 4C 41 |7..; LA|
00005670: 45 4E 47 45 20 27 4C 41 45 4E 47 45 27 20 42 45 |ENGE 'LAENGE' BE|
00005680: 48 41 4E 2D 00 63 37 BC 0C 3B 20 20 20 20 20 20 |HAN-.c7..; |
00005690: 20 20 20 20 44 45 4C 54 2E 00 86 37 C6 0C 3B 20 | DELT...7..; |
000056A0: 20 20 20 20 20 20 20 20 20 46 4C 41 47 3A 20 30 | FLAG: 0|
000056B0: 3D 49 4E 56 45 52 54 49 45 52 45 4E 00 AB 37 D0 |=INVERTIEREN..7.|
000056C0: 0C 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
000056D0: 20 20 31 3D 4E 4F 52 4D 41 4C 49 53 49 45 52 45 | 1=NORMALISIERE|
000056E0: 4E 00 B1 37 DA 0C 3B 00 D1 37 E4 0C 3B 42 53 50 |N..7..;..7..;BSP|
000056F0: 2E 3A 20 53 59 53 20 58 58 58 58 2C 32 2C 35 2C |.: SYS XXXX,2,5,|
00005700: 31 30 2C 31 35 2C 30 00 F4 37 EE 0C 3B 20 20 20 |10,15,0..7..; |
00005710: 20 20 20 49 4E 56 45 52 54 49 45 52 54 20 45 49 | INVERTIERT EI|
00005720: 4E 20 52 45 43 48 54 45 43 4B 00 1A 38 F8 0C 3B |N RECHTECK..8..;|
00005730: 20 20 20 20 20 20 4D 49 54 20 44 45 52 20 4F 42 | MIT DER OB|
00005740: 45 52 45 4E 20 4C 49 4E 4B 45 4E 20 45 43 4B 45 |EREN LINKEN ECKE|
00005750: 00 40 38 02 0D 3B 20 20 20 20 20 20 32 2F 35 2C |.@8..; 2/5,|
00005760: 20 44 45 52 20 42 52 45 49 54 45 20 31 30 20 53 | DER BREITE 10 S|
00005770: 50 41 4C 54 45 4E 00 61 38 0C 0D 3B 20 20 20 20 |PALTEN.a8..; |
00005780: 20 20 55 4E 44 20 31 35 20 5A 45 49 4C 45 4E 20 | UND 15 ZEILEN |
00005790: 4C 41 45 4E 47 45 2E 00 67 38 16 0D 3B 00 6D 38 |LAENGE..g8..;.m8|
000057A0: 20 0D 3B 00 7E 38 2A 0D 49 4E 56 45 52 54 20 4C | .;.~8*.INVERT L|
000057B0: 44 41 23 35 00 8C 38 34 0D 20 4A 53 52 50 41 52 |DA#5..84. JSRPAR|
000057C0: 41 4D 00 92 38 3E 0D 3B 00 A7 38 48 0D 49 4E 56 |AM..8>.;..8H.INV|
000057D0: 4A 53 52 20 4A 53 52 45 4E 44 5A 45 49 00 B6 38 |JSR JSRENDZEI..8|
000057E0: 52 0D 20 44 45 43 42 52 45 49 54 45 00 C3 38 5C |R. DECBREITE..8\|
000057F0: 0D 20 4C 44 58 4C 49 4E 45 00 C9 38 66 0D 3B 00 |. LDXLINE..8f.;.|
00005800: D6 38 70 0D 49 4E 56 32 20 43 4C 43 00 E3 38 7A |.8p.INV2 CLC..8z|
00005810: 0D 20 4A 53 52 50 4C 4F 54 00 E9 38 84 0D 3B 00 |. JSRPLOT..8..;.|
00005820: F9 38 8E 0D 20 4C 44 41 4C 49 4E 45 50 4F 49 00 |.8.. LDALINEPOI.|
00005830: 02 39 98 0D 20 43 4C 43 00 0E 39 A2 0D 20 41 44 |.9.. CLC..9.. AD|
00005840: 43 43 4F 4C 00 1E 39 AC 0D 20 53 54 41 4C 49 4E |CCOL..9.. STALIN|
00005850: 45 50 4F 49 00 2B 39 B6 0D 20 42 43 43 49 4E 56 |EPOI.+9.. BCCINV|
00005860: 33 00 3D 39 C0 0D 20 49 4E 43 4C 49 4E 45 50 4F |3.=9.. INCLINEPO|
00005870: 49 2B 31 00 43 39 CA 0D 3B 00 56 39 D4 0D 49 4E |I+1.C9..;.V9..IN|
00005880: 56 33 20 4C 44 59 42 52 45 49 54 45 00 6E 39 DE |V3 LDYBREITE.n9.|
00005890: 0D 49 4E 56 31 20 4C 44 41 28 4C 49 4E 45 50 4F |.INV1 LDA(LINEPO|
000058A0: 49 29 2C 59 00 7B 39 E8 0D 20 4C 44 58 46 4C 41 |I),Y.{9.. LDXFLA|
000058B0: 47 00 88 39 F2 0D 20 42 45 51 4E 4F 52 4D 00 95 |G..9.. BEQNORM..|
000058C0: 39 FC 0D 20 4F 52 41 23 24 38 30 00 A1 39 06 0E |9.. ORA#$80..9..|
000058D0: 20 2E 42 59 24 32 43 00 B2 39 10 0E 4E 4F 52 4D | .BY$2C..9..NORM|
000058E0: 20 41 4E 44 23 24 37 46 00 C6 39 1A 0E 20 53 54 | AND#$7F..9.. ST|
000058F0: 41 28 4C 49 4E 45 50 4F 49 29 2C 59 00 CF 39 24 |A(LINEPOI),Y..9$|
00005900: 0E 20 44 45 59 00 DC 39 2E 0E 20 42 50 4C 49 4E |. DEY..9.. BPLIN|
00005910: 56 31 00 E2 39 38 0E 3B 00 EF 39 42 0E 20 49 4E |V1..98.;..9B. IN|
00005920: 43 4C 49 4E 45 00 FC 39 4C 0E 20 4C 44 58 4C 49 |CLINE..9L. LDXLI|
00005930: 4E 45 00 0B 3A 56 0E 20 43 50 58 4C 41 45 4E 47 |NE..:V. CPXLAENG|
00005940: 45 00 18 3A 60 0E 20 42 4E 45 49 4E 56 32 00 21 |E..:`. BNEINV2.!|
00005950: 3A 6A 0E 20 52 54 53 00 27 3A 74 0E 3B 00 2D 3A |:j. RTS.':t.;.-:|
00005960: 7E 0E 3B 00 33 3A 88 0E 3B 00 57 3A 92 0E 3B 2A |~.;.3:..;.W:..;*|
00005970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7B 3A |*************.{:|
00005990: 9C 0E 3B 2A 20 50 55 4C 4C 2D 44 4F 57 4E 2D 4D |..;* PULL-DOWN-M|
000059A0: 45 4E 55 45 53 20 56 45 52 57 41 4C 54 45 4E 20 |ENUES VERWALTEN |
000059B0: 2A 00 9F 3A A6 0E 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*..:..;*********|
000059C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000059D0: 2A 2A 2A 2A 2A 00 C5 3A B0 0E 3B 41 55 46 52 55 |*****..:..;AUFRU|
000059E0: 46 3A 53 59 53 20 58 58 58 58 2C 4D 45 4E 55 45 |F:SYS XXXX,MENUE|
000059F0: 24 2C 4D 45 4E 55 45 24 28 58 29 00 CB 3A BA 0E |$,MENUE$(X)..:..|
00005A00: 3B 00 ED 3A C4 0E 3B 46 55 4E 4B 54 49 4F 4E 3A |;..:..;FUNKTION:|
00005A10: 20 56 45 52 57 41 4C 54 45 54 20 42 45 4C 49 45 | VERWALTET BELIE|
00005A20: 42 49 47 00 12 3B CE 0E 3B 20 20 20 20 20 20 20 |BIG..;..; |
00005A30: 20 20 20 56 49 45 4C 45 20 50 55 4C 4C 2D 44 2E | VIELE PULL-D.|
00005A40: 2D 4D 45 4E 55 45 53 2E 00 37 3B D8 0E 3B 20 20 |-MENUES..7;..; |
00005A50: 20 20 20 20 20 20 20 20 27 4D 45 4E 55 45 24 27 | 'MENUE$'|
00005A60: 20 45 4E 54 48 41 45 4C 54 20 44 49 45 00 5C 3B | ENTHAELT DIE.\;|
00005A70: E2 0E 3B 20 20 20 20 20 20 20 20 20 20 27 4D 45 |..; 'ME|
00005A80: 4E 55 45 4C 45 49 53 54 45 27 20 4D 49 54 20 44 |NUELEISTE' MIT D|
00005A90: 45 4E 00 80 3B EC 0E 3B 20 20 20 20 20 20 20 20 |EN..;..; |
00005AA0: 20 20 4F 42 45 52 42 45 47 52 49 46 46 45 4E 2C | OBERBEGRIFFEN,|
00005AB0: 20 5A 2E 42 2E 3A 00 A4 3B F6 0E 3B 20 20 20 20 | Z.B.:..;..; |
00005AC0: 20 20 20 20 20 20 41 24 3D 27 46 49 4C 45 20 45 | A$='FILE E|
00005AD0: 44 49 54 20 44 49 53 4B 27 2E 00 CA 3B 00 0F 3B |DIT DISK'...;..;|
00005AE0: 20 20 20 20 20 20 20 20 20 20 27 4D 45 4E 55 45 | 'MENUE|
00005AF0: 24 28 58 29 27 20 4B 45 4E 4E 5A 45 49 43 48 2D |$(X)' KENNZEICH-|
00005B00: 00 EF 3B 0A 0F 3B 20 20 20 20 20 20 20 20 20 20 |..;..; |
00005B10: 4E 45 54 20 44 45 4E 20 49 4E 48 41 4C 54 20 44 |NET DEN INHALT D|
00005B20: 45 52 20 31 2E 00 13 3C 14 0F 3B 20 20 20 20 20 |ER 1...<..; |
00005B30: 20 20 20 20 20 5A 45 49 4C 45 20 44 45 53 20 31 | ZEILE DES 1|
00005B40: 2E 50 55 4C 4C 2D 44 2E 2D 00 39 3C 1E 0F 3B 20 |.PULL-D.-.9<..; |
00005B50: 20 20 20 20 20 20 20 20 20 4D 45 4E 55 45 53 2E | MENUES.|
00005B60: 20 44 45 52 20 49 4E 48 41 4C 54 20 44 45 52 00 | DER INHALT DER.|
00005B70: 5E 3C 28 0F 3B 20 20 20 20 20 20 20 20 20 20 31 |^<(.; 1|
00005B80: 2E 2F 33 2E 20 45 54 43 2E 20 5A 45 49 4C 45 20 |./3. ETC. ZEILE |
00005B90: 4D 55 53 53 00 84 3C 32 0F 3B 20 20 20 20 20 20 |MUSS..<2.; |
00005BA0: 20 20 20 20 53 49 43 48 20 49 4E 20 27 4D 45 4E | SICH IN 'MEN|
00005BB0: 55 45 24 28 58 2B 31 29 27 2C 00 A6 3C 3C 0F 3B |UE$(X+1)',..<<.;|
00005BC0: 20 20 20 20 20 20 20 20 20 20 27 4D 45 4E 55 45 | 'MENUE|
00005BD0: 24 28 58 2B 32 29 27 20 45 54 43 2E 00 BF 3C 46 |$(X+2)' ETC...<F|
00005BE0: 0F 3B 20 20 20 20 20 20 20 20 20 20 42 45 46 49 |.; BEFI|
00005BF0: 4E 44 45 4E 2E 00 E3 3C 50 0F 3B 20 20 20 20 20 |NDEN...<P.; |
00005C00: 20 20 20 20 20 44 49 45 20 45 49 4E 5A 45 4C 4E | DIE EINZELN|
00005C10: 45 4E 20 4D 45 4E 55 45 53 00 09 3D 5A 0F 3B 20 |EN MENUES..=Z.; |
00005C20: 20 20 20 20 20 20 20 20 20 57 45 52 44 45 4E 20 | WERDEN |
00005C30: 4D 49 54 20 4C 45 45 52 53 54 52 49 4E 47 53 00 |MIT LEERSTRINGS.|
00005C40: 2F 3D 64 0F 3B 20 20 20 20 20 20 20 20 20 20 47 |/=d.; G|
00005C50: 45 54 52 45 4E 4E 54 2C 20 44 45 52 45 4E 20 4C |ETRENNT, DEREN L|
00005C60: 41 45 4E 47 45 00 54 3D 6E 0F 3B 20 20 20 20 20 |AENGE.T=n.; |
00005C70: 20 20 20 20 20 44 45 52 20 47 45 57 55 45 4E 53 | DER GEWUENS|
00005C80: 43 48 54 45 4E 20 57 49 4E 2D 00 79 3D 78 0F 3B |CHTEN WIN-.y=x.;|
00005C90: 20 20 20 20 20 20 20 20 20 20 44 4F 57 4C 41 45 | DOWLAE|
00005CA0: 4E 47 45 20 45 4E 54 53 50 52 49 43 48 54 2E 00 |NGE ENTSPRICHT..|
00005CB0: 9D 3D 7D 0F 3B 20 20 20 20 20 20 20 20 20 20 44 |.=}.; D|
00005CC0: 41 53 20 45 4E 44 45 20 44 45 53 20 4C 45 54 5A |AS ENDE DES LETZ|
00005CD0: 54 45 4E 00 C0 3D 7E 0F 3B 20 20 20 20 20 20 20 |TEN..=~.; |
00005CE0: 20 20 20 55 4E 54 45 52 4D 45 4E 55 45 53 20 57 | UNTERMENUES W|
00005CF0: 49 52 44 20 41 4E 00 E3 3D 7F 0F 3B 20 20 20 20 |IRD AN..=..; |
00005D00: 20 20 20 20 20 20 45 49 4E 45 4D 20 53 50 41 43 | EINEM SPAC|
00005D10: 45 20 45 52 4B 41 4E 4E 54 00 E9 3D 82 0F 3B 00 |E ERKANNT..=..;.|
00005D20: 06 3E 8C 0F 3B 42 53 50 2E 3A 20 53 59 53 20 58 |.>..;BSP.: SYS X|
00005D30: 58 58 58 2C 41 24 2C 41 24 28 31 29 00 2A 3E 96 |XXX,A$,A$(1).*>.|
00005D40: 0F 3B 20 20 20 20 20 20 56 45 52 57 41 4C 54 45 |.; VERWALTE|
00005D50: 54 20 5A 2E 42 2E 20 46 4F 4C 47 45 4E 44 45 53 |T Z.B. FOLGENDES|
00005D60: 00 4E 3E A0 0F 3B 20 20 20 20 20 20 50 55 4C 4C |.N>..; PULL|
00005D70: 2D 44 4F 57 4E 2D 4D 45 4E 55 45 20 4D 49 54 20 |-DOWN-MENUE MIT |
00005D80: 5A 57 45 49 00 66 3E AA 0F 3B 20 20 20 20 20 20 |ZWEI.f>..; |
00005D90: 55 4E 54 45 52 4D 45 4E 55 45 53 3A 00 80 3E B4 |UNTERMENUES:..>.|
00005DA0: 0F 3B 20 20 20 20 20 20 41 24 3D 27 46 49 4C 45 |.; A$='FILE|
00005DB0: 20 44 49 53 4B 27 00 9E 3E BE 0F 3B 20 20 20 20 | DISK'..>..; |
00005DC0: 20 20 41 24 28 31 29 3D 27 20 20 20 20 20 20 20 | A$(1)=' |
00005DD0: 20 20 20 27 00 BB 3E C8 0F 3B 20 20 20 20 20 20 | '..>..; |
00005DE0: 41 24 28 32 29 3D 27 4C 4F 41 44 20 46 49 4C 45 |A$(2)='LOAD FILE|
00005DF0: 27 00 D8 3E D2 0F 3B 20 20 20 20 20 20 41 24 28 |'..>..; A$(|
00005E00: 33 29 3D 27 53 41 56 45 20 46 49 4C 45 27 00 F6 |3)='SAVE FILE'..|
00005E10: 3E DC 0F 3B 20 20 20 20 20 20 41 24 28 34 29 3D |>..; A$(4)=|
00005E20: 27 4D 45 52 47 45 20 46 49 4C 45 27 00 14 3F E6 |'MERGE FILE'..?.|
00005E30: 0F 3B 20 20 20 20 20 20 41 24 28 35 29 3D 27 20 |.; A$(5)=' |
00005E40: 20 20 20 20 20 20 20 20 20 27 00 2E 3F F0 0F 3B | '..?..;|
00005E50: 20 20 20 20 20 20 41 24 28 36 29 3D 27 52 45 4E | A$(6)='REN|
00005E60: 41 4D 45 27 00 46 3F FA 0F 3B 20 20 20 20 20 20 |AME'.F?..; |
00005E70: 41 24 28 37 29 3D 27 43 4F 50 59 27 00 61 3F 04 |A$(7)='COPY'.a?.|
00005E80: 10 3B 20 20 20 20 20 20 41 24 28 38 29 3D 27 53 |.; A$(8)='S|
00005E90: 43 52 41 54 43 48 27 00 7B 3F 0E 10 3B 20 20 20 |CRATCH'.{?..; |
00005EA0: 20 20 20 41 24 28 39 29 3D 27 46 4F 52 4D 41 54 | A$(9)='FORMAT|
00005EB0: 27 00 99 3F 18 10 3B 20 20 20 20 20 20 41 24 28 |'..?..; A$(|
00005EC0: 31 30 29 3D 27 44 49 52 45 43 54 4F 52 59 27 00 |10)='DIRECTORY'.|
00005ED0: B6 3F 22 10 3B 20 20 20 20 20 20 41 24 28 31 31 |.?".; A$(11|
00005EE0: 29 3D 27 56 41 4C 49 44 41 54 45 27 00 CC 3F 2C |)='VALIDATE'..?,|
00005EF0: 10 3B 20 20 20 20 20 20 41 24 28 31 32 29 3D 27 |.; A$(12)='|
00005F00: 20 27 00 00 00 | '... |
X.....;***************************.. ..;
* ROUTINEN ZUR VERWALTUNG *.; ..;* VON
PULL-DOWN-MENUES *.\ (.;* (C) S.BALO
UI, 1986 *.} 2.;*********************
******.. <.;.. F.;.. P.;.. D.;*** LABEL:
BETRIEBSSYSTEM ***.. N..EQ GETIN = $
FFE4 ;ZEICHEN VON TASTATUR LESEN.)!X..E
Q CHKKOM = $AEFD ;BASIC-TEXT: NAECHST
ES ZEICHEN: KOMMA?.L!...EQ GETBYT = $B
79E ;BASIC-TEXT: BYTEWERT HOLEN (X-REGI
STER)..!...EQ GETPOS = $B08B ;BASIC-T
EXT: POINTER AUF VARIABLE HOLEN.W!...EQ
PLOT = $FFF0 ;CURSOR SETZEN.." ..EQ
BSOUT = $FFD2 ;ZEICHEN AUSSGEBEN.."
..;.."..;.4"..;*** LABEL: PROGRAMMMINTER
N ***.P"...EQ PARBACK = $A7 ;AUSWA
HLRUECKUEBERGABE AN BASIC.."...EQ INDIZ
= $A9 ;POINTER F.INDIZIERTE ADRE
SSIERUNG.."H..EQ INDIZ1 = $AB ;PO
INTER F.INDIZIERTE ADRESSIERUNG.9#J..EQ
STRLEN = $AD ;LAENGE DER VON BASI
C UEBERGEB.STRINGVARIABLEN.Z#L..EQ STRPO
S = $AE ;POINTER AUF UEBERGEB.STR
INGVARIABLE..#R..EQ CNTI = $0334
;ZAEHLER.D#...EQ CNTJ = CNTI+1 ;ZA
EHLER..#...EQ COL = CNTJ+1 ;SPALT
E MERKEN..$...EQ LINE = COL+1 ;ZE
ILE MERKEN.L$...EQ BREITE = LINE+1 ;
RECHTECKBREITE MERKEN.$...EQ LAENGE =
BREITE+1 ;RECHTECKLAENGE MERKEN..$...EQ
FLAG = LAENGE+1.W$...EQ PUFNR =
FLAG+1 ;NR.DES ANZUSPRECHENDEN PUFFERS
..$6..EQ ROUTIN = PUFNR+2..$@.;..$J.;.
.%T.;.)%^.;*** LABELS F.PUFFER-ROUTINE *
**.[%H..EQ SCREENP = INDIZ ;POINTER AU
F BILDSCHIRM..%R..EQ PUFFERP = INDIZ1 ;
POINTER AUF PUFFER.S%|..EQ PUFPOI = $0
293 ;TABELLE MIT STARTADRESSEN DER AKTU
ELLEN PUFFER..%...EQ PUFSTART = $F000 ;
PUFFERANFANG.:&...EQ INTCTRL = $DC0E ;
VIC-REGISTER ZUR INTERRUPTKONTROLLE.A&..
.EQ CRSLINE = 214 ;CURSORZEILE..&...
EQ LINEPOI = 209 ;POINTER AUF CURSOR
ZEILE..&..;. &..;..&B.;.C&L..BA $C600 ;P
ROGRAMMSTART.I&V.;.O&..;.U&..;..&..;***
SPRUNGVERTEILER ***..'.. JMPWINDOW..'..
JMPPUFFER..'.. JMPINVERT.-'.. JMPCNTRL.3
'&.;.9'0.;.?':.;.B'D.;******************
***********..'N.;*** GEMEINSAME UNTERPRO
GS ***..'X.;****************************
*..'B.;.K'L.;*** PARAMETER LESEN ***..'V
.PARAM STACNTI;LIEST BELIEBIGE..(.. LDX#
0;ANZAHL AN.$(..LESEN STXCNTJ;EIN-BYTE-W
ERTEN.F(.. JSRCHKKOM;AUS DEM BASIC-TEXT.
B(.. JSRGETBYT;UND LEGT SIE.X(.. TXA;AB
'COL' AB...(.. LDXCNTJ..(.. STACOL,X..(F
. INX..(P. CPXCNTI..(Z. BNELESEN..(.. RT
S.F(..;.L(..;..(..;*** STRINGDESCRIPTORE
N HOLEN ***..)..HOLDES LDY#2;HOLT DIE ST
RING-.>)..HOLDES1 LDA(INDIZ),Y;DESCRIPTO
REN DER.D) . STASTRLEN,Y;UEBERGEBENEN ST
RING-.W)*. DEY;VARIABLEN..)4. BPLHOLDES1
;LAENGE/POINTER AUF STRING..)>. RTS..)H.
;..)R.;.Z)\.;*** INDIZ(+1)=>NEXT STRING
***..*F.NEXTSTR LDAINDIZ;ERHOEHT EINEN P
OINTER.%*P. CLC;(IN 'INDIZ') AUF EINEN.E
*Z. ADC#3;STRINGDESCRIPTOR, SO.G*.. STAI
NDIZ;DASS DIESER AUF DEN..*.. BCCNEXT1;N
AECHSTEN DESCRIPTOR..*.. INCINDIZ+1;WEIS
T (INDIZ=INDIZ+3)..*..NEXT1 RTS.D*..;.J*
..;..*..;*** ENDZEILE BERECHNEN ***..+J.
ENDZEI LDALINE;BERECHNET DIE NUMMER DER.
8+T. CLC;LETZTEN ZEILE DES ANGEG..]+.. A
DCLAENGE;RECHTECKS (LASTZEILE=.+.. STAL
AENGE;STARTZEILE+LAENGE)..+.. RTS..+..;.
.+..;..+..;..+..;***********************
**.X+$.;* WINDOW + INHALT MALEN *..+..;*
************************..+8.;.!,B.;AUFR
UF: SYS XXXX,SPALTE,ZEILE,.B,L.;
BREITE,LAENGE,ARRAY.H,V.;.K,`.;FUNKTION:
MALT EIN WINDOW DER..,J.; ANGE
GEBENEN GROESSE..,T.; ('BREITE
','LAENGE').X,~.; AB DER POSIT.
'SPALTE'/..,..; 'ZEILE' UND FUE
LLT DIE.!-..; INNENZEILEN MIT D
EN.G-..; ANGEGEB. ARRAYSTRINGS,
.K-..; DEREN ANZAHL MINDES-..-
.; TENS EBENSO GROSS WIE..-..;
DIE ANZAHL DER INNEN-.V-..;
ZEILEN SEIN MUSS...-..;.....;BSP.:
SYS XXXX,2,5,10,15,A$(2)."...; MAL
T WINDOW MIT LINKER.F.D.; ECKE 2/5,
DAS 10 SPALTEN.J.N.; BREIT UND 15
ZEILEN LANG...X.; IST; DIE INNENZEI
LEN WER-.....; DEN MIT 'A$(2)'-'A$(
15)'.G...; GEFUELLT.M...;.S...;....
.WINDOW LDA#4;4 BYTEWERTE HOLEN../.. JSR
PARAM../..;.+/(. JSRCHKKOM;STRINGDESCRRI
PTOR.@/2. JSRGETPOS;HOLEN.F/<.;.O/F.WINJ
SR STAINDIZ;UND NACH 'INDIZ(+1)'../P. ST
YINDIZ+1;SCHAFFEN../Z.;../D. JSRENDZEI;L
ETZTE WINDOWZEILE.I/N. DECLAENGE;KORREKT
UR../X. DECBREITE;KORREK-../.. DECBREITE
;TUR../..;../..;..0 .;*** ERSTE ZEILE MA
LEN ***.30.. LDA#0;FLAG=0 =>.U0.. STAFLA
G;OHNE STRING AUSGEBEN.C0.. JSRMALEN.I0H
.;.O0R.;..0..;*** INNENZEILEN MALEN ***.
.0.. INCFLAG;FLAG=0 =>.M0..INNEN JSRHOLD
ES;ZEILEN MIT INHALTEN..0.. JSRMALEN;DER
ARRAYSTRINGS FUELLEN..1.. JSRNEXTSTR."1
.. LDALINE;ALLE INNENZEILEN.=1.. CMPLAEN
GE;AUSGEGEBEN?.S1". BNEINNEN;NEIN =>.Y1,
.;._16.;.1@.;*** LETZTE ZEILE MALEN ***
..1J. INCFLAG;FLAG=2 =>..1T. JMPMALEN;ZE
ILE OHNE STRINGINHALTE.C1^.;.I1H.;..1R.;
*** ZEILE MALEN ***..2|.MALEN LDXLINE;CU
RSOR SETZEN..2.. LDYCOL..2.. CLC.$2.. JS
RPLOT.12.. LDXFLAG.P2.. LDALINKS,X;LINKE
S ZEICHEN.G2.. JSRBSOUT;AUSGEBEN..2B. LD
Y#0;MITTLERES ZEICHEN..2L.LOOP LDAMITTE,
X;LADEN UND AUSGEBEN,.A2V. CPX#1;WENN FL
AG.Y2.. BNENOSTRING;<>1 =>..2.. CPYSTRLE
N;ODER STRINGENDE..3.. BCSNOSTRING;ERREI
CHT =>.<3.. LDA(STRPOS),Y;SONST STRINGZE
ICHEN.[3..NOSTRING JSRBSOUT;AUSGEBEN.U3.
. INY;ZEILE -1 ZEICHEN..3.. CPYBREITE;KO
MPLETT AUSGEGEBEN?..3&. BNELOOP;NEIN =>.
F30. INCLINE;NEXT ZEILE..3:. LDARECHTS,X
;RECHTES ZEICHEN..4D. JMPBSOUT;AUSGEBEN
+ RTS !!!..4N.;.'4X.LINKS .BY176,125,173
.=4B.MITTE .BY96,32,96.W4L.RECHTS .BY174
,125,189.]4V.;.C4..;.I4..;..4..;********
************************..4..;* WINDOWUN
TERGRUND RETTEN/HOLEN*..4..;************
********************..4..;..5..;AUFRUF:S
YS XXXX,SPALTE,ZEILE,.*5F.; BREITE
,LAENGE,FLAG,PUFFER.05P.;.Q5Z.;FUNKTION:
KOPIERT DEN DURCH.U5..; 'SPALT
E'/'ZEILE' UND..5..; 'BREITE' B
ZW.'LAENGE'..5..; ANGEGEBENEN B
ILD-..5..; SCHIRMAUSSCHNITT IN.
.6..; PUFFER NR.'PUFFER',..6..;
WENN 'FLAG'=1..D6 .;
'FLAG'=1 =>DER INHALT.J6*.; DES
ANGEG.PUFFERS WIRD..64.; IN DE
N ANGEG. BILD-..6>.; SCHIRMAUSS
CHNITT.E6H.; KOPIERT...6J.;
PUFFER: NUMERIERUNG..7L.;
BEGINNT BEI 0; MAX...7N.; PUFF
ERBEREICH: 2 KB.47P.;.V7R.;BSP.: SYS XXX
X,2,5,10,15,1,0.Z7\.; WINDOW MIT LI
NKER OBERER..7F.; ECKE 2/5, BREITE
10 SPAL-.D7P.; TEN U.LAENGE 15 ZEIL
EN IN..7Z.; PUFFER NR.0 SCHREIBEN..
.7..;..7..;..8..PUFFER LDA#6;6 BYTEWERTE
LESEN.#8.. JSRPARAM.)8..;.R8..PUFFERJSR
LDA<(PUFSTART);POINTER AUF.R8.. LDX>(PU
FSTART);PUFFER NR.0..8J. STAPUFPOI;ERZEU
GEN..8T. STXPUFPOI+1..8..;.B8.. LDXPUFNR
;ADRESSE DES ANGEG...8.. LDAPUFPOI,X;PUF
FERS NACH..8.. STAPUFFERP;'PUFPOI(+1)'..
9.. LDAPUFPOI+1,X;KOPIEREN.+9.. STAPUFFE
RP+1.19..;.W9$. JSRENDZEI;LETZTE ZEILE E
RMITTELN.]9..;.Z98. LDXLINE;CURSOR AUF L
INE..9B. LDYCOL. 9L. CLC;OBERE WINDOWECK
E..9V. JSRPLOT..9`.;..9J.WEITER JSRNOINT
;INTERRUPT AUSSCHALTEN..9T. LDA#$34;RAM-
KONFOGURATION..:~. STA1;EINSTELLEN.6:..
JSRINTEIN;INTERRUPT EINSCHALTEN.\:.. LDA
LINEPOI+1;'SCREENPOINTER(+1)'..:.. STASC
REENP+1;+WINDOWSTARTSPALTE. :.. LDALINEP
OI;ERGIBT POINTER..:.. CLC;AUF ANFANG DE
R.Z:.. ADCCOL;AKTUELLEN WINDOWZEILE..:D.
STASCREENP;+STARTSPALTE..;N. BCCOKAY..;
X. INCSCREENP+1..;..;.E;..OKAY LDYBREITE
;ZAEHLER INITIALISEREN.N;.. DEY.V;..COPY
LDAFLAG;EIN ZEICHEN AUS PUFFER..;.. BNE
WRITE;AUF SCREEN ODER..;.. LDA(SCREENP),
Y;UMGEKEHRT,..;.. STA(PUFFERP),Y;JE NACH
FLAGZUSTAND..;(. BNEJUMP..<2.WRITE LDA(
PUFFERP),Y..<<. STA(SCREENP),Y.3<F.JUMP
DEY;ZEILE BEHANDELT?.H<P. BPLCOPY;NEIN =
>.N<Z.;.J<D. LDAPUFFERP;POINTER AUF.}<N.
CLC;PUFFER UM..<X. ADCBREITE;WINDOWBREI
TE..<.. STAPUFFERP;ERHOEHEN.A<.. BCCNOIN
CR.S<.. INCPUFFERP+1.Y< .;..<..NOINCR JS
RNOINT;INTERRUPT AUS..=.. LDA#$37;ROM-KO
NFIGURATION.0=.. STA1;EINSCHALTEN.M=H. J
SRINTEIN;INTERRUPT EIN.K=R. LDA#17;CURSO
R EINE ZEILE..=.. JSRBSOUT;TIEFER SETZEN
..=.. LDACRSLINE;LETZTE WINDOWZEILE.D=..
CMPLAENGE;BEHANDELT?..=.. BNEWEITER;NEI
N =>..=..;..=..;..>.. LDXPUFNR;ANFANG DE
S..>". INX;NAECHSTEN PUFFERS.4>,. TXA;HI
NTER DAS ENDE.K>6. ASL;DES AKTUELLEN.C>@
. TAX;PUFFERS SETZEN.S>J. LDAPUFFERP..>T
. STAPUFPOI,X..>^. LDAPUFFERP+1..>H. STA
PUFPOI+1,X..>R. RTS..>|.;..>..;..>..NOIN
T LDAINTCTRL;INTERRUPTS VERHINDERN..>..
AND#$FE..?.. STAINTCTRL..?.. RTS..?..;.?
?B.INTEIN LDAINTCTRL;INTERRUPTS ZULASSEN
.L?L. ORA#$01.\?V. STAINTCTRL.E?.. RTS.K
?..;.Q?..;.W?..;..?..;******************
**************.C?..;* SCREENAUSSCHNITT I
NVERTIEREN *..?..;**********************
**********..?&.;..@0.;AUFRUF: SYS XXXX,S
PALTE,ZEILE,.3@:.; BREITE,LAENGE,
FLAG.9@D.;.^@N.;FUNKTION: INVERTIERT('FL
AG'=1)/..@X.; NORMALISIERT('FLA
G'=0)..@B.; EINEN RECHTECKIGEN.
J@L.; BILDSCHIRMAUSSCHNITT..@V.
; MIT DER OBEREN LINKEN..A..;
ECKE 'SPALTE'/'ZEILE'.7A..;
UND DER ANGEGEBENEN.ZA..;
LAENGE BZW. BREITE..`A..;..A..;BSP.: SYS
XXXX,2,5,10,15,1..A..; INVERTIERT
EIN RECHTECK.IA..; MIT DER LINKEN O
BEREB ECKE..AF.; 2/7, DER BREITE 10
SPALTEN..BP.; UND DER LAENGE 15 ZE
ILEN...BZ.;. B..;.CB..INVERT LDA#5;5 BYT
EWERTE HOLEN.QB.. JSRPARAM.WB..;..B..INV
JSR JSRENDZEI;LETZTE RECHTECKZEILE..B..
DECBREITE;KORREKTUR..B . LDXLINE;CURSOR
AUF AKTUELLE.AB*.;..B4.INV2 CLC;ZEILE UN
D STARTSPALTE..B>. JSRPLOT;SETZEN..BH.;.
#CR. LDALINEPOI;'LINEPOI' + 'COL' =>.8C\
. CLC;POINTER AUF.UCF. ADCCOL;ERSTES ZU
BEHAN-.UCP. STALINEPOI;DELNDES ZEICHEN..
CZ. BCCINV3;ZEICHEN DER JEWEI-..C.. INCL
INEPOI+1;LIGEN ZEILE..C..;..C..INV3 LDYB
REITE;WENN FLAG=0, WIRD..D..INV1 LDA(LIN
EPOI),Y;DIE KOMPLETTE.$D.. LDXFLAG;ZEILE
NORMALISIERT.CD.. BEQNORM;(BIT 7 LOESCH
EN),.AD.. ORA#$80;SONST INVERTIERT.}DJ.
.BY$2C;(BIT 7 SEETZEN)..DT.NORM AND#$7F.
.D.. STA(LINEPOI),Y..D.. DEY;ZEILE BEHAN
DELT?.QD.. BPLINV1;NEIN =>.WD..;..D.. IN
CLINE;NEXT ZEILE..D.. LDXLINE.#E.. CPXLA
ENGE;LETZTE ZEILE BEHANDELT?.8E$. BNEINV
2;NEIN =>.AE.. RTS.GE8.;.MEB.;.SEL.;.YEV
.;********************************..E`.;
* VERWALTUNG V.PULL-DOWN-MENUES*.EEJ.;**
******************************.KET.;..E~
.;AUFRUF:SYS XXXX,MENUE$,MENUE$(1)..E..;
..F..;FUNKTION: VERWALTET BELIEBIG.=F..;
VIELE PULL-D.MENUES,.BF..;
DEREN OBERBEGRIFFE IN..F..;
'MENUE$'ENTHALTEN SIND..F..;
(Z.B.:A$='FILE EDIT')..PFD.; D
IE MENUEKOMMANDOS..FN.; ENTHAEL
T DAS ANGEGEB...GX.; STRINGARRA
Y. VOR JEDEM.>G..; UNTERMENUE B
EFINDET.AG..; SICH EIN LEERSTRI
NG..G..; MIT DER GEWUENSCHTEN..
G..; MENUELAENGE..CG..;
DEM LETZTEN MENUE-..G..; STRI
NG FOLGT EBENFALLS..H..; EIN LE
ERSTRING...H(.;.+H2.;BSP.: SYS XXXX,A$,A
$(1).NH<.; VERWALTET Z.B. FOLGENDE.
QHF.; VERWALTET 2 UNTERMENUES..HP.;
MIT 4 BZW. 7 AUSWAHLPKTEN,..HZ.;
WENN FOLGENDES GILT:..H_.;..HD.;
A$='DOCUMENT DISK'..HN.; A$(1)=
' '..IX.; A$(2)='LOAD'.(I..;
A$(3)='SAVE'.BI..; A$(4)='MER
GE'.\I..; A$(5)='PRINT'.|I .;
A$(6)=' '..I..; A$(7)=
'DIRECTORY'..I..; A$(8)='INITIALIS
E'.VI..; A$(9)='VALIDATE'..I..;
A$(10)='FORMAT DISK'..J..; A$(11
)='SCRATCH FILE'.5JH.; A$(12)='COPY
FILE'.UJR.; A$(13)='RENAME FILE'.K
J..; A$(14)=' '.QJ..;..J..;BEDIENUN
G: CURSOR RIGHT/LEFT =>..J..;
AUSWAHL UNTERMENUE..J..; CURSO
R DOWN/UP =>..K..; AUSWAHL IM
UNTERMENUE..K..; RETURN =>.=K"
.; AUSWAHL AKTUELLER.XK6.;
MENUEPUNKT.^K@.;..KJ.;
EIN UNTERMENUE KANN..KT.; ALTE
RNATIV MIT SHIFT+.NK^.; DEM AN
FANGSBUCHSTABEN..KH.; DES MENU
ENAMENS..LR.; DIREKT ANGEWAEHL
T.5L|.; WERDEN, Z.B. SHIFT+F.Z
L..; FUER D.MENUE 'FILE'..~L..
; EIN MENUEPUNKT KANN..L..;
ALTERNATIV MIT DEM.CL..;
ANFANGSBUCHSTABEN..L..; DIR
EKT GEWAEHLT WER-..M..; DEN('S
'FUER'SCRATCH')..M..;.:M..; DA
S ANGEWAEHLTE MENUE.`M..; WIRD
IN 'MCOUNT', DER..M..; GEWAEH
LTE MENUEPUNKT..M..; IN 'POINT
' UEBERGEBEN..MB.;.SML.;BSP.: SYS XXXX,A
$,A$(1) VER-..MV.; WALTET DAS OBEN
VERWENDETE..N..; BEISPIEL..N..;..N.
.;.ON...EQ MCOUNT = ROUTIN+1 ;ZAEHLER:
AKTUELLES MENUE..N...EQ MZAHL = MCOUN
T+1 ;GESAMTE MENUEANZAHL..N...EQ POINT
= MZAHL+1 ;ZAEHLER: AKTUELLER MENUEP
UNKT..N...EQ ZEICHEN = POINT+1 ;GEDRUE
CKTE TASTE..O&..EQ VEKTOR = ZEICHEN+1 ;
VEKTOR F.INDIR.JMP..O0.;.%O:.;.GOD.;***
MENUEPARAMETER HOLEN ***.TON.CNTRL JSRCH
KKOM;POINTER AUF DESCRIPTOREN..OX. JSRGE
TPOS;DES MENUELEISTENSTRINGS..OB. STAIND
IZ;NACH 'INDIZ(+1)' UND..OL. STYINDIZ+1;
DESCRIPTOREN SELBST NACH..PV. JSRHOLDES;
'STRLEN',STRPOS(+1)'..P..;.4P.. LDASTRLE
N;DESCRIPTOREN RETTEN.=P.. PHA.LP.. LDAS
TRPOS.UP.. PHA.FP.. LDASTRPOS+1.OP.. PHA
.UPF.;.{PP.;..PZ.;*** STARTSPALTEN D.MEN
UES ***..P.. LDY#0;SPALTE UND ANZAHL.UP.
. LDX#0;INITIALISIEREN..Q..START1 LDA(ST
RPOS),Y;IM LEISTENSTRING ALLE. Q.. CMP#"
";SPACES BIS ZUM.=Q.. BNESTART2;1.NICHT
-SPACE.QQ.. INY;UEBERLESEN.JQ . BNESTART
1;IMMER !!!.PQ*.;..Q4.START2 STASIGN,X;A
NFANGSBUCHSTABE DES MENUES.FQ>. TYA;Y=PO
SITION VON 1.NICHTSPACE..QH. STASTART,X;
=STARTCOL FUER INVERT..RR.START3 LDA(STR
POS),Y;NUN ALLE.'R\. CMP#" ";NICHTSPACES
.ARF. BEQSTART4;UEBERLESEN.[RP. INY;JEDO
CH NUR, WENN.|RZ. CPYSTRLEN;STRINGLAENGE
NOCH. R.. BCCSTART3;NICHT UEBERSCHRITTE
N..R..;.OR..START4 TYA;INVERTIERBREITE S
TEHT NUN..R.. SEC;FEST: INVERTBREITE=..S
.. SBCSTART,X;Y-STARTCOL.6S.. STALENGTH,
X;ERGEBNIS IN TABELLE SPEICHERN.?S.. INX
.^SJ. INY;WEITER, WENN ENDE DES..ST. CPY
STRLEN;LEISTENSTRINGS NOCH NICHT..S.. BC
CSTART1;ERREICHT =>..S..;.LS.. STXMZAHL;
MENUEANZAHL SPEICHERN.RS..;.XS..;..S..;*
** WINDOWPARAMETER HOLEN ***.#T.. JSRCHK
KOM;POINTER AUF DESCRIPTOREN.KT$. JSRGET
POS;DES 1.MENUESTRINGS HOLEN.PT.. STAIND
IZ;UND DESCRITOREN SELBST..T8. STYINDIZ+
1;NACH 'STRLEN','STRPOS(+1)'..TB. JSRHOL
DES;SCHAFFEN..TL.;.WTV. LDX#255;X INITIA
LISIEREN..T`. BNEPAR5;IMMER !!!..TJ.;..U
T.PAR1 LDA#0;STRINGZAEHLER.-U~. STACNTI;
INITIALISIEREN.3U..;.BU..PAR2 LDY#0;POIN
TER AUF STRINGZEICHEN INIT...U..PAR3 LDA
(STRPOS),Y;AKTUELLES..U.. CMP#" ";STRING
ZEICHEN=SPACE?..U.. BEQPAR4;JA =>..U..;.
.UD. JSRNEXTSTR;NAECHSTEN STRING..VN. JS
RHOLDES;DESCRIPTOREN HOLEN.$VX. INCCNTI;
STRINGZAEHLER INKREM..;V.. BNEPAR2;IMMER
!!!.AV..;.EV..PAR4 INY;ZEICHENPOINTER I
NKREM...V.. CPYSTRLEN;STRINGENDE ERREICH
T?..V.. BCCPAR3;NEIN =>..V..;.FV.. LDACN
TI;LAENGE DES AKTUELLEN..V(. STAWLAENGE,
X;WINDOWS IN TABELLE..V2.;..W<.PAR5 INX;
BREITE DES AKTUELLEN.4WF. LDASTRLEN;WIND
OWS EBENFALLS.XWP. STAWBREITE,X;IN TABEL
LE MERKEN.^WZ.;.ZWD. JSRNEXTSTR;NEXT STR
ING..WN. JSRHOLDES;DESCRIPTOREN HOLEN.CW
X. LDAINDIZ;ADRESSE DER DESCRIPTOREN..W.
. STAWPOILOW,X;IN TABELLE MERKEN..W.. LD
AINDIZ+1..X.. STAWPOIHIGH,X..X .;.1X.. C
PXMZAHL;ALLE MENUES DURCH?.FX.. BCCPAR1;
NEIN =>.LX..;.RXH.;.OXR.;*** INITIALISIE
RUNG ***..X.. LDA#19;'CURSOR HOME'. X..
JSRBSOUT;AUSGEBEN..X..;..X.. PLA;DESCRIP
TOREN DES..X.. STASTRPOS+1;LEISTENSTRING
S..X.. PLA;HOLEN..X.. STASTRPOS..Y". PLA
..Y,. STASTRLEN..Y6.;.>Y@. LDY#0;LEISTEN
STRING AUSGEBEN.VYJ.INIT1 LDA(STRPOS),Y.
DYT. JSRBSOUT.MY^. INY.|YH. CPYSTRLEN..Y
R. BCCINIT1..Y|.;..Y.. LDX#0;MENUEZAEHLE
R.FY.. STXMCOUNT;INITIALISIEREN.LY..;.RY
..;..Y..;*** MENUE-AUSGABE ***..Z..AUSGA
BE JSRLIESGR;UNTERGRUND RETTEN.;ZB. JSRM
INVERT;MENUENAME INVERTIEREN.YZL. JSRMPR
INT;MENUE AUSGEBEN..ZV. LDA#255;MENUEPUN
KT INITIALISIEREN..Z.. STAPOINT;(255=KEI
N PUNKT ANGEWAEHLT)..Z..;..Z..;.UZ..;***
TASTATUR ABFRAGEN ***..Z..GET JSRGETIN;
AUF TASTE..[.. BEQGET;WARTEN."[.. STAZEI
CHEN;ZEICHEN MERKEN.([&.;.M[0. LDX#4;CUR
SOR- ODER RETURN-TASTE.J[:.GET1 CMPKEY,X
;GEDRUECKT?.}[D. BEQGET2;JA =>..[N. DEX;
ANSONSTEN ZUM..[X. BPLGET1;TEIL 'DIREKTA
NWAHL'.D[B. BMIDIREKT.J[L.;..[V.GET2 TXA
;ZAEHLER MIT 2..[.. ASL;MULTIPLIZIEREN..
\.. TAX;ERGIBT ZEIGER AUF.4\.. LDATAB,X;
SPRUNGTABELLE.P\.. STAVEKTOR;POINTER FUE
R.Q\.. LDATAB+1,X;INIREKTEN SPRUNG..\..
STAVEKTOR+1;ERZEUGEN..\.. JMP(VEKTOR);JM
P INDIREKT..\F.;..\P.;.P\Z.;*** DIREKTAN
WAHL? ***..\..DIREKT CMP#$40;SHIFT-TASTE
NKOMBINATION?..].. BCSDIREKT2;JA =>.9]..
ORA#$40;IN GROSSBUCHSTABE WANDELN.A]..
LDXMZAHL;UND MIT ANFANGSBUCHSTABEN.Y]..
DEX;DER MENUENAMEN..]..DIREKT1 CMPSIGN,X
;VERGLEICHEN..] . BEQMENUE;GLEICH =>..]*
. DEX.L]4. BPLDIREKT1..]>. BMIGET;FALSCH
ER BUCHSTABE =>..]H.;..^R.MENUE TXA;X (Z
EIGER AUF..^\. PHA;MENUE-COMAND) RETTEN.
S^F. JSRHOLGR;ALTEN UNTERGRUND HOLEN..^P
. JSRMNORMAL;ALTEN MENUENAMEN NORMALISIE
REN..^Z. PLA;X WIEDERHOLEN UND.E^.. TAX;
NACH 'CRS.LEFT/RIGHT' SPRINGEN..^.. BPLM
OKAY;IMMER !!!..^..;.._..DIREKT2 LDXMCOU
NT;POINTER AUF 1.STRING.._.. LDAWPOILOW,
X;DES AKTUELLEN.H_.. STAINDIZ;MENUES NAC
H.G_.. LDAWPOIHIGH,X;'INDIZ(+1)'.}_J. ST
AINDIZ+1;HOLEN.._T.;.._.. LDA#0;ZAEHLER
INTIALISIEREN.._..DIREKT3 TAX.V_.. JSRHO
LDES;DESCRIPTOREN HOLEN.._.. INY;TASTE M
IT DEN ANFANGS-..`.. LDA(STRPOS),Y;BUCHS
TABEN DER MENUE-.C`.. CMPZEICHEN;STRINGS
VERGLEICHEN.]`.. BEQDIREKT4;GLEICH =>.
`$. JSRNEXTSTR;SONST NEXT STRING..`.. IN
X;UNTERSUCHEN, WENN..`8. TXA;LETZTER MEN
UE-.S`B. LDXMCOUNT;STRING NOCH NICHT..`L
. CMPWLAENGE,X;BEHANDELT WURDE..AV. BCCD
IREKT3.7A`. BCSGET;BUCHSTABE NICHT IM ME
NUE VORHANDEN =>.=AJ.;.DAT.DIREKT4 STXPO
INT;MENUEPUNKT RETTEN..A~.RETURN LDAMCOU
NT;MENUENUMMER UND..A.. STAPARBACK;MENUE
PUNKT AN BASIC.FA.. LDAPOINT;UEBERGEBEN.
XA.. STAPARBACK+1..B.. JSRMNORMAL;MENUEN
AME NORMALISIEREN.9B.. JMPHOLGR;UNTERGRU
ND HOLEN + RTS !!! => BASIC !!!!!!.?B..;
.CB..RIGHT JSRHOLGR;UNTERGRUND HOLEN..BD
. JSRMNORMAL;MENUENAME NORMALISIEREN..BN
. LDXMCOUNT;WENN BEREITS LETZTES.PBX. IN
X;MENUE ERREICHT: ZAEHLER..B.. CPXMZAHL;
AUF 1.MENUE, SONST..C.. BCCMOKAY;ZAEHLER
INKREM...C.. LDX#0.2C.. BEQMOKAY;IMMER
!!!.8C..;.[C..LEFT JSRHOLGR;UNTERGRUND H
OLEN..C.. JSRMNORMAL;MENUENAME NORMALISI
EREN..C(. LDXMCOUNT;WENN ZAEHLER BEREITS
.EC2. DEX;AUF 1.MENUE: ZAEHLER..C<. CPX#
255;AUF LAST MENUE,..CF. BNEMOKAY;SONST
ZAEHLER..DP. LDXMZAHL;DEKREM...DZ. DEX.#
DD.;.JDN.MOKAY STXMCOUNT;MENUENUMMER RET
TEN.SDX. JMPAUSGABE;MENUE AUSGEBEN + RTS
!!!.YD..;..D..DOWN LDAPOINT;NAECHSTES M
ENUE, WENN.CD.. BMIDOWN1;LETZTES MENUE N
ICHT..D . JSRCOMNORMAL;BEREITS ERREICHT,
..E..DOWN1 INCPOINT;SONST 1.MENUE..E.. L
DXMCOUNT.%E.. LDAPOINT.7EH. CMPWLAENGE,X
.EER. BCCDOWN2.PE.. LDA#0.^E.. STAPOINT.
.E..DOWN2 JSRCOMINVERT;AKTUELLEN MENUEPU
NKT INVERTIEREN..E..DOWN3 JMPGET;=> EING
ABESCHLEIFE..E..;..E..UP LDAPOINT;VORIGE
R MENUEPUNKT,..F.. BMIDOWN3;WENN 1.MENUE
PUNKT NICHT..F". JSRCOMNORMAL;BEREITS ER
REICHT,.RF,. LDAPOINT;SONST LAST MENUEPU
NKT.^F6. BNEUP1.MF@. LDXMCOUNT.FJ. LDAW
LAENGE,X..FT. STAPOINT..F^.UP1 DECPOINT.
BFH. JMPDOWN2;WEITER WIE BEI 'DOWN'.HFR.
;.NF|.;..F..;*** MENUENAME INVERT./NORMA
L.***..G..COMNORMAL LDA#0;NORMALISIEREN:
.*G.. .BY$2C;FLAG=0.KG..COMINVERT LDA#1;
INVERTIEREN:._G.. STAFLAG;FLAG=1.NG..COM
1 LDA#2..GB. CLC;INVERTIERPARAMETER..GL.
ADCPOINT;(LINE,COL,BREITE,.HGV. STALINE
;LAENGE) FUER DEN..G.. LDXMCOUNT;AKTUELL
EN MENUE-..H.. LDASTART,X;PUNKT SETZEN U
ND.$H.. STACOL;DIE INVERTIER-.AH.. INCCO
L;ROUTINE AUFRUFEN.SH.. LDAWBREITE,X.BH.
. STABREITE.MH.. LDA#1.|H&. STALAENGE..H
0. JMPINVJSR;RTS !!!..H:.;..HD.;.EHN.;**
* MENUEPKT.INVERT/NORMALIS.***..HX.MNORM
AL LDA#0;NORMALISIEREN:..HB. .BY$2C;FLAG
=0..IV.MINVERT LDA#1;INVERTIEREN:.,I.. S
TAFLAG;FLAG=1.;I..MNOR LDX#0.[I.. STXLIN
E;INVERTIERPARAMETER.WI.. INX;UEBERGEBEN
(ZEILE,..I.. STXLAENGE;LAENGE,FLAG SIND
FEST)..I..;.CI.. LDXMCOUNT;STARTSPAALTE
UND..IF. LDASTART,X;INVERTIERBREITE..IP
. STACOL;BESTIMMEN..JZ. LDALENGTH,X;UND
INVERTIERROUTINE.7J.. STABREITE;AUFRUFEN
.=J..;.TJ.. JMPINVJSR;RTS !!!.ZJ..;.`J..
;.|J..;*** MENUE AUSGEBEN ***..J .MPRINT
JSRWPARAM;POINTER AUF 1.MENUE-.NJ*. LDA
WPOILOW,X;STRING UEBERGEBEN UND..J4. LDY
WPOIHIGH,X;MALROUTINE AUFRUFEN..K>. JMPW
INJSR;RTS !!!..KH.;..KR.;.=K\.;*** UNTER
GRUND RETTEN/HOLEN ***.NKF.LIESGR LDA#0.
ZKP. .BY$2C.JK..HOLGR LDA#1.WK.. STAFLAG
..K..LIES1 LDA#0;AUS/IN PUFFER NR.0..K..
STAPUFFER;HOLEN/SCHREIBEN..K.. JSRWPARA
M;WINDOWPARAMETER HOLEN..L.. JMPPUFFERJS
R;EINSPRUNG + RTS !!!..L..;..LJ.;.5LT.;*
** WINDOWPARAM. UEBERGEBEN ***.YL..WPARA
M LDXMCOUNT;UEBER 'MCOUNT'.~L.. LDASTART
,X;(=AKTUELLE MENUENR.)..L.. STACOL;WERD
EN DIE PARAMETER..L.. LDA#1;DES AKTUELLE
N.UL.. STALINE;WINDOWS AUS DEN..L.. LDAW
BREITE,X;TABELLEN ERMITTELT..M.. CLC;(CO
L,LINE,BREITE,.(M$. ADC#2;LAENGE).7M.. S
TABREITE.IM8. LDAWLAENGE,X.RMB. CLC.]ML.
ADC#2.LMV. STALAENGE.UM`. RTS.{MJ.;..MT
.;..M~.;*** KOMMANDO-TASTEN ***..M..KEY
.BY29;CRS.RIGHT.BM.. .BY157.VM.. .BY17;C
RS.DOWN..M.. .BY145;CRS.UP..M.. .BY13;RE
TURN..ND.;..NN.;."NX.;*** SPRUNGTABELLE
***.3N..TAB .WORIGHT.@N.. .WOLEFT.MN.. .
WODOWN.XN.. .WOUP.GN.. .WORETURN.MN..;.S
N(.;..N-.;*** WINDOWPARAM.-TABELLEN ***.
.N2.START .BY1,2,3,4,5,6,7,8,9.UN<.LENGT
H .BY1,2,3,4,5,6,7,8,9..NF.SIGN .BY1,2,3
,4,5,6,7,8,9..OP.WBREITE .BY1,2,3,4,5,6,
7,8,9.5OZ.WLAENGE .BY1,2,3,4,5,6,7,8,9.V
OD.WPOILOW .BY1,2,3,4,5,6,7,8,9.XON.WPOI
HIGH .BY1,2,3,4,5,6,7,8,9..O@..EN.....;.
0..;..0..PUFFER LDA#0..0.. JSRPARAM..0.
.;.A0..PUFFERJSR LDA#L,PUFSTART.U0.. LDX
#H,PUFSTART..0J. STAPUFPOI..0T. STXPUFPO
I+1..0..;..1.. LDXPUFNR..1.. LDAPUFPOI,X
.*1.. STAPUFFERP.=1.. LDAPUFPOI+1,X.O1..
STAPUFFERP+1.U1..;.D1$. JSRENDZEI.J1..;
.W18. LDXLINE..1B. LDYCOL..1L. CLC..1V.
JSRPLOT..1`.;..1J.WEITER JSRNOINT..1T. L
DA#$34.J1~. STA1.Y1.. JSRINTEIN..1.. LDA
LINEPOI+1..1.. STASCREENP+1..2.. LDALINE
POI..2.. CLC."2.. ADCCOL.22D. STASCREENP
.?2N. BCCOKAY.Q2X. INCSCREENP+1.W2..;.J2
..OKAY LDYBREITE.S2.. DEY..2..COPY LDAFL
AG..2.. BNEWRITE..2.. LDA(SCREENP),Y..2.
. STA(PUFFERP),Y.G2(. BNEJUMP..22.WRITE
LDA(PUFFERP),Y..2<. STA(SCREENP),Y..3F.J
UMP DEY..3P. BPLCOPY..3Z.;.$3D. LDAPUFFE
RP.-3N. CLC.<3X. ADCBREITE.L3.. STAPUFFE
RP.[3.. BCCNOINCR.M3.. INCPUFFERP+1.S3 .
;..3..NOINCR JSRNOINT..3.. LDA#$37..3..
STA1..3H. JSRINTEIN..3R. LDA#17.G3.. JSR
BSOUT.W3.. LDACRSLINE..3.. CMPLAENGE..3.
. BNEWEITER..3..;..4..;..4.. LDXPUFNR..4
". INX.!4,. TXA.+46. ASLA.44@. TAX.D4J.
LDAPUFFERP.U4T. STAPUFPOI,X.G4^. LDAPUFF
ERP+1.Z4H. STAPUFPOI+1,X..4R. ;..4|. RTS
..4..;..4..;..4..NOINT LDAINTCTRL..4.. A
ND#$FE.H4.. STAINTCTRL.Q4.. RTS.W4B.;..4
L.INTEIN LDAINTCTRL..4V. ORA#$01..5.. ST
AINTCTRL..5.. RTS..5..;..5..;.%5..;.J5..
;*******************************.O5..;*
SCREENAUSSCHNITT IVERTIEREN *..5&.;*****
**************************..50.;..5:.;AU
FRUF: SYS XXXX,SPALTE,ZEILE,..5D.;
BREITE,LAENGE,FLAG..5N.;..6X.;FUNKTION
: INVERTIERT/NORMALI-.-6B.; SIE
RT EINEN BEL. BILD-.Q6L.; SCHIR
MTEIL AB ANGEG..|6V.3180 -; SCH
IRMTEIL. AB ANGEG...6..; SCHIRM
TEIL. AB ANGEG..C6..; POSITION
'SPALTE'/..6..; 'ZEILE' WIRD EI
N..7..; RECHTECK MIT DER.(7..;
BREITE 'BREITE' U.DER.N7..;
LAENGE 'LAENGE' BEHAN-.C7..;
DELT...7F.; FLAG: 0=INVERTI
EREN..7P.; 1=NORMALISIERE
N..7Z.;.Q7..;BSP.: SYS XXXX,2,5,10,15,0.
.7..; INVERTIERT EIN RECHTECK..8..;
MIT DER OBEREN LINKEN ECKE.@8..;
2/5, DER BREITE 10 SPALTEN.A8..;
UND 15 ZEILEN LAENGE..G8..;.M8 .;.~8*.
INVERT LDA#5..84. JSRPARAM..8>.;..8H.INV
JSR JSRENDZEI..8R. DECBREITE.C8\. LDXLIN
E.I8F.;.V8P.INV2 CLC..8Z. JSRPLOT..8..;.
.8.. LDALINEPOI..9.. CLC..9.. ADCCOL..9.
. STALINEPOI.+9.. BCCINV3.=9.. INCLINEPO
I+1.C9J.;.V9T.INV3 LDYBREITE.N9..INV1 LD
A(LINEPOI),Y.{9.. LDXFLAG..9.. BEQNORM..
9.. ORA#$80..9.. .BY$2C..9..NORM AND#$7F
.F9.. STA(LINEPOI),Y.O9$. DEY..9.. BPLIN
V1..98.;..9B. INCLINE..9L. LDXLINE..:V.
CPXLAENGE..:`. BNEINV2.!:J. RTS.':T.;.-:
~.;.3:..;.W:..;*************************
*****.{:..;* PULL-DOWN-MENUES VERWALTEN
*..:..;******************************.E:
..;AUFRUF:SYS XXXX,MENUE$,MENUE$(X).K:..
;..:D.;FUNKTION: VERWALTET BELIEBIG..;N.
; VIELE PULL-D.-MENUES..7;X.;
'MENUE$' ENTHAELT DIE.\;..;
'MENUELEISTE' MIT DEN..;..;
OBERBEGRIFFEN, Z.B.:..;..; A$
='FILE EDIT DISK'..J;..; 'MENUE
$(X)' KENNZEICH-..;..; NET DEN
INHALT DER 1...<..; ZEILE DES 1
.PULL-D.-.9<..; MENUES. DER INH
ALT DER.^<(.; 1./3. ETC. ZEILE
MUSS..<2.; SICH IN 'MENUE$(X+1)
',..<<.; 'MENUE$(X+2)' ETC...<F
.; BEFINDEN...<P.; DIE
EINZELNEN MENUES..=Z.; WERDEN
MIT LEERSTRINGS./=D.; GETRENNT,
DEREN LAENGE.T=N.; DER GEWUENS
CHTEN WIN-.Y=X.; DOWLAENGE ENTS
PRICHT...=}.; DAS ENDE DES LETZ
TEN..=~.; UNTERMENUES WIRD AN..
=.; EINEM SPACE ERKANNT..=..;.
.>..;BSP.: SYS XXXX,A$,A$(1).*>..;
VERWALTET Z.B. FOLGENDES.N> .; PULL
-DOWN-MENUE MIT ZWEI.F>..; UNTERMEN
UES:..>..; A$='FILE DISK'..>..;
A$(1)=' '..>H.; A$(2)='L
OAD FILE'.X>R.; A$(3)='SAVE FILE'..
>..; A$(4)='MERGE FILE'..?..;
A$(5)=' '..?..; A$(6)='REN
AME'.F?..; A$(7)='COPY'.A?..;
A$(8)='SCRATCH'.{?..; A$(9)='FORMAT
'..?..; A$(10)='DIRECTORY'..?".;
A$(11)='VALIDATE'.L?,.; A$(12)='
'...
> CLICK IMAGE PREVIEW FOR FULL MODAL