home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / chips.zip / CHIP_TST.CLA next >
Text File  |  1989-09-28  |  2KB  |  58 lines
  1. !*******************************************************************************
  2. ! Program..: CHIP_TST
  3. ! Function.: Display the processor/co-processor chip types using the 'CHIPS' LEM
  4. ! Version..: 1.0
  5. ! Author...: Louis S. Berman
  6. ! Date.....: 09-28-89
  7. ! Updated..:
  8. !
  9. ! Notices..: Copyright 1989 by BrainTree Consulting Ltd.
  10. ! .........: All rights reserved.
  11. !*******************************************************************************
  12. CHIP_TST     PROGRAM
  13.  
  14.          MAP
  15.            MODULE('CHIPS'),BINARY
  16.          FUNC(CHIPS),LONG
  17.          . .
  18.  
  19. SCREEN         SCREEN      WINDOW(25,80),AT(1,1),PRE(SCR),HUE(3,0)
  20.            ROW(10,25) STRING('╔═<0{26}>══╗'),HUE(6,0)
  21.            ROW(11,25) REPEAT(3);STRING('║<0{29}>║'),HUE(6,0) .
  22.            ROW(14,25) STRING('╚═{29}╝'),HUE(6,0)
  23.            ROW(10,28) STRING('Chips That Were Detected'),HUE(14,0)
  24.            ROW(12,28) STRING('Processor...:')
  25.            ROW(13,28) STRING('Co-Processor:')
  26.            ROW(15,28) STRING('Press')
  27.          COL(34)  STRING('any key'),HUE(14,0)
  28.          COL(42)  STRING('to continue.')
  29. CPU           ROW(12,42) STRING(11),HUE(15,0)
  30. MATH_CHIP      ROW(13,42) STRING(11),HUE(15,0)
  31.          .
  32.  
  33.   CODE
  34.  
  35.   OPEN(SCREEN)
  36.  
  37.   CASE INT(CHIPS()/10)
  38.     OF    8; SCR:CPU = '8088/86'
  39.     OF 18; SCR:CPU = '80186/88'
  40.     OF 28; SCR:CPU = '80286'
  41.     OF 38; SCR:CPU = '80386'
  42.     OF 20; SCR:CPU = 'NEC V20/V30'
  43.   ELSE
  44.     SCR:CPU = 'Unknown'
  45.   .
  46.  
  47.   CASE CHIPS() % 10
  48.     OF 0; SCR:MATH_CHIP = 'None'
  49.     OF 1; SCR:MATH_CHIP = '8087'
  50.     OF 2; SCR:MATH_CHIP = '80287'
  51.     OF 3; SCR:MATH_CHIP = '80387'
  52.   ELSE
  53.     SCR:MATH_CHIP = 'Unknown'
  54.   .
  55.  
  56.   ASK
  57.  
  58.