@Echo Just like K20NUL except doing a PUT instead of a GET
@Terminal Ideal
@Info Term
@Info Job
@SMNT STAR:
@Access STAR:<SLOGIN>
@CD K20:
@Info Job
LCLT20:: @CHKPNT LCLT20
@Echo Local Kermit is latest version
@Get Kermit
@Info Ver
@Start
*Echo Condition Local Kermit-20
*CWD KT:
*PWD
*Set Prompt "Local-Kermit-20>"
*Set Input Default-Timeout 4.5
*Set Input Timeout-Action Quit 
*Set Input Search-Default "\r\n@"
*Show Input
*Show 94
*Set 94
*Set Flow None
*Time NUL
*Time Copy NUL PTY
*Log Session KT:K20NUP-LOCAL-SESSION
*Show Line
*Show Packet
*Show Timing
*Show Input
!
!
REMT20:: @CHKPNT REMT20
!
*Echo Sign into remote system, mount structure, recondition terminal
*Connect pseudo-terminal /stay
*Input
*Echo Note, no password needed for same user id on a pseudo-terminal
*Output "slogin\r"
*Input
*Output "Terminal Ideal\r"
*Input
*Output "SMNT k20:\r"
*Input
*Output "Access STAR:<SLOGIN>\r"
*Input
!
!
*Echo Test Input with a great deal of output
*Output "where Kermit Loopback Testing [Batch]\r"
*Input
*Output "Finger\r"
*Input
!
REMK20:: @CHKPNT REMK20
!
*Echo Start up latest Kermit-20 on remote job
*Output "Set NO Control-C-Capability\r"
*Input
*Output "get K20:Kermit\r"
*Input
*Output "Info Ver\r"
*Input
*Output "Start\r"
*Input  "\r\nKermit-20>"
!
!
*Echo Configure remote Kermit and put into server mode
*Set Input Search-Default "\r\nRemote-Kermit-20>"
*Show Input
*Output "Set Prompt Remote-Kermit-20>\r"
*Input
*Output "Set 94\r"
*Input
*Output "Set Flow None\r"
*Input
!
*Output "Time NUL\r"
*Input
*Output "Time Copy NUL PTY\r"
*Input
!
!*Echo Note subsecond server NAK'ing!!!
!*Output "Set Receive Server-Timeout 0.3333 \r"
!*Input
!
*Output "Set Flow None\r"
*Input
*Output "Show Line\r"
*Input
*Output "Show Timing\r"
*Input
*Output "Show Packet\r"
*Input
!
!
*Output "\rSERVER\r\r"
*Input "BYE" 
*Input "\r\n" 
!
!
! The following commands exercise the remote Kermit in server mode
!
SIMSRV:: @CHKPNT SIMSRV
!
*Echo Simple comands that do not open files
*Remote PWD
*Remote Space
!
!
*Echo Remote Help (BASIC)
*Remote Help
*Statistics
!
!
NULTST:: @CHKPNT NULTST
!
*Echo Basic tests against NUL:
*Remote Dir "NUL:"
*Remote Type "NUL:"
*Remote Delete "NUL:"
*Echo NUL: looks deleted, but it's still there
*Remote Dir "NUL:"
*Echo Note new CWD syntax to force no password prompt
*Remote CWD "NUL:" ""
*Echo Show that remote Connect to NUL: did nothing
*Remote PWD
*Echo We can put NUL:, but it doesn't do much
*Put NUL: "NUL:"
*Statistics
!
!
CWDTST:: @CHKPNT CWDTST
!
*Echo Test Changing real directories
*Remote CWD "TOMMYT:<OINKY.HOLMES.ADVENTURES>" ""
*
*Remote PWD
*Echo Connect to Kermit Testing, where remote will deposit files
*Remote CWD "KT:" ""
*Echo Hope we have enough space, double check connect
*Remote Space
*Remote PWD
!
!
FILTST:: @CHKPNT FILTST
!
*Echo Tests with data files, New Kermit is Pushing to a new Kermit
*Local CWD TOMMYT:<OINKY.WILDE.CANTERVILLE>
*Local PWD
*Echo This is the Gutenberg ASCII text of The Ghost of Canterville by Oscar Wilde 
*Local Dir *.TXT.0
PREFIX:: @CHKPNT PREFIX
*PUT GUTENBERG-PREFIX.TXT.0 "NUL:"
*Statistics
*Remote Status
TITLE:: @CHKPNT TITLE
*PUT TITLE-PAGE.TXT.0 "NUL:"
*Statistics
*Remote Status
LIST:: @CHKPNT LIST
*PUT LIST-OF-ILLUSTRATIONS.TXT.0 "NUL:"
*Statistics
*Remote Status
I:: @CHKPNT I
*PUT I.TXT.0 "NUL:"
*Statistics
*Remote Status
II:: @CHKPNT II
*PUT II.TXT.0 "NUL:"
*Statistics
*Remote Status
III:: @CHKPNT III
*PUT III.TXT.0 "NUL:"
*Statistics
*Remote Status
IV:: @CHKPNT IV
*PUT IV.TXT.0 "NUL:"
*Statistics
*Remote Status
V:: @CHKPNT V
*PUT V.TXT.0 "NUL:"
*Statistics
*Remote Status
VI:: @CHKPNT VI
*PUT VI.TXT.0 "NUL:"
*Statistics
*Remote Status
VII:: @CHKPNT VII
*PUT VII.TXT.0 "NUL:"
*Statistics
*Remote Status
POSTFX:: @CHKPNT POSTFX
*PUT GUTENBERG-POSTFIX-AND-LICENSE.TXT.0 "NUL:"
*Statistics
*Remote Status
!
!
DONE:: @CHKPNT DONE
*Echo Done with remote tests, exit the remote Kermit
*Finish
*Set Input Default-Timeout 20
*Set Input Search-Default "\r\n@"
*Show Input
*Output "\R"
*Input
*Echo Show Remote Processor Time Used
*Output "Info Fork/High\R"
*Input
*Clear/Peek
!
*Echo Now get rid of the Remote Kermit
*Output "Connect KT:\R"
*Input
*Output "Logout\R"
*Input "Used"
*Input "\r\n"
!
!
FINLCL:: @CHKPNT FINLCL
!
*Echo Finish up and close out the local Kermit
*Clear /Display
*Show Line
*Close Session
*Connect Close
*Echo No terminal fork to kill since never started one
*Echo Connect Kill
*Quit
@Info Fork/High
!
!
PORKY:: @CHKPNT PORKY
@Modify Batch K20PTY /Dependency:0
@Echo That's all Folks!