REL-TOOL.SRC
FILE INFORMATION
FILENAME(S): REL-TOOL.SRC
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 2 disk(s)
FILE HASH
30194eb6c5854990827f0f05afc6ed2daecc492ee13dcd56eb2b0cb30255800c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10909 SEITE A | REL-TOOL.SRC | PRG | C64er | 7 | 6 | DOWNLOAD FILE |
| 10909 SEITE A | REL-TOOL.SRC | PRG | DuncanTwain | 7 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FB 1F E8 03 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |......;---------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 00 1E 20 F2 03 3B 2D 2D 20 20 20 20 |----.. ..;-- |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 2D 2D 00 41 20 FC 03 3B 2D 2D 20 | --.A ..;-- |
00000050: 20 54 4F 4F 4C 4B 49 54 20 5A 55 20 22 52 45 4C | TOOLKIT ZU "REL|
00000060: 2D 44 45 4D 4F 22 20 20 2D 2D 00 64 20 06 04 3B |-DEMO" --.d ..;|
00000070: 2D 2D 20 20 20 36 34 27 45 52 20 41 55 53 47 41 |-- 64'ER AUSGA|
00000080: 42 45 20 30 39 2F 38 39 20 20 20 2D 2D 00 87 20 |BE 09/89 --.. |
00000090: 10 04 3B 2D 2D 20 20 20 20 20 20 20 20 20 20 20 |..;-- |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D | --|
000000B0: 00 AA 20 1A 04 3B 2D 2D 20 20 28 57 29 20 31 39 |.. ..;-- (W) 19|
000000C0: 38 39 20 20 4A 4F 45 52 47 20 4E 45 42 45 4C 20 |89 JOERG NEBEL |
000000D0: 20 2D 2D 00 CD 20 24 04 3B 2D 2D 20 20 20 55 4E | --.. $.;-- UN|
000000E0: 44 20 4D 41 54 54 48 49 41 53 20 55 4C 4C 4D 41 |D MATTHIAS ULLMA|
000000F0: 4E 4E 20 20 2D 2D 00 F0 20 2E 04 3B 2D 2D 20 20 |NN --.. ..;-- |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 2D 2D 00 13 21 38 04 3B 2D | --..!8.;-|
00000120: 2D 20 20 46 55 45 52 20 22 53 54 52 49 4E 47 20 |- FUER "STRING |
00000130: 53 55 43 48 45 4E 22 3A 20 20 2D 2D 00 36 21 42 |SUCHEN": --.6!B|
00000140: 04 3B 2D 2D 20 20 28 43 29 20 31 39 38 37 20 53 |.;-- (C) 1987 S|
00000150: 41 49 44 20 42 41 4C 4F 55 49 20 20 20 2D 2D 00 |AID BALOUI --.|
00000160: 59 21 4C 04 3B 2D 2D 20 20 20 20 20 20 20 20 20 |Y!L.;-- |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 2D 2D 00 7C 21 56 04 3B 2D 2D 2D 2D 2D 2D 2D 2D |--.|!V.;--------|
00000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001A0: 2D 2D 2D 2D 2D 00 82 21 60 04 3B 00 90 21 6A 04 |-----..!`.;..!j.|
000001B0: 2E 42 41 20 24 43 30 30 30 00 96 21 74 04 3B 00 |.BA $C000..!t.;.|
000001C0: CB 21 7E 04 2E 45 51 20 43 4C 52 41 4E 46 20 20 |.!~..EQ CLRANF |
000001D0: 20 3D 20 24 30 32 20 20 20 3B 20 45 52 53 54 45 | = $02 ; ERSTE|
000001E0: 20 5A 55 20 4C 4F 45 53 43 48 45 4E 44 45 20 5A | ZU LOESCHENDE Z|
000001F0: 45 49 4C 45 00 06 22 88 04 2E 45 51 20 4E 41 4D |EILE.."...EQ NAM|
00000200: 4C 45 4E 20 20 20 3D 20 24 42 37 20 20 20 3B 20 |LEN = $B7 ; |
00000210: 4C 41 45 4E 47 45 20 44 45 53 20 41 4B 54 55 45 |LAENGE DES AKTUE|
00000220: 4C 4C 45 4E 20 46 49 4C 45 4E 41 4D 45 4E 53 00 |LLEN FILENAMENS.|
00000230: 39 22 92 04 2E 45 51 20 54 41 53 54 45 20 20 20 |9"...EQ TASTE |
00000240: 20 3D 20 24 43 42 20 20 20 3B 20 4C 45 54 5A 54 | = $CB ; LETZT|
00000250: 45 20 47 45 44 52 55 45 43 4B 54 45 20 54 41 53 |E GEDRUECKTE TAS|
00000260: 54 45 00 6C 22 9C 04 2E 45 51 20 43 52 53 52 46 |TE.l"...EQ CRSRF|
00000270: 4C 41 47 20 3D 20 24 43 46 20 20 20 3B 20 46 4C |LAG = $CF ; FL|
00000280: 41 47 20 46 55 45 52 20 43 55 52 53 4F 52 20 41 |AG FUER CURSOR A|
00000290: 4E 2F 41 55 53 00 9F 22 A6 04 2E 45 51 20 4C 49 |N/AUS.."...EQ LI|
000002A0: 4E 50 54 52 20 20 20 3D 20 24 44 31 20 20 20 3B |NPTR = $D1 ;|
000002B0: 20 5A 45 49 47 45 52 20 41 55 46 20 5A 45 49 4C | ZEIGER AUF ZEIL|
000002C0: 45 4E 41 4E 46 41 4E 47 00 D0 22 B0 04 2E 45 51 |ENANFANG.."...EQ|
000002D0: 20 53 50 41 4C 54 45 20 20 20 3D 20 24 44 33 20 | SPALTE = $D3 |
000002E0: 20 20 3B 20 41 4B 54 55 45 4C 4C 45 20 43 55 52 | ; AKTUELLE CUR|
000002F0: 53 4F 52 53 50 41 4C 54 45 00 00 23 BA 04 2E 45 |SORSPALTE..#...E|
00000300: 51 20 5A 45 49 4C 45 20 20 20 20 3D 20 24 44 36 |Q ZEILE = $D6|
00000310: 20 20 20 3B 20 41 4B 54 55 45 4C 4C 45 20 43 55 | ; AKTUELLE CU|
00000320: 52 53 4F 52 5A 45 49 4C 45 00 34 23 C4 04 2E 45 |RSORZEILE.4#...E|
00000330: 51 20 53 48 46 54 46 4C 41 47 20 3D 20 24 30 32 |Q SHFTFLAG = $02|
00000340: 38 44 20 3B 20 46 4C 41 47 20 46 55 45 52 20 53 |8D ; FLAG FUER S|
00000350: 48 49 46 54 2C 43 54 52 4C 2C 43 42 4D 00 65 23 |HIFT,CTRL,CBM.e#|
00000360: CE 04 2E 45 51 20 49 52 51 20 20 20 20 20 20 3D |...EQ IRQ =|
00000370: 20 24 30 33 31 34 20 3B 20 49 52 51 2D 56 45 4B | $0314 ; IRQ-VEK|
00000380: 54 4F 52 20 28 4C 4F 57 2D 42 59 54 45 29 00 96 |TOR (LOW-BYTE)..|
00000390: 23 D8 04 2E 45 51 20 4E 4D 49 20 20 20 20 20 20 |#...EQ NMI |
000003A0: 3D 20 24 30 33 31 38 20 3B 20 4E 4D 49 2D 56 45 |= $0318 ; NMI-VE|
000003B0: 4B 54 4F 52 20 28 4C 4F 57 2D 42 59 54 45 29 00 |KTOR (LOW-BYTE).|
000003C0: 9C 23 E2 04 3B 00 D4 23 EC 04 2E 45 51 20 43 48 |.#..;..#...EQ CH|
000003D0: 52 47 4F 54 20 20 20 3D 20 24 30 30 37 39 20 3B |RGOT = $0079 ;|
000003E0: 20 50 52 55 45 46 54 20 41 55 46 20 57 45 49 54 | PRUEFT AUF WEIT|
000003F0: 45 52 45 20 50 41 52 41 4D 45 54 45 52 00 0A 24 |ERE PARAMETER..$|
00000400: F6 04 2E 45 51 20 50 52 49 4E 54 20 20 20 20 3D |...EQ PRINT =|
00000410: 20 24 41 41 41 34 20 3B 20 45 49 4E 53 50 52 55 | $AAA4 ; EINSPRU|
00000420: 4E 47 20 49 4E 20 50 52 49 4E 54 2D 52 4F 55 54 |NG IN PRINT-ROUT|
00000430: 49 4E 45 00 4A 24 00 05 2E 45 51 20 43 48 4B 4B |INE.J$...EQ CHKK|
00000440: 4F 4D 20 20 20 3D 20 24 41 45 46 44 20 3B 20 50 |OM = $AEFD ; P|
00000450: 52 55 45 46 54 20 41 55 46 20 4B 4F 4D 4D 41 2C |RUEFT AUF KOMMA,|
00000460: 20 53 4F 4E 53 54 20 53 59 4E 54 41 58 20 45 52 | SONST SYNTAX ER|
00000470: 52 4F 52 00 91 24 0A 05 2E 45 51 20 47 45 54 43 |ROR..$...EQ GETC|
00000480: 42 54 20 20 20 3D 20 24 42 37 46 31 20 3B 20 50 |BT = $B7F1 ; P|
00000490: 52 55 45 46 54 20 41 55 46 20 4B 4F 4D 4D 41 2C |RUEFT AUF KOMMA,|
000004A0: 20 48 4F 4C 54 20 42 59 54 45 57 45 52 54 20 4E | HOLT BYTEWERT N|
000004B0: 41 43 48 20 58 2D 52 45 47 2E 00 C0 24 14 05 2E |ACH X-REG...$...|
000004C0: 45 51 20 53 43 4E 43 4C 52 20 20 20 3D 20 24 45 |EQ SCNCLR = $E|
000004D0: 35 34 34 20 3B 20 42 49 4C 44 53 43 48 49 52 4D |544 ; BILDSCHIRM|
000004E0: 20 4C 4F 45 53 43 48 45 4E 00 F1 24 1E 05 2E 45 | LOESCHEN..$...E|
000004F0: 51 20 53 45 54 43 52 53 52 20 20 3D 20 24 45 35 |Q SETCRSR = $E5|
00000500: 36 43 20 3B 20 43 55 52 53 4F 52 50 4F 53 49 54 |6C ; CURSORPOSIT|
00000510: 49 4F 4E 20 53 45 54 5A 45 4E 00 35 25 28 05 2E |ION SETZEN.5%(..|
00000520: 45 51 20 4C 49 4E 41 44 52 20 20 20 3D 20 24 45 |EQ LINADR = $E|
00000530: 39 46 30 20 3B 20 42 45 52 45 43 48 4E 45 54 20 |9F0 ; BERECHNET |
00000540: 42 49 4C 44 53 43 48 49 52 4D 41 44 52 45 53 53 |BILDSCHIRMADRESS|
00000550: 45 20 46 55 45 52 20 5A 45 49 4C 45 20 58 00 6B |E FUER ZEILE X.k|
00000560: 25 32 05 2E 45 51 20 44 45 4C 4C 49 4E 20 20 20 |%2..EQ DELLIN |
00000570: 3D 20 24 45 39 46 46 20 3B 20 42 49 4C 44 53 43 |= $E9FF ; BILDSC|
00000580: 48 49 52 4D 5A 45 49 4C 45 20 58 20 4C 4F 45 53 |HIRMZEILE X LOES|
00000590: 43 48 45 4E 00 A9 25 3C 05 2E 45 51 20 4E 4F 52 |CHEN..%<..EQ NOR|
000005A0: 4D 49 52 51 20 20 3D 20 24 45 41 33 34 20 3B 20 |MIRQ = $EA34 ; |
000005B0: 45 49 4E 53 50 52 55 4E 47 20 49 4E 20 52 45 47 |EINSPRUNG IN REG|
000005C0: 55 4C 41 45 52 45 20 49 52 51 2D 52 4F 55 54 49 |ULAERE IRQ-ROUTI|
000005D0: 4E 45 00 E1 25 46 05 2E 45 51 20 52 45 53 54 4F |NE..%F..EQ RESTO|
000005E0: 52 20 20 20 3D 20 24 46 44 31 35 20 3B 20 53 54 |R = $FD15 ; ST|
000005F0: 41 4E 44 41 52 44 2D 49 2F 4F 2D 56 45 4B 54 4F |ANDARD-I/O-VEKTO|
00000600: 52 45 4E 20 53 45 54 5A 45 4E 00 E7 25 50 05 3B |REN SETZEN..%P.;|
00000610: 00 ED 25 5A 05 3B 00 06 26 64 05 3B 2D 2D 2D 2D |..%Z.;..&d.;----|
00000620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00000630: 1F 26 6E 05 3B 2D 2D 20 20 45 49 4E 53 50 52 55 |.&n.;-- EINSPRU|
00000640: 45 4E 47 45 20 20 2D 2D 00 38 26 78 05 3B 2D 2D |ENGE --.8&x.;--|
00000650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000660: 2D 00 3E 26 82 05 3B 00 44 26 8C 05 3B 00 51 26 |-.>&..;.D&..;.Q&|
00000670: 96 05 20 4A 4D 50 43 50 4F 53 00 62 26 A0 05 20 |.. JMPCPOS.b&.. |
00000680: 4A 4D 50 43 4C 52 4C 49 4E 45 53 00 71 26 AA 05 |JMPCLRLINES.q&..|
00000690: 20 4A 4D 50 53 45 41 52 43 48 00 77 26 B4 05 3B | JMPSEARCH.w&..;|
000006A0: 00 7D 26 BE 05 3B 00 9A 26 C8 05 3B 2D 2D 2D 2D |.}&..;..&..;----|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 00 B7 26 D2 05 3B 2D 2D 20 20 5A 45 49 |---..&..;-- ZEI|
000006D0: 4C 45 4E 20 4C 4F 45 53 43 48 45 4E 20 20 2D 2D |LEN LOESCHEN --|
000006E0: 00 D4 26 DC 05 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..&..;----------|
000006F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 DA 26 |-------------..&|
00000700: E6 05 3B 00 E0 26 F0 05 3B 00 13 27 FA 05 43 4C |..;..&..;..'..CL|
00000710: 52 4C 49 4E 45 53 20 4A 53 52 43 48 52 47 4F 54 |RLINES JSRCHRGOT|
00000720: 3B 20 46 4F 4C 47 45 4E 20 57 45 49 54 45 52 45 |; FOLGEN WEITERE|
00000730: 20 50 41 52 41 4D 45 54 45 52 20 3F 00 3A 27 04 | PARAMETER ?.:'.|
00000740: 06 20 42 45 51 53 45 54 49 52 51 3B 20 4E 45 49 |. BEQSETIRQ; NEI|
00000750: 4E 2C 20 44 41 4E 4E 20 5A 55 20 22 53 45 54 49 |N, DANN ZU "SETI|
00000760: 52 51 22 00 6A 27 0E 06 20 4A 53 52 47 45 54 43 |RQ".j'.. JSRGETC|
00000770: 42 54 3B 20 53 4F 4E 53 54 20 45 52 53 54 45 20 |BT; SONST ERSTE |
00000780: 5A 55 20 4C 4F 45 53 43 48 45 4E 44 45 20 5A 45 |ZU LOESCHENDE ZE|
00000790: 49 4C 45 00 95 27 18 06 20 53 54 58 43 4C 52 41 |ILE..'.. STXCLRA|
000007A0: 4E 46 3B 20 4E 41 43 48 20 58 20 48 4F 4C 45 4E |NF; NACH X HOLEN|
000007B0: 20 55 4E 44 20 53 50 45 49 43 48 45 52 4E 00 C0 | UND SPEICHERN..|
000007C0: 27 22 06 20 4A 53 52 43 48 52 47 4F 54 3B 20 46 |'". JSRCHRGOT; F|
000007D0: 4F 4C 47 54 20 57 45 49 54 45 52 45 52 20 50 41 |OLGT WEITERER PA|
000007E0: 52 41 4D 45 54 45 52 20 3F 00 ED 27 2C 06 20 42 |RAMETER ?..',. B|
000007F0: 45 51 43 4C 52 4C 4F 4F 50 3B 20 4E 45 49 4E 2C |EQCLRLOOP; NEIN,|
00000800: 20 44 41 4E 4E 20 5A 45 49 4C 45 20 58 20 4C 4F | DANN ZEILE X LO|
00000810: 45 53 43 48 45 4E 00 24 28 36 06 20 4A 53 52 47 |ESCHEN.$(6. JSRG|
00000820: 45 54 43 42 54 3B 20 53 4F 4E 53 54 20 4C 45 54 |ETCBT; SONST LET|
00000830: 5A 54 45 20 5A 55 20 4C 4F 45 53 43 48 45 4E 44 |ZTE ZU LOESCHEND|
00000840: 45 20 5A 45 49 4C 45 20 48 4F 4C 45 4E 00 4A 28 |E ZEILE HOLEN.J(|
00000850: 40 06 43 4C 52 4C 4F 4F 50 20 4A 53 52 44 45 4C |@.CLRLOOP JSRDEL|
00000860: 4C 49 4E 3B 20 5A 45 49 4C 45 20 4C 4F 45 53 43 |LIN; ZEILE LOESC|
00000870: 48 45 4E 00 6A 28 4A 06 20 44 45 58 3B 20 5A 45 |HEN.j(J. DEX; ZE|
00000880: 49 4C 45 4E 57 45 52 54 20 56 45 52 4D 49 4E 44 |ILENWERT VERMIND|
00000890: 45 52 4E 00 9C 28 54 06 20 43 50 58 43 4C 52 41 |ERN..(T. CPXCLRA|
000008A0: 4E 46 3B 20 53 43 48 4F 4E 20 45 52 53 54 45 20 |NF; SCHON ERSTE |
000008B0: 5A 55 20 4C 4F 45 53 43 48 45 4E 44 45 20 5A 45 |ZU LOESCHENDE ZE|
000008C0: 49 4C 45 20 3F 00 BF 28 5E 06 20 42 50 4C 43 4C |ILE ?..(^. BPLCL|
000008D0: 52 4C 4F 4F 50 3B 20 4E 45 49 4E 2C 20 44 41 4E |RLOOP; NEIN, DAN|
000008E0: 4E 20 57 45 49 54 45 52 00 C8 28 68 06 20 52 54 |N WEITER..(h. RT|
000008F0: 53 00 CE 28 72 06 3B 00 D4 28 7C 06 3B 00 EF 28 |S..(r.;..(|.;..(|
00000900: 86 06 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..;-------------|
00000910: 2D 2D 2D 2D 2D 2D 2D 2D 00 0A 29 90 06 3B 2D 2D |--------..)..;--|
00000920: 20 49 4E 49 54 49 41 4C 49 53 49 45 52 55 4E 47 | INITIALISIERUNG|
00000930: 20 2D 2D 00 25 29 9A 06 3B 2D 2D 2D 2D 2D 2D 2D | --.%)..;-------|
00000940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 2B |--------------.+|
00000950: 29 A4 06 3B 00 31 29 AE 06 3B 00 53 29 B8 06 53 |)..;.1)..;.S)..S|
00000960: 45 54 49 52 51 20 53 45 49 3B 20 49 4E 54 45 52 |ETIRQ SEI; INTER|
00000970: 52 55 50 54 20 53 50 45 52 52 45 4E 00 62 29 C2 |RUPT SPERREN.b).|
00000980: 06 20 4A 53 52 52 45 53 54 4F 52 00 87 29 CC 06 |. JSRRESTOR..)..|
00000990: 20 4C 44 41 4E 41 4D 4C 45 4E 3B 20 46 49 4C 45 | LDANAMLEN; FILE|
000009A0: 4E 41 4D 45 20 56 4F 52 48 41 4E 44 45 4E 20 3F |NAME VORHANDEN ?|
000009B0: 00 9D 29 D6 06 20 42 45 51 43 4C 49 3B 20 4A 41 |..).. BEQCLI; JA|
000009C0: 2C 20 44 41 4E 4E 00 BC 29 E0 06 20 4C 44 41 23 |, DANN..).. LDA#|
000009D0: 3C 28 43 4C 52 4C 49 4E 29 3B 20 49 52 51 2D 56 |<(CLRLIN); IRQ-V|
000009E0: 45 4B 54 4F 52 00 D4 29 EA 06 20 53 54 41 49 52 |EKTOR..).. STAIR|
000009F0: 51 3B 20 41 55 46 20 45 49 47 45 4E 45 00 F0 29 |Q; AUF EIGENE..)|
00000A00: F4 06 20 4C 44 41 23 3E 28 43 4C 52 4C 49 4E 29 |.. LDA#>(CLRLIN)|
00000A10: 3B 20 52 4F 55 54 49 4E 45 00 08 2A FE 06 20 53 |; ROUTINE..*.. S|
00000A20: 54 41 49 52 51 2B 31 3B 20 55 4D 4C 45 4E 4B 45 |TAIRQ+1; UMLENKE|
00000A30: 4E 00 24 2A 08 07 20 4C 44 41 23 24 43 31 3B 20 |N.$*.. LDA#$C1; |
00000A40: 55 4E 44 20 3C 52 45 53 54 4F 52 45 3E 00 39 2A |UND <RESTORE>.9*|
00000A50: 12 07 20 53 54 41 4E 4D 49 3B 20 53 50 45 52 52 |.. STANMI; SPERR|
00000A60: 45 4E 00 5A 2A 1C 07 43 4C 49 20 43 4C 49 3B 20 |EN.Z*..CLI CLI; |
00000A70: 49 4E 54 45 52 52 55 50 54 20 46 52 45 49 47 45 |INTERRUPT FREIGE|
00000A80: 42 45 4E 00 69 2A 26 07 20 4A 4D 50 53 43 4E 43 |BEN.i*&. JMPSCNC|
00000A90: 4C 52 00 6F 2A 30 07 3B 00 75 2A 3A 07 3B 00 8E |LR.o*0.;.u*:.;..|
00000AA0: 2A 44 07 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |*D.;------------|
00000AB0: 2D 2D 2D 2D 2D 2D 2D 00 A7 2A 4E 07 3B 2D 2D 20 |-------..*N.;-- |
00000AC0: 20 44 45 4C 45 54 45 20 4C 49 4E 45 20 20 2D 2D | DELETE LINE --|
00000AD0: 00 C0 2A 58 07 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..*X.;----------|
00000AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C6 2A 62 07 3B 00 |---------..*b.;.|
00000AF0: CC 2A 6C 07 3B 00 F1 2A 76 07 43 4C 52 4C 49 4E |.*l.;..*v.CLRLIN|
00000B00: 20 4C 44 41 53 48 46 54 46 4C 41 47 3B 20 3C 43 | LDASHFTFLAG; <C|
00000B10: 54 52 4C 3E 20 54 41 53 54 45 00 0B 2B 80 07 20 |TRL> TASTE..+.. |
00000B20: 43 4D 50 23 24 30 34 3B 20 47 45 44 52 55 45 43 |CMP#$04; GEDRUEC|
00000B30: 4B 54 20 3F 00 36 2B 8A 07 20 42 4E 45 52 55 45 |KT ?.6+.. BNERUE|
00000B40: 43 4B 53 50 52 3B 20 4E 45 49 4E 2C 20 44 41 4E |CKSPR; NEIN, DAN|
00000B50: 4E 20 57 45 49 54 45 52 20 49 4D 20 49 52 51 00 |N WEITER IM IRQ.|
00000B60: 66 2B 94 07 20 4C 44 41 54 41 53 54 45 3B 20 54 |f+.. LDATASTE; T|
00000B70: 41 53 54 45 4E 43 4F 44 45 20 47 4C 45 49 43 48 |ASTENCODE GLEICH|
00000B80: 20 4E 55 4C 4C 20 28 3C 44 45 4C 3E 29 20 3F 00 | NULL (<DEL>) ?.|
00000B90: 91 2B 9E 07 20 42 4E 45 52 55 45 43 4B 53 50 52 |.+.. BNERUECKSPR|
00000BA0: 3B 20 4E 45 49 4E 2C 20 44 41 4E 4E 20 57 45 49 |; NEIN, DANN WEI|
00000BB0: 54 45 52 20 49 4D 20 49 52 51 00 BB 2B A8 07 20 |TER IM IRQ..+.. |
00000BC0: 4A 53 52 43 4C 52 4C 49 4E 45 3B 20 5A 45 49 4C |JSRCLRLINE; ZEIL|
00000BD0: 45 20 41 42 20 43 55 52 53 4F 52 20 4C 4F 45 53 |E AB CURSOR LOES|
00000BE0: 43 48 45 4E 00 D0 2B B2 07 20 4C 44 41 23 24 30 |CHEN..+.. LDA#$0|
00000BF0: 30 3B 20 43 55 52 53 4F 52 00 EE 2B BC 07 20 53 |0; CURSOR..+.. S|
00000C00: 54 41 43 52 53 52 46 4C 41 47 3B 20 41 55 53 53 |TACRSRFLAG; AUSS|
00000C10: 43 48 41 4C 54 45 4E 00 2D 2C C6 07 52 55 45 43 |CHALTEN.-,..RUEC|
00000C20: 4B 53 50 52 20 4A 4D 50 4E 4F 52 4D 49 52 51 3B |KSPR JMPNORMIRQ;|
00000C30: 20 49 52 51 2D 45 49 4E 53 50 52 55 4E 47 20 4F | IRQ-EINSPRUNG O|
00000C40: 48 4E 45 20 3C 52 55 4E 2F 53 54 4F 50 3E 2D 41 |HNE <RUN/STOP>-A|
00000C50: 42 46 52 41 47 45 00 33 2C D0 07 3B 00 39 2C DA |BFRAGE.3,..;.9,.|
00000C60: 07 3B 00 5B 2C E4 07 3B 2D 2D 2D 2D 2D 2D 2D 2D |.;.[,..;--------|
00000C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C80: 2D 2D 2D 2D 00 7D 2C EE 07 3B 2D 2D 20 20 43 55 |----.},..;-- CU|
00000C90: 52 53 4F 52 20 50 4F 53 49 54 49 4F 4E 49 45 52 |RSOR POSITIONIER|
00000CA0: 45 4E 20 20 2D 2D 00 9F 2C F8 07 3B 2D 2D 2D 2D |EN --..,..;----|
00000CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000CC0: 2D 2D 2D 2D 2D 2D 2D 2D 00 A5 2C 02 08 3B 00 AB |--------..,..;..|
00000CD0: 2C 0C 08 3B 00 D0 2C 16 08 43 50 4F 53 20 4A 53 |,..;..,..CPOS JS|
00000CE0: 52 47 45 54 43 42 54 3B 20 48 4F 4C 54 20 43 55 |RGETCBT; HOLT CU|
00000CF0: 52 53 4F 52 5A 45 49 4C 45 00 DE 2C 20 08 20 53 |RSORZEILE.., . S|
00000D00: 54 58 5A 45 49 4C 45 00 00 2D 2A 08 20 4A 53 52 |TXZEILE..-*. JSR|
00000D10: 47 45 54 43 42 54 3B 20 48 4F 4C 54 20 43 55 52 |GETCBT; HOLT CUR|
00000D20: 53 4F 52 53 50 41 4C 54 45 00 0F 2D 34 08 20 53 |SORSPALTE..-4. S|
00000D30: 54 58 53 50 41 4C 54 45 00 2D 2D 3E 08 20 4A 53 |TXSPALTE.-->. JS|
00000D40: 52 53 45 54 43 52 53 52 3B 20 53 45 54 5A 54 20 |RSETCRSR; SETZT |
00000D50: 43 55 52 53 4F 52 00 5B 2D 48 08 20 4A 53 52 43 |CURSOR.[-H. JSRC|
00000D60: 48 52 47 4F 54 3B 20 50 52 55 45 46 54 20 41 55 |HRGOT; PRUEFT AU|
00000D70: 46 20 4E 41 43 48 46 4F 4C 47 45 4E 44 45 4E 20 |F NACHFOLGENDEN |
00000D80: 54 45 58 54 00 7D 2D 52 08 20 42 45 51 45 4E 44 |TEXT.}-R. BEQEND|
00000D90: 3B 20 4B 45 49 4E 20 54 45 58 54 2C 20 44 41 4E |; KEIN TEXT, DAN|
00000DA0: 4E 20 45 4E 44 45 00 8C 2D 5C 08 20 4A 53 52 43 |N ENDE..-\. JSRC|
00000DB0: 48 4B 4B 4F 4D 00 9A 2D 66 08 20 4A 53 52 50 52 |HKKOM..-f. JSRPR|
00000DC0: 49 4E 54 00 C7 2D 70 08 43 4C 52 4C 49 4E 45 20 |INT..-p.CLRLINE |
00000DD0: 4C 44 58 5A 45 49 4C 45 3B 20 42 49 4C 44 53 43 |LDXZEILE; BILDSC|
00000DE0: 48 49 52 4D 41 44 52 45 53 53 45 20 46 55 45 52 |HIRMADRESSE FUER|
00000DF0: 00 E6 2D 7A 08 20 4A 53 52 4C 49 4E 41 44 52 3B |..-z. JSRLINADR;|
00000E00: 20 5A 45 49 4C 45 20 58 20 53 45 54 5A 45 4E 00 | ZEILE X SETZEN.|
00000E10: 01 2E 84 08 20 4C 44 59 23 24 32 37 3B 20 34 30 |.... LDY#$27; 40|
00000E20: 2D 31 20 53 50 41 4C 54 45 4E 00 26 2E 8E 08 44 |-1 SPALTEN.&...D|
00000E30: 45 4C 4C 4F 4F 50 20 4C 44 41 23 24 32 30 3B 20 |ELLOOP LDA#$20; |
00000E40: 43 4F 44 45 20 46 55 45 52 20 53 50 41 43 45 00 |CODE FUER SPACE.|
00000E50: 52 2E 98 08 20 53 54 41 28 4C 49 4E 50 54 52 29 |R... STA(LINPTR)|
00000E60: 2C 59 3B 20 49 4E 53 20 56 49 44 45 4F 2D 52 41 |,Y; INS VIDEO-RA|
00000E70: 4D 20 53 43 48 52 45 49 42 45 4E 00 6E 2E A2 08 |M SCHREIBEN.n...|
00000E80: 20 44 45 59 3B 20 4F 46 46 53 45 54 20 56 45 52 | DEY; OFFSET VER|
00000E90: 52 49 4E 47 45 52 4E 00 9E 2E AC 08 20 43 50 59 |RINGERN..... CPY|
00000EA0: 53 50 41 4C 54 45 3B 20 43 55 52 53 4F 52 50 4F |SPALTE; CURSORPO|
00000EB0: 53 49 54 49 4F 4E 20 53 43 48 4F 4E 20 45 52 52 |SITION SCHON ERR|
00000EC0: 45 49 43 48 54 20 3F 00 C1 2E B6 08 20 42 50 4C |EICHT ?..... BPL|
00000ED0: 44 45 4C 4C 4F 4F 50 3B 20 4E 45 49 4E 2C 20 44 |DELLOOP; NEIN, D|
00000EE0: 41 4E 4E 20 57 45 49 54 45 52 00 CD 2E C0 08 45 |ANN WEITER.....E|
00000EF0: 4E 44 20 52 54 53 00 D3 2E CA 08 3B 00 D9 2E D4 |ND RTS.....;....|
00000F00: 08 3B 00 F4 2E DE 08 3B 2D 2D 2D 2D 2D 2D 2D 2D |.;.....;--------|
00000F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 0F 2F |-------------../|
00000F20: E8 08 3B 2D 2D 20 20 53 54 52 49 4E 47 20 53 55 |..;-- STRING SU|
00000F30: 43 48 45 4E 20 20 2D 2D 00 2A 2F F2 08 3B 2D 2D |CHEN --.*/..;--|
00000F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F50: 2D 2D 2D 00 30 2F FC 08 3B 00 36 2F 06 09 3B 00 |---.0/..;.6/..;.|
00000F60: 3C 2F 10 09 3B 00 62 2F 1A 09 2E 45 51 20 43 48 |</..;.b/...EQ CH|
00000F70: 4B 4B 4F 4D 20 20 3D 24 41 45 46 44 20 20 20 3B |KKOM =$AEFD ;|
00000F80: 4C 49 45 53 54 20 4B 4F 4D 4D 41 00 8E 2F 24 09 |LIEST KOMMA../$.|
00000F90: 2E 45 51 20 47 45 54 42 59 54 20 20 3D 24 42 37 |.EQ GETBYT =$B7|
00000FA0: 39 45 20 20 20 3B 4C 49 45 53 54 20 31 2D 42 59 |9E ;LIEST 1-BY|
00000FB0: 54 45 2D 57 45 52 54 00 C2 2F 2E 09 2E 45 51 20 |TE-WERT../...EQ |
00000FC0: 47 45 54 50 4F 53 20 20 3D 24 42 30 38 42 20 20 |GETPOS =$B08B |
00000FD0: 20 3B 48 4F 4C 54 20 50 4F 49 4E 54 45 52 20 41 | ;HOLT POINTER A|
00000FE0: 55 46 20 56 41 52 49 41 42 4C 45 00 F9 2F 38 09 |UF VARIABLE../8.|
00000FF0: 2E 45 51 20 46 52 4D 4E 55 4D 20 20 3D 24 41 44 |.EQ FRMNUM =$AD|
00001000: 38 41 20 20 20 3B 4C 49 45 53 54 20 4E 55 2E 41 |8A ;LIEST NU.A|
00001010: 55 53 44 52 55 43 4B 20 49 4E 20 46 41 43 20 45 |USDRUCK IN FAC E|
00001020: 49 4E 00 2C 30 42 09 2E 45 51 20 41 44 52 46 4F |IN.,0B..EQ ADRFO|
00001030: 52 20 20 3D 24 42 37 46 37 20 20 20 3B 57 41 4E |R =$B7F7 ;WAN|
00001040: 44 45 4C 54 20 46 41 43 20 4E 41 43 48 20 49 4E |DELT FAC NACH IN|
00001050: 54 45 47 45 52 00 6E 30 4C 09 2E 45 51 20 43 48 |TEGER.n0L..EQ CH|
00001060: 52 47 45 54 20 20 3D 24 37 33 20 20 20 20 20 3B |RGET =$73 ;|
00001070: 49 4E 4B 52 45 4D 2E 54 45 58 54 50 54 52 20 55 |INKREM.TEXTPTR U|
00001080: 2E 48 4F 4C 54 20 41 4B 54 55 45 4C 4C 45 53 20 |.HOLT AKTUELLES |
00001090: 5A 45 49 43 48 45 4E 00 9F 30 56 09 2E 45 51 20 |ZEICHEN..0V..EQ |
000010A0: 43 48 52 47 4F 54 20 20 3D 24 37 39 20 20 20 20 |CHRGOT =$79 |
000010B0: 20 3B 48 4F 4C 54 20 41 4B 54 55 45 4C 4C 45 53 | ;HOLT AKTUELLES|
000010C0: 20 5A 45 49 43 48 45 4E 00 D0 30 60 09 2E 45 51 | ZEICHEN..0`..EQ|
000010D0: 20 54 45 58 54 50 54 52 20 3D 24 37 41 20 20 20 | TEXTPTR =$7A |
000010E0: 20 20 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 42 | ;POINTER AUF B|
000010F0: 41 53 49 43 2D 54 45 58 54 00 D6 30 6A 09 3B 00 |ASIC-TEXT..0j.;.|
00001100: F9 30 74 09 3B 2A 50 4F 49 4E 54 45 52 20 41 55 |.0t.;*POINTER AU|
00001110: 46 20 53 54 52 49 4E 47 44 45 53 43 52 49 50 54 |F STRINGDESCRIPT|
00001120: 2E 2A 00 34 31 7E 09 2E 45 51 20 53 55 43 48 20 |.*.41~..EQ SUCH |
00001130: 20 20 3D 24 41 37 20 20 20 20 20 20 3B 50 54 52 | =$A7 ;PTR|
00001140: 2E 41 55 46 20 44 45 53 43 52 2E 56 2E 53 55 43 |.AUF DESCR.V.SUC|
00001150: 48 4B 52 49 54 2E 2D 53 54 52 49 4E 47 00 6F 31 |HKRIT.-STRING.o1|
00001160: 88 09 2E 45 51 20 45 4E 44 45 20 20 20 3D 24 41 |...EQ ENDE =$A|
00001170: 39 20 20 20 20 20 20 3B 50 54 52 2E 41 55 46 20 |9 ;PTR.AUF |
00001180: 44 45 53 43 52 2E 56 2E 41 52 52 41 59 53 54 52 |DESCR.V.ARRAYSTR|
00001190: 49 4E 47 28 4D 49 4E 29 00 AA 31 92 09 2E 45 51 |ING(MIN)..1...EQ|
000011A0: 20 53 54 41 52 54 20 20 3D 24 41 42 20 20 20 20 | START =$AB |
000011B0: 20 20 3B 50 54 52 2E 41 55 46 20 44 45 53 43 52 | ;PTR.AUF DESCR|
000011C0: 2E 56 2E 41 52 52 41 59 53 54 52 49 4E 47 28 4D |.V.ARRAYSTRING(M|
000011D0: 41 58 29 00 DC 31 9C 09 2E 45 51 20 49 4E 54 56 |AX)..1...EQ INTV|
000011E0: 41 52 20 3D 24 34 37 20 20 20 20 20 20 3B 50 54 |AR =$47 ;PT|
000011F0: 52 2E 41 55 46 20 49 4E 54 45 47 45 52 56 41 52 |R.AUF INTEGERVAR|
00001200: 49 41 42 4C 45 00 E2 31 A6 09 3B 00 FB 31 B0 09 |IABLE..1..;..1..|
00001210: 3B 2A 53 54 52 49 4E 47 44 45 53 52 49 50 54 4F |;*STRINGDESRIPTO|
00001220: 52 45 4E 2A 00 32 32 BA 09 2E 45 51 20 53 55 43 |REN*.22...EQ SUC|
00001230: 48 44 45 53 20 3D 24 42 34 20 20 20 20 20 3B 44 |HDES =$B4 ;D|
00001240: 45 53 43 52 2E 20 44 45 53 20 53 55 43 48 4B 52 |ESCR. DES SUCHKR|
00001250: 49 54 2E 2D 53 54 52 49 4E 47 53 00 73 32 C4 09 |IT.-STRINGS.s2..|
00001260: 2E 45 51 20 41 4B 54 44 45 53 20 20 3D 24 46 42 |.EQ AKTDES =$FB|
00001270: 20 20 20 20 20 3B 44 45 53 43 52 2E 20 44 45 53 | ;DESCR. DES|
00001280: 20 41 4B 54 55 45 4C 4C 45 4E 20 56 45 52 47 4C | AKTUELLEN VERGL|
00001290: 45 49 43 48 53 53 54 52 49 4E 47 53 00 79 32 CE |EICHSSTRINGS.y2.|
000012A0: 09 3B 00 8F 32 D8 09 3B 2A 53 4F 4E 53 54 49 47 |.;..2..;*SONSTIG|
000012B0: 45 20 4C 41 42 45 4C 2A 00 C9 32 E2 09 2E 45 51 |E LABEL*..2...EQ|
000012C0: 20 4C 45 4E 46 4C 41 47 20 20 3D 24 30 33 33 34 | LENFLAG =$0334|
000012D0: 20 20 3B 24 30 30 3D 56 4F 4C 4C 56 45 52 47 4C | ;$00=VOLLVERGL|
000012E0: 45 49 43 48 3B 24 46 46 3D 41 42 4B 55 45 52 5A |EICH;$FF=ABKUERZ|
000012F0: 45 4E 00 F4 32 EC 09 2E 45 51 20 50 52 55 45 46 |EN..2...EQ PRUEF|
00001300: 4C 45 4E 20 3D 24 30 33 33 35 20 20 3B 56 45 52 |LEN =$0335 ;VER|
00001310: 47 4C 45 49 43 48 53 4C 41 45 4E 47 45 00 31 33 |GLEICHSLAENGE.13|
00001320: F6 09 2E 45 51 20 45 4C 45 4D 4E 52 20 20 20 3D |...EQ ELEMNR =|
00001330: 24 30 33 33 36 20 20 3B 4E 52 2E 44 45 53 20 41 |$0336 ;NR.DES A|
00001340: 4B 54 55 45 4C 4C 45 4E 20 56 45 52 47 4C 45 49 |KTUELLEN VERGLEI|
00001350: 43 48 53 53 54 52 49 4E 47 53 00 37 33 00 0A 3B |CHSSTRINGS.73..;|
00001360: 00 3D 33 0A 0A 3B 00 43 33 14 0A 3B 00 60 33 1E |.=3..;.C3..;.`3.|
00001370: 0A 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00001380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7D 33 28 0A 3B 2A |*********.}3(.;*|
00001390: 2A 2A 20 49 4E 49 54 49 41 4C 49 53 49 45 52 55 |** INITIALISIERU|
000013A0: 4E 47 20 2A 2A 2A 00 9A 33 32 0A 3B 2A 2A 2A 2A |NG ***..32.;****|
000013B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013C0: 2A 2A 2A 00 A0 33 3C 0A 3B 00 C4 33 46 0A 3B 2A |***..3<.;..3F.;*|
000013D0: 50 4F 49 4E 54 45 52 20 41 55 46 20 53 55 43 48 |POINTER AUF SUCH|
000013E0: 4B 52 49 54 2E 2D 44 45 53 43 52 2E 2A 00 F3 33 |KRIT.-DESCR.*..3|
000013F0: 50 0A 53 45 41 52 43 48 20 4A 53 52 48 4F 4C 56 |P.SEARCH JSRHOLV|
00001400: 41 52 50 54 52 3B 53 55 43 48 28 2B 31 29 20 3D |ARPTR;SUCH(+1) =|
00001410: 20 50 4F 49 4E 54 45 52 20 41 55 46 00 1C 34 5A | POINTER AUF..4Z|
00001420: 0A 20 53 54 41 53 55 43 48 3B 44 45 53 43 52 2E |. STASUCH;DESCR.|
00001430: 20 44 45 53 20 53 55 43 48 4B 52 49 54 2E 53 54 | DES SUCHKRIT.ST|
00001440: 52 49 4E 47 53 00 2B 34 64 0A 20 53 54 59 53 55 |RINGS.+4d. STYSU|
00001450: 43 48 2B 31 00 31 34 6E 0A 3B 00 37 34 78 0A 3B |CH+1.14n.;.74x.;|
00001460: 00 55 34 82 0A 3B 2A 53 55 43 48 44 45 53 43 52 |.U4..;*SUCHDESCR|
00001470: 49 50 54 4F 52 45 4E 20 48 4F 4C 45 4E 2A 00 7D |IPTOREN HOLEN*.}|
00001480: 34 8C 0A 20 4C 44 59 23 24 30 32 3B 53 55 43 48 |4.. LDY#$02;SUCH|
00001490: 44 45 53 28 2B 32 29 20 3D 20 44 45 53 43 52 49 |DES(+2) = DESCRI|
000014A0: 50 54 4F 52 45 4E 00 AA 34 96 0A 47 45 54 53 55 |PTOREN..4..GETSU|
000014B0: 43 48 20 4C 44 41 28 53 55 43 48 29 2C 59 3B 44 |CH LDA(SUCH),Y;D|
000014C0: 45 53 20 53 55 43 48 4B 52 49 54 2E 53 54 52 49 |ES SUCHKRIT.STRI|
000014D0: 4E 47 53 00 BC 34 A0 0A 20 53 54 41 53 55 43 48 |NGS..4.. STASUCH|
000014E0: 44 45 53 2C 59 00 C5 34 AA 0A 20 44 45 59 00 D5 |DES,Y..4.. DEY..|
000014F0: 34 B4 0A 20 42 50 4C 47 45 54 53 55 43 48 00 DB |4.. BPLGETSUCH..|
00001500: 34 BE 0A 3B 00 E1 34 C8 0A 3B 00 FC 34 D2 0A 3B |4..;..4..;..4..;|
00001510: 2A 45 4C 45 4D 45 4E 54 4E 55 4D 4D 45 52 20 48 |*ELEMENTNUMMER H|
00001520: 4F 4C 45 4E 2A 00 0C 35 DC 0A 20 4C 44 41 54 45 |OLEN*..5.. LDATE|
00001530: 58 54 50 54 52 00 15 35 E6 0A 20 50 48 41 00 27 |XTPTR..5.. PHA.'|
00001540: 35 F0 0A 20 4C 44 41 54 45 58 54 50 54 52 2B 31 |5.. LDATEXTPTR+1|
00001550: 00 30 35 FA 0A 20 50 48 41 00 36 35 04 0B 3B 00 |.05.. PHA.65..;.|
00001560: 60 35 0E 0B 56 4F 52 57 41 45 52 54 53 20 4A 53 |`5..VORWAERTS JS|
00001570: 52 43 48 52 47 45 54 3B 45 4C 45 4D 4E 52 28 2B |RCHRGET;ELEMNR(+|
00001580: 31 29 3D 4E 55 4D 4D 45 52 00 82 35 18 0B 20 43 |1)=NUMMER..5.. C|
00001590: 4D 50 23 22 28 22 3B 44 45 52 20 41 52 52 41 59 |MP#"(";DER ARRAY|
000015A0: 55 4E 54 45 52 47 52 45 4E 5A 45 00 94 35 22 0B |UNTERGRENZE..5".|
000015B0: 20 42 4E 45 56 4F 52 57 41 45 52 54 53 00 9A 35 | BNEVORWAERTS..5|
000015C0: 2C 0B 3B 00 A9 35 36 0B 20 4A 53 52 46 52 4D 4E |,.;..56. JSRFRMN|
000015D0: 55 4D 00 B8 35 40 0B 20 4A 53 52 41 44 52 46 4F |UM..5@. JSRADRFO|
000015E0: 52 00 C7 35 4A 0B 20 53 54 59 45 4C 45 4D 4E 52 |R..5J. STYELEMNR|
000015F0: 00 D8 35 54 0B 20 53 54 41 45 4C 45 4D 4E 52 2B |..5T. STAELEMNR+|
00001600: 31 00 DE 35 5E 0B 3B 00 E7 35 68 0B 20 50 4C 41 |1..5^.;..5h. PLA|
00001610: 00 F9 35 72 0B 20 53 54 41 54 45 58 54 50 54 52 |..5r. STATEXTPTR|
00001620: 2B 31 00 02 36 7C 0B 20 50 4C 41 00 12 36 86 0B |+1..6|. PLA..6..|
00001630: 20 53 54 41 54 45 58 54 50 54 52 00 18 36 90 0B | STATEXTPTR..6..|
00001640: 3B 00 1E 36 9A 0B 3B 00 44 36 A4 0B 3B 2A 50 4F |;..6..;.D6..;*PO|
00001650: 49 4E 54 45 52 20 41 55 46 20 53 54 52 49 4E 47 |INTER AUF STRING|
00001660: 44 45 53 43 52 2E 20 48 4F 4C 45 4E 2A 00 6C 36 |DESCR. HOLEN*.l6|
00001670: AE 0B 20 4A 53 52 48 4F 4C 56 41 52 50 54 52 3B |.. JSRHOLVARPTR;|
00001680: 53 54 41 52 54 28 2B 31 29 3D 50 4F 49 4E 54 45 |START(+1)=POINTE|
00001690: 52 20 41 55 46 00 8B 36 B8 0B 20 53 54 41 53 54 |R AUF..6.. STAST|
000016A0: 41 52 54 3B 44 45 53 43 52 49 50 54 4F 52 45 4E |ART;DESCRIPTOREN|
000016B0: 20 56 4F 4E 00 AC 36 C2 0B 20 53 54 59 53 54 41 | VON..6.. STYSTA|
000016C0: 52 54 2B 31 3B 41 52 52 41 59 53 54 52 49 4E 47 |RT+1;ARRAYSTRING|
000016D0: 28 4D 49 4E 29 00 B2 36 CC 0B 3B 00 D9 36 D6 0B |(MIN)..6..;..6..|
000016E0: 20 4A 53 52 48 4F 4C 56 41 52 50 54 52 3B 45 4E | JSRHOLVARPTR;EN|
000016F0: 44 45 28 2B 31 29 3D 50 4F 49 4E 54 45 52 20 41 |DE(+1)=POINTER A|
00001700: 55 46 00 01 37 E0 0B 20 53 54 41 45 4E 44 45 3B |UF..7.. STAENDE;|
00001710: 44 45 53 43 52 2E 56 4F 4E 20 41 52 52 41 59 53 |DESCR.VON ARRAYS|
00001720: 54 52 49 4E 47 28 4D 41 58 29 00 10 37 EA 0B 20 |TRING(MAX)..7.. |
00001730: 53 54 59 45 4E 44 45 2B 31 00 16 37 F4 0B 3B 00 |STYENDE+1..7..;.|
00001740: 1C 37 FE 0B 3B 00 22 37 08 0C 3B 00 3D 37 12 0C |.7..;."7..;.=7..|
00001750: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00001760: 2A 2A 2A 2A 2A 2A 00 58 37 1C 0C 3B 2A 2A 2A 20 |******.X7..;*** |
00001770: 48 41 55 50 54 50 52 4F 47 52 41 4D 4D 20 2A 2A |HAUPTPROGRAMM **|
00001780: 2A 00 73 37 26 0C 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.s7&.;*********|
00001790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 79 37 30 |************.y70|
000017A0: 0C 3B 00 9B 37 3A 0C 3B 2A 56 45 52 47 4C 45 49 |.;..7:.;*VERGLEI|
000017B0: 43 48 53 4C 41 45 4E 47 45 20 45 52 4D 49 54 54 |CHSLAENGE ERMITT|
000017C0: 45 4C 4E 2A 00 C5 37 44 0C 20 4C 44 41 23 24 30 |ELN*..7D. LDA#$0|
000017D0: 30 3B 4C 45 4E 46 4C 41 47 3A 20 24 30 30 3D 4B |0;LENFLAG: $00=K|
000017E0: 45 49 4E 20 41 42 4B 55 45 52 5A 45 4E 2C 00 E3 |EIN ABKUERZEN,..|
000017F0: 37 4E 0C 20 53 54 41 4C 45 4E 46 4C 41 47 3B 24 |7N. STALENFLAG;$|
00001800: 46 46 3D 41 42 4B 55 45 52 5A 45 4E 00 0B 38 58 |FF=ABKUERZEN..8X|
00001810: 0C 20 4C 44 59 53 55 43 48 44 45 53 3B 50 52 55 |. LDYSUCHDES;PRU|
00001820: 45 46 4C 45 4E 3A 20 45 4E 54 48 41 45 4C 54 20 |EFLEN: ENTHAELT |
00001830: 42 45 49 4D 00 2A 38 62 0C 20 53 54 59 50 52 55 |BEIM.*8b. STYPRU|
00001840: 45 46 4C 45 4E 3B 41 42 4B 55 45 52 5A 45 4E 20 |EFLEN;ABKUERZEN |
00001850: 44 49 45 00 42 38 6C 0C 20 44 45 59 3B 53 54 52 |DIE.B8l. DEY;STR|
00001860: 49 4E 47 4C 41 45 4E 47 45 2D 31 00 68 38 76 0C |INGLAENGE-1.h8v.|
00001870: 20 4C 44 41 28 53 55 43 48 44 45 53 2B 31 29 2C | LDA(SUCHDES+1),|
00001880: 59 3B 28 4F 48 4E 45 22 2A 22 29 2C 53 4F 4E 53 |Y;(OHNE"*"),SONS|
00001890: 54 00 8C 38 80 0C 20 43 4D 50 23 22 2A 22 3B 44 |T..8.. CMP#"*";D|
000018A0: 49 45 20 45 43 48 54 45 20 53 54 52 49 4E 47 4C |IE ECHTE STRINGL|
000018B0: 41 45 4E 47 45 00 AE 38 8A 0C 20 42 4E 45 47 45 |AENGE..8.. BNEGE|
000018C0: 54 44 45 53 3B 56 45 52 47 4C 45 49 43 48 20 50 |TDES;VERGLEICH P|
000018D0: 4F 53 49 54 49 56 2C 00 D0 38 94 0C 20 44 45 43 |OSITIV,..8.. DEC|
000018E0: 4C 45 4E 46 4C 41 47 3B 57 45 4E 4E 20 22 2A 22 |LENFLAG;WENN "*"|
000018F0: 20 45 49 4E 5A 49 47 45 53 00 ED 38 9E 0C 20 44 | EINZIGES..8.. D|
00001900: 45 43 50 52 55 45 46 4C 45 4E 3B 5A 45 49 43 48 |ECPRUEFLEN;ZEICH|
00001910: 45 4E 20 49 53 54 00 F3 38 A8 0C 3B 00 F9 38 B2 |EN IST..8..;..8.|
00001920: 0C 3B 00 1D 39 BC 0C 3B 2A 41 4B 54 55 45 4C 4C |.;..9..;*AKTUELL|
00001930: 45 4E 20 53 54 52 49 4E 47 44 45 53 43 52 2E 20 |EN STRINGDESCR. |
00001940: 48 4F 4C 45 4E 2A 00 48 39 C6 0C 47 45 54 44 45 |HOLEN*.H9..GETDE|
00001950: 53 20 4C 44 59 23 24 30 32 3B 41 4B 54 44 45 53 |S LDY#$02;AKTDES|
00001960: 28 2B 32 29 3D 44 45 53 43 52 49 50 54 4F 52 45 |(+2)=DESCRIPTORE|
00001970: 4E 00 76 39 D0 0C 47 45 54 44 45 53 31 20 4C 44 |N.v9..GETDES1 LD|
00001980: 41 28 53 54 41 52 54 29 2C 59 3B 56 4F 4E 20 41 |A(START),Y;VON A|
00001990: 52 52 41 59 53 54 52 49 4E 47 28 4D 49 4E 29 00 |RRAYSTRING(MIN).|
000019A0: 87 39 DA 0C 20 53 54 41 41 4B 54 44 45 53 2C 59 |.9.. STAAKTDES,Y|
000019B0: 00 90 39 E4 0C 20 44 45 59 00 A0 39 EE 0C 20 42 |..9.. DEY..9.. B|
000019C0: 50 4C 47 45 54 44 45 53 31 00 A6 39 F8 0C 3B 00 |PLGETDES1..9..;.|
000019D0: AC 39 02 0D 3B 00 CA 39 0C 0D 3B 2A 53 4F 4E 44 |.9..;..9..;*SOND|
000019E0: 45 52 46 41 45 4C 4C 45 20 42 45 48 41 4E 44 45 |ERFAELLE BEHANDE|
000019F0: 4C 4E 2A 00 DB 39 16 0D 20 4C 44 41 50 52 55 45 |LN*..9.. LDAPRUE|
00001A00: 46 4C 45 4E 00 00 3A 20 0D 20 42 45 51 50 4F 53 |FLEN..: . BEQPOS|
00001A10: 49 54 49 56 3B 31 29 56 45 52 47 4C 45 49 43 48 |ITIV;1)VERGLEICH|
00001A20: 20 50 4F 53 49 54 49 56 2C 00 31 3A 2A 0D 3B 20 | POSITIV,.1:*.; |
00001A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A40: 20 20 20 20 20 20 20 20 57 45 4E 4E 20 50 52 55 | WENN PRU|
00001A50: 45 46 4C 41 45 4E 47 45 3D 30 00 40 3A 34 0D 20 |EFLAENGE=0.@:4. |
00001A60: 43 4D 50 41 4B 54 44 45 53 00 5E 3A 3E 0D 20 50 |CMPAKTDES.^:>. P|
00001A70: 48 50 3B 32 29 56 45 52 47 4C 45 49 43 48 20 4E |HP;2)VERGLEICH N|
00001A80: 45 47 41 54 49 56 2C 00 81 3A 48 0D 20 4C 44 41 |EGATIV,..:H. LDA|
00001A90: 4C 45 4E 46 4C 41 47 3B 57 45 4E 4E 20 22 2A 22 |LENFLAG;WENN "*"|
00001AA0: 20 45 4E 54 48 41 4C 54 45 4E 00 A5 3A 52 0D 20 | ENTHALTEN..:R. |
00001AB0: 42 45 51 4E 4F 53 54 45 52 4E 3B 55 4E 44 20 56 |BEQNOSTERN;UND V|
00001AC0: 45 52 4C 45 49 43 48 53 53 54 52 49 4E 47 00 C0 |ERLEICHSSTRING..|
00001AD0: 3A 5C 0D 20 50 4C 50 3B 4E 49 43 48 54 20 4C 41 |:\. PLP;NICHT LA|
00001AE0: 45 4E 47 45 52 20 41 4C 53 00 F3 3A 66 0D 3B 20 |ENGER ALS..:f.; |
00001AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B00: 20 20 20 20 20 20 20 20 53 55 43 48 4B 52 49 54 | SUCHKRIT|
00001B10: 45 52 49 55 4D 53 53 54 52 49 4E 47 00 16 3B 70 |ERIUMSSTRING..;p|
00001B20: 0D 20 42 43 53 4E 45 58 54 53 54 52 3B 55 2E 41 |. BCSNEXTSTR;U.A|
00001B30: 4B 54 55 45 4C 4C 45 4D 20 53 54 52 49 4E 47 00 |KTUELLEM STRING.|
00001B40: 26 3B 7A 0D 20 42 43 43 50 52 55 45 46 45 4E 00 |&;z. BCCPRUEFEN.|
00001B50: 59 3B 84 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |Y;..; |
00001B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 29 | 3)|
00001B70: 56 45 52 47 4C 45 49 43 48 20 4E 45 47 41 54 49 |VERGLEICH NEGATI|
00001B80: 56 2C 00 81 3B 8E 0D 4E 4F 53 54 45 52 4E 20 50 |V,..;..NOSTERN P|
00001B90: 4C 50 3B 57 45 4E 4E 20 4B 45 49 4E 20 22 2A 22 |LP;WENN KEIN "*"|
00001BA0: 20 45 4E 54 48 41 4C 54 45 4E 00 A3 3B 98 0D 20 | ENTHALTEN..;.. |
00001BB0: 42 4E 45 4E 45 58 54 53 54 52 3B 55 4E 44 20 53 |BNENEXTSTR;UND S|
00001BC0: 54 52 49 4E 47 4C 41 45 4E 47 45 4E 00 D1 3B A2 |TRINGLAENGEN..;.|
00001BD0: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
00001BE0: 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 45 52 | UNTER|
00001BF0: 53 43 48 49 45 44 4C 49 43 48 00 D7 3B AC 0D 3B |SCHIEDLICH..;..;|
00001C00: 00 EE 3B B6 0D 3B 2A 53 54 52 49 4E 47 56 45 52 |..;..;*STRINGVER|
00001C10: 47 4C 45 49 43 48 2A 00 10 3C C0 0D 50 52 55 45 |GLEICH*..<..PRUE|
00001C20: 46 45 4E 20 4C 44 59 23 24 30 30 3B 5A 45 49 43 |FEN LDY#$00;ZEIC|
00001C30: 48 45 4E 57 45 49 53 45 52 00 41 3C CA 0D 50 52 |HENWEISER.A<..PR|
00001C40: 55 45 46 4C 4F 4F 50 20 4C 44 41 28 53 55 43 48 |UEFLOOP LDA(SUCH|
00001C50: 44 45 53 2B 31 29 2C 59 3B 56 45 52 47 4C 45 49 |DES+1),Y;VERGLEI|
00001C60: 43 48 20 42 49 53 20 5A 55 52 00 5A 3C D4 0D 20 |CH BIS ZUR.Z<.. |
00001C70: 43 4D 50 23 22 3F 22 3B 50 52 55 45 46 4C 41 45 |CMP#"?";PRUEFLAE|
00001C80: 4E 47 45 00 80 3C DE 0D 20 42 45 51 4E 45 58 54 |NGE..<.. BEQNEXT|
00001C90: 43 48 41 52 3B 28 22 3F 22 20 49 53 54 20 49 4D |CHAR;("?" IST IM|
00001CA0: 4D 45 52 20 4F 4B 41 59 29 00 99 3C E8 0D 20 4A |MER OKAY)..<.. J|
00001CB0: 53 52 49 47 4E 4F 52 45 3B 56 45 52 47 4C 2E 49 |SRIGNORE;VERGL.I|
00001CC0: 53 54 00 B7 3C F2 0D 20 42 43 43 4E 45 58 54 53 |ST..<.. BCCNEXTS|
00001CD0: 54 52 3B 4E 45 47 41 54 49 56 2C 20 57 45 4E 4E |TR;NEGATIV, WENN|
00001CE0: 00 DA 3C FC 0D 4E 45 58 54 43 48 41 52 20 49 4E |..<..NEXTCHAR IN|
00001CF0: 59 3B 45 49 4E 20 5A 45 49 43 48 45 4E 20 4E 49 |Y;EIN ZEICHEN NI|
00001D00: 43 48 54 00 FA 3C 06 0E 20 43 50 59 50 52 55 45 |CHT..<.. CPYPRUE|
00001D10: 46 4C 45 4E 3B 55 45 42 45 52 45 49 4E 53 54 49 |FLEN;UEBEREINSTI|
00001D20: 4D 4D 54 00 0C 3D 10 0E 20 42 43 43 50 52 55 45 |MMT..=.. BCCPRUE|
00001D30: 46 4C 4F 4F 50 00 25 3D 1A 0E 50 4F 53 42 52 41 |FLOOP.%=..POSBRA|
00001D40: 4E 43 48 20 42 45 51 50 4F 53 49 54 49 56 00 2B |NCH BEQPOSITIV.+|
00001D50: 3D 24 0E 3B 00 31 3D 2E 0E 3B 00 55 3D 38 0E 3B |=$.;.1=..;.U=8.;|
00001D60: 2A 50 4F 49 4E 54 45 52 20 41 55 46 20 4E 45 58 |*POINTER AUF NEX|
00001D70: 54 53 54 52 49 4E 47 44 45 53 43 52 2E 2A 00 6A |TSTRINGDESCR.*.j|
00001D80: 3D 42 0E 4E 45 58 54 53 54 52 20 4C 44 41 53 54 |=B.NEXTSTR LDAST|
00001D90: 41 52 54 00 7F 3D 4C 0E 20 43 4C 43 3B 50 4F 49 |ART..=L. CLC;POI|
00001DA0: 4E 54 45 52 20 41 55 46 00 9D 3D 56 0E 20 41 44 |NTER AUF..=V. AD|
00001DB0: 43 23 24 30 33 3B 4E 41 45 43 48 53 54 45 4E 20 |C#$03;NAECHSTEN |
00001DC0: 53 54 52 49 4E 47 00 BE 3D 60 0E 20 53 54 41 53 |STRING..=`. STAS|
00001DD0: 54 41 52 54 3B 53 45 54 5A 45 4E 20 28 3D 41 4B |TART;SETZEN (=AK|
00001DE0: 54 55 45 4C 4C 45 52 00 D8 3D 6A 0E 20 42 43 43 |TUELLER..=j. BCC|
00001DF0: 49 4E 43 4E 52 3B 50 4F 49 4E 54 45 52 20 2B 33 |INCNR;POINTER +3|
00001E00: 29 00 E8 3D 74 0E 20 49 4E 43 53 54 41 52 54 2B |)..=t. INCSTART+|
00001E10: 31 00 EE 3D 7E 0E 3B 00 F4 3D 88 0E 3B 00 14 3E |1..=~.;..=..;..>|
00001E20: 92 0E 3B 2A 45 4C 45 4D 45 4E 54 4E 52 2E 49 4E |..;*ELEMENTNR.IN|
00001E30: 4B 52 45 4D 45 4E 54 49 45 52 45 4E 2A 00 28 3E |KREMENTIEREN*.(>|
00001E40: 9C 0E 49 4E 43 4E 52 20 49 4E 43 45 4C 45 4D 4E |..INCNR INCELEMN|
00001E50: 52 00 46 3E A6 0E 20 42 4E 45 43 4F 4D 50 50 54 |R.F>.. BNECOMPPT|
00001E60: 52 3B 45 4C 45 4D 45 4E 54 4E 52 2C 20 55 4D 00 |R;ELEMENTNR, UM.|
00001E70: 65 3E B0 0E 20 49 4E 43 45 4C 45 4D 4E 52 2B 31 |e>.. INCELEMNR+1|
00001E80: 3B 45 49 4E 53 20 45 52 48 4F 45 48 45 4E 00 6B |;EINS ERHOEHEN.k|
00001E90: 3E BA 0E 3B 00 71 3E C4 0E 3B 00 95 3E CE 0E 3B |>..;.q>..;..>..;|
00001EA0: 2A 50 4F 49 4E 54 45 52 20 4D 49 54 20 45 4E 44 |*POINTER MIT END|
00001EB0: 45 20 56 45 52 47 4C 45 49 43 48 45 4E 2A 00 AC |E VERGLEICHEN*..|
00001EC0: 3E D8 0E 43 4F 4D 50 50 54 52 20 4C 44 41 53 54 |>..COMPPTR LDAST|
00001ED0: 41 52 54 2B 31 00 CE 3E E2 0E 20 43 4D 50 45 4E |ART+1..>.. CMPEN|
00001EE0: 44 45 2B 31 3B 53 55 43 48 45 20 49 53 54 20 42 |DE+1;SUCHE IST B|
00001EF0: 45 45 4E 44 45 54 2C 00 ED 3E EC 0E 20 42 43 43 |EENDET,..>.. BCC|
00001F00: 47 45 54 44 45 53 3B 57 45 4E 4E 20 28 53 54 41 |GETDES;WENN (STA|
00001F10: 52 54 28 2B 31 29 00 08 3F F6 0E 20 4C 44 41 53 |RT(+1)..?.. LDAS|
00001F20: 54 41 52 54 3B 47 52 4F 45 53 53 45 52 20 49 53 |TART;GROESSER IS|
00001F30: 54 00 22 3F 00 0F 20 43 4D 50 45 4E 44 45 3B 41 |T."?.. CMPENDE;A|
00001F40: 4C 53 20 45 4E 44 45 28 2B 31 29 00 31 3F 0A 0F |LS ENDE(+1).1?..|
00001F50: 20 42 43 43 47 45 54 44 45 53 00 40 3F 14 0F 20 | BCCGETDES.@?.. |
00001F60: 42 45 51 47 45 54 44 45 53 00 46 3F 1E 0F 3B 00 |BEQGETDES.F?..;.|
00001F70: 4C 3F 28 0F 3B 00 66 3F 32 0F 3B 2A 56 45 52 47 |L?(.;.f?2.;*VERG|
00001F80: 4C 45 49 43 48 20 4E 45 47 41 54 54 49 56 2A 00 |LEICH NEGATTIV*.|
00001F90: 7A 3F 3C 0F 4E 45 47 41 54 49 56 20 4C 44 41 23 |z?<.NEGATIV LDA#|
00001FA0: 24 30 30 00 96 3F 46 0F 20 53 54 41 45 4C 45 4D |$00..?F. STAELEM|
00001FB0: 4E 52 3B 45 4C 45 4D 45 4E 54 4E 52 2E 3D 30 00 |NR;ELEMENTNR.=0.|
00001FC0: A7 3F 50 0F 20 53 54 41 45 4C 45 4D 4E 52 2B 31 |.?P. STAELEMNR+1|
00001FD0: 00 AD 3F 5A 0F 3B 00 B3 3F 64 0F 3B 00 CC 3F 6E |..?Z.;..?d.;..?n|
00001FE0: 0F 3B 2A 56 45 52 47 4C 45 49 43 48 20 50 4F 53 |.;*VERGLEICH POS|
00001FF0: 49 54 49 56 2A 00 FA 3F 78 0F 50 4F 53 49 54 49 |ITIV*..?x.POSITI|
00002000: 56 20 4A 53 52 43 48 4B 4B 4F 4D 3B 50 4F 49 4E |V JSRCHKKOM;POIN|
00002010: 54 45 52 20 41 55 46 20 49 4E 54 45 47 45 52 56 |TER AUF INTEGERV|
00002020: 41 52 2E 00 1F 40 82 0F 20 4A 53 52 47 45 54 50 |AR...@.. JSRGETP|
00002030: 4F 53 3B 4E 41 43 48 20 49 4E 54 56 41 52 28 2B |OS;NACH INTVAR(+|
00002040: 31 29 20 48 4F 4C 45 4E 00 25 40 8C 0F 3B 00 44 |1) HOLEN.%@..;.D|
00002050: 40 96 0F 20 4C 44 58 45 4C 45 4D 4E 52 3B 45 4C |@.. LDXELEMNR;EL|
00002060: 45 4D 45 4E 54 4E 52 2E 4C 41 44 45 4E 00 55 40 |EMENTNR.LADEN.U@|
00002070: A0 0F 20 4C 44 41 45 4C 45 4D 4E 52 2B 31 00 5B |.. LDAELEMNR+1.[|
00002080: 40 AA 0F 3B 00 61 40 B4 0F 3B 00 7C 40 BE 0F 3B |@..;.a@..;.|@..;|
00002090: 2A 45 52 47 45 42 4E 49 53 20 55 45 42 45 52 47 |*ERGEBNIS UEBERG|
000020A0: 45 42 45 4E 2A 00 8D 40 C8 0F 42 41 43 4B 20 4C |EBEN*..@..BACK L|
000020B0: 44 59 23 24 30 30 00 AB 40 D2 0F 20 53 54 41 28 |DY#$00..@.. STA(|
000020C0: 49 4E 54 56 41 52 29 2C 59 3B 45 4C 45 4D 45 4E |INTVAR),Y;ELEMEN|
000020D0: 54 4E 52 2E 00 C4 40 DC 0F 20 49 4E 59 3B 49 4E |TNR...@.. INY;IN|
000020E0: 20 44 49 45 20 49 4E 54 45 47 45 52 2D 00 D6 40 | DIE INTEGER-..@|
000020F0: E6 0F 20 54 58 41 3B 56 41 52 49 41 42 4C 45 00 |.. TXA;VARIABLE.|
00002100: F2 40 F0 0F 20 53 54 41 28 49 4E 54 56 41 52 29 |.@.. STA(INTVAR)|
00002110: 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 04 41 FA 0F |,Y;KOPIEREN..A..|
00002120: 20 52 54 53 3B 3D 3E 20 42 41 53 49 43 00 0A 41 | RTS;=> BASIC..A|
00002130: 04 10 3B 00 10 41 0E 10 3B 00 35 41 18 10 3B 2A |..;..A..;.5A..;*|
00002140: 2A 2A 20 55 4E 54 45 50 52 4F 47 2E 3A 20 56 41 |** UNTEPROG.: VA|
00002150: 52 50 54 52 20 48 4F 4C 45 4E 20 2A 2A 2A 00 4D |RPTR HOLEN ***.M|
00002160: 41 22 10 48 4F 4C 56 41 52 50 54 52 20 4A 53 52 |A".HOLVARPTR JSR|
00002170: 43 48 4B 4B 4F 4D 00 5C 41 2C 10 20 4A 4D 50 47 |CHKKOM.\A,. JMPG|
00002180: 45 54 50 4F 53 00 62 41 36 10 3B 00 68 41 40 10 |ETPOS.bA6.;.hA@.|
00002190: 3B 00 6E 41 4A 10 3B 00 74 41 54 10 3B 00 7A 41 |;.nAJ.;.tAT.;.zA|
000021A0: 5E 10 3B 00 80 41 68 10 3B 00 A4 41 72 10 3B 2A |^.;..Ah.;..Ar.;*|
000021B0: 2A 2A 20 47 52 4F 53 53 2F 4B 4C 45 49 4E 20 49 |** GROSS/KLEIN I|
000021C0: 47 4E 4F 52 49 45 52 45 4E 20 2A 2A 2A 00 AA 41 |GNORIEREN ***..A|
000021D0: 7C 10 3B 00 C6 41 86 10 49 47 4E 4F 52 45 20 4C ||.;..A..IGNORE L|
000021E0: 44 41 28 53 55 43 48 44 45 53 2B 31 29 2C 59 00 |DA(SUCHDES+1),Y.|
000021F0: DB 41 90 10 20 43 4D 50 28 41 4B 54 44 45 53 2B |.A.. CMP(AKTDES+|
00002200: 31 29 2C 59 00 E7 41 9A 10 20 42 45 51 50 4F 53 |1),Y..A.. BEQPOS|
00002210: 00 F4 41 A4 10 20 45 4F 52 23 24 38 30 00 09 42 |..A.. EOR#$80..B|
00002220: AE 10 20 43 4D 50 28 41 4B 54 44 45 53 2B 31 29 |.. CMP(AKTDES+1)|
00002230: 2C 59 00 15 42 B8 10 20 42 45 51 50 4F 53 00 21 |,Y..B.. BEQPOS.!|
00002240: 42 C2 10 4E 45 47 20 43 4C 43 00 2A 42 CC 10 20 |B..NEG CLC.*B.. |
00002250: 52 54 53 00 36 42 D6 10 50 4F 53 20 53 45 43 00 |RTS.6B..POS SEC.|
00002260: 3F 42 E0 10 20 52 54 53 00 47 42 EA 10 2E 45 4E |?B.. RTS.GB...EN|
00002270: 00 00 00 |... |
X.....;-----------------------------.. .
.;-- --.A ..;--
TOOLKIT ZU "REL-DEMO" --.D ..;-- 64'
ER AUSGABE 09/89 --.. ..;--
--.. ..;-- (W) 1989 JOER
G NEBEL --.M $.;-- UND MATTHIAS ULLMA
NN --.. ..;-- -
-..!8.;-- FUER "STRING SUCHEN": --.6!B
.;-- (C) 1987 SAID BALOUI --.Y!L.;--
--.|!V.;--------
---------------------..!`.;..!J..BA $C00
0..!T.;.K!~..EQ CLRANF = $02 ; ERSTE
ZU LOESCHENDE ZEILE.."...EQ NAMLEN =
$B7 ; LAENGE DES AKTUELLEN FILENAMENS.
9"...EQ TASTE = $CB ; LETZTE GEDRUE
CKTE TASTE.L"...EQ CRSRFLAG = $CF ; FL
AG FUER CURSOR AN/AUS.."...EQ LINPTR =
$D1 ; ZEIGER AUF ZEILENANFANG.P"...EQ
SPALTE = $D3 ; AKTUELLE CURSORSPALT
E..#...EQ ZEILE = $D6 ; AKTUELLE CU
RSORZEILE.4#D..EQ SHFTFLAG = $028D ; FLA
G FUER SHIFT,CTRL,CBM.E#N..EQ IRQ =
$0314 ; IRQ-VEKTOR (LOW-BYTE)..#X..EQ N
MI = $0318 ; NMI-VEKTOR (LOW-BYTE).
.#..;.T#...EQ CHRGOT = $0079 ; PRUEFT
AUF WEITERE PARAMETER..$...EQ PRINT =
$AAA4 ; EINSPRUNG IN PRINT-ROUTINE.J$..
.EQ CHKKOM = $AEFD ; PRUEFT AUF KOMMA,
SONST SYNTAX ERROR..$...EQ GETCBT = $
B7F1 ; PRUEFT AUF KOMMA, HOLT BYTEWERT N
ACH X-REG...$...EQ SCNCLR = $E544 ; BI
LDSCHIRM LOESCHEN..$...EQ SETCRSR = $E5
6C ; CURSORPOSITION SETZEN.5%(..EQ LINAD
R = $E9F0 ; BERECHNET BILDSCHIRMADRESS
E FUER ZEILE X.K%2..EQ DELLIN = $E9FF
; BILDSCHIRMZEILE X LOESCHEN..%<..EQ NOR
MIRQ = $EA34 ; EINSPRUNG IN REGULAERE I
RQ-ROUTINE..%F..EQ RESTOR = $FD15 ; ST
ANDARD-I/O-VEKTOREN SETZEN..%P.;..%Z.;..
&D.;-------------------..&N.;-- EINSPRU
ENGE --.8&X.;-------------------.>&..;.
D&..;.Q&.. JMPCPOS.B& . JMPCLRLINES.Q&..
JMPSEARCH.W&..;.}&..;..&H.;------------
-----------..&R.;-- ZEILEN LOESCHEN --
.T&..;-----------------------.Z&..;..&..
;..'..CLRLINES JSRCHRGOT; FOLGEN WEITERE
PARAMETER ?.:'.. BEQSETIRQ; NEIN, DANN
ZU "SETIRQ".J'.. JSRGETCBT; SONST ERSTE
ZU LOESCHENDE ZEILE..'.. STXCLRANF; NACH
X HOLEN UND SPEICHERN..'". JSRCHRGOT; F
OLGT WEITERER PARAMETER ?..',. BEQCLRLOO
P; NEIN, DANN ZEILE X LOESCHEN.$(6. JSRG
ETCBT; SONST LETZTE ZU LOESCHENDE ZEILE
HOLEN.J(@.CLRLOOP JSRDELLIN; ZEILE LOESC
HEN.J(J. DEX; ZEILENWERT VERMINDERN..(T.
CPXCLRANF; SCHON ERSTE ZU LOESCHENDE ZE
ILE ?..(^. BPLCLRLOOP; NEIN, DANN WEITER
.H(H. RTS.N(R.;.T(|.;..(..;-------------
--------..)..;-- INITIALISIERUNG --.%)..
;---------------------.+)..;.1)..;.S)..S
ETIRQ SEI; INTERRUPT SPERREN.B)B. JSRRES
TOR..)L. LDANAMLEN; FILENAME VORHANDEN ?
..)V. BEQCLI; JA, DANN..).. LDA#<(CLRLIN
); IRQ-VEKTOR.T).. STAIRQ; AUF EIGENE..)
.. LDA#>(CLRLIN); ROUTINE..*.. STAIRQ+1;
UMLENKEN.$*.. LDA#$C1; UND <RESTORE>.9*
.. STANMI; SPERREN.Z*..CLI CLI; INTERRUP
T FREIGEBEN.I*&. JMPSCNCLR.O*0.;.U*:.;..
*D.;-------------------..*N.;-- DELETE
LINE --..*X.;-------------------.F*B.;.
L*L.;..*V.CLRLIN LDASHFTFLAG; <CTRL> TAS
TE..+.. CMP#$04; GEDRUECKT ?.6+.. BNERUE
CKSPR; NEIN, DANN WEITER IM IRQ.F+.. LDA
TASTE; TASTENCODE GLEICH NULL (<DEL>) ?.
.+.. BNERUECKSPR; NEIN, DANN WEITER IM I
RQ..+.. JSRCLRLINE; ZEILE AB CURSOR LOES
CHEN.P+.. LDA#$00; CURSOR..+.. STACRSRFL
AG; AUSSCHALTEN.-,F.RUECKSPR JMPNORMIRQ;
IRQ-EINSPRUNG OHNE <RUN/STOP>-ABFRAGE.3
,P.;.9,Z.;.[,..;------------------------
----.},..;-- CURSOR POSITIONIEREN --..
,..;----------------------------..,..;..
,..;.P,..CPOS JSRGETCBT; HOLT CURSORZEIL
E.., . STXZEILE..-*. JSRGETCBT; HOLT CUR
SORSPALTE..-4. STXSPALTE.-->. JSRSETCRSR
; SETZT CURSOR.[-H. JSRCHRGOT; PRUEFT AU
F NACHFOLGENDEN TEXT.}-R. BEQEND; KEIN T
EXT, DANN ENDE..-\. JSRCHKKOM..-F. JSRPR
INT.G-P.CLRLINE LDXZEILE; BILDSCHIRMADRE
SSE FUER..-Z. JSRLINADR; ZEILE X SETZEN.
.... LDY#$27; 40-1 SPALTEN.&...DELLOOP L
DA#$20; CODE FUER SPACE.R... STA(LINPTR)
,Y; INS VIDEO-RAM SCHREIBEN.N... DEY; OF
FSET VERRINGERN..... CPYSPALTE; CURSORPO
SITION SCHON ERREICHT ?.A... BPLDELLOOP;
NEIN, DANN WEITER.M...END RTS.S.J.;.Y.T
.;.....;---------------------../..;-- S
TRING SUCHEN --.*/..;------------------
---.0/..;.6/..;.</..;.B/...EQ CHKKOM =$
AEFD ;LIEST KOMMA../$..EQ GETBYT =$B7
9E ;LIEST 1-BYTE-WERT.B/...EQ GETPOS
=$B08B ;HOLT POINTER AUF VARIABLE../8.
.EQ FRMNUM =$AD8A ;LIEST NU.AUSDRUCK
IN FAC EIN.,0B..EQ ADRFOR =$B7F7 ;WAN
DELT FAC NACH INTEGER.N0L..EQ CHRGET =$
73 ;INKREM.TEXTPTR U.HOLT AKTUELLES
ZEICHEN..0V..EQ CHRGOT =$79 ;HOLT A
KTUELLES ZEICHEN.P0`..EQ TEXTPTR =$7A
;POINTER AUF BASIC-TEXT.V0J.;..0T.;*PO
INTER AUF STRINGDESCRIPT.*.41~..EQ SUCH
=$A7 ;PTR.AUF DESCR.V.SUCHKRIT.-S
TRING.O1...EQ ENDE =$A9 ;PTR.AUF
DESCR.V.ARRAYSTRING(MIN)..1...EQ START
=$AB ;PTR.AUF DESCR.V.ARRAYSTRING(M
AX)..1...EQ INTVAR =$47 ;PTR.AUF IN
TEGERVARIABLE..1..;..1..;*STRINGDESRIPTO
REN*.22...EQ SUCHDES =$B4 ;DESCR. DE
S SUCHKRIT.-STRINGS.S2D..EQ AKTDES =$FB
;DESCR. DES AKTUELLEN VERGLEICHSSTR
INGS.Y2N.;..2X.;*SONSTIGE LABEL*.I2...EQ
LENFLAG =$0334 ;$00=VOLLVERGLEICH;$FF
=ABKUERZEN..2...EQ PRUEFLEN =$0335 ;VER
GLEICHSLAENGE.13...EQ ELEMNR =$0336 ;
NR.DES AKTUELLEN VERGLEICHSSTRINGS.73..;
.=3..;.C3..;.`3..;**********************
*.}3(.;*** INITIALISIERUNG ***..32.;****
*******************. 3<.;.D3F.;*POINTER
AUF SUCHKRIT.-DESCR.*..3P.SEARCH JSRHOLV
ARPTR;SUCH(+1) = POINTER AUF..4Z. STASUC
H;DESCR. DES SUCHKRIT.STRINGS.+4D. STYSU
CH+1.14N.;.74X.;.U4..;*SUCHDESCRIPTOREN
HOLEN*.}4.. LDY#$02;SUCHDES(+2) = DESCRI
PTOREN..4..GETSUCH LDA(SUCH),Y;DES SUCHK
RIT.STRINGS..4 . STASUCHDES,Y.E4.. DEY.U
4.. BPLGETSUCH..4..;..4H.;..4R.;*ELEMENT
NUMMER HOLEN*..5.. LDATEXTPTR..5.. PHA.'
5.. LDATEXTPTR+1.05.. PHA.65..;.`5..VORW
AERTS JSRCHRGET;ELEMNR(+1)=NUMMER..5.. C
MP#"(";DER ARRAYUNTERGRENZE..5". BNEVORW
AERTS..5,.;..56. JSRFRMNUM..5@. JSRADRFO
R.G5J. STYELEMNR.X5T. STAELEMNR+1..5^.;.
.5H. PLA..5R. STATEXTPTR+1..6|. PLA..6..
STATEXTPTR..6..;..6..;.D6..;*POINTER AU
F STRINGDESCR. HOLEN*.L6.. JSRHOLVARPTR;
START(+1)=POINTER AUF..6.. STASTART;DESC
RIPTOREN VON..6B. STYSTART+1;ARRAYSTRING
(MIN)..6L.;.Y6V. JSRHOLVARPTR;ENDE(+1)=P
OINTER AUF..7.. STAENDE;DESCR.VON ARRAYS
TRING(MAX)..7.. STYENDE+1..7..;..7..;."7
..;.=7..;*********************.X7..;***
HAUPTPROGRAMM ***.S7&.;*****************
****.Y70.;..7:.;*VERGLEICHSLAENGE ERMITT
ELN*.E7D. LDA#$00;LENFLAG: $00=KEIN ABKU
ERZEN,..7N. STALENFLAG;$FF=ABKUERZEN..8X
. LDYSUCHDES;PRUEFLEN: ENTHAELT BEIM.*8B
. STYPRUEFLEN;ABKUERZEN DIE.B8L. DEY;STR
INGLAENGE-1.H8V. LDA(SUCHDES+1),Y;(OHNE"
*"),SONST..8.. CMP#"*";DIE ECHTE STRINGL
AENGE..8.. BNEGETDES;VERGLEICH POSITIV,.
P8.. DECLENFLAG;WENN "*" EINZIGES..8.. D
ECPRUEFLEN;ZEICHEN IST..8..;..8..;..9..;
*AKTUELLEN STRINGDESCR. HOLEN*.H9F.GETDE
S LDY#$02;AKTDES(+2)=DESCRIPTOREN.V9P.GE
TDES1 LDA(START),Y;VON ARRAYSTRING(MIN).
.9Z. STAAKTDES,Y..9.. DEY. 9.. BPLGETDES
1..9..;..9..;.J9..;*SONDERFAELLE BEHANDE
LN*..9.. LDAPRUEFLEN..: . BEQPOSITIV;1)V
ERGLEICH POSITIV,.1:*.;
WENN PRUEFLAENGE=0.@:4. CMPAKTDE
S.^:>. PHP;2)VERGLEICH NEGATIV,..:H. LDA
LENFLAG;WENN "*" ENTHALTEN..:R. BEQNOSTE
RN;UND VERLEICHSSTRING..:\. PLP;NICHT LA
ENGER ALS..:F.;
SUCHKRITERIUMSSTRING..;P. BCSNEXTSTR;U.A
KTUELLEM STRING.&;Z. BCCPRUEFEN.Y;..;
3)VERGLEICH NEGATI
V,..;..NOSTERN PLP;WENN KEIN "*" ENTHALT
EN..;.. BNENEXTSTR;UND STRINGLAENGEN.Q;.
.; UNTERSCHIEDLI
CH.W;..;..;..;*STRINGVERGLEICH*..<..PRUE
FEN LDY#$00;ZEICHENWEISER.A<J.PRUEFLOOP
LDA(SUCHDES+1),Y;VERGLEICH BIS ZUR.Z<T.
CMP#"?";PRUEFLAENGE..<.. BEQNEXTCHAR;("?
" IST IMMER OKAY)..<.. JSRIGNORE;VERGL.I
ST..<.. BCCNEXTSTR;NEGATIV, WENN.Z<..NEX
TCHAR INY;EIN ZEICHEN NICHT..<.. CPYPRUE
FLEN;UEBEREINSTIMMT..=.. BCCPRUEFLOOP.%=
..POSBRANCH BEQPOSITIV.+=$.;.1=..;.U=8.;
*POINTER AUF NEXTSTRINGDESCR.*.J=B.NEXTS
TR LDASTART.=L. CLC;POINTER AUF..=V. AD
C#$03;NAECHSTEN STRING..=`. STASTART;SET
ZEN (=AKTUELLER.X=J. BCCINCNR;POINTER +3
)..=T. INCSTART+1..=~.;..=..;..>..;*ELEM
ENTNR.INKREMENTIEREN*.(>..INCNR INCELEMN
R.F>.. BNECOMPPTR;ELEMENTNR, UM.E>.. INC
ELEMNR+1;EINS ERHOEHEN.K>..;.Q>D.;..>N.;
*POINTER MIT ENDE VERGLEICHEN*..>X.COMPP
TR LDASTART+1.N>.. CMPENDE+1;SUCHE IST B
EENDET,..>.. BCCGETDES;WENN (START(+1)..
?.. LDASTART;GROESSER IST."?.. CMPENDE;A
LS ENDE(+1).1?.. BCCGETDES.@?.. BEQGETDE
S.F?..;.L?(.;.F?2.;*VERGLEICH NEGATTIV*.
Z?<.NEGATIV LDA#$00..?F. STAELEMNR;ELEME
NTNR.=0..?P. STAELEMNR+1..?Z.;..?D.;.L?N
.;*VERGLEICH POSITIV*..?X.POSITIV JSRCHK
KOM;POINTER AUF INTEGERVAR...@.. JSRGETP
OS;NACH INTVAR(+1) HOLEN.%@..;.D@.. LDXE
LEMNR;ELEMENTNR.LADEN.U@ . LDAELEMNR+1.[
@..;.A@..;.|@..;*ERGEBNIS UEBERGEBEN*..@
H.BACK LDY#$00..@R. STA(INTVAR),Y;ELEMEN
TNR..D@.. INY;IN DIE INTEGER-.V@.. TXA;V
ARIABLE..@.. STA(INTVAR),Y;KOPIEREN..A..
RTS;=> BASIC..A..;..A..;.5A..;*** UNTEP
ROG.: VARPTR HOLEN ***.MA".HOLVARPTR JSR
CHKKOM.\A,. JMPGETPOS.BA6.;.HA@.;.NAJ.;.
TAT.;.ZA^.;..AH.;..AR.;*** GROSS/KLEIN I
GNORIEREN ***..A|.;.FA..IGNORE LDA(SUCHD
ES+1),Y..A.. CMP(AKTDES+1),Y..A.. BEQPOS
..A.. EOR#$80..B.. CMP(AKTDES+1),Y..B..
BEQPOS.!BB.NEG CLC.*BL. RTS.6BV.POS SEC.
?B.. RTS.GB...EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL