.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;*
F77 SPELL,SPELL/-SP=SPELL/NOTR
.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,F77FCS/LB,LB:[1,1]SYSLIB/LB:$SHORT
;SPELL,MP:SPELL=SPELL,F77FCS/LB
/
UNITS=5
ACTFIL=4
ASG=SY:4:1		;FOR DOCUMENT IN AND OUT
ASG='DEV'2		;FOR "DICT.RAF"
ASG=SY:3		;NOT USED
ASG=TI:5		;FOR TERMINAL IO
TASK=...SPE
PRI=65
MAXBUF=512
//
.DISABLE DATA
.CLOSE
TKB @SPELLBLD
.IF <EXSTAT> NE 1 .EXIT
PIP SPELLBLD.CMD;*/DE
PIP SPELL.OBJ;*/DE
.EXIT
