home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / xbasic / xbpro.exe / xb / asystem.x < prev    next >
Text File  |  1996-01-19  |  2KB  |  66 lines
  1. '
  2. ' ####################
  3. ' #####  PROLOG  #####
  4. ' ####################
  5. '
  6. PROGRAM    "asystem"
  7. VERSION    "0.0005"
  8. '
  9. IMPORT "xst"
  10. IMPORT "xgr"
  11. IMPORT "xui"
  12. IMPORT "xcm"
  13. IMPORT "xma"
  14. '
  15. DECLARE FUNCTION  Entry ()
  16. '
  17. '
  18. ' ######################
  19. ' #####  Entry ()  #####
  20. ' ######################
  21. '
  22. FUNCTION  Entry ()
  23. '
  24.     xcm$ = XcmVersion$ ()
  25.     xma$ = XmaVersion$ ()
  26.     xst$ = XstVersion$ ()
  27.     xgr$ = XgrVersion$ ()
  28.     xui$ = XuiVersion$ ()
  29.     XstGetCommandLineArguments (@argc, @argv$[])
  30.     XstGetDateAndTime (@year, @month, @day, @weekDay, @hour, @minute, @second, @nsec)
  31.     XstGetEndian (@endian$$)
  32.     XstGetEndianName (@endian$)
  33.     XstGetEnvironmentVariables (@envp, @envp$[])
  34.     XstGetImplementation (@implementation$)
  35.     XstGetCPUName (@cpu$)
  36.     XstGetOSName (@osName$)
  37.     XstGetOSVersion (@major, @minor)
  38.     XstGetOSVersionName (@osVersion$)
  39.     XstGetCurrentDirectory (@directory$)
  40.     XstGetDrives (@drives, @drive$[], @driveType[], @driveType$[])
  41. '
  42.     w = 19
  43.     PRINT
  44.     PRINT RJUST$("argc = ", w); "'"; STRING$(argc); "'"
  45.     FOR i = 0 TO argc-1 : PRINT RJUST$("argv$[" + STRING$(i) + "] = ", w); "'"; argv$[i]; "'" : NEXT i
  46.     PRINT RJUST$("date/time = ", w); "'"; STRING$(year); "'y  '"; STRING$(month); "'m  '"; STRING$(day); "'d  '"; STRING$(weekDay); "'w  '"; STRING$(hour); "'h  '"; STRING$(minute); "'m  '"; STRING$(second); "'s  '"; RJUST$(STRING$(nsec),9); "'ns"
  47.     PRINT RJUST$("XcmVersion$ = ", w); "'"; xcm$; "'"
  48.     PRINT RJUST$("XmaVersion$ = ", w); "'"; xma$; "'"
  49.     PRINT RJUST$("XstVersion$ = ", w); "'"; xst$; "'"
  50.     PRINT RJUST$("XgrVersion$ = ", w); "'"; xgr$; "'"
  51.     PRINT RJUST$("XuiVersion$ = ", w); "'"; xui$; "'"
  52.     PRINT RJUST$("envpCount = ", w); "'"; STRING$(envp); "'"
  53.     FOR i = 0 TO envp-1 : PRINT RJUST$("envp$[" + STRING$(i) + "] = ", w); "'"; envp$[i]; "'" : NEXT i
  54.     PRINT RJUST$("cpu = ", w); "'"; cpu$; "'"
  55.     PRINT RJUST$("endian = ", w); "'"; HEXX$(endian$$,16); "'"
  56.     PRINT RJUST$("endian$ = ", w); "'"; endian$; "'"
  57.     PRINT RJUST$("os$ = ", w); "'"; osName$; "'"
  58.     PRINT RJUST$("implementation$ = ", w); "'"; implementation$; "'"
  59.     PRINT RJUST$("version = ", w); "'"; STRING$(major); "' ... '"; STRING$(minor); "'"
  60.     PRINT RJUST$("version$ = ", w); "'"; osVersion$; "'"
  61.     PRINT RJUST$("directory$ = ", w); "'"; directory$; "'"
  62.     PRINT RJUST$("drives = ", w); "'"; STRING$(drives); "'"
  63.     FOR i = 0 TO drives-1 : PRINT RJUST$("drive$[" + STRING$(i) + "] = ", w); "'"; drive$[i]; "'  '"; STRING$(driveType[i]); "'  '"; driveType$[i]; "'" : NEXT i
  64. END FUNCTION
  65. END PROGRAM
  66.