![]() |
BCX Console Demonstration Program S49.bas |
DIM
A$CLS
A$=
GetEnvVar$(
"COMSPEC"
)
: ?" COMSPEC = "
, A$ A$=
GetEnvVar$(
"PROMPT"
)
: ?" PROMPT = "
, A$ A$=
GetEnvVar$(
"TEMP"
)
: ?" TEMP = "
, A$ A$=
GetEnvVar$(
"winbootdir"
)
: ?" winbootdir = "
, A$ A$=
GetEnvVar$(
"windir"
)
: ?" windir = "
, A$ A$=
GetEnvVar$(
"PATH"
)
: ?" PATH = "
, A$FUNCTION
GetEnvVar$(
A$)
DIM
Result$ GetEnvironmentVariable(
A$,Result$,255
)
FUNCTION
=
Result$END
FUNCTION