Some qb code converted into PBDOS code

[Lance Edmonds]

no, he seems to have it sussed now... see

stephane, if you read this, when posting code, the code and /code tags must be enclosed in square brackets for the bbs software to read them correctly.

ie, [ code ] and [ /code ] (without the spaces within the brackets)

thanks!



------------------
lance
powerbasic support
mailto:[email protected][email protected]</a>

[Allen B. Zilbert]

Lance,

I believe that all of Stephane's hardcopy manuals still are in its
original shrink wrap. I guess one day he plans to sell them as
PowerBASIC Memorabilia

Allen

------------------

[Lance Edmonds]

Allen, there is no need for Stephane to waste valuable time searching the BBS... Page 230 of the Reference Guide shows a fine example.

------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>

[Allen B. Zilbert]

Stephane,

There also are plenty of examples within the DOS Forum with respeot
to the REG statement and function.

If you look up the DIR$ function, I believe it does what you are
looking for.

Allen




------------------

[Lance Edmonds]

Tim, please take a look in the example files that come with PB/DOS.

Thanks!

------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>

Hi,

Where do I use reg statement and where reg function in my code
Can you please give my an example

Thanks
Stephane

------------------
Brainsoft Programmers

[Allen B. Zilbert]

Stephane,

Within the PowerBASIC manual or in the online help take a look at
the REG function, REG statement and the CALL INTERRUPT statement.
This should provide you with what you need to translate the code.

However, from what I have determined that the code is doing, you
would probably be better off just to use the PowerBASIC DIR$ function,
which also is in the manual as well as in the online help.

Allen

------------------

Hi all

Can please somebody help me for how I converted this quickbasic
code to PBDOS code.

Very thanks for your help

Kind regards
Stephane

RegX.ax = &H2F00
INTERRUPTX &H21, RegX, RegX 'Read DTA address
DTA.seg = RegX.es
DTA.ofs = RegX.bx

RegX.ax = &H1A00
RegX.ds = VARSEG(DOS.DTA)
RegX.dx = VARPTR(DOS.DTA)
INTERRUPTX &H21, RegX, RegX

RegX.ax = &H4E00
RegX.cx = SearchAttrib%
RegX.ds = VARSEG(f$)
RegX.dx = SADD(f$)
INTERRUPTX &H21, RegX, RegX

Kind regards
sTEPHANE

------------------
Brainsoft Programmers