REL-TOOL.SRC
FILE INFORMATION
FILENAME(S): REL-TOOL.SRC
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:13:40
APPEARS ON: 1 disk(s)
FILE HASH
7d2c5b22acbdce164ee37642fb431cf1f1d0b9dafffc69f0a901826a0af5592a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 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|
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 ?..',. B
> CLICK IMAGE PREVIEW FOR FULL MODAL