Spaces were added in some strings for better readability. However, those...

$!

$! Extract The Module Name From The Encryption List.

$!

$ MODULE_NAME = F$ELEMENT(MODULE_COUNTER,",",ENCRYPT_TYPES)

$ MODULE_NAME = F$EDIT(F$ELEMENT(MODULE_COUNTER,",",ENCRYPT_TYPES),"COLLAPSE")

$ IF MODULE_NAME.EQS."Basic" THEN MODULE_NAME = ""

$ MODULE_NAME1 = MODULE_NAME

$!

$!

$!   O.K, Extract The File Name From The File List.

$!

$   FILE_NAME = F$ELEMENT(FILE_COUNTER,",",'LIB_MODULE')

$   FILE_NAME = F$EDIT(F$ELEMENT(FILE_COUNTER,",",'LIB_MODULE'),"COLLAPSE")

$!

$!   else

$!

$!

$     IF APPLICATION .NES. ";"

$     THEN

$       FILE_NAME = F$ELEMENT(FILE_COUNTER,",",APPLICATION_OBJECTS)

$       FILE_NAME = F$EDIT(F$ELEMENT(FILE_COUNTER,",",APPLICATION_OBJECTS),"COLLAPSE")

$       IF FILE_NAME .EQS. ","

$       THEN

$         APPLICATION = ""

$!

$! O.K, Extract The File Name From The File List.

$!

$ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",LIB_SSL)

$ FILE_NAME = F$EDIT(F$ELEMENT(FILE_COUNTER,",",LIB_SSL),"COLLAPSE")

$!

$! Check To See If We Are At The End Of The File List.

$!