home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
borland
/
jnfb88.arc
/
GETCPU.ARC
/
WHATCPU.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-09-21
|
344b
|
19 lines
PROGRAM WHATCPU;
VAR
CPUTYPE: integer;
{$L GETCPU}
FUNCTION GetCPU : integer; external;
BEGIN
CPUTYPE := GetCPU;
write('Processor is [80');
CASE CPUTYPE of
386: writeln('386]');
286: writeln('286]');
186: writeln('188/86]');
86 : writeln('88/86]');
END
END.