home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / clarion / library / syslem / demo1.cla next >
Encoding:
Text File  |  1993-07-16  |  5.4 KB  |  187 lines
  1. DEMO1         PROGRAM
  2.  
  3. SCREEN         SCREEN      WINDOW(25,80),AT(1,1),HUE(14,1)
  4.            ROW(22,18) PAINT(1,48),HUE(8,0),TRN
  5.            ROW(5,66)  PAINT(1,1),HUE(8,0)
  6.            ROW(6,66)  PAINT(17,1),HUE(8,0),TRN
  7.            ROW(21,36) PAINT(1,4),HUE(0,7)
  8.            ROW(23,18) PAINT(1,49),HUE(8,0),TRN
  9.            ROW(1,1)      REPEAT(4);STRING('▒{80}'),HUE(7,0) .
  10.            ROW(5,1)      STRING('▒{15}<0{50}>▒{15}'),HUE(7,0)
  11.            ROW(6,1)      REPEAT(17);STRING('▒{15}<0{51}>▒{14}'),HUE(7,0) .
  12.            ROW(23,1)  STRING('▒{17}<0{49}>▒{14}'),HUE(7,0)
  13.            ROW(24,1)  REPEAT(2);STRING('▒{80}'),HUE(7,0) .
  14.            ROW(5,16)  STRING('╔═{48}╗'),HUE(14,1)
  15.            ROW(6,16)  REPEAT(2),EVERY(12);STRING('║<0{48}>║'),HUE(14,1) .
  16.            ROW(7,16)  STRING('╠═{48}╣'),HUE(14,1)
  17.            ROW(8,16)  REPEAT(9);STRING('║<0{48}>║'),HUE(14,1) .
  18.            ROW(19,16) STRING('║<0{48}>║'),HUE(14,1)
  19.            ROW(21,65) STRING('║'),HUE(14,1)
  20.            ROW(22,18) STRING('═{47}╝'),HUE(14,1)
  21.            ROW(17,16) STRING('╟─{48}╢')
  22.            ROW(20,16) STRING('╠═{48}╣')
  23.            ROW(21,16) STRING('║')
  24.            ROW(22,16) STRING('╚═')
  25.            ROW(6,27)  STRING('System Info Demo For Clarion'),HUE(14,1)
  26.            ROW(8,27)  STRING('Model {8}'),HUE(14,1)
  27.          COL(42)  STRING(':'),HUE(14,1)
  28.            ROW(9,27)  STRING('CPU {10}'),HUE(14,1)
  29.          COL(42)  STRING(':'),HUE(14,1)
  30.            ROW(10,27) STRING('Total RAM    '),HUE(14,1)
  31.          COL(42)  STRING(':'),HUE(14,1)
  32.            ROW(11,27) STRING('Available RAM'),HUE(14,1)
  33.          COL(42)  STRING(':'),HUE(14,1)
  34.            ROW(12,27) STRING('BIOS Date {5}'),HUE(14,1)
  35.          COL(42)  STRING(':'),HUE(14,1)
  36.            ROW(13,27) STRING('DOS Version '),HUE(14,1)
  37.          COL(42)  STRING(':'),HUE(14,1)
  38.            ROW(14,27) STRING('Display Type'),HUE(14,1)
  39.          COL(42)  STRING(':'),HUE(14,1)
  40.            ROW(15,27) STRING('Serial Ports  '),HUE(14,1)
  41.          COL(42)  STRING(':'),HUE(14,1)
  42.            ROW(16,27) STRING('Parallel Ports : '),HUE(14,1)
  43.          COL(45)  STRING(' '),HUE(14,1)
  44.            ROW(18,27) STRING('Drive A   '),HUE(14,1)
  45.          COL(42)  STRING(':'),HUE(14,1)
  46.            ROW(19,27) STRING('Drive B'),HUE(14,1)
  47.          COL(42)  STRING(':'),HUE(14,1)
  48.            ROW(21,40) STRING(' - Quit'),HUE(14,1)
  49. MODEL           ROW(8,44)  STRING(15),HUE(15,1)
  50. GETCPU           ROW(9,44)  STRING(13),HUE(15,1)
  51. RAM_TOT           ROW(10,44) STRING(@P<<#KP),HUE(15,1)
  52. RAM_AVAIL      ROW(11,44) STRING(@P<<#KP),HUE(15,1)
  53. BIOSDATE       ROW(12,44) STRING(@P##/##/##P),HUE(15,1)
  54. DOSVER           ROW(13,44) STRING(@P#.##P),HUE(15,1)
  55. CARDTYPE       ROW(14,44) STRING(7),HUE(15,1)
  56. SERIAL           ROW(15,44) STRING(@N1),HUE(15,1)
  57. PARALLEL       ROW(16,44) STRING(@N1),HUE(15,1)
  58. DRIVE_A           ROW(18,44) STRING(13),HUE(15,1)
  59. DRIVE_B           ROW(19,44) STRING(13),HUE(15,1)
  60.            ROW(21,35) PAUSE('ENTER'),HUE(0,7)
  61.          .
  62.  
  63.          MAP
  64.  
  65.            INCLUDE('SYSLEM.CPY')
  66.          .
  67.  
  68. TEMP         LONG
  69.  
  70.          CODE
  71.  
  72.          OPEN(SCREEN)
  73.  
  74.          IF MODEL() = 255
  75.            MODEL = 'PC/XT'
  76.          ELSIF MODEL() = 254
  77.            MODEL = 'PC/XT'
  78.          ELSIF MODEL() = 253
  79.            MODEL = 'PCjr'
  80.          ELSIF MODEL() = 252
  81.            IF SUBMODEL() = 02
  82.          MODEL = 'XT/286'
  83.            ELSIF SUBMODEL() = 04
  84.          MODEL = 'PS/2 Model 50'
  85.            ELSIF SUBMODEL() = 05
  86.          MODEL = 'PS/2 Model 60'
  87.            ELSE
  88.          MODEL = 'PC/AT'
  89.            .
  90.          ELSIF MODEL() = 251
  91.            MODEL = 'PC/XT'
  92.          ELSIF MODEL() = 250
  93.            MODEL = 'PS/2 Model 30'
  94.          ELSIF MODEL() = 249
  95.            MODEL = 'Convertible'
  96.          ELSIF MODEL() = 248
  97.            MODEL = 'PS/2 Model 80'
  98.          ELSIF MODEL() = 45
  99.            MODEL = 'Compaq PC'
  100.          ELSIF MODEL() = 154
  101.            MODEL = 'Compaq Plus'
  102.          ELSE
  103.            MODEL = 'Unknown'
  104.          .
  105.  
  106.          IF GETCPU() = 1
  107.            GETCPU = 'NEC V-20'
  108.          ELSIF GETCPU() = 2
  109.            GETCPU = '8088'
  110.          ELSIF GETCPU() = 3
  111.            GETCPU = '80186'
  112.          ELSIF GETCPU() = 4
  113.            GETCPU = '80286'
  114.          ELSIF GETCPU() = 5
  115.            GETCPU = '80386'
  116.          ELSIF GETCPU() = 6
  117.            GETCPU = '80486'
  118.          ELSE
  119.            GETCPU = 'Unknown'
  120.          .
  121.  
  122.          RAM_TOT = GETRAM()
  123.  
  124.          TEMP = MEMORY(0)
  125.          TEMP = TEMP / 1024
  126.          RAM_AVAIL = TEMP
  127.  
  128.          BIOSDATE = BIOSDATE()
  129.  
  130.          DOSVER = DOSVER()
  131.  
  132.          IF CARDTYPE() = 1
  133.            CARDTYPE = 'MDA'
  134.          ELSIF CARDTYPE() = 2
  135.            CARDTYPE = 'HGA'
  136.          ELSIF CARDTYPE() = 3
  137.            CARDTYPE = 'CGA'
  138.          ELSIF CARDTYPE() = 4
  139.            CARDTYPE = 'EGA'
  140.          ELSIF CARDTYPE() = 5
  141.            CARDTYPE = 'MCGA'
  142.          ELSIF CARDTYPE() = 6
  143.            CARDTYPE = 'VGA'
  144.          ELSE
  145.            CARDTYPE = 'Unknown'
  146.          .
  147.  
  148.          SERIAL = GETCOM()
  149.  
  150.          PARALLEL = GETLPT()
  151.  
  152.          IF DRIVETYPE(0) = 0    !Drive A
  153.            DRIVE_A = 'Not Installed'
  154.          ELSIF DRIVETYPE(0) = 1
  155.            DRIVE_A = '5¼ 360K DD'
  156.          ELSIF DRIVETYPE(0) = 2
  157.            DRIVE_A = '5¼ 1.2M HD'
  158.          ELSIF DRIVETYPE(0) = 3
  159.            DRIVE_A = '3½ 720K DD'
  160.          ELSIF DRIVETYPE(0) = 4
  161.            DRIVE_A = '3½ 1.44M HD'
  162.          ELSIF DRIVETYPE(0) = 5
  163.            DRIVE_A = '3½ 2.88M EHD'
  164.          ELSE
  165.            DRIVE_A = 'Unknown'
  166.          .
  167.  
  168.          IF DRIVETYPE(1) = 0    !Drive B
  169.            DRIVE_B = 'Not Installed'
  170.          ELSIF DRIVETYPE(1) = 1
  171.            DRIVE_B = '5¼ 360K DD'
  172.          ELSIF DRIVETYPE(1) = 2
  173.            DRIVE_B = '5¼ 1.2M HD'
  174.          ELSIF DRIVETYPE(1) = 3
  175.            DRIVE_B = '3½ 720K DD'
  176.          ELSIF DRIVETYPE(1) = 4
  177.            DRIVE_B = '3½ 1.44M HD'
  178.          ELSIF DRIVETYPE(1) = 5
  179.            DRIVE_B = '3½ 2.88M EHD'
  180.          ELSE
  181.            DRIVE_B = 'Unknown'
  182.          .
  183.  
  184.          ACCEPT
  185.          CLOSE(SCREEN)
  186.  
  187.