; 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.

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 TCP007[NET,SYS]
Load DSCSER
Save TCP009[NET,SYS]
Load SYSSER
Save TCP011[NET,SYS]
Load DYTSER
Save TCP013[NET,SYS]
Load STASER
Save TCP015[NET,SYS]
Load LINSER
Save TCP017[NET,SYS]
Load TSTSER
Save TCP019[NET,SYS]
Prepare FTPSER
Save TCP021[NET,SYS]
Prepare SMTPSR
Save TCP025[NET,SYS]
Load TIMSER
Save TCP037[NET,SYS]
Load FNGSER
Save TCP079[NET,SYS]
Load SUNSER
Save TCP089[NET,SYS]
Load SUPSER
Save TCP095[NET,SYS]
Load RSSER
Save TCP245[NET,SYS]
;;;Load LAVSER
;;;Save TCP249[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.