Solmizační variace v ANSI C

/* SOLMIZACNI VARIACE v C */
/* puvodne napsal Jan Faix, do C prepsal jmenovec 637man 2017/8 */
/* vydalo Poli5 nedavno */

#include <stdio.h>

int main(){
char *syllable[8] = {" -"," Do"," Re"," Mi"," Fa"," Sol"," La"," Ti"};
int varid = 0;
int a,b,c,d,e,f,g = 0;

/* for(a=1,a<8,a++){} */
/* Takto 7 vnorenych cyklu a->g, lepsi je zvysovat cislo, ktere bude
prevadeno na id slabik pomoci bitovych posunu. */

puts("* * *   S O L M I Z A C Z N I I   V A R I A C E   * * *");
puts("Puovodnii kniizska Jan Faix");
puts("Proceduraalnii \"piraatskaa\" vylepszenaa edice 637man\r\n");

while(varid<=07777777){
a = varid;
b = varid;
c = varid;
d = varid;
e = varid;
f = varid;
g = varid;
g =  g       & 07;
f = (f >> 3) & 07;
e = (e >> 6) & 07;
d = (d >> 9) & 07;
c = (c >>12) & 07;
b = (b >>15) & 07;
a = (a >>18) & 07;
printf ("%7o %s%s%s%s%s%s%s\r\n",
varid,syllable[a],syllable[b],syllable[c],
syllable[d],syllable[e],syllable[f],syllable[g]);
++varid;
}
return 0;
}