tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Environment-variables/BBC-BASIC/environment-variables.bbc
+++ b/Task/Environment-variables/BBC-BASIC/environment-variables.bbc
@ -0,0 +1,10 @@
+      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%