RosettaCodeData/Task/Environment-variables/PureBasic/environment-variables-2.purebasic

If OpenConsole()
  PrintN("Path:"+#CRLF$ + GetEnvironmentVariable("PATH"))
  PrintN(#CRLF$+#CRLF$+"NUMBER_OF_PROCESSORS= "+ GetEnvironmentVariable("NUMBER_OF_PROCESSORS"))

  PrintN(#CRLF$+#CRLF$+"Press Enter to quit.")
  Input()
  CloseConsole()
EndIf