```/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        G E N E R A T I O N   D E S   2 6   D I R E C T I O N S   C A R D I N A L E S   D ' U N   A L B U M  :                     */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '\$xtc/DirectionsCardinales.01\$c' :                                                                               */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20231201122500).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  "INCLUDES.01.I"

#define   X1(x)     COND(((x)>0),'1',COND(((x)<0),'3','_'))
#define   Y1(y)     COND(((y)>0),'2',COND(((y)<0),'4','_'))
#define   Z1(z)     COND(((z)>0),'5',COND(((z)<0),'6','_'))

#define   X2(x)     COND(((x)>0),"SUCX(X)",COND(((x)<0),"PREX(X)","NEUT(X)"))
#define   Y2(y)     COND(((y)>0),"SUCY(Y)",COND(((y)<0),"PREY(Y)","NEUT(Y)"))
#define   Z2(z)     COND(((z)>0),"SUCZ(Z)",COND(((z)<0),"PREZ(Z)","NEUT(Z)"))

main()
{
int       x,y,z;
for       (x=-1 ; x<=+1 ; x++)
{
for       (y=-1 ; y<=+1 ; y++)
{
for       (z=-1 ; z<=+1 ; z++)
{
if        ((x==0) && (y==0) & (z==0))
/* Le cas vide, qui conduirait a l'immobilite, est ignore...                                 */
{
}
else
{
printf("procedure(");
printf("dc%c%c%c",X1(x),Y1(y),Z1(z));
printf(",");
printf("%s,%s,%s",X2(x),Y2(y),Z2(z));
printf(");\n");
}
}
}
}
}
```