// FnPrimOffN1.inc
// 26.10.2003
// Hans-Peter Kuberna
// hans-peter@kuberna.de
// Germany



#macro FnPrimOffN1(FNn,FNWert,FNZeile,FNSpalte)


       #local FNnmod8 = mod (FNn,8);
       #local FNnmod8p1 = FNnmod8 + 1;
       #local FNnmod8p6 = FNnmod8 + 6;
       #local FNnmod8p1mod2 =  mod (FNnmod8p1,2);
       #local FNnmod8int7 = int(FNnmod8 / 7);
       #local FNnmod8p6int7 = int(FNnmod8p6 / 7);

       #local FNnint8 = int(FNn/8);
       #local FNZeile = FNnint8;
       #local FNMul6 = ( int(FNnmod8/2)) * 6;

//   Vorzeichen berechnen
       #local FNVorZei = 1-(FNnmod8p1mod2*2);

//   -/+ 4 addieren bei n=0 / n=7
       #local FNMiPl4 = (FNnmod8int7 - FNnmod8p6int7 + 1) * 4 * FNVorZei;

//   Wert fuer Ergebnisanpassung
       #local FNw6 = 6;

       #local FNSpalte = FNMul6 + FNVorZei + FNMiPl4 + FNw6;
       #local FNWert = FNZeile * 30 + FNSpalte;


#end