@Echo Control file to test Kermit-20 Server 8 bit file functions via pseudo-terminal @Terminal Ideal @Info Term @Info Job @SMNT STAR: @Access STAR: @CD K20: @Info Job ! LCLT20:: @CHKPNT LCLT20 @Get Kermit @Info Ver @Start LCLK20:: @CHKPNT LCLK20 *Echo Condition Local Kermit-20 *CWD KT: *PWD *Set Prompt "Local-Kermit-20>" *Set Flow-Control None *Set Input Default-Timeout 1.75 *Set Input Timeout-Action Quit *Set Input Search-Default "\r\n@" *Define 120 delay 5,send timeout 9,receive timeout 10,retry packets 5,handshake none,send packet-length 120,receive packet-length 120,Flow-Control None *Define 94 delay 5,send timeout 9,receive timeout 10,retry packets 5,handshake none,send packet-length 94,receive packet-length 94,Flow-Control None *Show 94 *Set 94 *Set File eight-bit *Time NUL *Time Copy NUL PTY !*Log Session KT:K20B8T-SESSION *Show Line *Show File *Show Packet *Show Timing *Show Input ! ! REMT20:: @CHKPNT REMT20 ! *Echo Sign into remote terminal, mount structure and connect to testing directory *Connect pseudo-terminal /stay *Input *Echo Note, no password needed for same user id on a pseudo-terminal *Output "slogin\r" *Input *Echo Stomp TTY.CMD defaults *Output "Terminal Ideal\r" *Input *Output "SMNT k20:\r" *Input *Output "Access STAR:\r" *Input *Output "Connect k20:\r" *Input ! ! *Output "where Kermit Loopback Testing [Batch]\r" *Input *Output "Finger\r" *Input ! ! REMK20:: @CHKPNT REMK20 ! *Echo Start Kermit on remote job *Output "Set NO Control-C-Capability\r" *Input *Output "Get Kermit\r" *Input *Output "Info Ver\r" *Input *Output "Start\r" *Input "Kermit-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 "Define 120 delay 5,send timeout 7,receive timeout 8,retry packets 5,handshake none,send packet-length 120,receive packet-length 120,Flow-Control None\r" *Input *Output "Define 94 delay 5,send timeout 7,receive timeout 8,retry packets 5,handshake none,send packet-length 94,receive packet-length 94,Flow-Control None\r" *Input *Output "Show 94\r" *Input *Output "Set 94\r" *Input *Output "Set File eight-bit\r" *Input ! ! *Output "Time NUL\r" *Input *Output "Time Copy NUL PTY\r" *Input ! ! *Output "Show Line\r" *Input *Output "Show File\r" *Input *Output "Show Packet\r" *Input *Output "Show Timing\r" *Input ! *Show Line ! ! *Output "SERVER\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:" *Remote CWD "NUL:" "" *Echo Show that remote Connect to NUL: did nothing *Remote PWD *Echo We can get NUL:, but it doesn't get us much *Get "NUL:" NUL: *Statistics *Put NUL: "NUL:" *Statistics ! ! CWDTST:: @CHKPNT CWDTST ! *Echo Test Changing real directories *Remote CWD "TOMMYT:" "" *Remote PWD *Remote CWD "" *Remote PWD ! ! FILTST:: @CHKPNT FILTST ! *Echo Tests with 8 bit data files *Remote CWD "TOMMYT:" "" *Remote PWD *PWD ! DAPVAL:: @CHKPNT DAPVAL *Echo A small comma seperated value file of DAP OS types *Remote Directory "DAP-VALUES.CSV" *Get "DAP-VALUES.CSV" DAP-VALUES.CSV;T *Directory DAP-VALUES.CSV.* *Statistics *Remote Status *Type DAP-VALUES.CSV.0 ! GIGANT:: @CHKPNT GIGANT *Echo Theme song to 1960's Gigantor MANGA (cartoon) *Remote Directory "GIGANTOR.WAV" *Get "GIGANTOR.WAV" GIGANTOR.WAV;T *Directory GIGANTOR.WAV.* *Statistics *Remote Status ! HALFCH:: @CHKPNT HALFCH *Echo Windows/NT of Half Chat application (which runs on OS/2, Unix, Etc.) *Remote Directory "HALFCHAT.EXE" *Get "HALFCHAT.EXE" HALFCHAT.EXE;T *Directory HALFCHAT.EXE.0 *Statistics *Remote Status ! PDFSEC:: @CHKPNT PDFSEC *Echo Analysis of security on Adobe PDF files *Remote Directory "PDFSECURITY.PDF" *Get "PDFSECURITY.PDF" PDFSECURITY.PDF;T *Directory PDFSECURITY.PDF.0 *Statistics *Remote Status ! TIGHTV:: @CHKPNT TIGHTV *Echo An old copy of Tight VNC for Windows/NT *Remote Directory "TIGHTVNC-1_3_9-SETUP.EXE" *Get "TIGHTVNC-1_3_9-SETUP.EXE" TIGHTVNC-1_3_9-SETUP.EXE;T *Directory TIGHTVNC-1_3_9-SETUP.EXE.0 *Statistics *Remote Status ! VNCVIE:: @CHKPNT VNCVIE *Echo An old copy of VNC Viewer for Windows/NT *Remote Directory "VNCVIEWER.EXE" *Get "VNCVIEWER.EXE" VNCVIEWER.EXE;T *Directory VNCVIEWER.EXE.* *Statistics *Remote Status ! ! DONE:: @CHKPNT DONE *Echo Done with remote tests, exit the remote Kermit *Remote CWD "" *Remote PWD *Finish *Set Input Default-Timeout 20 *Set Input Search-Default "\r\n@" *Show Input *Output "\R" *Input *Clear/Peek ! FINREM:: @CHKPNT FINREM ! *Echo Show Remote Processor Time Used *Output "Info Fork/High\R" *Input *Echo Log the remote job out *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 ! ! CHKFIL:: @CHKPNT CHKFIL @Echo Compare transferred files against known originals @Info Job @VD *.*.0 /since:today @Define O: PS: @Define D: DAP-VALUES.CSV.0 @Define OD: O:DAP-VALUES.CSV.0 @Define G: GIGANTOR.WAV. @Define OG: O:GIGANTOR.WAV.0 @Define H: HALFCHAT.EXE.0 @Define OH: O:HALFCHAT.EXE.0 @Define P: PDFSECURITY.PDF.0 @Define OP: O:PDFSECURITY.PDF.0 @Define T: TIGHTVNC-1_3_9-SETUP.EXE.0 @Define OT: O:TIGHTVNC-1_3_9-SETUP.EXE.0 @Define V: VNCVIEWER.EXE @Define OV: O:VNCVIEWER.EXE @Set Trap File @FILCOM *TTY:=D:,OD:/W/Q *TTY:=G:,OG:/W/Q *TTY:=H:,OH:/W/Q *TTY:=P:,OP:/W/Q *TTY:=T:,OT:/W/Q *TTY:=V:,OV:/W/Q = ! ! PORKY:: @CHKPNT PORKY Modify Batch K20B8P /Dependency:0 @Echo That's all Folks!