; Recompile the network software if NETWRK changes (argh!)
; Be sure both the FAIL and MIDAS versions of NETWRK are updated!
; To use this, say BATCH/NOW@TCPGEN to the monitor.

;; TCP server names temporarily are nnnTCP (decimal).  Eventually
;; they will be TCPnnn (decimal), not octal as they once were.

Alias S,NET

; User programs.

Prepare FTP/Compile
FTPSW←←1	;this is the default, but make sure anyway
∨D
Save SYS FTP
Load NETWHO
Save SYS NETWHO
;;;Load RSEXEC
;;;Save SYS RSEXEC
Load SURVEY
Save SYS SURVEY
Load TALK
Save SYS TALK
Prepare TELNET
0
Save SYS TELNET
Prepare TELNET/Compile
1
Save SYS DTN
Load HOST
Save SYS HOST

; Server programs

Load ECHSER
Save 007TCP[NET,SYS]
Load DSCSER
Save 009TCP[NET,SYS]
Load SYSSER
Save 011TCP[NET,SYS]
Load DYTSER
Save 013TCP[NET,SYS]
Load STASER
Save 015TCP[NET,SYS]
Load LINSER
Save 017TCP[NET,SYS]
Load TSTSER
Save 019TCP[NET,SYS]
Prepare FTPSER
Save 021TCP[NET,SYS]
Prepare SMTPSR
Save 025TCP[NET,SYS]
Load TIMSER
Save 037TCP[NET,SYS]
Load FNGSER
Save 079TCP[NET,SYS]
Load SUNSER
Save 089TCP[NET,SYS]
Load SUPSER
Save 095TCP[NET,SYS]
Load RSSER
Save 245TCP[NET,SYS]
;;;Load LAVSER
;;;Save 249TCP[NET,SYS]
Load ARPSER
Save PUP131[NET,SYS]

; Clean up

;;;Delete *.REL/Q
;;;(there .REL[S,NET] files that we want to save)

; Other programs that use NETWRK

Alias P,SYS		;You better be a system hacker to do this
Compile NETFNG/Compile
Load FINGER
Save FINGER[1,2]

; Also, maybe compile WHO[CSP,SYS], MAIL[MAI,SYS], various spoolers.
; At LLL, maybe compile S1IMP, S1CAN, S1LPT.