;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 SPELL.OBJ;*/DE/NM,SPELL.LST;*,SPELL.MAP;*
F77 SPELLM,SPELLM/-SP=SPELLM/NOTR/NOCK
F77 ADDLST,ADDLST/-SP=ADDLST/NOTR/NOCK
F77 CKDICT,CKDICT/-SP=CKDICT/NOTR/NOCK
F77 CKLIST,CKLIST/-SP=CKLIST/NOTR/NOCK
F77 CRCTLN,CRCTLN/-SP=CRCTLN/NOTR/NOCK
F77 DISPLA,DISPLA/-SP=DISPLA/NOTR/NOCK
F77 EXTRC,EXTRC/-SP=EXTRC/NOTR/NOCK
F77 FNDNOR,FNDNOR/-SP=FNDNOR/NOTR/NOCK
F77 GET,GET/-SP=GET/NOTR/NOCK
F77 GETDCT,GETDCT/-SP=GETDCT/NOTR/NOCK
F77 GETFIL,GETFIL/-SP=GETFIL/NOTR/NOCK
F77 GETLOD,GETLOD/-SP=GETLOD/NOTR/NOCK
F77 GETWRD,GETWRD/-SP=GETWRD/NOTR/NOCK
F77 INDXFL,INDXFL/-SP=INDXFL/NOTR/NOCK
F77 IRDBLK,IRDBLK/-SP=IRDBLK/NOTR/NOCK
F77 SORT,SORT/-SP=SORT/NOTR/NOCK
.IF <EXSTAT> NE 1 .EXIT
.10:
.IFF BUILD .EXIT
PIP SPELL.TSK;*/DE
.IFT MAP ASN SY:=MP:
.IFF MAP ASN NL:=MP:
.OPEN SPELLBLD.CMD
.ENABLE DATA
SPELL,MP:SPELL/-SP=SPELL/MP
/
UNITS=4
ACTFIL=4
ASG=SY:4:1		;FOR DOCUMENT IN AND OUT
ASG='DEV'2		;FOR "DICT.RAF"
ASG=TI:3		;FOR TERMINAL IO
TASK=...SPE
PRI=65
MAXBUF=512		;FOR BLOCK IO TO FILES
//
.DISABLE DATA
.CLOSE
TKB @SPELLBLD
.IF <EXSTAT> NE 1 .EXIT
PIP SPELLBLD.CMD;*/DE
PIP SPELL.OBJ;*/DE
.EXIT
