REM ***************************************************************
 REM ***  Three Quick Functions for manipulating INI files
 REM ***
 REM ***************************************************************

 REM ************************************************************************************
 REM ***
 REM *** fGetINI$ returns the setting of a value in a privite ini file
 REM ***          or a null string if fails
 REM ***
 REM ***  INISec$       - Section of INI File to Search
 REM ***  INIVar$       - Variable to find in section of INI file
 REM ***  INIVal$       - The Expected Value of the variable
 REM ***  INIFile$      - The INIFile to Search
 REM ***
 REM ************************************************************************************

FUNCTION fGetINI$(INISec$,INIVar$,INIVal$,INIFile$)

 DIM Success%%
  
 REGISTER CLEAR 
 REGISTER "kernel","GetPrivateProfileString","ICCCFIC"
 Success%% = CALL ("GetPrivateProfileString",INISec$,INIVar$,INIVal$,fGetINI$,255,INIFile$)
 REGISTER CLEAR 
 IF Success%% = 0 THEN fGetINI$ = ""

 END FUNCTION 

 REM **********************************************************************
 REM ***
 REM *** fAddINI%%      - See above...returns true/false
 REM ***                - Will Create file if does not exist but
 REM ***                   cannot create directories (Not fully tested)
 REM ***
 REM **********************************************************************

FUNCTION fAddINI%%(INISec$,INIVar$,INIVal$,INIFile$)

 REGISTER CLEAR 
 REGISTER "kernel","WritePrivateProfileString","ACCCC"
 fAddINI%% = CALL ("WritePrivateProfileString",INISec$,INIVar$,INIVal$,INIFile$)
 REGISTER CLEAR 

 END FUNCTION 


 REM **********************************************************************
 REM *** 
 REM *** fDelINI%%      - Deletes Variable from INI file
 REM ***                - See Above for Variable Info
 REM ***                - Returns True/False
 REM ***
 REM **********************************************************************
 
FUNCTION fDelINI%%(INISec$,INIVar$,INIFile$)

 REGISTER CLEAR 
 REGISTER "kernel","WritePrivateProfileString","ACCJC"
 fDelINI%% = CALL ("WritePrivateProfileString",INISec$,INIVar$,0,INIFile$)
 REGISTER CLEAR 
 
 END FUNCTION