@Echo Control file to test Kermit-20 Transmit/Capture functions via local DECnet NRT
INITIA:: @CHKPNT INITIA
@Terminal Ideal
@Info Term
@Info Job
@SMNT STAR:
@Access STAR:<SLOGIN>
@CD K20:
@Info Job
!
!
LCLT20:: @CHKPNT LCLT20
@Echo Test file is a funny MIT story: Alice's PDP-10"
@Define F1: DOC:ALICES.PDP10.0
@Define F4: KT:ALICES.PDP10.0
@Echo Big file is Frank da Cruz and Chris Ryland's Assembler Guide (Incomplete)
@Define F2: DOC:ASSEMBLER-GUIDE.DOC.0
@Define F3: KT:ASSEMBLER-GUIDE.DOC.0
VDirect F1:, F2:
!
@Get Kermit
@Info Ver
!
!
LCLK20:: @CHKPNT LCLK20
!
@Start
*Echo Condition Local Kermit-20
*CWD KT:
*PWD
*Set Prompt "Local-Kermit-20>"
*Set Flow-Control None
*Set Input Default-Timeout 6
*Set Input Timeout-Action Quit 
*Set Input Search-Default "\r\n@"
*Define 94 delay 10,send timeout 20,receive timeout 20,retry packets 100,handshake none,send packet-length 94,receive packet-length 94
*Set 94
*Show Input
!
!
REMT20:: @CHKPNT REMT20
!
*Echo Sign into remote NRT, mount structure and connect to testing directory
*Connect VENTI2:: /stay  !Don't waste a fork!
*Input /silent
*Output "oinky \r"
*Input /silent 10 "Last interactive login"
*Echo Don't bother catching up on system notifications
*Input /silent 15 "more?)"
*Output "Q"
*Input /silent
*Output "Terminal Ideal\r"
*Input /silent
*Output "where Kermit Transmit/Capture Testing [NRT]\r"
*Input /silent
*Output "Mount Structure STAR:\r"
*Input /silent
*Output "Access STAR:<OINKY>\r"
*Input /silent
*Output "Define KT: STAR:<KERMIT.TESTING>\r"
*Input /silent
!
!
REMK20:: @CHKPNT REMK20
!
*Echo Start Kermit on remote job
*Output "Set NO Control-C-Capability\r"
*Input /silent
*Output "Get STAR:<KERMIT.K20MIT>KERMIT\r"
*Input /silent
*Output "Info Ver\r"
*Input
*Output "Start\r"
*Input /silent "Kermit-20>"
!
!
*Echo Configure remote Kermit for easier recognition
*Set Input Search-Default "\r\nRemote-Kermit-20>"
*Show Input
*Output "Set Prompt Remote-Kermit-20>\r"
*Input /silent
*Echo "Flow control over a pseudo-terminal doesn't really work"
*Output "Set Flow-Control None\r"
*Input /silent
*Output "Set Input Default-Timeout 9\r"
*Input /silent
*Output "define 94 delay 10,send timeout 20,receive timeout 20,retry packets 100,handshake none,send packet-length 94,receive packet-length 94\r"
*Input /silent
*Output "Set 94\r"
*Input /silent
*Output "Show Input\r"
*Input
!
!
*Echo Basic test batteries to NUL:
!
!
XMITNP:: @CHKPNT XMITNP
!
*Echo Transmit/Capture with no parity
*Set Parity None
*Output "Set Parity None\r"
*Input /silent
*Output Capture /EOF  NUL: "Otto>>" \r
*Input " instead\r\n"
*Pause 1 !Give remote Kermit a chance to get going!
*Transmit /Silent /EOF  F1: "Otto>>"
*Input /silent
!
!
XMITNS:: @CHKPNT XMITNS
!
*Echo Transmit/Capture with Space parity (parity bit forced to zero)
*Set Parity Space /Check-on-Receive /Packets-Only
*Output "Set Parity Space /Check-on-Receive /Packets-Only\r"
*Input /silent
*Output Capture /EOF  NUL: "Otto>>" \r
*Echo Transmit message changes somewhat after first time in Batch
*Input " finish]\r\n"
*Pause 1
*Transmit /silent /EOF  F1: "Otto>>"
*Input /silent
!
!
XMITNM:: @CHKPNT XMITNM
!
*Echo Transmit/Capture with Mark parity (parity bit forced to one)
*Output "Set Parity Mark /Check-on-Receive /Packets-Only\r"
*Input /silent
*Output Capture /EOF  NUL: "Otto>>" \r
*Input " finish]\r\n"
*Pause 1
*Set Parity Mark /Check-on-Receive /Packets-Only
*Transmit /silent /EOF  F1: "Otto>>"
*Set Parity None
*Input /silent
!
!
XMITNO:: @CHKPNT XMITNO
!
*Echo Transmit/Capture with Odd parity
*Output "Set Parity Odd /Check-on-Receive /Packets-Only\r"
*Input /silent
*Output Capture /EOF  NUL: "Otto>>" \r
*Input " finish]\r\n"
*Pause 1
*Set Parity Odd /Check-on-Receive /Packets-Only
*Transmit /silent /EOF  F1: "Otto>>"
*Set Parity None
*Input /silent
!
!
XMITNR:: @CHKPNT XMITNR
!
*Echo Transmit/Capture with Odd parity, forcing an error
*Set Parity None
*Output "Set Parity Odd /Check-on-Receive /Packets-Only\r"
*Input /silent
*Output "Show Line\r"
*Input
*Output Capture /EOF  NUL: "Otto>>" \r
*Input " finish]\r\n"
*Pause 1
*Echo Have to time out so BATCON catches error when waiting for input
@NOERROR
*Set Parity Mark /Check-on-Receive /Packets-Only
*Transmit /Timeout 5 /EOF  F1: "Otto>>"
*Echo Unclog the line
*Clear /Display /Repeat 4,1.2
@ERROR
*Set Parity None
*Output "\R"
*Input /silent
!
!
XMITNE:: @CHKPNT XMITNE
!
*Echo "Transmit/Capture with Even parity"
*Echo "Can not test terminal driver because NRT's do not generate parity"
*Output "Set Parity Even /Check-on-Receive /Packets-Only\r"
*Input /silent
*Output "Show Line\r"
*Input
*Output Capture /EOF  KT:ASSEMBLER-GUIDE.DOC;T "Otto>>" \r
*Input " finish]\r\n"
*Pause 2
*Set Parity Even /Check-on-Receive /Packets-Only
*Transmit /Silent /EOF  F2: "Otto>>"
*Set Parity None
*Input /silent
*Output Capture /EOF  KT:ALICES.PDP10;T "Otto>>" \r
*Input " finish]\r\n"
*Pause 2
*Set Parity Even /Check-on-Receive /Packets-Only
*Transmit /Silent /EOF  F1: "Otto>>"
*Set Parity None
*Input /silent
!
!
FINREM:: @CHKPNT FINREM
*Echo Done with remote tests, exit the remote Kermit
*Echo Show Remote Processor Time Used
*Output "Quit\R"
*Echo Set to look for EXEC prompt
*Set Input Search-Default "\r\n@"
*Input /silent
*Output "Info Fork/High\R"
*Input
*Echo "Give the remote job a LONG time to log out"
*Set Input Default-Timeout 20
*Output "Logout\R"
*Input "Used"
*Input "\r\n"
!
!
FINLCL:: @CHKPNT FINLCL
!
*Echo Finish up and close out the local Kermit
*Clear /Display
*Show Line
*Connect Close
*Quit
@Info Fork/High
!
!
CHKFIL:: @CHKPNT CHKFIL
@Echo Compare transferred file
@Info Job
@Set Trap File
@FILCOM
*TTY:=F2:,F3:
*TTY:=F1:,F4:
=
!
!
PORKY:: @CHKPNT PORKY
@Modify Batch K2036P /Dependency:0
@Echo That's all Folks!