HP3000-L Archives

October 2003, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Gehan G." <[log in to unmask]>
Reply To:
Gehan G.
Date:
Fri, 10 Oct 2003 11:13:50 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (69 lines)
If you want a free chat type program I have this script.
Feel FREE to use it ;)

DISCLAIMER: I did NOT write this code. I copied the bulk of the
script out of the mpe/ix system admin handbook by Jon Diercks. I
have changes some parts to suit my needs. I appologize in
advance if I shouldn't be posting other peoples code with out
their "express written permission"...
______________________________________________

USER DEFINED COMMAND FILE:  CHAT.COMMANDS.ACT

PARM USER=""
IF "!USER" = "" THEN
SHOWJOB JOB=@S
INPUT CHAT_USER,"WHICH USER [RETURN=CANCEL] "
ELSE
SETVAR CHAT_USER "!USER"
ENDIF
IF CHAT_USER <> ""
ERRCLEAR
CONTINUE
TELL !CHAT_USER;THIS IS A CHAT REQUEST.
IF CIERROR=0
TELL !CHAT_USER;TYPE: CHAT #S!HPJOBNUM TO CONNECT.
ECHO CHAT INITILIZED
ECHO TYPE "BYE TO QUIT"
SETVAR MSG, ""
ERRCLEAR
WHILE DWNS(MSG) <> "bye" AND CIERROR=0 DO
SETVAR MSG ""
INPUT MSG, ">"
CONTINUE
TELL !CHAT_USER; !MSG
ENDWHILE
ENDIF
ENDIF
DELETEVAR CHAT_@
ECHO CHAT DISCONNECTED
____________________________________




--- Brian Donaldson <[log in to unmask]> wrote:
> We now have an application that will allow users signed on the
> 3K machine
> to chat with each other without having to do "TELL", "WARN" or
> Vesoft's "WARNF" etc.
>
> CHAT/3000 demo is now available.
>
> Submit your request for a free 30 day demo of CHAT/3000 along
> with your
> company name/contact person, street address, city, state, zip
> and HPSUSAN
> number.
>
> Your demo will be mailed within 24 hours.
> [log in to unmask]

__________________________________
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search
http://shopping.yahoo.com

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2