parm user="" # CHAT -- a command file to make it easier to # talk to other users on the system. # # syntax is either :CHAT [session,]user.acct # or :CHAT [#]Snnn # # OR, just type CHAT and you will be shown a # showjob list and prompted for which job to call. if "!user" = "" then showjob job=@s input chat_user,"Which user do you want to chat with? [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 respond. echo CHAT initiated. Everything you type will be sent to !chat_user. 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 Finished.