FB II COMPILER

There is an useful suggestion by Rick Brown

"Getting App's VRefNum in miniruntime" (http://www.futurebasic.org/sample.html)

for an equivalent to the call SYSTEM(_aplVol)--that is not available when using the MiniRunTime under FBII.

Here is a code snippet that is equivalent as well (and a bit more concise):

_pbSize = 220                                 'record size
DIM PB.pbSize                                 'ParamBlk

DEF BLOCKFILL(@PB,_pbSize,0)                  ' may be omitted
IF  FN GETFCBINFO(@PB)=_noErr  THEN  PB.ioWDDirID&=PB.ioFCBParID&
IF  FN OPENWD(@PB)=_noErr  THEN  ApplFldr%=PB.ioVRefNum%

Variable ApplFldr% contains the VRefNum of the application's folder.