$	SAY	:= WRITE SYS$OUTPUT
$ !
$	SAY ""
$	SAY "        ", F$ENVIRONMENT("PROCEDURE")
$	SAY ""
$	SAY "        Build the anagram dictionary code."
$	SAY ""
$ !
$	CREATE ANADIC.EXE
$	CREATE ANADIC.OBJ
$	CREATE ANAGRM.EXE
$	CREATE ANAGRM.OBJ
$	CREATE ANAMAK.EXE
$	CREATE ANAMAK.OBJ
$	CREATE MAKANA.OBJ
$	CMD := DELETE ANADIC.EXE;*,.OBJ;*,ANAGRM.EXE;*,.OBJ;*,ANAMAK.EXE;*,.OBJ;*,MAKANA;*
$	SAY "$ ", CMD
$	CMD
$ !
$	CMD := FORTRAN ANADIC.FTN
$	SAY "$ ", CMD
$	CMD
$ !
$	CMD := FORTRAN ANAGRM.FTN
$	SAY "$ ", CMD
$	CMD
$ !
$	CMD := FORTRAN ANAMAK.FTN
$	SAY "$ ", CMD
$	CMD
$ !
$	CMD := FORTRAN MAKANA.FTN
$	SAY "$ ", CMD
$	CMD
$ !
$	CMD := LINK ANADIC,SYS$INPUT/OPTION
$	SAY "$ ", CMD
$	SAY "IDENTIFICATION = ""90.337"""
$	CMD
IDENTIFICATION = "90.337"
$ !
$	CMD := LINK ANAGRM,MAKANA,SYS$INPUT/OPTION
$	SAY "$ ", CMD
$	SAY "IDENTIFICATION = ""90.337"""
$	CMD
IDENTIFICATION = "90.337"
$ !
$	CMD := LINK ANAMAK,MAKANA,SYS$INPUT/OPTION
$	SAY "$ ", CMD
$	SAY "IDENTIFICATION = ""90.337"""
$	CMD
IDENTIFICATION = "90.337"
$ !
$	CMD := DELETE ANAGRM.OBJ;*,ANAMAK;*,MAKANA;*,ANADIC;*
$	SAY "$ ", CMD
$	CMD