home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a120 / 1.ddi / API / API1.PRG < prev    next >
Encoding:
Text File  |  1992-04-29  |  566 b   |  16 lines
  1. *:***********************************************************
  2. *: ╡{ªí└╔ªW║┘: API1.PRG
  3. *:***********************************************************
  4. SET TALK OFF
  5. SET LIBRARY TO FOXBIOS.PLB
  6. CLEAR
  7. ? "NUMLOCK ╝╞ªr┬Ω⌐w╝╥ªíñº¬¼║A¼░: ", IIF(ISNUMLOCK(),"╢}▒╥","├÷│¼")
  8. ? "Ñ╪ ½e ñº ¿t ▓╬ «╔ ╢í ¼░     : ", SYSTIMER()
  9. ? "LPT1        ª∞       º}     : ", LPTPORTADR(0)
  10. ? "LPT2        ª∞       º}     : ", LPTPORTADR(1)
  11. ? "LPT3        ª∞       º}     : ", LPTPORTADR(2)
  12. ? "LPT4        ª∞       º}     : ", LPTPORTADR(3)
  13. =INKEY(0,"HM")
  14. SET LIBRARY TO
  15. SET TALK ON
  16.