.ENABLE SUBSTITUTION
;
;	TASK BUILD AND INSTALL SYSTEM USER FILES
;
SET /UIC=[5,10]
.SETT MACINS
.IFNINS MAC .SETF MACINS
.IFF MACINS INS $MAC/PAR=GEN/CKP=YES/TASK=...MAC
.SETT FORINS
.IFNINS FOR .SETF FORINS
.IFF FORINS INS $FOR/INC=30000/PAR=GEN/CKP=YES/TASK=...FOR
.SETT TKBINS
.IFNINS TKB .SETF TKBINS
.IFF TKBINS INS $TKB/PAR=GEN/CKP=YES/TASK=...TKB
.SETT SLPINS
.IFNINS SLP .SETF SLPINS
.IFF SLPINS INS $SLP/PAR=GEN/CKP=YES/TASK=...SLP
.; TEST FOR PARTITION FCSRES
.TESTPARTITION FCSRES
.PARSE <EXSTRI> "," PAR S1 S2 TYPE
;'PAR'  'S1'  'S2'  'TYPE'
.IF TYPE NE "NSP" .SETS PAR ".FCS"
.IF TYPE EQ "NSP" .SETS PAR ".CMD"
.; TEST FOR GENERAL LIBRARY
@BOHDEN
.NOGO:
;
.ASKS ENTER Enter 3 letter name (return for step by step) (R5 for R. O. stuff)
.SETT TF
.SETF XTF
.SETS R5 "."
.IF ENTER EQ "R5" .SETS R5 ";R5 "
.IF ENTER EQ "" .OR .IF ENTER EQ "R5" .GOTO STEPBY
.TESTFILE 'ENTER'.COM
.IF <FILERR> EQ 1 .GOTO GO'ENTER'
;
;*** ERROR *** 'ENTER'
;
.GOTO NOGO
.STEPBY:
.GOABC:
;
;	2-JUL-82
'R5'ASK TF BUILD ACCOUNT BLOCK COUNTER (ABC)
.IFF TF .GOTO ABCNO
;
@ABC.COM
TKB @ABCBLD
.ABCNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOABO:
;
;	1-JUL-81
'R5'ASK TF BUILD ABORT WP USERS (ABOUSE)
.IFF TF .GOTO ABONO
;
@ABO.COM
TKB @ABOUSEBLD'PAR'
.ABONO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOBKC:
;
;	1-JUL-81
'R5'ASK TF BUILD OTHER TERMINAL COMMANDER (BKC)
.IFF TF .GOTO BKCNO
;
@BKC.COM
TKB @BKCBLD'PAR'
.BKCNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOCCL:
;
;	29-SEP-81
'R5'ASK TF BUILD CCL
.IFF TF .GOTO CCLNO
;
@CCL.COM 'ENTER'
REM ...CA.
INS CCL
.CCLNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOCHA:
;
;	18-JAN-82
'R5'ASK TF BUILD CHANGE PROGRAM (CHA)
.IFF TF .GOTO CHANO
;
@CHA.COM
TKB @CHANGEBLD'PAR'
.CHANO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOCOO:
;
;	30-SEP-81
'R5'ASK TF BUILD FORTUNE COOKIE (COO)
.IFF TF .GOTO COONO
;
@COO.COM
.COONO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOCVL:
;
;	21-DEC-81
'R5'ASK TF BUILD CVL (CVL)
.IFF TF .GOTO CVLNO
;
@CVL.COM
.CVLNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GODAT:
;
;	28-DEC-81
'R5'ASK TF BUILD DATAENTRY (DAT)
.IFF TF .GOTO DATNO
;
@DAT.COM 'PAR' 'ENTER'
.DATNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOFIN:
;
;	18-JAN-82
'R5'ASK TF BUILD FIND STRING ROUTINE (FIN)
.IFF TF .GOTO FINDNO
;
@FIN.COM
.FINDNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOGRF:
;
;	27-MAY-82
'R5'ASK TF BUILD PERMITTEE FEE PROGRAM (GRF)
.IFF TF .GOTO GRFNO
;
@GRF.COM
.GRFNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOHOL:
;
;	1-FEB-82
'R5'ASK XTF BUILD HOLD A TERMINAL (HOL)
.IFF XTF .GOTO HOLNO
;
@HOL.COM
TKB @HOLDBLD'PAR'
.HOLNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOHPP:
;
;	22-FEB-82
'R5'ASK TF BUILD RMD FOR HP (HPP)
.IFF TF .GOTO HPPNO
;
@HPP.COM
TKB @HPPBLD
PIP HPP.OLB;*/DE/NM
.HPPNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOHPS:
;
;	5-NOV-81
'R5'ASK TF BUILD HPSET FOR HP2621P (HPS)
.IFF TF .GOTO HPSNO
;
@HPS.COM
TKB @HPSETBLD'PAR'
;
;       STRAPS SET ARE :abcGHxz  (caps on G and H)
;       HANDSHAKE ARE :etX   (caps on X)
;       REMOTE  on
;
.HPSNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOIAA:
;
;	05-NOV-81
'R5'ASK TF BUILD INITIAL ATTACK ASSESSMENT FOR FIRE (IAA)
.IFF TF .GOTO IAANO
;
@IAA.COM
.IAANO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOIND:
;
;	5 MAR 82
'R5'ASK TF BUILD INDEXSORT (IND)
.IFF TF .GOTO INDNO
;
@IND.COM
TKB @INDEXSORT'PAR'
.INDNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOINV:
;
;	28-APR-82
'R5'ASK TF BUILD INVENTORY FOR R5 PROGRAMS (INV)
.IFF TF .GOTO INVNO
;
@INV.COM
TKB @INVBLD'PAR'
;
; ASSOCIATED INVENTORY FILES ARE TO BE STORED IN WP:[101,20]
;
.INVNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOKBL:
;
;	28-JUN-82
'R5'ASK TF BUILD KOUNT BLOCKS LOGIN TIME ACCOUNTER (KBL)
.IFF TF .GOTO KBLNO
;
@KBL.COM
TKB @KBLBLD'PAR'
;
.KBLNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOMAI:
;
;	9-OCT-81
'R5'ASK TF BUILD THE RO WP/DP MAIL SYSTEM (MAI)
.IFF TF .GOTO MAILNO
;
@MAI.COM
TKB @MAILERBLD'PAR'
'R5'ASK TF BUILD MAIL PURGE
.IFF TF .GOTO MAILNO
TKB @MAILPURGE'PAR'
.MAILNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOMSG:
;
;	11-APR-82
'R5'ASK TF BUILD DP MAIL SYSTEM (MSG)
.IFF TF .GOTO MSGNO
;
@MSG.COM
TKB @MSGBLD'PAR'
;
; RUN CHANGE TO CHANGE "MAIL - " TO "MSG  - " ASCII ON TASK
; IMAGE FOR THE ERROR MESSAGES.
;
.MSGNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOOCT:
;
;	FEB 4 1982
'R5'ASK TF BUILD NUMBER CONVERTER OCTAL (OCT)
.IFF TF .GOTO OCTNO
;
@OCT.COM
TKB @OCTALBLD'PAR'
.OCTNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOOPA:
;
;	1-JUL-81
'R5'ASK XTF BUILD POOL STATUS (OPA)
.IFF XTF .GOTO OPANO
;
@OPA.COM
TKB @OPABLD
.OPANO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOPAY:
;
;	17-AUG-81
'R5'ASK XTF BUILD RO PAYTAPE (PAY)
.IFF XTF .GOTO PAYNO
SET /UIC=[5,1]
ASN DP:=SY:
@PAY.COM
TKB @PAYTAPBLD'PAR'
ASN SX:=SY:
SET /UIC=[5,10]
.PAYNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOPLT:
;
;	1-JUL-81
'R5'ASK TF BUILD RO PLOT CONVERTER (PLT)
.IFF TF .GOTO PLTNO
;
@PLT.COM
TKB @PLOTBLD'PAR'
.PLTNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOREW:
;
;	1-JUL-81
'R5'ASK TF BUILD REWIND FOR MM AND MM1 (REW)
.IFF TF .GOTO REWNO
;
@REW.COM
TKB @REWINDBLD'PAR'
.REWNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GORNO:
;
;	1-JUL-81
'R5'ASK XTF BUILD RUNOFF (RNO)
.IFF TF .GOTO RNONO
;
@RNO.COM
.RNONO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOSNO:
;
;	2-NOV-81
'R5'ASK TF BUILD SNOOPY CALENDAR (SNO)
.IFF TF .GOTO SNONO
;
@SNO.COM
;
;   NOTE:  PROGRAM REQUIRES THAT   SX:[5,10]SNOOPY.DAT   EXISTS.
;
.SNONO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOSRD:
;
;	1-JUL-81
'R5'ASK TF BUILD SORTED PIP (SRD)
.IFF TF .GOTO SRDNO
;
@SRD.COM
.SRDNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOTLB:
;
;	1-JUL-81
'R5'ASK TF BUILD TAPE LIBRARIAN (TLB)
.IFF TF .GOTO TAPLNO
;
@TLB.COM
TKB @TAPLIBBLD
;
;	USE @[5,10]TAPLIB TO RUN PROGRAMS
;
.TAPLNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOTTP:
;
;	19-OCT-81
'R5'ASK TF BUILD TAPE TRANSFER PROGRAM (TTP)
.IFF TF .GOTO TTPNO
;
@TTP.COM
TKB @TTPBLD'PAR'
.TTPNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOTV9:
;
;	22-FEB-82
'R5'ASK TF BUILD TELEVIDIO RMD (TV9)
.IFF TF .GOTO TV9NO
;
@TV9.COM
TKB @TV9BLD
PIP TV9.OLB;*/DE/NM
.TV9NO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOUNT:
;
;	17-AUG-81
'R5'ASK TF BUILD UNTAB (UNT)
.IFF TF .GOTO UNTNO
;
@UNT.COM
TKB @UNTABBLD'PAR'
.UNTNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOUSE:
;
;	1-JUL-81
'R5'ASK TF BUILD STARTER OF WP USERS (USE)
.IFF TF .GOTO USENO
;
@USE.COM
TKB @USEBLD'PAR'
.USENO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOVDS:
;
;	1-JUL-81
'R5'ASK TF BUILD VIRTUAL DISK HANDLERS (VDS)
.IFF TF .GOTO VDNO
;
MAC @VDS.COM
TKB @VIRTDISK.BLD
;
;	THE BELOW IS NECESSARY TO RUN VIRTUAL DISKS
;
;LOA VD:/HIGH
;INS AVD
;INS DVD
;
; USE AVD.CMD  AND DVD.CMD FOR CONTROL OF VIRTUAL DISK PROCESSING
;
.VDNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOWHO:
;
;	1-JUL-81
'R5'ASK TF BUILD WHO IS LOGGED ON (WHO)
.IFF TF .GOTO WHONO
;
@WHO.COM
.WHONO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOWPA:
;
;	17-NOV-81
'R5'ASK TF BUILD WPACNT PROGRAM (WPA)
.IFF TF .GOTO WPANO
;
@WPA.COM
TKB @WPACNTBLD'PAR'
.WPANO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOWPL:
;
;	21-DEC-81
'R5'ASK XTF BUILD WPLOG PROGRAM (WPL)
.IFF XTF .GOTO WPLNO
;
@WPL.COM
; SHOULD HAVE 5 FORTRAN WARNINGS.
TKB @WPLOGBLD'PAR'
;
;      THE COMMAND FILE "WPLOG.CMD" IS USED TO RUN WPLOG PROGRAM
;
;   I.E., DO @WPLOG TO RUN PROGRAM.
;
.WPLNO:
.IF ENTER NE "" .AND .IF ENTER NE "R5" .GOTO GOCLE
.GOCLE:
.IF ENTER EQ "" .OR .IF ENTER EQ "R5" .GOTO OKCLE
.IF ENTER EQ "CLE" .GOTO OKCLE
;
.ASK XTF DO IT FOR ANOTHER TASK
.IFT XTF .GOTO NOGO
.OKCLE:
.IFF MACINS REM MAC
.IFF FORINS REM FOR
.IFF TKBINS REM TKB
.IFF SLPINS REM SLP
;
.ASK XTF CLEAN UP THIS DIRECTORY (CLE)
.IFT XTF @CLE.COM
;
;	END OF TASK BUILD AND INSTALL SYSTEM USERS