ISLOADED

Previous  Next

 

state = ISLOADED( module AS MODULE  ) AS INTEGER

state = ISLOADED( library AS STRING ) AS INTEGER

 


 

Returns TRUE (1) if the module has a basic file or extension library loaded.  Using the second syntax, you can check if a library has been loaded using the $LIBRARY statement.

 

Example:

 

DIM m AS MODULE

 

IF NOT ISLOADED( m )THEN

  LOAD "kalle.bas" AS m

ENDIF

 

$LIBRARY "MyBASIC2_ExtLib"

 

IF ISLOADED( $LIBRARY "MyBASIC2_ExtLib" ) THEN

  ' Use Extension Library to make temp file name

  PRINT "Temporary File Name: ";PATH.GetTempFileName()

ELSE

  ' Use Random Generator and FORMAT to generate temp file name

  PRINT "Temporary File Name: ";FORMAT( "MB$%08X", RND()*0x7fffffff ),

ENDIF