-
Notifications
You must be signed in to change notification settings - Fork 0
/
k11mnu.com
70 lines (70 loc) · 2.99 KB
/
k11mnu.com
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
$ ! 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 in KERMIT:. The"
$ write 0 "Kermit-11 sources and hex files are in PDPKER$SRC: and the"
$ write 0 "executable files are in PDPKER$EXE:"
$ 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") .ne. 1 then goto notker
$ write 0 ""
$ write 0 "This is Kermit-11 running on RSTS/E. The most useful mode of"
$ write 0 "operation is to run Kermit-11 as a server, which is done via the"
$ write 0 "SERVER command. Once you type SER to Kermit-11, escape back to"
$ write 0 "your local system and use the GET command to get a file from the"
$ write 0 "PDP 11/70 here, or use the SEND command to send a file to this"
$ write 0 "system. Other commands, such as REMOTE DIR, are supported by"
$ write 0 "Kermit-11 but may not be supported by your local system. Please"
$ write 0 "note that RSTS/E uses ? instead of % for single wildcard"
$ write 0 "character matching, and the * is used to wildcard an entire"
$ write 0 "filename or filetype. RSTS Kermit will convert % to ? for the GET"
$ write 0 "command and the REM DIR command."
$ write 0 ""
$ ker
$ goto endloop
$ notker:
$ 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