BTree- und Match-Code-Suche Toolkit / Programmierschnittstellen / BasicA, GWBasic, Basic 86, CB86

FATS - Fast Access Tree System
	Inhaltsverzeichnis
		Programmierschnittstellen
			BasicA, GWBasic, Basic 86, CB86

BasicA, GWBasic, Basic 86, CB86

FATS.COM (Residentes Modul)

Wenn Sie von Ihrem Basic-Interpreter aus FATS-Befehle ausführen möchten, dann müssen Sie mit der residenten Version FATS.COM arbeiten.

Starten Sie das Modul FATS.COM einmalig vor dem Aufruf des Basic-Interpreters bzw. schreiben Sie den Aufruf des Moduls in Ihre AUTOEXEC.BAT. FATS fixiert sich dabei im Speicher und kann dann durch einen ABSOLUTE CALL von Basic aus erreicht werden.

Bitte beachten Sie, daß bei jedem Start von FATS.COM eine komplette Kopie des Moduls im Speicher verbleibt. Sie sollten daher sicherstellen, daß FATS.COM nur einmal geladen wird !

FATS initialisieren

Nach dem Start des Moduls FATS.COM wird eine Datei mit dem Namen FSEG auf die Platte geschrieben, aus der Basic die Segmentadresse des Moduls lesen kann:

REM
REM -------> FSEG / Segmentadresse von FATS lesen
REM
OPEN "I" , #1, "FSEG"
INPUT #1,FSEG
CLOSE #1

Wenn der Start des FATS-Moduls im selben Verzeichnis stattfand, in dem Ihre Basic-Programme ausgeführt werden, dann befindet sich die Segmentadresse von FATS.COM in der numerischen Variable FSEG.

Aufruf von FATS

FATS-Befehle werden über den absoluten Einsprungpunkt &H5 in FATS.COM ausgeführt (bei Verwendung des QBasic Interpreters von DOS 5- ist der Einsprungpunkt &H8)

REM
REM *** call FATS ***
REM
FTSBASIC=&H5
DEF SEG=FSEG
CALL FTSBASIC (CMND$, FATSERR%, RECLO%, KEYADR%)
RECLO=RECLO% : IF RECLO<0 THEN RECLO=RECLO+65536!
KEYADR= KEYADR% : IF KEYADR < 0 THEN KEYADR = KEYADR + 65536!
CMND$ = "X"
CALL FTSBASIC (CMND$, DUMMY%, RECHI%, DUMMY%)
RECHI=RECHI% : IF RECHI<0 THEN RECHI=RECHI+65536!
RECNO=RECLO+RECHI*65536!
DEF SEG
RETURN

Wenn Sie auf den zurückgelieferten Schlüsselwert zugreifen wollen, dann müssen Sie Ihr Programm um folgendes Unterprogramm erweitern:

REM
REM *** get basic string from fatskey ***
REM
FATSKEY$=""
FOR X= KEYADR TO KEYADR + 24
DEF SEG=FSEG
FATSI=PEEK(KEYADR)
DEF SEG
FATSKEY$=FATSKEY$+CHR$(FATSI)
KEYADR = KEYADR + 1
NEXT X
RETURN

Bitte beachten Sie auch die Hinweise auf den Seiten 4-109, 9-5 und 9-11.

Testprogramme

Auf der FATS-Diskette für PC-DOS/MS-DOS befinden sich im Verzeichnis DOS_16I\BASIC\GWBASIC Testprogramme, anhand derer Sie die Verwendung von FATS studieren können:

tst0_ger.bas Testprogramm für BasicA, GWBasic etc.