; Recompile the network software if NETWRK changes (argh!)
; Be sure the FAIL version of NETWRK is updated too!
; 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
FTIP←←1		;this is the default, but make sure anyway
∨D
Save SYS FTP
;;;Load IMP
;;;Save SYS IMP
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

; Server programs

Load ECHSER
Save TCP007[NET,SYS]
Load DSCSER
Save TCP011[NET,SYS]
Load SYSSER
Save TCP013[NET,SYS]
Load DYTSER
Save TCP015[NET,SYS]
Load STASER
Save TCP017[NET,SYS]
Load LINSER
Save TCP021[NET,SYS]
Load TSTSER
Save TCP023[NET,SYS]
Prepare FTPSER
Save TCP025[NET,SYS]
Prepare SMTPSR
Save TCP031[NET,SYS]
Load TIMSER
Save TCP045[NET,SYS]
Load FNGSER
Save TCP117[NET,SYS]
Load SUNSER
Save TCP131[NET,SYS]
Load SUPSER
Save TCP137[NET,SYS]
Load RSSER
Save TCP365[NET,SYS]
;;;Load LAVSER
;;;Save TCP371[NET,SYS]
Load ARPSER
Save PUP131[NET,SYS]

; Clean up

Delete *.REL/Q

Alias HST,NET

;Load HOST
;Save SYS HOST
Delete *.REL/Q