;THIS COMMAND FILE ASSUMES THAT F4POTS IS IN SYSLIB.
;IF IT IS NOT PLEASE MAKE THE APPROPRIATE CHANGES.
;IT ALSO ASSUMES THERE ARE NO RESIDENT LIBRARIES.
.ENABLE SUBSTITUTION
.IF P1 EQ "Y" .SETT COMPLE
.IF P1 EQ "N" .SETF COMPLE
.IF P1 EQ "" .ASK COMPLE COMPILE
.IF P2 EQ "Y" .SETT BUILD
.IF P2 EQ "N" .SETF BUILD
.IF P2 EQ "" .ASK BUILD BUILD
.IF P3 EQ "Y" .SETT MAP
.IF P3 EQ "N" .SETF MAP
.IF P3 EQ "" .IFT BUILD .ASK MAP MAP
.SETS DEV "SY0:"
.IF P4 NE "" .SETS DEV "'P4'"
.IF P4 EQ "" .ASKS DEV ENTER DEVICE FOR DICTIONARY
.IF DEV EQ "" .SETS DEV "SY0:"
.IFF COMPLE .GOTO 10
PIP DCTNRY.OBJ;*/DE/NM,DCTNRY.LST;*
F77 DCTNRY,DCTNRY/-SP=DCTNRY/NOTR/NOCK
.IF <EXSTAT> NE 1 .EXIT
.10:
.IFF BUILD .EXIT
PIP DCTNRY.TSK;*/DE
.IFT MAP ASN SY:=MP:
.IFF MAP ASN NL:=MP:
.OPEN DCTNRYBLD.CMD
.ENABLE DATA
;DCTNRY/SL,MP:DCTNRY/-SP=DCTNRY,SPELL/LB,LB:[1,1]SYSLIB/LB:$SHORT
;1DCTNRY/SL,MP:DCTNRY=DCTNRY,SPELL/LB
DCTNRY/SL,MP:DCTNRY/-sp=DCTNRY,SPELL/LB,LB:[1,1]F4PFCS/LB:$SHORT,F4PFCS/LB
;ETC...
/
UNITS=2
ACTFIL=2
ASG='DEV'1		;FOR "DICT.RAF"
ASG=TI:2		;FOR TERMINAL IO
TASK=DCTNRY		;STARTABLE AS EXTERNAL MCR COMMAND
PRI=60
MAXBUF=512		;NEEDED FOR BLOCK IO
//
.DISABLE DATA
.CLOSE
TKB @DCTNRYBLD
.IF <EXSTAT> NE 1 .EXIT
PIP DCTNRYBLD.CMD;*/DE
PIP DCTNRY.OBJ;*/DE
.EXIT
