home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
net1.zip
/
NET1.CLA
< prev
next >
Wrap
Text File
|
1989-04-04
|
4KB
|
121 lines
PROGRAM
MAP
MODULE('NET1'),BINARY !DOS LANGUAGE EXTENSION
PROC(SEND_MSG) !SEND A BROADCAST MESSAGE
FUNC(GET_UNAME),STRING !GET USER NAME
FUNC(OPEN_SEM),LONG !OPEN SEMAPHORE (RETURN OPEN COUNT)
PROC(CLOSE_SEM) !CLOSE SEMAPHORE
FUNC(GET_PID),LONG !GET PHYSICAL STATION ID
PROC(LOG_LREC) !LOG LOGICAL RECORD
PROC(LOCK_LSET) !LOCK LOGICAL RECORD SET
PROC(CLEAR_LREC) !CLEAR LOGICAL RECORD
. .
SCREEN SCREEN PRE(SCR),HUE(0,7,0)
ROW(4,53) STRING('<220>')
ROW(5,53) STRING('<219>')
ROW(6,30) STRING('<223{24}>')
ROW(9,18) STRING('<201,205{44},187>'),HUE(15,1)
ROW(10,18) REPEAT(6);STRING('<186,0{44},186>'),HUE(15,1) .
ROW(16,18) STRING('<200,205{44},188>'),HUE(15,1)
ROW(10,64) REPEAT(7);STRING('<176>'),HUE(7,0) .
ROW(17,19) STRING('<176{46}>'),HUE(7,0)
ROW(4,29) STRING(' WARDCOMP NET1 LEM DEMO '),HUE(14,6)
ROW(5,29) STRING(' FOR NOVELL NETWARE '),HUE(14,6)
ROW(10,19) STRING(' Your User Name is.{12}:'),HUE(11,1)
COL(62) STRING(' '),HUE(11,1)
ROW(11,19) STRING(' Your Physical Node Address is:'),HUE(11,1)
COL(53) STRING(' {10}'),HUE(11,1)
ROW(12,62) STRING(' '),HUE(11,1)
ROW(13,62) STRING(' '),HUE(11,1)
ROW(14,62) STRING(' '),HUE(11,1)
ROW(15,62) STRING(' '),HUE(11,1)
USERNAME ROW(10,50) STRING(12),HUE(15,1)
NODE ROW(11,50) STRING(@N03),HUE(15,1)
ROW(12,19) STRING(' Enter Semaphore Request.{6}:'),HUE(11,1)
COL(50) ENTRY(@S12),USE(SEMAPHORE),HLP(SEMAPHORE),HUE(14,1) |
SEL(0,7)
ROW(13,19) STRING(' Enter Logical Record Name....:'),HUE(11,1)
COL(50) ENTRY(@S12),USE(LRECORD),HLP(LRECORD),HUE(14,1),SEL(0,7)
ROW(14,19) STRING(' Send Message to User.{9}:'),HUE(11,1)
COL(50) ENTRY(@S12),USE(USERNAME),HUE(14,1),SEL(0,7)
ROW(15,19) STRING(' '),HUE(11,1)
COL(20) ENTRY(@S42),USE(MESSAGE),HLP(MESSAGE),HUE(14,1),SEL(0,7)
STATUS ROW(25,1) STRING(80),HUE(15,1)
.
SEMAPHORE STRING(127)
LRECORD STRING(99)
USERNAME STRING(48)
MESSAGE STRING(55)
SEM_COUNT LONG
INCLUDE('\CLARION\INCLUDE\STD_KEYS')
CODE
ALERT(ESC_KEY)
OPEN(SCREEN)
SCR:USERNAME=GET_UNAME()
SCR:NODE=GET_PID()
SCR:STATUS=CENTER('Enter the name of the Semaphore to Open',80)
ACCEPT
IF KEYCODE() = ESC_KEY THEN RETURN.
SEM_COUNT=OPEN_SEM(SEMAPHORE)
IF ~ERROR()
SCR:STATUS=CENTER('Semaphore ' & CLIP(SEMAPHORE) & |
' is Open. Press any key to Close.',80)
ELSE
STOP('UNEXPECTED ERROR - ' & ERROR())
.
ASK
IF KEYCODE() = ESC_KEY THEN RETURN.
CLOSE_SEM(SEMAPHORE)
IF ~ERROR()
SCR:STATUS=CENTER('Semaphore ' & CLIP(SEMAPHORE) & |
' is Closed. Press any key to Continue.',80)
ELSE
STOP('UNEXPECTED ERROR - ' & ERROR())
.
ASK
IF KEYCODE() = ESC_KEY THEN RETURN.
SCR:STATUS=CENTER('Enter the name of the Logical Record to Log',80)
ACCEPT
IF KEYCODE() = ESC_KEY THEN RETURN.
LOG_LREC(LRECORD)
IF ~ERROR()
SCR:STATUS=CENTER('Logical Record ' & CLIP(LRECORD) & |
' is Logged. Press any key to Lock.',80)
ELSE
STOP('UNEXPECTED ERROR - ' & ERROR())
.
ASK
IF KEYCODE() = ESC_KEY THEN RETURN.
LOCK_LSET
IF ~ERROR()
SCR:STATUS=CENTER('Logical Record ' & CLIP(LRECORD) & |
' is Locked. Press any key to Clear.',80)
ELSE
STOP('UNEXPECTED ERROR - ' & ERROR())
.
ASK
IF KEYCODE() = ESC_KEY THEN RETURN.
CLEAR_LREC(LRECORD)
IF ~ERROR()
SCR:STATUS=CENTER('Logical Record ' & CLIP(LRECORD) & |
' is Cleared. Press any key to Continue.',80)
ELSE
STOP('UNEXPECTED ERROR - ' & ERROR())
.
ASK
IF KEYCODE() = ESC_KEY THEN RETURN.
SCR:STATUS=CENTER('Enter the name of the User to recieve Message',80)
ACCEPT
IF KEYCODE() = ESC_KEY THEN RETURN.
SCR:STATUS=CENTER('Enter the Message to send to ' & CLIP(USERNAME),80)
ACCEPT
IF KEYCODE() = ESC_KEY THEN RETURN.
SEND_MSG(MESSAGE,USERNAME)
IF ~ERROR()
SCR:STATUS=CENTER('Message has been sent. Press any key to Quit.',80)
ELSE
STOP('UNEXPECTED ERROR - ' & ERROR())
.
ASK
RETURN