+- QB64 Phoenix Edition (https://staging.qb64phoenix.com)
+-- Forum: Chatting and Socializing (https://staging.qb64phoenix.com/forumdisplay.php?fid=11)
+--- Forum: General Discussion (https://staging.qb64phoenix.com/forumdisplay.php?fid=2)
+--- Thread: FABS - Qbasic (/showthread.php?tid=489)
RE: FABS - Qbasic - JuanjoGomez - 08-12-2022
(08-11-2022, 05:31 PM)G43 Wrote: sorry it has taken me so long to get back here. Things have been crazy the last couple of months and i havent had time to get back to it. Here is where it is called in the program.
1310 CMND$=",Y,2" : GOSUB 56000
CMND$=",O,PRICHIST.KEY,1" : GOSUB 56000
OPEN "PRICHIST.DAT" FOR RANDOM ACCESS READ WRITE SHARED AS #7 LEN=61
FIELD 7, 18 AS LNPT$, 6 AS INV$, 8 AS DAT$, 25 AS NME$, 4 AS QUAN$ : RETURN
'--------------- Main CALL to FASBP ---------------------------
56000 CALL FABSMB(CMND$,ERRF%,RECNO%,ADRKEY%):RECLOW!=RECNO%
56010 IF RECLOW!< 0 THEN RECLOW!=RECLOW!+65536!
CALL FABSMB("X",DUM%,RECNO%,DUM%):RECHI!=RECNO%
IF RECHI!< 0 THEN RECHI!=RECHI!+65536!
RECNO!=RECHI!*65536+RECLOW!
56020 RETURN
If you describe some line of your program that uses the "S" command (search for exact key) or the command "G" (search for part of the key) it could guess which of the data is the key by which they are sorted.
Similar to this...
KEY$="ARTICLE"
CMND$=",S,KEY$,1,1" : GOSUB 56000
IF there is any line in which the "C" command is used, there we can see the type, length and number of keys that the database has and I could write you a small program that will create a new key file because it is Of course the current one is broken.
RE: FABS - Qbasic - G43 - 08-15-2022
ok, i will check it out and hopefully get back to you later today.
Thanks
RE: FABS - Qbasic - JuanjoGomez - 08-17-2022
I have sent you a private message
RE: FABS - Qbasic - G43 - 08-17-2022
I can't find a c command but i did find the g command in the following line
CMND$ = ",G,1,1," + KY1$ : GOSUB 56000
KY1$ appears to be the part number your looking for the history
how many commands are there for fabs, is there any documentation anywhere for different commands?
RE: FABS - Qbasic - JuanjoGomez - 08-17-2022
Indeed, the G command is used to make partial searches of the key.
The only page that has information is http://gcssoft.de/
RE: FABS - Qbasic - TempodiBasic - 10-10-2022
Hi
about using a 16bit program (FABS.COM tsr program) and machine code calls
I think your solution in Windows 64bit is only to use DosBox or similar emulator of 16bit machine...
You cannot get work QB64 and FABS, IMHO, you must access to memory by Call Absolute instructions
Code: (Select All)
The FABS routine would be this:
SUB fabs (cmnd$, recno, fseg, errf%, adrkey%)
'------------------------------------ FABSP ROUTINE ---------------- ----------------
DEF SEG = fseg
offset% = &H8
CALL ABSOLUTE(cmnd$, errf%, recno%, adrkey%, offset%)
rnlo = recno%: IF rnlo < 0 THEN rnlo = rnlo + 65536
cmnd$ = "X"
CALL ABSOLUTE(cmnd$, dum%, recno%, dum%, offset%)
rnhi = recno%: IF rnhi < 0 THEN rnhi = rnhi + 65536
recno = rnlo + rnhi * 65536
DEF SEG
END SUBthat in QB64 are emulated (?) or forbidden for incompatibility with 64bit OS.
A workaround can be using _MEM to access memory for reading and for writing, but it lasts that FABS.COM is a 16bit program TSR of DOS era.
It needs to be rewritten in QB64, if it is possible or with reverse engineering.
Good Luck