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$(B$) DIM Result$ GetEnvironmentVariable(B$, Result$, 255) FUNCTION = Result$ END FUNCTION