RosettaCodeData/Task/Environment-variables/BBC-BASIC/environment-variables.basic

      PRINT FNenvironment("PATH")
      PRINT FNenvironment("USERNAME")
      END

      DEF FNenvironment(envar$)
      LOCAL buffer%, size%
      SYS "GetEnvironmentVariable", envar$, 0, 0 TO size%
      DIM buffer% LOCAL size%
      SYS "GetEnvironmentVariable", envar$, buffer%, size%+1
      = $$buffer%