@Echo Control file to test Kermit-10 Server 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 30 !Communications are REALLY slow!
*Set Input Timeout-Action Quit 
*Show 60
*Set 60
*Show Packet
*Show Timing
*Log Session KT:K10NRT-SESSION.LOG.-1
*Show Line
!
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\r\n\r\n."
*Output "login 260,7\r"
*Input "Password:"
*Output "\r"
*Input "\r\n\r\n."
!
!
*Echo "Minor check of connection via checking system status"
*Output "SYSTAT J\r"
*Input "\r\n."
*Output "SYSTAT E\r"
*Input "\r\n."
!
!
MAKDEL:: @CHKPNT MAKDEL
!
*Echo Make a file file for us to delete
*Output "R PIP\r" !Tops-10 has no COPY command...!
*Input "\r\n*"
*Output "DELETE.ME=TTY:/A\r"
*Pause 2 !Doesn't prompt for text!
*Output "I'm just supposed to be deleted!\r"
*Pause 0.75 !Give it a chance to swallow that!
*Output "Bye!!\r"
*Pause 0.75
*Output "" !Finishes and gets to PIP command level!
*Input "\r\n*"
*Output "" !Exits PIP to the monitor!
*Input "\r\n."
*Output "DIRECT DELETE.ME\r"
*Input "\r\n."
!
!
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 7\r" !Don't allow auto-byte!
*Input /silent
!
*Output "Show Line\r"
*Input
*Output "Show Timing\r"
*Input
*Output "Show Packet\r"
*Input
!
!
*Output "SERVER\r"
*Input "Kermit BYE" 
*Input ".]\r\n" 
!
!
! The following commands exercise the remote Kermit in server mode
!
K10SRV:: @CHKPNT K10SRV
!
*Echo Simple comands that do not open files
!
*Echo Remote Help (BASIC)
*Remote Help
!
*Echo Tops-10 Kermit does not implement PWD, but a blank SPACE is useful
*Remote Space
!
*Echo Let's look at the file we created with PIP
*Remote Direct DELETE.ME
!
*Echo Now let's ... TOSS IT!!
*Remote Delete DELETE.ME
!
*Echo See if it's still there (which will be reported as an error)
@NOERROR
*Remote Direct DELETE.ME
@ERROR
!
*Echo Test of remote status command
*Remote Status
!
!
FILTST:: @CHKPNT FILTST
!
*Echo Tests with data files
!
K10:: @CHKPNT K10
*GET  "K10.ANN" K10.ANN;T
*Statistics
!
K1013M:: @CHKPNT K1013M
*GET "K10133.MEM" K10133.MEM;T
*Statistics
!
K1013R:: @CHKPNT K1013R
*GET "K10133.RNO" K10133.RNO;T
*Statistics
!
K10COM:: @CHKPNT K10COM
*GET "K10COM.REQ" K10COM.REQ;T
*Statistics
!
K10ERR:: @CHKPNT K10ERR
*GET "K10ERR.R36" K10ERR.R36;T
*Statistics
!
K10GLB:: @CHKPNT K10GLB
*GET "K10GLB.BLI" K10GLB.BLI;T
*Statistics
!
K10GLM:: @CHKPNT K10GLM
*GET "K10GLB.MAC" K10GLB.MAC;T
*Statistics
!
K10MIB:: @CHKPNT K10MIB
*GET "K10MIT.BWR" K10MIT.BWR;T
*Statistics
!
K10MIC:: @CHKPNT K10MIC
*GET "K10MIT.CCL" K10MIT.CCL;T
*Statistics
!
K10MIL:: @CHKPNT K10MIL
*GET "K10MIT.CTL" K10MIT.CTL;T
*Statistics
!
K10MIH:: @CHKPNT K10MIH
*GET "K10MIT.HLP" K10MIT.HLP;T
*Statistics
!
K10MIT:: @CHKPNT K10MIT
*GET "K10MIT.MAC" K10MIT.MAC;T
*Statistics
!
K10MIR:: @CHKPNT K10MIR
*GET "K10MIT.RNH" K10MIT.RNH;T
*Statistics
!
K10MSB:: @CHKPNT K10MSB
*GET "K10MSG.BLI" K10MSG.BLI;T
*Statistics
!
K10MSG:: @CHKPNT K10MSG
*GET "K10MSG.MAC" K10MSG.MAC;T
*Statistics
!
K10SYS:: @CHKPNT K10SYS
*GET "K10SYS.MAC" K10SYS.MAC;T
*Statistics
!
K10TTB:: @CHKPNT K10TTB
*GET "K10TT.BLI" K10TT.BLI;T
*Statistics
!
K10TTM:: @CHKPNT K10TTM
*GET "K10TT.MAC" K10TT.MAC;T
*Statistics
!
K10UNV:: @CHKPNT K10UNV
*GET "K10UNV.MAC" K10UNV.MAC;T
*Statistics
!
K10V3M:: @CHKPNT K10V3M
*GET "K10V3.MEM" K10V3.MEM;T
*Statistics
!
K10V3R:: @CHKPNT K10V3R
*GET "K10V3.RNO" K10V3.RNO;T
*Statistics
!
K10WLD:: @CHKPNT K10WLD
*GET "K10WLD.MAC" K10WLD.MAC;T
*Statistics
!
!
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
*Connect Close
*Quit
!
!
CHKFIL:: @CHKPNT CHKFIL
@Echo Compare transferred files against known originals
@Info Job
@VD /sep
@Set Trap File
@FILCOM
*TTY:=KD:K10.ANN,KT:K10.ANN
*TTY:=KD:K10133.MEM,KT:K10133.MEM
*TTY:=KD:K10133.RNO,KT:K10133.RNO
*TTY:=KD:K10COM.REQ,KT:K10COM.REQ
*TTY:=KD:K10ERR.R36,KT:K10ERR.R36
*TTY:=KD:K10GLB.BLI,KT:K10GLB.BLI
*TTY:=KD:K10GLB.MAC,KT:K10GLB.MAC
*TTY:=KD:K10MIT.BWR,KT:K10MIT.BWR
*TTY:=KD:K10MIT.CCL,KT:K10MIT.CCL
!*TTY:=KD:K10MIT.CTL,KT:K10MIT.CTL
*TTY:=KD:K10MIT.HLP,KT:K10MIT.HLP
*TTY:=KD:K10MIT.MAC,KT:K10MIT.MAC
*TTY:=KD:K10MIT.RNH,KT:K10MIT.RNH
*TTY:=KD:K10MSG.BLI,KT:K10MSG.BLI
*TTY:=KD:K10MSG.MAC,KT:K10MSG.MAC
*TTY:=KD:K10SYS.MAC,KT:K10SYS.MAC
*TTY:=KD:K10TT.BLI,KT:K10TT.BLI
*TTY:=KD:K10TT.MAC,KT:K10TT.MAC
*TTY:=KD:K10UNV.MAC,KT:K10UNV.MAC
*TTY:=KD:K10V3.MEM,KT:K10V3.MEM
*TTY:=KD:K10V3.RNO,KT:K10V3.RNO
*TTY:=KD:K10WLD.MAC,KT:K10WLD.MAC
=
PORKY:: @CHKPNT PORKY
@Echo That's all Folks!