home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BORLAND / JNFB88.ARC / GETCPU.ARC / WHATCPU.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-21  |  344 b   |  19 lines
  1. PROGRAM WHATCPU;
  2.  
  3. VAR
  4.    CPUTYPE: integer;
  5.  
  6. {$L GETCPU}
  7. FUNCTION  GetCPU : integer; external;
  8.  
  9. BEGIN
  10.      CPUTYPE := GetCPU;
  11.      write('Processor is [80');
  12.      CASE CPUTYPE of
  13.           386: writeln('386]');
  14.           286: writeln('286]');
  15.           186: writeln('188/86]');
  16.           86 : writeln('88/86]');
  17.      END
  18. END.
  19.