11 lines
309 B
Text
11 lines
309 B
Text
|
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%
|