home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / pgm_tool / nwbcas / test.prg < prev   
Encoding:
Text File  |  1994-01-25  |  1.3 KB  |  47 lines
  1. ******************************************************************************
  2. * PROGRAM ----: TEST.PRG 
  3. * AUTHOR -----: Kevin E. Saffer 
  4. * COPYRIGHT --: None, placed into the public domain
  5. * CREATED ----: 1/22/1994 at 17:01
  6. ******************************************************************************
  7. CLEAR
  8.  
  9. * set the broadcast mode to normal message handling (CASTON)
  10. nCurMode = FN_SETBMOD( 0 )
  11.  
  12. * set up a key procedure to handle key number 1 (ctrl-a)
  13. SET KEY 1 TO BCMESSAGE
  14.  
  15. * install the interrupt service routine with this key
  16. NB_START( 1 )
  17.  
  18. * wait inside a read
  19. cString = SPACE(10)
  20. @ 0,0 SAY "Waiting For Messages" GET cString
  21. READ
  22.  
  23. * remove the interrupt service routine and exit
  24. NB_STOP()
  25. QUIT
  26.  
  27. ******************************************************************************
  28. * keystroke handler
  29. ******************************************************************************
  30. PROCEDURE BCMESSAGE
  31.  
  32.   * swallow the keystroke
  33.   INKEY()
  34.  
  35.   * obtain the server connection ID
  36.   nServerId = NB_SERVER()
  37.  
  38.   * retrieve the message array
  39.   aResult = FN_GBM()
  40.  
  41.   * display what we got
  42.   @ 2,0 SAY " Result: " + LTRIM(STR(aResult[1],10,0))
  43.   @ 3,0 SAY "Message: " + aResult[2]
  44.   @ 4,0 SAY " Server: " + LTRIM(STR(nServerId ,10,0))
  45.  
  46. RETURN
  47.