home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_01_05 / 1n05024b < prev    next >
Text File  |  1990-08-31  |  338b  |  23 lines
  1.  
  2. .***************** PROGRAM SECTION START ******************
  3. .
  4. .
  5. .
  6. .
  7. {$F-}    {Far Calls Turned OFF!}
  8. {$L CPUSTUFF}
  9. Procedure ChipType(Var X:Integer);
  10. External;
  11. .
  12. .
  13. .
  14.  
  15. Var
  16.   CpuVal:Word;.
  17. Begin
  18. ChipType(CpuVal);
  19. Writeln('This CPU's value is:',CpuVal);
  20. End.
  21. .***************** PROGRAM SECTION END ******************
  22.  
  23.