Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : NN0306.ZIP
Filename : STATUS.PRG

 
Output of file : STATUS.PRG contained in archive : NN0306.ZIP
* Program: Status.prg
* Author: Gerry Braganza
* Version: Clipper Summer '87
* Note(s): Demonstates the use of EQUIP.C to determine hardware
* configuration, keyboard status and system ID.
*
* Copyright (c) 1989 Nantucket Corporation.

x=Eq(1)
? "Number of DMA chips installed is "+ALLTRIM(STR(x))
INKEY(0)

x=Eq(2)
? "Printer installed is "+ALLTRIM(STR(x))
INKEY(0)

x=Eq(3)
? "Serial Port is "+ALLTRIM(STR(x))
INKEY(0)

x = Eq(4)
? "Diskette drive is "+ALLTRIM(STR(x))
INKEY(0)

x = Eq(5)
? "Video Mode is "+ALLTRIM(STR(x))
INKEY(0)

x = Eq(6)
? "System memory is "+ALLTRIM(STR(x))
INKEY(0)

x = Eq(7)
? "Insert Caps is "+ALLTRIM(STR(x))
INKEY(0)

x=Eq(8)
? "Caps Lock is "+ALLTRIM(STR(x))
INKEY(0)

x=Eq(9)
? "Num Lock is "+ALLTRIM(STR(x))
INKEY(0)

x=Eq(10)
? "Scroll lock is "+ALLTRIM(STR(x))
INKEY(0)

x=Eq(11)
? "Hardware is "+ALLTRIM(STR(x))

*EOP: Status.prg


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : NN0306.ZIP
Filename : STATUS.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/