home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / nettools.zip / NETTOOLS.CLA < prev    next >
Text File  |  1990-03-07  |  4KB  |  114 lines
  1.   PROGRAM
  2.          MAP
  3.            INCLUDE('NETTOOLS.CPY')
  4.          .
  5. SCREEN         SCREEN      PRE(SCR),HUE(0,7,0)
  6.            ROW(4,55)  STRING('▄')
  7.            ROW(5,55)  STRING('█')
  8.            ROW(6,28)  STRING('▀{28}')
  9.            ROW(9,18)  STRING('╔═{44}╗'),HUE(15,1)
  10.            ROW(10,18) REPEAT(6);STRING('║<0{44}>║'),HUE(15,1) .
  11.            ROW(16,18) STRING('╚═{44}╝'),HUE(15,1)
  12.            ROW(10,64) REPEAT(7);STRING('░'),HUE(7,0) .
  13.            ROW(17,19) STRING('░{46}'),HUE(7,0)
  14.            ROW(4,27)  STRING(' WARDCOMP NETTOOLS LEM DEMO '),HUE(14,6)
  15.            ROW(5,27)  STRING(' {5}FOR NOVELL NETWARE {5}'),HUE(14,6)
  16.            ROW(10,19) STRING(' Your User Name is.{12}:'),HUE(11,1)
  17.          COL(62)  STRING(' '),HUE(11,1)
  18.            ROW(11,19) STRING(' Your Physical Node Address is:'),HUE(11,1)
  19.          COL(53)  STRING(' {10}'),HUE(11,1)
  20.            ROW(12,62) STRING(' '),HUE(11,1)
  21.            ROW(13,62) STRING(' '),HUE(11,1)
  22.            ROW(14,62) STRING(' '),HUE(11,1)
  23.            ROW(15,62) STRING(' '),HUE(11,1)
  24. USERNAME       ROW(10,50) STRING(12),HUE(15,1)
  25. NODE           ROW(11,50) STRING(@N03),HUE(15,1)
  26.            ROW(12,19) STRING(' Enter Semaphore Request.{6}:'),HUE(11,1)
  27.          COL(50)  ENTRY(@S12),USE(SEMAPHORE),HLP(SEMAPHORE),HUE(14,1)       |
  28.                 SEL(0,7)
  29.            ROW(13,19) STRING(' Enter Logical Record Name....:'),HUE(11,1)
  30.          COL(50)  ENTRY(@S12),USE(LRECORD),HLP(LRECORD),HUE(14,1),SEL(0,7)
  31.            ROW(14,19) STRING(' Send Message to User.{9}:'),HUE(11,1)
  32.          COL(50)  ENTRY(@S12),USE(USERNAME),HUE(14,1),SEL(0,7)
  33.            ROW(15,19) STRING(' '),HUE(11,1)
  34.          COL(20)  ENTRY(@S42),USE(MESSAGE),HLP(MESSAGE),HUE(14,1),SEL(0,7)
  35. STATUS           ROW(25,1)  STRING(80),HUE(15,1)
  36.          .
  37. SEMAPHORE    STRING(127)
  38. LRECORD         STRING(99)
  39. USERNAME     STRING(48)
  40. MESSAGE         STRING(55)
  41. SEM_COUNT    LONG
  42.          INCLUDE('\CLARION\INCLUDE\STD_KEYS')
  43.   CODE
  44.   ALERT(ESC_KEY)
  45.   OPEN(SCREEN)
  46.   SCR:USERNAME=GET_UNAME()
  47.   SCR:NODE=GET_PID()
  48.   SCR:STATUS=CENTER('Enter the name of the Semaphore to Open',80)
  49.   ACCEPT
  50.   IF KEYCODE() = ESC_KEY THEN RETURN.
  51.   SEM_COUNT=OPEN_SEM(SEMAPHORE)
  52.   IF ~ERROR()
  53.     SCR:STATUS=CENTER('Semaphore ' & CLIP(SEMAPHORE) & |
  54.               ' is Open.  Press any key to Close.',80)
  55.   ELSE
  56.     STOP('UNEXPECTED ERROR - ' & ERROR())
  57.   .
  58.   ASK
  59.   IF KEYCODE() = ESC_KEY THEN RETURN.
  60.   CLOSE_SEM(SEMAPHORE)
  61.   IF ~ERROR()
  62.     SCR:STATUS=CENTER('Semaphore ' & CLIP(SEMAPHORE) & |
  63.               ' is Closed.  Press any key to Continue.',80)
  64.   ELSE
  65.     STOP('UNEXPECTED ERROR - ' & ERROR())
  66.   .
  67.   ASK
  68.   IF KEYCODE() = ESC_KEY THEN RETURN.
  69.   SCR:STATUS=CENTER('Enter the name of the Logical Record to Log',80)
  70.   ACCEPT
  71.   IF KEYCODE() = ESC_KEY THEN RETURN.
  72.   LOG_LREC(LRECORD)
  73.   IF ~ERROR()
  74.     SCR:STATUS=CENTER('Logical Record ' & CLIP(LRECORD) & |
  75.               ' is Logged.  Press any key to Lock.',80)
  76.   ELSE
  77.     STOP('UNEXPECTED ERROR - ' & ERROR())
  78.   .
  79.   ASK
  80.   IF KEYCODE() = ESC_KEY THEN RETURN.
  81.   LOCK_LSET
  82.   IF ~ERROR()
  83.     SCR:STATUS=CENTER('Logical Record ' & CLIP(LRECORD) & |
  84.               ' is Locked. Press any key to Clear.',80)
  85.   ELSE
  86.     STOP('UNEXPECTED ERROR - ' & ERROR())
  87.   .
  88.   ASK
  89.   IF KEYCODE() = ESC_KEY THEN RETURN.
  90.   CLEAR_LREC(LRECORD)
  91.   IF ~ERROR()
  92.     SCR:STATUS=CENTER('Logical Record ' & CLIP(LRECORD) & |
  93.               ' is Cleared.  Press any key to Continue.',80)
  94.   ELSE
  95.     STOP('UNEXPECTED ERROR - ' & ERROR())
  96.   .
  97.   ASK
  98.   IF KEYCODE() = ESC_KEY THEN RETURN.
  99.   SCR:STATUS=CENTER('Enter the name of the User to recieve Message',80)
  100.   ACCEPT
  101.   IF KEYCODE() = ESC_KEY THEN RETURN.
  102.   SCR:STATUS=CENTER('Enter the Message to send to ' & CLIP(USERNAME),80)
  103.   ACCEPT
  104.   IF KEYCODE() = ESC_KEY THEN RETURN.
  105.   C# = SEND_MSG(MESSAGE,USERNAME)
  106.   IF C#
  107.     SCR:STATUS=CENTER('Message has been sent to ' & FORMAT(C#,@N3) & |
  108.               ' connections. Press any key to Quit.',80)
  109.   ELSE
  110.     SCR:STATUS=CENTER('Message has not been sent. Press any key to Quit.',80)
  111.   .
  112.   ASK
  113.   RETURN
  114.