home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / nan_news / vol3 / no6 / status.prg < prev    next >
Text File  |  1989-05-01  |  938b  |  53 lines
  1. * Program: Status.prg
  2. * Author:  Gerry Braganza
  3. * Version: Clipper Summer '87
  4. * Note(s): Demonstates the use of EQUIP.C to determine hardware
  5. *          configuration, keyboard status and system ID.
  6. *
  7. * Copyright (c) 1989 Nantucket Corporation.
  8.  
  9. x=Eq(1)
  10. ? "Number of DMA chips installed is "+ALLTRIM(STR(x))
  11. INKEY(0)
  12.  
  13. x=Eq(2)
  14. ? "Printer installed is "+ALLTRIM(STR(x))
  15. INKEY(0)
  16.  
  17. x=Eq(3)
  18. ? "Serial Port is "+ALLTRIM(STR(x))
  19. INKEY(0)
  20.  
  21. x = Eq(4)
  22. ? "Diskette drive is "+ALLTRIM(STR(x))
  23. INKEY(0)
  24.  
  25. x = Eq(5)
  26. ? "Video Mode is "+ALLTRIM(STR(x))
  27. INKEY(0)
  28.  
  29. x = Eq(6)
  30. ? "System memory is "+ALLTRIM(STR(x))
  31. INKEY(0)
  32.  
  33. x = Eq(7)
  34. ? "Insert Caps is "+ALLTRIM(STR(x))
  35. INKEY(0)       
  36.  
  37. x=Eq(8)
  38. ? "Caps Lock is "+ALLTRIM(STR(x))
  39. INKEY(0)
  40.  
  41. x=Eq(9)
  42. ? "Num Lock is "+ALLTRIM(STR(x))
  43. INKEY(0)
  44.  
  45. x=Eq(10)
  46. ? "Scroll lock is "+ALLTRIM(STR(x))
  47. INKEY(0)
  48.  
  49. x=Eq(11)
  50. ? "Hardware is "+ALLTRIM(STR(x))
  51.  
  52. *EOP: Status.prg
  53.