home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / net1.zip / NET1.CLA < prev    next >
Text File  |  1989-04-04  |  4KB  |  121 lines
  1.   PROGRAM
  2.          MAP
  3.            MODULE('NET1'),BINARY         !DOS LANGUAGE EXTENSION
  4.          PROC(SEND_MSG)             !SEND A BROADCAST MESSAGE
  5.          FUNC(GET_UNAME),STRING         !GET USER NAME
  6.          FUNC(OPEN_SEM),LONG         !OPEN SEMAPHORE (RETURN OPEN COUNT)
  7.          PROC(CLOSE_SEM)         !CLOSE SEMAPHORE
  8.          FUNC(GET_PID),LONG         !GET PHYSICAL STATION ID
  9.          PROC(LOG_LREC)             !LOG LOGICAL RECORD
  10.          PROC(LOCK_LSET)         !LOCK LOGICAL RECORD SET
  11.          PROC(CLEAR_LREC)         !CLEAR LOGICAL RECORD
  12.          . .
  13. SCREEN         SCREEN      PRE(SCR),HUE(0,7,0)
  14.            ROW(4,53)  STRING('<220>')
  15.            ROW(5,53)  STRING('<219>')
  16.            ROW(6,30)  STRING('<223{24}>')
  17.            ROW(9,18)  STRING('<201,205{44},187>'),HUE(15,1)
  18.            ROW(10,18) REPEAT(6);STRING('<186,0{44},186>'),HUE(15,1) .
  19.            ROW(16,18) STRING('<200,205{44},188>'),HUE(15,1)
  20.            ROW(10,64) REPEAT(7);STRING('<176>'),HUE(7,0) .
  21.            ROW(17,19) STRING('<176{46}>'),HUE(7,0)
  22.            ROW(4,29)  STRING(' WARDCOMP NET1 LEM DEMO '),HUE(14,6)
  23.            ROW(5,29)  STRING('   FOR NOVELL NETWARE   '),HUE(14,6)
  24.            ROW(10,19) STRING(' Your User Name is.{12}:'),HUE(11,1)
  25.          COL(62)  STRING(' '),HUE(11,1)
  26.            ROW(11,19) STRING(' Your Physical Node Address is:'),HUE(11,1)
  27.          COL(53)  STRING(' {10}'),HUE(11,1)
  28.            ROW(12,62) STRING(' '),HUE(11,1)
  29.            ROW(13,62) STRING(' '),HUE(11,1)
  30.            ROW(14,62) STRING(' '),HUE(11,1)
  31.            ROW(15,62) STRING(' '),HUE(11,1)
  32. USERNAME       ROW(10,50) STRING(12),HUE(15,1)
  33. NODE           ROW(11,50) STRING(@N03),HUE(15,1)
  34.            ROW(12,19) STRING(' Enter Semaphore Request.{6}:'),HUE(11,1)
  35.          COL(50)  ENTRY(@S12),USE(SEMAPHORE),HLP(SEMAPHORE),HUE(14,1)       |
  36.                 SEL(0,7)
  37.            ROW(13,19) STRING(' Enter Logical Record Name....:'),HUE(11,1)
  38.          COL(50)  ENTRY(@S12),USE(LRECORD),HLP(LRECORD),HUE(14,1),SEL(0,7)
  39.            ROW(14,19) STRING(' Send Message to User.{9}:'),HUE(11,1)
  40.          COL(50)  ENTRY(@S12),USE(USERNAME),HUE(14,1),SEL(0,7)
  41.            ROW(15,19) STRING(' '),HUE(11,1)
  42.          COL(20)  ENTRY(@S42),USE(MESSAGE),HLP(MESSAGE),HUE(14,1),SEL(0,7)
  43. STATUS           ROW(25,1)  STRING(80),HUE(15,1)
  44.          .
  45. SEMAPHORE    STRING(127)
  46. LRECORD         STRING(99)
  47. USERNAME     STRING(48)
  48. MESSAGE         STRING(55)
  49. SEM_COUNT    LONG
  50.          INCLUDE('\CLARION\INCLUDE\STD_KEYS')
  51.   CODE
  52.   ALERT(ESC_KEY)
  53.   OPEN(SCREEN)
  54.   SCR:USERNAME=GET_UNAME()
  55.   SCR:NODE=GET_PID()
  56.   SCR:STATUS=CENTER('Enter the name of the Semaphore to Open',80)
  57.   ACCEPT
  58.   IF KEYCODE() = ESC_KEY THEN RETURN.
  59.   SEM_COUNT=OPEN_SEM(SEMAPHORE)
  60.   IF ~ERROR()
  61.     SCR:STATUS=CENTER('Semaphore ' & CLIP(SEMAPHORE) & |
  62.               ' is Open.  Press any key to Close.',80)
  63.   ELSE
  64.     STOP('UNEXPECTED ERROR - ' & ERROR())
  65.   .
  66.   ASK
  67.   IF KEYCODE() = ESC_KEY THEN RETURN.
  68.   CLOSE_SEM(SEMAPHORE)
  69.   IF ~ERROR()
  70.     SCR:STATUS=CENTER('Semaphore ' & CLIP(SEMAPHORE) & |
  71.               ' is Closed.  Press any key to Continue.',80)
  72.   ELSE
  73.     STOP('UNEXPECTED ERROR - ' & ERROR())
  74.   .
  75.   ASK
  76.   IF KEYCODE() = ESC_KEY THEN RETURN.
  77.   SCR:STATUS=CENTER('Enter the name of the Logical Record to Log',80)
  78.   ACCEPT
  79.   IF KEYCODE() = ESC_KEY THEN RETURN.
  80.   LOG_LREC(LRECORD)
  81.   IF ~ERROR()
  82.     SCR:STATUS=CENTER('Logical Record ' & CLIP(LRECORD) & |
  83.               ' is Logged.  Press any key to Lock.',80)
  84.   ELSE
  85.     STOP('UNEXPECTED ERROR - ' & ERROR())
  86.   .
  87.   ASK
  88.   IF KEYCODE() = ESC_KEY THEN RETURN.
  89.   LOCK_LSET
  90.   IF ~ERROR()
  91.     SCR:STATUS=CENTER('Logical Record ' & CLIP(LRECORD) & |
  92.               ' is Locked. Press any key to Clear.',80)
  93.   ELSE
  94.     STOP('UNEXPECTED ERROR - ' & ERROR())
  95.   .
  96.   ASK
  97.   IF KEYCODE() = ESC_KEY THEN RETURN.
  98.   CLEAR_LREC(LRECORD)
  99.   IF ~ERROR()
  100.     SCR:STATUS=CENTER('Logical Record ' & CLIP(LRECORD) & |
  101.               ' is Cleared.  Press any key to Continue.',80)
  102.   ELSE
  103.     STOP('UNEXPECTED ERROR - ' & ERROR())
  104.   .
  105.   ASK
  106.   IF KEYCODE() = ESC_KEY THEN RETURN.
  107.   SCR:STATUS=CENTER('Enter the name of the User to recieve Message',80)
  108.   ACCEPT
  109.   IF KEYCODE() = ESC_KEY THEN RETURN.
  110.   SCR:STATUS=CENTER('Enter the Message to send to ' & CLIP(USERNAME),80)
  111.   ACCEPT
  112.   IF KEYCODE() = ESC_KEY THEN RETURN.
  113.   SEND_MSG(MESSAGE,USERNAME)
  114.   IF ~ERROR()
  115.     SCR:STATUS=CENTER('Message has been sent. Press any key to Quit.',80)
  116.   ELSE
  117.     STOP('UNEXPECTED ERROR - ' & ERROR())
  118.   .
  119.   ASK
  120.   RETURN
  121.