@Echo Control file to test Kermit-10 Server 36 Bit functions via Tops-20 DECnet NRT
LCLT20:: @CHKPNT LCLT20
@Get Kermit
@Info Ver
@Start
*Echo Condition Local Kermit-20
*Set Prompt "Local-Kermit-20>"
*Echo Note that CWD now knows when it needs a password
*CWD KT:
*Set Input Default-Timeout 45 !Communications are REALLY slow!
*Set Input Timeout-Action Quit 
*Log Session KT:K1036N-LOCAL-SESSION.LOG.-1
*Log Transactions KT:K1036N-TRANSACTIONS.LOG.-1
*Set File Bytesize 36-bit
*Show Line
*Show File
*Show Packet
*Show Timing
!
REMT10:: @CHKPNT LCLT10
!
*Echo Sign into remote Tops-10 NRT
*Echo Communications with this system are extremely slow
*Connect VENTI:: /stay /timeout 50
*Pause 5
*Input "Please LOGIN"
*Input "\r\n\r\n."
*Output "login 260,7\r"
*Input "Password:"
*Output "\r"
*Input "\r\n\r\n."
!
!
DIRECT:: @CHKPNT DIRECT
*Set Input Search-Default "\r\n."
*Echo "Use Tops-10 CUSP to list files"
*Output "Direct SYS:MACRO,SYS:CREF,SYS:FILCOM\r"
*Input
!
REMK10:: @CHKPNT REMK10
!
*Echo Start Kermit on remote Tops-10 job
*Output "RUN K10MIT\r"
*Input "Kermit-10>"
!
!
*Echo Configure remote Kermit and put into server mode
!
*Set Input Search-Default "\r\nRemote-Kermit-10>"
*Show Input
*Output "Set Prompt Remote-Kermit-10>\r"
*Input /silent
*Output "Set Delay 10\r"
*Input /silent
*Output "Set Send Timeout 20\r"
*Input /silent
*Output "Set Receive Timeout 20\r"
*Input /silent
*Output "Set Retry Packets 10\r"
*Input /silent
*Output "Set Send Packet-Length 60\r"
*Input /silent
*Output "Set Receive Packet-Length 60\r"
*Input /silent
*Output "Set File Byte-Size 36-bit\r" !Don't allow auto-byte!
*Input
!
*Output "Show Line\r"
*Input
*Output "Show Timing\r"
*Input
*Output "Show Packet\r"
*Input
*Output "Show File\r"
*Input
!
!
*Output "SERVER\r"
*Input "Kermit BYE" 
*Input ".]\r\n" 
!
!
! The following commands exercise the remote Kermit in server mode
!
KERDIR:: @CHKPNT KERDIR
!
*Echo See how Kermit-10 may list differently 
!
*Remote Direct "SYS:MACRO.EXE\r"
*Remote Direct "SYS:CREF.EXE\r"
*Remote Direct "SYS:FILCOM.EXE\r"
!
!
FILTST:: @CHKPNT FILTST
!
*Echo Tests with executables transferred with NFT
!
MACRO:: @CHKPNT MACRO
*GET "SYS:MACRO.EXE" MACRO.EXE;T
*Statistics
!
CREF:: @CHKPNT CREF
*GET "SYS:CREF.EXE" CREF.EXE;T
*Statistics
!
FILCOM:: @CHKPNT FILCOM
*GET "SYS:FILCOM.EXE" FILCOM.EXE;T
*Statistics
!
!
K10STS:: @CHKPNT K10STS
!
*Echo Test of remote status command
*Remote Status
!
!
DONT10:: @CHKPNT DONT10
!
*Echo Done with Tops-10 remote tests, exit the remote Tops-10 Kermit
*Finish
*Pause 2
*Output "\r"
*Input "\r\n."
*Clear /Display /Repeat 2,2
*Show Line
!
*Echo Log the remote Tops-10 job out
*Echo Handle a timing error if Tops-10 closes too quickly and we get an EOF
*Set input timeout-action proceed
*Output "K/D\r"
*Input "\r\n."
*Set input timeout-action Quit
!
!
FINLCL:: @CHKPNT FINLCL
!
*Echo Finish up and close out the local Kermit
*Close Session
*Close Transaction
*Connect Close
*Quit
!
!
CHKFIL:: @CHKPNT CHKFIL
@Echo Compare transferred files against known originals
@Info Job
@VD MACRO.EXE,CREF.EXE,FILCOM.EXE
@VD KE:MACRO.EXE,KE:CREF.EXE,KE:FILCOM.EXE
@Set Trap File
@FILCOM
*TTY:=KE:MACRO.EXE,KT:MACRO.EXE/E
*TTY:=KE:CREF.EXE,KT:CREF.EXE/E
*TTY:=KE:FILCOM.EXE,KT:FILCOM.EXE/E
=
PORKY:: @CHKPNT PORKY
@Echo That's all Folks!