home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / defdata / tcpip.dem < prev    next >
Encoding:
Text File  |  1988-05-03  |  1.3 KB  |  38 lines
  1. $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2. $!
  3. $!         DoD Protocols    NA-00007-200       80-01173-100(-)
  4. $!         E-Systems, Inc.  August 07, 1985
  5. $!
  6. $!         TCP_DEMO.COM       Author : Kevin Weise
  7. $!
  8. $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  9. $!  TCP_DEMO.COM        Author:  Kevin J. Weise         Date: 22-Jul-1985
  10. $!  This command file resets the VMS environment for the standalone TCP
  11. $!  component of the NOSCAda software.
  12. $!
  13. $!  Parameters:  None
  14. $!
  15. $!--- First, examine the mailboxes
  16. $   SHOW LOGICAL/System mb*
  17. $   SHOW LOGICAL/System to_tcp_channel
  18. $   GOTO Ask_Again
  19. $Loop:
  20. $   ASSIGN/User TT: Sys$Input
  21. $   RUN user1:[denney.e_systems.noscada.master]KILL
  22. $   SHOW LOGICAL/System mb*
  23. $   SHOW LOGICAL/System to_tcp_channel
  24. $!
  25. $!--- Make sure that the mailboxes have, in fact, been deleted.
  26. $!    (Make sure that the response is ONLY an upper- or lowercase 'Y' or 'N')
  27. $Ask_Again:
  28. $   INQUIRE  response " OK to run TCP (y/n) ?"
  29. $   IF response .EQS. "Y" .OR. response .EQS. "y" THEN GOTO Run_It
  30. $   IF response .EQS. "N" .OR. response .EQS. "n" THEN GOTO Loop
  31. $   GOTO Ask_Again
  32. $!
  33. $!--- Finally, run TCP
  34. $Run_It:
  35. $   RUN/NoDebug user1:[denney.e_systems.noscada.master]TCP_Standalone
  36. $   EXIT
  37.      
  38.