$! CLP.COM:	Commandfile for quick CLiP run on files specified by	!$
$!		up to eight parameters. Generates all modules.		!$
$! PAR1 - PAR8:	Sourcefiles to be scanned by CLiP.			!$
$! Note 1:								!$
$! 	The global logicals CLiP$SRC_DIR and CLiP$MOD_DIR are used 	!$
$!	to determine the source and target directories, respectively.	!$
$!	Use the CLIP_ENV command procedure to set these logicals.	!$
$! NOTE 2:
$!	This command-procedure is tailored to Pascal-use of CLiP.	!$
$!	The "Left/right comment string" have to be edited to accomodate	!$
$!	other languages.						!$
$!
$  OPEN/WRITE CLIP_INI CLIP.INI
$  WRITE CLIP_INI "This file contains data that is needed to run CLiP_2"
$  WRITE CLIP_INI "And is generated by CLiP_1"
$  WRITE CLIP_INI "Modifying this file at own risk."
$  WRITE CLIP_INI "Using CLiP_1 is definitely recommended."
$  WRITE CLIP_INI ""
$  WRITE CLIP_INI "INTERACTIVE_MODE        Mode (INTERACTIVE/DEBUG/HELPFUL/AUTO)"
$  WRITE CLIP_INI "NO                      Interactive fault correction (YES/NO)"
$  WRITE CLIP_INI "FILE                    Error message destination (TERMINAL/FILE/BOTH/NONE)"
$  WRITE CLIP_INI "(*                      Left comment string"
$  WRITE CLIP_INI "*)                      Right comment string"
$  WRITE CLIP_INI "*                       Command character"
$  WRITE CLIP_INI "ENDOF                   END string"
$  WRITE CLIP_INI "#                       Option marker"
$  WRITE CLIP_INI "OMITTED                 The specified modules are (OMITTED/EXTRACTED)"
$  WRITE CLIP_INI "------------ REPORT FILE -----------"
$  WRITE CLIP_INI "CLIP.RPT"
$  WRITE CLIP_INI "------------ INPUT FILES -----------"
$  CLIP_SRC_DIR = F$TRNLNM("CLIP$SRC_DIR")
$  IF P1 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P1
$  IF P2 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P2
$  IF P3 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P3
$  IF P4 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P4
$  IF P5 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P5
$  IF P6 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P6
$  IF P7 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P7
$  IF P8 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P8
$  WRITE CLIP_INI "------------ MODULES ---------------"
$  WRITE CLIP_INI "------------ MODULE DIRECTORY ------"
$  CLIP_MOD_DIR = F$TRNLNM("CLIP$MOD_DIR")
$  WRITE CLIP_INI CLIP_MOD_DIR
$  WRITE CLIP_INI "------------ END OF INI FILE -------"
$  CLOSE CLIP_INI
$  CL
$! DELETE CLIP.INI.
$  EXIT