;.lib \"shell32.dll\" 
;SHGetSpecialFolderPath%(hwndOwner$,lpszPath*,nFolder%,fCreate%):\"SHGetSpecialFolderPathA\" 

Const CSIDL_DESKTOP                 = 0 
Const CSIDL_INTERNET                = 1 
Const CSIDL_PROGRAMS                = 2 
Const CSIDL_CONTROLS                = 3 
Const CSIDL_PRINTERS                = 4 
Const CSIDL_PERSONAL                = 5 
Const CSIDL_FAVORITES               = 6 
Const CSIDL_STARTUP                 = 7 
Const CSIDL_RECENT                  = 8 
Const CSIDL_SENDTO                  = 9 
Const CSIDL_BITBUCKET               = 16 
Const CSIDL_STARTMENU               = 17 
Const CSIDL_NETWORK                 = 18 
Const CSIDL_NETHOOD                 = 19 
Const CSIDL_FONTS                   = 20 
Const CSIDL_TEMPLATES               = 21 
Const CSIDL_COMMON_STARTMENU        = 22 
Const CSIDL_COMMON_PROGRAMS         = 23 
Const CSIDL_COMMON_STARTUP          = 24 
Const CSIDL_COMMON_DESKTOPDIRECTORY = 25 
Const CSIDL_APPDATA                 = 26 
Const CSIDL_PRINTHOOD               = 27 
Const CSIDL_LOCAL_APPDATA           = 28 
Const CSIDL_ALTSTARTUP              = 29 
Const CSIDL_COMMON_ALTSTARTUP       = 30 
Const CSIDL_COMMON_FAVORITES        = 31 
Const CSIDL_INTERNET_CACHE          = 32 
Const CSIDL_COOKIES                 = 33 
Const CSIDL_HISTORY                 = 34 
Const CSIDL_COMMON_APPDATA          = 35 
Const CSIDL_WINDOWS                 = 36 
Const CSIDL_SYSTEM                  = 37 
Const CSIDL_PROGRAM_FILES           = 38 
Const CSIDL_MYPICTURES              = 39 
Const CSIDL_PROFILE                 = 40 
Const CSIDL_SYSTEMX86               = 41 
Const CSIDL_PROGRAM_FILESX86        = 42 
Const CSIDL_PROGRAM_FILES_COMMON    = 43 
Const CSIDL_PROGRAM_FILES_COMMONX86 = 44 
Const CSIDL_COMMON_TEMPLATES        = 45 
Const CSIDL_COMMON_DOCUMENTS        = 46 
Const CSIDL_COMMON_ADMINTOOLS       = 47 
Const CSIDL_ADMINTOOLS              = 48 
Const CSIDL_CONNECTIONS             = 49 

folderbank=CreateBank(260*4) 
Graphics 800,200,0,2

SHGetSpecialFolderPath(0, folderbank, CSIDL_STARTUP  , 0) 

Print getbankstring$(folderbank, 260*4) 
Print \"Taste ...\" 
WaitKey 
End 

Function GetBankString$(bank, size) 
  For i=0 To size-1 
    wert$=wert$ + PeekByte(bank, i) 
  Next 
  While Len(wert$)<>0 
    If Int(Left$(wert$, 1))>2 Then 
      antwort$=antwort$ + Chr$(Int(Left$(wert$, 2))) 
      wert$=Mid$(wert$, 3) 
    Else 
      antwort$=antwort$ + Chr$(Int(Left$(wert$, 3))) 
      wert$=Mid$(wert$, 4) 
    End If 
  Wend 
  FreeBank bank 
  Return Trim$(antwort$) 
End Function