.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 CHARACTER NAME OR RETURN FOR STEP BY STEP
.IF ENTER EQ "" .GOTO STEPBY
.IF ENTER EQ "ABO" .GOTO GOABO
.IF ENTER EQ "BKC" .GOTO GOBKC
.IF ENTER EQ "CCL" .GOTO GOCCL
.IF ENTER EQ "CHA" .GOTO GOCHA
.IF ENTER EQ "COO" .GOTO GOCOO
.IF ENTER EQ "CVL" .GOTO GOCVL
.IF ENTER EQ "DAT" .GOTO GODAT
.IF ENTER EQ "ED2" .GOTO GOED2
.IF ENTER EQ "FIN" .GOTO GOFIN
.IF ENTER EQ "HOL" .GOTO GOHOL
.IF ENTER EQ "HPP" .GOTO GOHPP
.IF ENTER EQ "HPS" .GOTO GOHPS
.IF ENTER EQ "IAA" .GOTO GOIAA
.IF ENTER EQ "ICL" .GOTO GOICL
.IF ENTER EQ "IND" .GOTO GOIND
.IF ENTER EQ "INV" .GOTO GOINV
.IF ENTER EQ "MAI" .GOTO GOMAI
.IF ENTER EQ "OCT" .GOTO GOOCT
.IF ENTER EQ "OPA" .GOTO GOOPA
.IF ENTER EQ "PAY" .GOTO GOPAY
.IF ENTER EQ "PLT" .GOTO GOPLT
.IF ENTER EQ "REW" .GOTO GOREW
.IF ENTER EQ "RNO" .GOTO GORNO
.IF ENTER EQ "SNO" .GOTO GOSNO
.IF ENTER EQ "SRD" .GOTO GOSRD
.IF ENTER EQ "TLB" .GOTO GOTLB
.IF ENTER EQ "TTP" .GOTO GOTTP
.IF ENTER EQ "TCR" .GOTO GOTCR
.IF ENTER EQ "TV9" .GOTO GOTV9
.IF ENTER EQ "UNT" .GOTO GOUNT
.IF ENTER EQ "USE" .GOTO GOUSE
.IF ENTER EQ "VDS" .GOTO GOVDS
.IF ENTER EQ "WHO" .GOTO GOWHO
.IF ENTER EQ "WPA" .GOTO GOWPA
.IF ENTER EQ "WPL" .GOTO GOWPL
.IF ENTER EQ "XER" .GOTO GOXER
.IF ENTER EQ "CLE" .GOTO GOCLE
.GOTO NOGO
.STEPBY:
.GOABO:
;
;	1-JUL-81
.ASK TF BUILD ABORT WP USERS (ABOUSE)
.IFF TF .GOTO ABONO
;
@ABOUSE.COM
TKB @ABOUSEBLD'PAR'
.ABONO:
.IF ENTER NE "" .GOTO GOCLE
.GOBKC:
;
;	1-JUL-81
.ASK TF BUILD OTHER TERMINAL COMMANDER (BKC)
.IFF TF .GOTO BKCNO
;
@BKC.COM
TKB @BKCBLD'PAR'
.BKCNO:
.IF ENTER NE "" .GOTO GOCLE
.GOCCL:
;
;	29-SEP-81
.ASK TF BUILD CCL
.IFF TF .GOTO CCLNO
;
@CCLGEN
REM ...CA.
INS CCL
.CCLNO:
.IF ENTER NE "" .GOTO GOCLE
.GOCHA:
;
;	18-JAN-82
.ASK TF BUILD CHANGE PROGRAM (CHA)
.IFF TF .GOTO CHANO
;
FOR CHANGE=CHANGE
TKB @CHANGEBLD'PAR'
.CHANO:
.IF ENTER NE "" .GOTO GOCLE
.GOCOO:
;
;	30-SEP-81
.ASK TF BUILD FORTUNE COOKIE (COO)
.IFF TF .GOTO COONO
;
MAC COOKIE=COOKIE
TKB COOKIE=COOKIE
.COONO:
.IF ENTER NE "" .GOTO GOCLE
.GOCVL:
;
;	21-DEC-81
.ASK TF BUILD CVL (CVL)
.IFF TF .GOTO CVLNO
;
@CVL
.CVLNO:
.IF ENTER NE "" .GOTO GOCLE
.GODAT:
;
;	28-DEC-81
.ASK TF BUILD DATAENTRY (DAT)
.IFF TF .GOTO DATNO
;
@DATAEN.COM 'PAR'
TKB @DATAENBLD'PAR'
.DATNO:
.IF ENTER NE "" .GOTO GOCLE
.GOED2:
;
;	4-DEC-81
.ASK TF BUILD EDITOR VERSION 2 (KEYBOARD) (ED2)
.IFF TF .GOTO ED2NO
;
@ED2
.ED2NO:
.IF ENTER NE "" .GOTO GOCLE
.GOFIN:
;
;	18-JAN-82
.ASK TF BUILD FIND STRING ROUTINE (FIN)
.IFF TF .GOTO FINDNO
;
@FIN
.FINDNO:
.IF ENTER NE "" .GOTO GOCLE
.GOHOL:
;
;	1-FEB-82
.ASK TF BUILD HOLD A TERMINAL (HOL)
.IFF TF .GOTO HOLNO
;
@HOL.COM
TKB @HOLDBLD'PAR'
.HOLNO:
.IF ENTER NE "" .GOTO GOCLE
.GOHPP:
;
;	22-FEB-82
.ASK TF BUILD RMD FOR HP (HPP)
.IFF TF .GOTO HPPNO
;
@HPP.COM
TKB @HPPBLD
PIP HPP.OLB;*/DE/NM
.HPPNO:
.IF ENTER NE "" .GOTO GOCLE
.GOHPS:
;
;	5-NOV-81
.ASK TF BUILD HPSET FOR HP2621P (HPS)
.IFF TF .GOTO HPSNO
;
FOR HPSET=HPSET
TKB @HPSETBLD'PAR'
;
;       STRAPS SET ARE :abcGHxz  (caps on G and H)
;       HANDSHAKE ARE :etX   (caps on X)
;       REMOTE  on
;
.HPSNO:
.IF ENTER NE "" .GOTO GOCLE
.GOIAA:
;
;	05-NOV-81
.ASK TF BUILD INITIAL ATTACK ASSESSMENT FOR FIRE (IAA)
.IFF TF .GOTO IAANO
;
PIP IAA.TSK/NV/CO=IAA.TSK
.IAANO:
.IF ENTER NE "" .GOTO GOCLE
.GOIND:
;
;	5 MAR 82
.ASK TF BUILD INDEXSORT (IND)
.IFF TF .GOTO INDNO
;
FOR INDEXSORT=INDEXSORT
TKB @INDEXSORT'PAR'
.INDNO:
.IF ENTER NE "" .GOTO GOCLE
.GOINV:
;
;	28-APR-82
.ASK TF BUILD INVENTORY OR R5 PROGRAMS (INV)
.IFF TF .GOTO INVNO
;
FOR INVENTORY=INVENTORY
TKB @INVBLD'PAR'
;
; ASSOCIATED INVENTORY FILES ARE TO BE STORED IN WP:[101,20]
;
.INVNO:
.IF ENTER NE "" .GOTO GOCLE
.GOMAI:
;
;	9-OCT-81
.ASK TF BUILD THE RO WP/DP MAIL SYSTEM (MAI)
.IFF TF .GOTO MAILNO
;
@MAILER.COM
TKB @MAILERBLD'PAR'
.ASK TF BUILD MAIL PURGE
.IFF TF .GOTO MAILNO
TKB @MAILPURGE'PAR'
.MAILNO:
.IF ENTER NE "" .GOTO GOCLE
.GOOCT:
;
;	FEB 4 1982
.ASK TF BUILD NUMBER CONVERTER OCTAL (OCT)
.IFF TF .GOTO OCTNO
;
FOR OCTAL=OCTAL
@STRLBR
TKB @OCTALBLD'PAR'
.OCTNO:
.IF ENTER NE "" .GOTO GOCLE
.GOOPA:
;
;	1-JUL-81
.ASK TF BUILD POOL STATUS (OPA)
.IFF TF .GOTO OPANO
;
@OPA.COM
TKB @OPABLD
.OPANO:
.IF ENTER NE "" .GOTO GOCLE
.GOPAY:
;
;	17-AUG-81
.ASK TF BUILD RO PAYTAPE (PAY)
.IFF TF .GOTO PAYNO
@PAYTAP.COM
TKB @PAYTAPBLD'PAR'
.PAYNO:
.IF ENTER NE "" .GOTO GOCLE
.GOPLT:
;
;	1-JUL-81
.ASK TF BUILD RO PLOT CONVERTER (PLT)
.IFF TF .GOTO PLTNO
;
@PLOT.COM
TKB @PLOTBLD'PAR'
.PLTNO:
.IF ENTER NE "" .GOTO GOCLE
.GOREW:
;
;	1-JUL-81
.ASK TF BUILD REWIND FOR MM AND MM1 (REW)
.IFF TF .GOTO REWNO
;
@REWIND.COM
TKB @REWINDBLD'PAR'
.REWNO:
.IF ENTER NE "" .GOTO GOCLE
.GORNO:
;
;	1-JUL-81
.ASK TF BUILD RUNOFF (RNO)
.IFF TF .GOTO RNONO
;
;MAC @RNOASM
;LBR @RNOLBR
TKB @RNOBLD
.RNONO:
.IF ENTER NE "" .GOTO GOCLE
.GOSNO:
;
;	2-NOV-81
.ASK TF BUILD SNOOPY CALENDAR (SNO)
.IFF TF .GOTO SNONO
;
FOR SNOOPY=SNOOPY
TKB SNOOPY=SNOOPY
;
;   NOTE:  PROGRAM REQUIRES THAT   SX:[5,10]SNOOPY.DAT   EXISTS.
;
.SNONO:
.IF ENTER NE "" .GOTO GOCLE
.GOSRD:
;
;	1-JUL-81
.ASK TF BUILD SORTED PIP (SRD)
.IFF TF .GOTO SRDNO
;
MAC @SRDASM.CMD
TKB @SRDBLD
INS SRD
.SRDNO:
.IF ENTER NE "" .GOTO GOCLE
.GOTLB:
;
;	1-JUL-81
.ASK TF BUILD TAPE LIBRARIAN (TLB)
.IFF TF .GOTO TAPLNO
;
@TAPLIB.COM
TKB @TAPLIBBLD
;
;	USE @[5,10]TAPLIB TO RUN PROGRAMS
;
.TAPLNO:
.IF ENTER NE "" .GOTO GOCLE
.GOTTP:
;
;	19-OCT-81
.ASK TF BUILD TAPE TRANSFER PROGRAM (TTP)
.IFF TF .GOTO TTPNO
;
@TTP.COM
TKB @TTPBLD'PAR'
.TTPNO:
.IF ENTER NE "" .GOTO GOCLE
.GOTCR:
;
;	1-JUL-81
.ASK TF BUILD TERMINAL CHARACTISTICS ROUTINE (TCR)
.IFF TF .GOTO TCRNO:
;
PIP TCR.TSK/NV/CO=TCR.TSK
.TCRNO:
.IF ENTER NE "" .GOTO GOCLE
.GOTV9:
;
;	22-FEB-82
.ASK TF BUILD TELEVIDIO RMD (TV9)
.IFF TF .GOTO TV9NO
;
@TV9.COM
TKB @TV9BLD
PIP TV9.OLB;*/DE/NM
.TV9NO:
.IF ENTER NE "" .GOTO GOCLE
.GOUNT:
;
;	17-AUG-81
.ASK TF BUILD UNTAB (UNT)
.IFF TF .GOTO UNTNO
;
@UNTAB.COM
TKB @UNTABBLD'PAR'
.UNTNO:
.IF ENTER NE "" .GOTO GOCLE
.GOUSE:
;
;	1-JUL-81
.ASK TF BUILD STARTER OF WP USERS (USE)
.IFF TF .GOTO USENO
;
FOR USE=USE
TKB @USEBLD'PAR'
.USENO:
.IF ENTER NE "" .GOTO GOCLE
.GOVDS:
;
;	1-JUL-81
.ASK TF BUILD VIRTUAL DISK HANDLERS (VDS)
.IFF TF .GOTO VDNO
;
MAC @VIRTDISK.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 "" .GOTO GOCLE
.GOWHO:
;
;	1-JUL-81
.ASK TF BUILD WHO IS LOGGED ON (WHO)
.IFF TF .GOTO WHONO
;
TKB @WHOBLD
.WHONO:
.IF ENTER NE "" .GOTO GOCLE
.GOWPA:
;
;	17-NOV-81
.ASK TF BUILD WPACNT PROGRAM (WPA)
.IFF TF .GOTO WPANO
;
@WPACNT.COM
TKB @WPACNTBLD'PAR'
.WPANO:
.IF ENTER NE "" .GOTO GOCLE
.GOWPL:
;
;	21-DEC-81
.ASK TF BUILD WPLOG PROGRAM (WPL)
.IFF TF .GOTO WPLNO
;
FOR WPLOG=WPLOG
; 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 "" .GOTO GOCLE
.GOXER:
;
;	21-DEC-81
.ASK TF BUILD XEROX (XER)
.IFF TF .GOTO XERNO
;
@XEROX.COM
TKB @XEROXBLD'PAR'
.XERNO:
.IF ENTER NE "" .GOTO GOCLE
.GOCLE:
.IF ENTER EQ "" .GOTO OKCLE
.IF ENTER EQ "CLE" .GOTO OKCLE
;
.ASK TF DO IT FOR ANOTHER TASK
.IFT TF .GOTO NOGO
.OKCLE:
.IFF MACINS REM MAC
.IFF FORINS REM FOR
.IFF TKBINS REM TKB
.IFF SLPINS REM SLP
;
.ASK TF CLEAN UP THIS DIRECTORY (CLE)
.IFT TF PIP *.OBJ;*/DE,*.MAP;*,*.LST;*
.IFT TF @CLEAN
;
;	END OF TASK BUILD AND INSTALL SYSTEM USERS