 | FATS - Fast Access Tree System | |||
| Inhaltsverzeichnis | |||
| Programmierschnittstellen | |||
 | QBasic (ab DOS 5) | |||
| | ||||||||||||||||||||
QBasic (ab DOS 5)
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.
Die Initialisierung des Moduls wird im Rahmen der Beschreibung der BasicA- & GWBasic-Schnittstellen im vorangehenden Abschnitt ausführlich erklärt.
Aufruf von FATS
FATS-Befehle werden über den absoluten Einsprungpunkt 8 in FATS.COM ausgeführt:
REM
REM *** call FATS ***
REM
FTSQUICK%=8
DEF SEG=FSEG
CALL ABSOLUTE (CMND$, FATSERR%, RECLO%, KEYADR%, FTSQUICK%)
RECLO=RECLO% : IF RECLO<0 THEN RECLO=RECLO+65536!
KEYADR=KEYADR% : IF KEYADR < 0 THEN KEYADR=KEYADR +65536!
CMND$ = "X"
CALL ABSOLUTE (CMND$, DUMMY%, RECHI%, DUMMY%, FTSQUICK%)
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
Testprogramme
Auf der FATS-Diskette für PC-DOS/MS-DOS befinden sich im Verzeichnis DOS_16I\BASIC\QUICK Testprogramme, anhand derer Sie die Verwendung von FATS studieren können:
Testprogramm für QBasic
© 2008 
GCS Software, Udo Gertz