$ ! RSTS version 9.0 Kermit account login command file
$ ! Note theat the account should have NOPASS and CAPTIVE
$ ! attributes.
$ set noon
$ write 0 ""
$ tel br kermit logged in
$ help:
$ set ter/vt100
$ write 0 ""
$ write 0 "This is a public Kermit account.  Currently, you can either"
$ write 0 "run Kermit to transfer files to you system, use TYPE to get"
$ write 0 "HEX  files,  DIR to look at this account,  XDIR to get  the"
$ write 0 "directory of online Kermit files, WHO to see system status,"
$ write 0 "LOG to logout, or TELL to talk to the systems manager. HELP"
$ write 0 "will reprint this message"
$ write 0 "All Kermit files OTHER than Kermit-11 are on DB1:[4,1]. The"
$ write 0 "Kermit-11 sources are in DB1:[4,2],  and the Kermit-11 exe-"
$ write 0 "cutable files are in DB1:[4,3]."
$ write 0 ""
$ write 0 "Files of interest for PDP-11's"
$ write 0 ""
$ write 0 "RSTS/E    PDPKER$EXE:K11.TSK    , PDPKER$EXE:K11NRS.TSK"
$ write 0 "RT11      PDPKER$EXE:K11XM.SAV  , PDPKER$EXE:K11RT4.SAV"
$ write 0 "P/OS      PDPKER$EXE:K11POS.TSK , KERMIT:PRO???.*"
$ write 0 "RSX       PDPKER$EXE:K11RSX.TSK"
$ write 0 "PRO/RT11  PDPKER$EXE:K11XM.SAV"
$ write 0 "General   PDPKER$SRC:K11INS.DOC,K11HEX.FTN,K11HEX.BAS,K11HEX.MAC"
$ write 0 "          PDPKER$SRC:K11HLP.HLP,K11CMD.MAC"
$ write 0 "Rainbow   KERMIT:MS????.*, KERMIT:86????.*"
$ write 0 ""
$ loop:
$ set data
$ on control_c then goto endloop
$ inquire/nopun junk "Ker[mit],Help,Type,Dir,Xdir,Who,LOG or TELL ? "
$ write 0 ""
$ junk = f$edit(junk,255)
$ if junk .eqs. "" then goto endloop
$ set nodata
$ if f$instr(1,junk,"XDI") .eq. 1 then TYP 1:[4,0]KERMIT.DIR
$ if f$instr(1,junk,"HEL") .eq. 1 then goto help
$ if f$instr(1,junk,"EXI") .eq. 1 then goto exit
$ if f$instr(1,junk,"KER") .eq. 1 then KER
$ if f$instr(1,junk,"LOG") .eq. 1 then LOG
$ if f$instr(1,junk,"WHO") .eq. 1 then SY
$ if f$instr(1,junk,"DIR") .eq. 1 then DIR
$ if f$instr(1,junk,"TYP") .eq. 1 then TYP
$ if f$instr(1,junk,"TEL") .ne. 1 then goto endloop
$ write 0 "To talk to BRIAN, type BR your message in response to the TELL>"
$ write 0 "To return to the menu, type a control Z"
$ TEL
$ endloop:
$ goto loop
$ exit:
$ exit