#        Define VAX Digital-Command-Language Editing Environment
#
SET FIND 8; SET INS 8
Def WDCL /H ENV IONE IONC IGO IF IEX IOU II;H QC DCLDEL WDCL/
Def II /BR;I1$;VE;R+0/
Def IONE /II ON ERROR THEN GOTO Quit/
Def IONC /II ON Control_Y THEN GOTO Quit/
Def IGO  /BR;I1$;R GOTO;VE;R+5/
Def IF   /BR;I1$;R IF;VE;R+3/
Def IEX  /II EXIT/
Def IOU  /II Out "       X - X"/
Def QC   $C/'::'/"':C"$
Def DCLDEL/ENVDEF;Def IONE;Def IONC;Def IGO;Def IF;Def IEX;Def IOU;Def WDCL/
Def ENV /ECHO    VAX Digital Command Language Editing Environment/
Def CMDS /WDCL/