Function WritePrivateProfileString(lpAppName$, lpKeyName$, lpString$, lpFileName$)
    CallDLL #kernel32, "WritePrivateProfileStringA", lpAppName$ As ptr, lpKeyName$ As ptr,_
        lpString$ As ptr,lpFileName$ As ptr,result As boolean     
End Function

Function GetPrivateProfileString$(lpAppName$,lpKeyName$,lpDefault$,lpFileName$)
    nSize=100:lpReturnedString$=Space$(nSize)+Chr$(0)
    CallDLL #kernel32, "GetPrivateProfileStringA",lpAppName$ As ptr, lpKeyName$ As ptr,_
        lpDefault$ As ptr,lpReturnedString$ As ptr, nSize As long,_
        lpFileName$ As ptr,result As ulong 
    GetPrivateProfileString$=Left$(lpReturnedString$,result)     
 End Function

Local bank = CreateBank( 1024 )

Function StringFromBank$( bank, size )
   Local s$
   For I=0 To size-1
      Local b = PeekByte( bank, I )
      If b = 0 Exit
      s = s + Chr( b )
   Next
   Return s
End Function