+ if (RNDVOC == 0) {
+ for (int I = 1; I <= 5; I++) {
+ J = 11 + randrange(26);
+ if (I == 2)
+ J = CHAR;
+ RNDVOC = RNDVOC * 64 + J;
+ }
+ }
+
+ J = 10000;
+ DIV = 64L * 64L * 64L;
+
+ for (int I = 1; I <= TABSIZ; I++) {
+ J = J + 7;
+ if (MOD((ATAB[I]-J*J)/DIV, 64L) == CHAR)
+ break;
+ }
+
+ ATAB[I] = RNDVOC + J * J;