document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. $ Set NoOn
  2. $ If P1 .eqs. "UPGRADED" Then Goto File_OK
  3. $ If F$CvTime(F$File(F$Environment("PROCEDURE"),"RDT")) .Ges. -
  4. F$CvTime(F$File("MULTINET:MULTINET_CONFIGURE_DECNET.EXE","RDT")) Then Goto File_OK
  5. $ Write Sys$Output "MultiNet DECnet startup file out-of-date, upgrading..."
  6. $ If F$CvTime(F$Time()) .Lts. F$CvTime(F$File("MULTINET:MULTINET_CONFIGURE_DECNET.EXE","RDT")) Then -
  7. Write Sys$Output "[Revision time of MULTINET:MULTINET_CONFIGURE_DECNET.EXE is in the future]"
  8. $ MultiNet Configure/DECnet/Write_Startup_File
  9. $ @MultiNet:DECnet-Circuits UPGRADED
  10. $ Exit
  11. $File_OK:
  12. $ SysGen:=$SysGen
  13. $ SysGen Load Multinet:TCPDriver
  14. $ sysgen connect tcpa0:/noadapter/driver=tcpdriver
  15. $ multinet set /decnet /remote=10.11.12.13 /port=30000 /device=tcpa0: /connect /tcp=connect /buffers=24
  16. $ If F$GetDVI("_NET0:","EXISTS") Then Goto DECnet_Ok
  17. $ Write Sys$Output "MultiNet: DECnet not started; not starting DECnet over IP circuits"
  18. $ Exit
  19. $DECnet_Ok:
  20. $ mcr ncp
  21. set line TCP-0-0 state on
  22. set circuit TCP-0-0 state on cost 4 hello timer 15
  23. $ exit
');