; MAIL.CMD
;
; COMMAND FILE TO CREATE AND INSTALL THE IAS MAIL UTILITY.
; REQUIRES FLECS TO BE INSTALLED WITH MARK LEWIS'S DCL INTERFACE.
;
; CREATE THE MAILBOX AND MAILING LIST ACCOUNTS, ALLOWING ANYONE TO CREATE
; A PUBLIC MAILING LIST.
;
;UFD lb:[10,0]/PRO=[rwed,rwed,rwed,RWE]
;UFD lb:[10,3]/PRO=[rwed,rwed,rwed,RWE]
;
; ASSEMBLE MACRO ROUTINES AND CREATE A LIBRARY
;
;mac ckusr,ckusr/-sp=CKUSR
;mac equal,equal/-sp=EQUAL
;mac feof,feof/-sp=FEOF
;mac getusr,getusr/-sp=GETUSR
;mac index,index/-sp=INDEX
;mac length,length/-sp=LENGTH
;mac mvstr,mvstr/-sp=MVSTR
;mac trunc,trunc/-sp=TRUNC
;mac wfown,wfown/-sp=WFOWN
;LBR MAILIB/cr=CKUSR,EQUAL,FEOF,GETUSR,INDEX,MVSTR,LENGTH,TRUNC,WFOWN
;
; BUILD THE ACCOUNTING TASK, WHODID
;
;FLE WHODID,WHODID/-SP=WHODID
;f4p whodid,whodid/-sp=whodid.ftn/co:20

;mac s,s/-sp=S
;TKB @WHODID
;
; RUN IT. IT PUTS THE LISTING IN [1,100]
;
;set /uic=[1,1]
;RUN [1,32]WHODID
;set /uic=[1,32]
;PRINT [1,100]WHODID.LST
;
; BUILD THE SYSTEM GLOBAL AREA, MAICOM, AND INSTALL IT
;
;FLE MAICOM,MAICOM/-SP=MAICOM
;f4p maicom,maicom/-sp=maicom.ftn/co:20
;TKB @MAICOM
;set /uic=[1,1]
;PIP [1,1]MAICOM.TSK=[1,32]MAICOM.TSK
;PIP [1,1]MAICOM.STB=[1,32]MAICOM.STB
;INS MAICOM/CM/UIC=[1,1]/ACC=RW
;set /uic=[1,32]
;
; BUILD AND INSTALL THE MAIL UTILITY
;
;FLE MAIL,MAIL/-SP=MAIL
;f4p mail,mail/-sp=mail.ftn/co:20
;TKB @MAIL
;INSTALL MAIL
;
; BUILD AND INSTALL THE POSTMAN
;
FLE POSTMA,POSTMA/-SP=POSTMA
f4p postma,postma/-sp=postma.ftn/co:20
TKB @POSTMAN
INS POSTMA
;
; SCHEDULE THE POSTMAN'S ROUTE
;
FIX POSTMN
;RUN POSTMN/RSI=5 S