]> git.sur5r.net Git - cc65/blob - test/val/cq714.c
Fixed _textcolor definition.
[cc65] / test / val / cq714.c
1 /*
2   !!DESCRIPTION!! C-Manual Chapter 7.14: assignment operators
3   !!ORIGIN!!      LCC 4.1 Testsuite
4   !!LICENCE!!     own, freely distributeable for non-profit. read CPYRIGHT.LCC
5 */
6
7 #include "common.h"
8
9 struct defs {
10      int cbits;          /* No. of bits per char           */
11      int ibits;          /*                 int            */
12      int sbits;          /*                 short          */
13      int lbits;          /*                 long           */
14      int ubits;          /*                 unsigned       */
15      int fbits;          /*                 float          */
16      int dbits;          /*                 double         */
17      #ifndef NO_FLOATS
18         float fprec;        /* Smallest number that can be    */
19         float dprec;        /* significantly added to 1.      */
20      #endif
21      int flgs;           /* Print return codes, by section */
22      int flgm;           /* Announce machine dependencies  */
23      int flgd;           /* give explicit diagnostics      */
24      int flgl;           /* Report local return codes.     */
25      int rrc;            /* recent return code             */
26      int crc;            /* Cumulative return code         */
27      char rfs[8];        /* Return from section            */
28 };
29
30      int lbits;          /*                 long           */
31      int ubits;          /*                 unsigned       */
32      int fbits;          /*                 float          */
33      int dbits;          /*                 double         */
34      #ifndef NO_FLOATS
35         float fprec;        /* Smallest number that can be    */
36         float dprec;        /* significantly added to 1.      */
37      #endif
38      int flgs;           /* Print return codes, by section */
39      int flgm;           /* Announce machine dependencies  */
40      int flgd;           /* give explicit diagnostics      */
41      int flgl;           /* Report local return codes.     */
42      int rrc;            /* recent return code             */
43      int crc;            /* Cumulative return code         */
44      char rfs[8];        /* Return from section            */
45
46 #ifndef NO_OLD_FUNC_DECL
47 s714(pd0)          /*  7.14  Assignment operators       */
48 struct defs *pd0;
49 {
50 #else
51 int s714(struct defs *pd0){
52 #endif
53    static char f[] = "Local error %d.\n";
54    static char s714er[] = "s714,er%d\n";
55    static char qs714[8] = "s714   ";
56    register int prlc, lrc;
57    int rc;
58    char cl, cr;
59    short sl, sr;
60    int il, ir;
61    long ll, lr;
62    unsigned ul, ur;
63    #ifndef NO_FLOATS
64    float fl, fr;
65    double dl, dr;
66    #else
67    signed fl, fr;
68    signed dl, dr;
69    #endif
70    char *ps, *pt;
71    ps = qs714;
72    pt = pd0->rfs;
73    rc = 0;
74    lrc = 0;
75    prlc = pd0->flgl;
76    while (*pt++ = *ps++);
77
78         /* This section tests the assignment operators.
79
80         It is an exhaustive test of all assignment statements
81         of the form:
82
83                 vl op vr
84
85         where vl and vr are variables from the set
86         {char,short,int,long,unsigned,float,double} and op is
87         one of the assignment operators. There are 395 such
88         statements.
89
90         The initial values for the variables have been chosen
91         so that both the initial values and the results will
92         "fit" in just about any implementation, and that the re-
93         sults will be such that they test for the proper form-
94         ation of composite operators, rather than checking for
95         the valid operation of those operators' components.
96         For example, in checking >>=, we want to verify that
97         a right shift and a move take place, rather than
98         whether or not there may be some peculiarities about
99         the right shift. Such tests have been made previously,
100         and to repeat them here would be to throw out a red
101         herring.
102
103         The table below lists the operators, assignment targets,
104         initial values for left and right operands, and the
105         expected values of the results.
106
107           =  +=  -=  *=  /=  %=  >>=  <<=  &=  ^=  |=
108 char      2   7   3  10   2   1   1    20   8   6  14
109 short     2   7   3  10   2   1   1    20   8   6  14
110 int       2   7   3  10   2   1   1    20   8   6  14
111 long      2   7   3  10   2   1   1    20   8   6  14
112 unsigned  2   7   3  10   2   1   1    20   8   6  14
113 float     2   7   3  10 2.5 |             |
114 double    2   7   3  10 2.5 |             |
115                             |             |
116 initial         (5,2)       |    (5,2)    |  (12,10)
117
118         The following machine-generated program reflects the
119         tests described in the table.
120                                                                 */
121
122    cl = 5; cr = 2;
123    cl = cr;
124    if(cl != 2){
125      lrc = 1;
126      if(prlc) printf(f,lrc);
127    }
128    cl = 5; sr = 2;
129    cl = sr;
130    if(cl != 2){
131      lrc = 2;
132      if(prlc) printf(f,lrc);
133    }
134    cl = 5; ir = 2;
135    cl = ir;
136    if(cl != 2){
137      lrc = 3;
138      if(prlc) printf(f,lrc);
139    }
140    cl = 5; lr = 2;
141    cl = lr;
142    if(cl != 2){
143      lrc = 4;
144      if(prlc) printf(f,lrc);
145    }
146    cl = 5; ur = 2;
147    cl = ur;
148    if(cl != 2){
149      lrc = 5;
150      if(prlc) printf(f,lrc);
151    }
152    cl = 5; fr = 2;
153    cl = fr;
154    if(cl != 2){
155      lrc = 6;
156      if(prlc) printf(f,lrc);
157    }
158    cl = 5; dr = 2;
159    cl = dr;
160    if(cl != 2){
161      lrc = 7;
162      if(prlc) printf(f,lrc);
163    }
164    sl = 5; cr = 2;
165    sl = cr;
166    if(sl != 2){
167      lrc = 8;
168      if(prlc) printf(f,lrc);
169    }
170    sl = 5; sr = 2;
171    sl = sr;
172    if(sl != 2){
173      lrc = 9;
174      if(prlc) printf(f,lrc);
175    }
176    sl = 5; ir = 2;
177    sl = ir;
178    if(sl != 2){
179      lrc = 10;
180      if(prlc) printf(f,lrc);
181    }
182    sl = 5; lr = 2;
183    sl = lr;
184    if(sl != 2){
185      lrc = 11;
186      if(prlc) printf(f,lrc);
187    }
188    sl = 5; ur = 2;
189    sl = ur;
190    if(sl != 2){
191      lrc = 12;
192      if(prlc) printf(f,lrc);
193    }
194    sl = 5; fr = 2;
195    sl = fr;
196    if(sl != 2){
197      lrc = 13;
198      if(prlc) printf(f,lrc);
199    }
200    sl = 5; dr = 2;
201    sl = dr;
202    if(sl != 2){
203      lrc = 14;
204      if(prlc) printf(f,lrc);
205    }
206    il = 5; cr = 2;
207    il = cr;
208    if(il != 2){
209      lrc = 15;
210      if(prlc) printf(f,lrc);
211    }
212    il = 5; sr = 2;
213    il = sr;
214    if(il != 2){
215      lrc = 16;
216      if(prlc) printf(f,lrc);
217    }
218    il = 5; ir = 2;
219    il = ir;
220    if(il != 2){
221      lrc = 17;
222      if(prlc) printf(f,lrc);
223    }
224    il = 5; lr = 2;
225    il = lr;
226    if(il != 2){
227      lrc = 18;
228      if(prlc) printf(f,lrc);
229    }
230    il = 5; ur = 2;
231    il = ur;
232    if(il != 2){
233      lrc = 19;
234      if(prlc) printf(f,lrc);
235    }
236    il = 5; fr = 2;
237    il = fr;
238    if(il != 2){
239      lrc = 20;
240      if(prlc) printf(f,lrc);
241    }
242    il = 5; dr = 2;
243    il = dr;
244    if(il != 2){
245      lrc = 21;
246      if(prlc) printf(f,lrc);
247    }
248    ll = 5; cr = 2;
249    ll = cr;
250    if(ll != 2){
251      lrc = 22;
252      if(prlc) printf(f,lrc);
253    }
254    ll = 5; sr = 2;
255    ll = sr;
256    if(ll != 2){
257      lrc = 23;
258      if(prlc) printf(f,lrc);
259    }
260    ll = 5; ir = 2;
261    ll = ir;
262    if(ll != 2){
263      lrc = 24;
264      if(prlc) printf(f,lrc);
265    }
266    ll = 5; lr = 2;
267    ll = lr;
268    if(ll != 2){
269      lrc = 25;
270      if(prlc) printf(f,lrc);
271    }
272    ll = 5; ur = 2;
273    ll = ur;
274    if(ll != 2){
275      lrc = 26;
276      if(prlc) printf(f,lrc);
277    }
278    ll = 5; fr = 2;
279    ll = fr;
280    if(ll != 2){
281      lrc = 27;
282      if(prlc) printf(f,lrc);
283    }
284    ll = 5; dr = 2;
285    ll = dr;
286    if(ll != 2){
287      lrc = 28;
288      if(prlc) printf(f,lrc);
289    }
290    ul = 5; cr = 2;
291    ul = cr;
292    if(ul != 2){
293      lrc = 29;
294      if(prlc) printf(f,lrc);
295    }
296    ul = 5; sr = 2;
297    ul = sr;
298    if(ul != 2){
299      lrc = 30;
300      if(prlc) printf(f,lrc);
301    }
302    ul = 5; ir = 2;
303    ul = ir;
304    if(ul != 2){
305      lrc = 31;
306      if(prlc) printf(f,lrc);
307    }
308    ul = 5; lr = 2;
309    ul = lr;
310    if(ul != 2){
311      lrc = 32;
312      if(prlc) printf(f,lrc);
313    }
314    ul = 5; ur = 2;
315    ul = ur;
316    if(ul != 2){
317      lrc = 33;
318      if(prlc) printf(f,lrc);
319    }
320    ul = 5; fr = 2;
321    ul = fr;
322    if(ul != 2){
323      lrc = 34;
324      if(prlc) printf(f,lrc);
325    }
326    ul = 5; dr = 2;
327    ul = dr;
328    if(ul != 2){
329      lrc = 35;
330      if(prlc) printf(f,lrc);
331    }
332    fl = 5; cr = 2;
333    fl = cr;
334    if(fl != 2){
335      lrc = 36;
336      if(prlc) printf(f,lrc);
337    }
338    fl = 5; sr = 2;
339    fl = sr;
340    if(fl != 2){
341      lrc = 37;
342      if(prlc) printf(f,lrc);
343    }
344    fl = 5; ir = 2;
345    fl = ir;
346    if(fl != 2){
347      lrc = 38;
348      if(prlc) printf(f,lrc);
349    }
350    fl = 5; lr = 2;
351    fl = lr;
352    if(fl != 2){
353      lrc = 39;
354      if(prlc) printf(f,lrc);
355    }
356    fl = 5; ur = 2;
357    fl = ur;
358    if(fl != 2){
359      lrc = 40;
360      if(prlc) printf(f,lrc);
361    }
362    fl = 5; fr = 2;
363    fl = fr;
364    if(fl != 2){
365      lrc = 41;
366      if(prlc) printf(f,lrc);
367    }
368    fl = 5; dr = 2;
369    fl = dr;
370    if(fl != 2){
371      lrc = 42;
372      if(prlc) printf(f,lrc);
373    }
374    dl = 5; cr = 2;
375    dl = cr;
376    if(dl != 2){
377      lrc = 43;
378      if(prlc) printf(f,lrc);
379    }
380    dl = 5; sr = 2;
381    dl = sr;
382    if(dl != 2){
383      lrc = 44;
384      if(prlc) printf(f,lrc);
385    }
386    dl = 5; ir = 2;
387    dl = ir;
388    if(dl != 2){
389      lrc = 45;
390      if(prlc) printf(f,lrc);
391    }
392    dl = 5; lr = 2;
393    dl = lr;
394    if(dl != 2){
395      lrc = 46;
396      if(prlc) printf(f,lrc);
397    }
398    dl = 5; ur = 2;
399    dl = ur;
400    if(dl != 2){
401      lrc = 47;
402      if(prlc) printf(f,lrc);
403    }
404    dl = 5; fr = 2;
405    dl = fr;
406    if(dl != 2){
407      lrc = 48;
408      if(prlc) printf(f,lrc);
409    }
410    dl = 5; dr = 2;
411    dl = dr;
412    if(dl != 2){
413      lrc = 49;
414      if(prlc) printf(f,lrc);
415    }
416    cl = 5; cr = 2;
417    cl += cr;
418    if(cl != 7){
419      lrc = 50;
420      if(prlc) printf(f,lrc);
421    }
422    cl = 5; sr = 2;
423    cl += sr;
424    if(cl != 7){
425      lrc = 51;
426      if(prlc) printf(f,lrc);
427    }
428    cl = 5; ir = 2;
429    cl += ir;
430    if(cl != 7){
431      lrc = 52;
432      if(prlc) printf(f,lrc);
433    }
434    cl = 5; lr = 2;
435    cl += lr;
436    if(cl != 7){
437      lrc = 53;
438      if(prlc) printf(f,lrc);
439    }
440    cl = 5; ur = 2;
441    cl += ur;
442    if(cl != 7){
443      lrc = 54;
444      if(prlc) printf(f,lrc);
445    }
446    cl = 5; fr = 2;
447    cl += fr;
448    if(cl != 7){
449      lrc = 55;
450      if(prlc) printf(f,lrc);
451    }
452    cl = 5; dr = 2;
453    cl += dr;
454    if(cl != 7){
455      lrc = 56;
456      if(prlc) printf(f,lrc);
457    }
458    sl = 5; cr = 2;
459    sl += cr;
460    if(sl != 7){
461      lrc = 57;
462      if(prlc) printf(f,lrc);
463    }
464    sl = 5; sr = 2;
465    sl += sr;
466    if(sl != 7){
467      lrc = 58;
468      if(prlc) printf(f,lrc);
469    }
470    sl = 5; ir = 2;
471    sl += ir;
472    if(sl != 7){
473      lrc = 59;
474      if(prlc) printf(f,lrc);
475    }
476    sl = 5; lr = 2;
477    sl += lr;
478    if(sl != 7){
479      lrc = 60;
480      if(prlc) printf(f,lrc);
481    }
482    sl = 5; ur = 2;
483    sl += ur;
484    if(sl != 7){
485      lrc = 61;
486      if(prlc) printf(f,lrc);
487    }
488    sl = 5; fr = 2;
489    sl += fr;
490    if(sl != 7){
491      lrc = 62;
492      if(prlc) printf(f,lrc);
493    }
494    sl = 5; dr = 2;
495    sl += dr;
496    if(sl != 7){
497      lrc = 63;
498      if(prlc) printf(f,lrc);
499    }
500    il = 5; cr = 2;
501    il += cr;
502    if(il != 7){
503      lrc = 64;
504      if(prlc) printf(f,lrc);
505    }
506    il = 5; sr = 2;
507    il += sr;
508    if(il != 7){
509      lrc = 65;
510      if(prlc) printf(f,lrc);
511    }
512    il = 5; ir = 2;
513    il += ir;
514    if(il != 7){
515      lrc = 66;
516      if(prlc) printf(f,lrc);
517    }
518    il = 5; lr = 2;
519    il += lr;
520    if(il != 7){
521      lrc = 67;
522      if(prlc) printf(f,lrc);
523    }
524    il = 5; ur = 2;
525    il += ur;
526    if(il != 7){
527      lrc = 68;
528      if(prlc) printf(f,lrc);
529    }
530    il = 5; fr = 2;
531    il += fr;
532    if(il != 7){
533      lrc = 69;
534      if(prlc) printf(f,lrc);
535    }
536    il = 5; dr = 2;
537    il += dr;
538    if(il != 7){
539      lrc = 70;
540      if(prlc) printf(f,lrc);
541    }
542    ll = 5; cr = 2;
543    ll += cr;
544    if(ll != 7){
545      lrc = 71;
546      if(prlc) printf(f,lrc);
547    }
548    ll = 5; sr = 2;
549    ll += sr;
550    if(ll != 7){
551      lrc = 72;
552      if(prlc) printf(f,lrc);
553    }
554    ll = 5; ir = 2;
555    ll += ir;
556    if(ll != 7){
557      lrc = 73;
558      if(prlc) printf(f,lrc);
559    }
560    ll = 5; lr = 2;
561    ll += lr;
562    if(ll != 7){
563      lrc = 74;
564      if(prlc) printf(f,lrc);
565    }
566    ll = 5; ur = 2;
567    ll += ur;
568    if(ll != 7){
569      lrc = 75;
570      if(prlc) printf(f,lrc);
571    }
572    ll = 5; fr = 2;
573    ll += fr;
574    if(ll != 7){
575      lrc = 76;
576      if(prlc) printf(f,lrc);
577    }
578    ll = 5; dr = 2;
579    ll += dr;
580    if(ll != 7){
581      lrc = 77;
582      if(prlc) printf(f,lrc);
583    }
584    ul = 5; cr = 2;
585    ul += cr;
586    if(ul != 7){
587      lrc = 78;
588      if(prlc) printf(f,lrc);
589    }
590    ul = 5; sr = 2;
591    ul += sr;
592    if(ul != 7){
593      lrc = 79;
594      if(prlc) printf(f,lrc);
595    }
596    ul = 5; ir = 2;
597    ul += ir;
598    if(ul != 7){
599      lrc = 80;
600      if(prlc) printf(f,lrc);
601    }
602    ul = 5; lr = 2;
603    ul += lr;
604    if(ul != 7){
605      lrc = 81;
606      if(prlc) printf(f,lrc);
607    }
608    ul = 5; ur = 2;
609    ul += ur;
610    if(ul != 7){
611      lrc = 82;
612      if(prlc) printf(f,lrc);
613    }
614    ul = 5; fr = 2;
615    ul += fr;
616    if(ul != 7){
617      lrc = 83;
618      if(prlc) printf(f,lrc);
619    }
620    ul = 5; dr = 2;
621    ul += dr;
622    if(ul != 7){
623      lrc = 84;
624      if(prlc) printf(f,lrc);
625    }
626    fl = 5; cr = 2;
627    fl += cr;
628    if(fl != 7){
629      lrc = 85;
630      if(prlc) printf(f,lrc);
631    }
632    fl = 5; sr = 2;
633    fl += sr;
634    if(fl != 7){
635      lrc = 86;
636      if(prlc) printf(f,lrc);
637    }
638    fl = 5; ir = 2;
639    fl += ir;
640    if(fl != 7){
641      lrc = 87;
642      if(prlc) printf(f,lrc);
643    }
644    fl = 5; lr = 2;
645    fl += lr;
646    if(fl != 7){
647      lrc = 88;
648      if(prlc) printf(f,lrc);
649    }
650    fl = 5; ur = 2;
651    fl += ur;
652    if(fl != 7){
653      lrc = 89;
654      if(prlc) printf(f,lrc);
655    }
656    fl = 5; fr = 2;
657    fl += fr;
658    if(fl != 7){
659      lrc = 90;
660      if(prlc) printf(f,lrc);
661    }
662    fl = 5; dr = 2;
663    fl += dr;
664    if(fl != 7){
665      lrc = 91;
666      if(prlc) printf(f,lrc);
667    }
668    dl = 5; cr = 2;
669    dl += cr;
670    if(dl != 7){
671      lrc = 92;
672      if(prlc) printf(f,lrc);
673    }
674    dl = 5; sr = 2;
675    dl += sr;
676    if(dl != 7){
677      lrc = 93;
678      if(prlc) printf(f,lrc);
679    }
680    dl = 5; ir = 2;
681    dl += ir;
682    if(dl != 7){
683      lrc = 94;
684      if(prlc) printf(f,lrc);
685    }
686    dl = 5; lr = 2;
687    dl += lr;
688    if(dl != 7){
689      lrc = 95;
690      if(prlc) printf(f,lrc);
691    }
692    dl = 5; ur = 2;
693    dl += ur;
694    if(dl != 7){
695      lrc = 96;
696      if(prlc) printf(f,lrc);
697    }
698    dl = 5; fr = 2;
699    dl += fr;
700    if(dl != 7){
701      lrc = 97;
702      if(prlc) printf(f,lrc);
703    }
704    dl = 5; dr = 2;
705    dl += dr;
706    if(dl != 7){
707      lrc = 98;
708      if(prlc) printf(f,lrc);
709    }
710    cl = 5; cr = 2;
711    cl -= cr;
712    if(cl != 3){
713      lrc = 99;
714      if(prlc) printf(f,lrc);
715    }
716    cl = 5; sr = 2;
717    cl -= sr;
718    if(cl != 3){
719      lrc = 100;
720      if(prlc) printf(f,lrc);
721    }
722    cl = 5; ir = 2;
723    cl -= ir;
724    if(cl != 3){
725      lrc = 101;
726      if(prlc) printf(f,lrc);
727    }
728    cl = 5; lr = 2;
729    cl -= lr;
730    if(cl != 3){
731      lrc = 102;
732      if(prlc) printf(f,lrc);
733    }
734    cl = 5; ur = 2;
735    cl -= ur;
736    if(cl != 3){
737      lrc = 103;
738      if(prlc) printf(f,lrc);
739    }
740    cl = 5; fr = 2;
741    cl -= fr;
742    if(cl != 3){
743      lrc = 104;
744      if(prlc) printf(f,lrc);
745    }
746    cl = 5; dr = 2;
747    cl -= dr;
748    if(cl != 3){
749      lrc = 105;
750      if(prlc) printf(f,lrc);
751    }
752    sl = 5; cr = 2;
753    sl -= cr;
754    if(sl != 3){
755      lrc = 106;
756      if(prlc) printf(f,lrc);
757    }
758    sl = 5; sr = 2;
759    sl -= sr;
760    if(sl != 3){
761      lrc = 107;
762      if(prlc) printf(f,lrc);
763    }
764    sl = 5; ir = 2;
765    sl -= ir;
766    if(sl != 3){
767      lrc = 108;
768      if(prlc) printf(f,lrc);
769    }
770    sl = 5; lr = 2;
771    sl -= lr;
772    if(sl != 3){
773      lrc = 109;
774      if(prlc) printf(f,lrc);
775    }
776    sl = 5; ur = 2;
777    sl -= ur;
778    if(sl != 3){
779      lrc = 110;
780      if(prlc) printf(f,lrc);
781    }
782    sl = 5; fr = 2;
783    sl -= fr;
784    if(sl != 3){
785      lrc = 111;
786      if(prlc) printf(f,lrc);
787    }
788    sl = 5; dr = 2;
789    sl -= dr;
790    if(sl != 3){
791      lrc = 112;
792      if(prlc) printf(f,lrc);
793    }
794    il = 5; cr = 2;
795    il -= cr;
796    if(il != 3){
797      lrc = 113;
798      if(prlc) printf(f,lrc);
799    }
800    il = 5; sr = 2;
801    il -= sr;
802    if(il != 3){
803      lrc = 114;
804      if(prlc) printf(f,lrc);
805    }
806    il = 5; ir = 2;
807    il -= ir;
808    if(il != 3){
809      lrc = 115;
810      if(prlc) printf(f,lrc);
811    }
812    il = 5; lr = 2;
813    il -= lr;
814    if(il != 3){
815      lrc = 116;
816      if(prlc) printf(f,lrc);
817    }
818    il = 5; ur = 2;
819    il -= ur;
820    if(il != 3){
821      lrc = 117;
822      if(prlc) printf(f,lrc);
823    }
824    il = 5; fr = 2;
825    il -= fr;
826    if(il != 3){
827      lrc = 118;
828      if(prlc) printf(f,lrc);
829    }
830    il = 5; dr = 2;
831    il -= dr;
832    if(il != 3){
833      lrc = 119;
834      if(prlc) printf(f,lrc);
835    }
836    ll = 5; cr = 2;
837    ll -= cr;
838    if(ll != 3){
839      lrc = 120;
840      if(prlc) printf(f,lrc);
841    }
842    ll = 5; sr = 2;
843    ll -= sr;
844    if(ll != 3){
845      lrc = 121;
846      if(prlc) printf(f,lrc);
847    }
848    ll = 5; ir = 2;
849    ll -= ir;
850    if(ll != 3){
851      lrc = 122;
852      if(prlc) printf(f,lrc);
853    }
854    ll = 5; lr = 2;
855    ll -= lr;
856    if(ll != 3){
857      lrc = 123;
858      if(prlc) printf(f,lrc);
859    }
860    ll = 5; ur = 2;
861    ll -= ur;
862    if(ll != 3){
863      lrc = 124;
864      if(prlc) printf(f,lrc);
865    }
866    ll = 5; fr = 2;
867    ll -= fr;
868    if(ll != 3){
869      lrc = 125;
870      if(prlc) printf(f,lrc);
871    }
872    ll = 5; dr = 2;
873    ll -= dr;
874    if(ll != 3){
875      lrc = 126;
876      if(prlc) printf(f,lrc);
877    }
878    ul = 5; cr = 2;
879    ul -= cr;
880    if(ul != 3){
881      lrc = 127;
882      if(prlc) printf(f,lrc);
883    }
884    ul = 5; sr = 2;
885    ul -= sr;
886    if(ul != 3){
887      lrc = 128;
888      if(prlc) printf(f,lrc);
889    }
890    ul = 5; ir = 2;
891    ul -= ir;
892    if(ul != 3){
893      lrc = 129;
894      if(prlc) printf(f,lrc);
895    }
896    ul = 5; lr = 2;
897    ul -= lr;
898    if(ul != 3){
899      lrc = 130;
900      if(prlc) printf(f,lrc);
901    }
902    ul = 5; ur = 2;
903    ul -= ur;
904    if(ul != 3){
905      lrc = 131;
906      if(prlc) printf(f,lrc);
907    }
908    ul = 5; fr = 2;
909    ul -= fr;
910    if(ul != 3){
911      lrc = 132;
912      if(prlc) printf(f,lrc);
913    }
914    ul = 5; dr = 2;
915    ul -= dr;
916    if(ul != 3){
917      lrc = 133;
918      if(prlc) printf(f,lrc);
919    }
920    fl = 5; cr = 2;
921    fl -= cr;
922    if(fl != 3){
923      lrc = 134;
924      if(prlc) printf(f,lrc);
925    }
926    fl = 5; sr = 2;
927    fl -= sr;
928    if(fl != 3){
929      lrc = 135;
930      if(prlc) printf(f,lrc);
931    }
932    fl = 5; ir = 2;
933    fl -= ir;
934    if(fl != 3){
935      lrc = 136;
936      if(prlc) printf(f,lrc);
937    }
938    fl = 5; lr = 2;
939    fl -= lr;
940    if(fl != 3){
941      lrc = 137;
942      if(prlc) printf(f,lrc);
943    }
944    fl = 5; ur = 2;
945    fl -= ur;
946    if(fl != 3){
947      lrc = 138;
948      if(prlc) printf(f,lrc);
949    }
950    fl = 5; fr = 2;
951    fl -= fr;
952    if(fl != 3){
953      lrc = 139;
954      if(prlc) printf(f,lrc);
955    }
956    fl = 5; dr = 2;
957    fl -= dr;
958    if(fl != 3){
959      lrc = 140;
960      if(prlc) printf(f,lrc);
961    }
962    dl = 5; cr = 2;
963    dl -= cr;
964    if(dl != 3){
965      lrc = 141;
966      if(prlc) printf(f,lrc);
967    }
968    dl = 5; sr = 2;
969    dl -= sr;
970    if(dl != 3){
971      lrc = 142;
972      if(prlc) printf(f,lrc);
973    }
974    dl = 5; ir = 2;
975    dl -= ir;
976    if(dl != 3){
977      lrc = 143;
978      if(prlc) printf(f,lrc);
979    }
980    dl = 5; lr = 2;
981    dl -= lr;
982    if(dl != 3){
983      lrc = 144;
984      if(prlc) printf(f,lrc);
985    }
986    dl = 5; ur = 2;
987    dl -= ur;
988    if(dl != 3){
989      lrc = 145;
990      if(prlc) printf(f,lrc);
991    }
992    dl = 5; fr = 2;
993    dl -= fr;
994    if(dl != 3){
995      lrc = 146;
996      if(prlc) printf(f,lrc);
997    }
998    dl = 5; dr = 2;
999    dl -= dr;
1000    if(dl != 3){
1001      lrc = 147;
1002      if(prlc) printf(f,lrc);
1003    }
1004    cl = 5; cr = 2;
1005    cl *= cr;
1006    if(cl != 10){
1007      lrc = 148;
1008      if(prlc) printf(f,lrc);
1009    }
1010    cl = 5; sr = 2;
1011    cl *= sr;
1012    if(cl != 10){
1013      lrc = 149;
1014      if(prlc) printf(f,lrc);
1015    }
1016    cl = 5; ir = 2;
1017    cl *= ir;
1018    if(cl != 10){
1019      lrc = 150;
1020      if(prlc) printf(f,lrc);
1021    }
1022    cl = 5; lr = 2;
1023    cl *= lr;
1024    if(cl != 10){
1025      lrc = 151;
1026      if(prlc) printf(f,lrc);
1027    }
1028    cl = 5; ur = 2;
1029    cl *= ur;
1030    if(cl != 10){
1031      lrc = 152;
1032      if(prlc) printf(f,lrc);
1033    }
1034    cl = 5; fr = 2;
1035    cl *= fr;
1036    if(cl != 10){
1037      lrc = 153;
1038      if(prlc) printf(f,lrc);
1039    }
1040    cl = 5; dr = 2;
1041    cl *= dr;
1042    if(cl != 10){
1043      lrc = 154;
1044      if(prlc) printf(f,lrc);
1045    }
1046    sl = 5; cr = 2;
1047    sl *= cr;
1048    if(sl != 10){
1049      lrc = 155;
1050      if(prlc) printf(f,lrc);
1051    }
1052    sl = 5; sr = 2;
1053    sl *= sr;
1054    if(sl != 10){
1055      lrc = 156;
1056      if(prlc) printf(f,lrc);
1057    }
1058    sl = 5; ir = 2;
1059    sl *= ir;
1060    if(sl != 10){
1061      lrc = 157;
1062      if(prlc) printf(f,lrc);
1063    }
1064    sl = 5; lr = 2;
1065    sl *= lr;
1066    if(sl != 10){
1067      lrc = 158;
1068      if(prlc) printf(f,lrc);
1069    }
1070    sl = 5; ur = 2;
1071    sl *= ur;
1072    if(sl != 10){
1073      lrc = 159;
1074      if(prlc) printf(f,lrc);
1075    }
1076    sl = 5; fr = 2;
1077    sl *= fr;
1078    if(sl != 10){
1079      lrc = 160;
1080      if(prlc) printf(f,lrc);
1081    }
1082    sl = 5; dr = 2;
1083    sl *= dr;
1084    if(sl != 10){
1085      lrc = 161;
1086      if(prlc) printf(f,lrc);
1087    }
1088    il = 5; cr = 2;
1089    il *= cr;
1090    if(il != 10){
1091      lrc = 162;
1092      if(prlc) printf(f,lrc);
1093    }
1094    il = 5; sr = 2;
1095    il *= sr;
1096    if(il != 10){
1097      lrc = 163;
1098      if(prlc) printf(f,lrc);
1099    }
1100    il = 5; ir = 2;
1101    il *= ir;
1102    if(il != 10){
1103      lrc = 164;
1104      if(prlc) printf(f,lrc);
1105    }
1106    il = 5; lr = 2;
1107    il *= lr;
1108    if(il != 10){
1109      lrc = 165;
1110      if(prlc) printf(f,lrc);
1111    }
1112    il = 5; ur = 2;
1113    il *= ur;
1114    if(il != 10){
1115      lrc = 166;
1116      if(prlc) printf(f,lrc);
1117    }
1118    il = 5; fr = 2;
1119    il *= fr;
1120    if(il != 10){
1121      lrc = 167;
1122      if(prlc) printf(f,lrc);
1123    }
1124    il = 5; dr = 2;
1125    il *= dr;
1126    if(il != 10){
1127      lrc = 168;
1128      if(prlc) printf(f,lrc);
1129    }
1130    ll = 5; cr = 2;
1131    ll *= cr;
1132    if(ll != 10){
1133      lrc = 169;
1134      if(prlc) printf(f,lrc);
1135    }
1136    ll = 5; sr = 2;
1137    ll *= sr;
1138    if(ll != 10){
1139      lrc = 170;
1140      if(prlc) printf(f,lrc);
1141    }
1142    ll = 5; ir = 2;
1143    ll *= ir;
1144    if(ll != 10){
1145      lrc = 171;
1146      if(prlc) printf(f,lrc);
1147    }
1148    ll = 5; lr = 2;
1149    ll *= lr;
1150    if(ll != 10){
1151      lrc = 172;
1152      if(prlc) printf(f,lrc);
1153    }
1154    ll = 5; ur = 2;
1155    ll *= ur;
1156    if(ll != 10){
1157      lrc = 173;
1158      if(prlc) printf(f,lrc);
1159    }
1160    ll = 5; fr = 2;
1161    ll *= fr;
1162    if(ll != 10){
1163      lrc = 174;
1164      if(prlc) printf(f,lrc);
1165    }
1166    ll = 5; dr = 2;
1167    ll *= dr;
1168    if(ll != 10){
1169      lrc = 175;
1170      if(prlc) printf(f,lrc);
1171    }
1172    ul = 5; cr = 2;
1173    ul *= cr;
1174    if(ul != 10){
1175      lrc = 176;
1176      if(prlc) printf(f,lrc);
1177    }
1178    ul = 5; sr = 2;
1179    ul *= sr;
1180    if(ul != 10){
1181      lrc = 177;
1182      if(prlc) printf(f,lrc);
1183    }
1184    ul = 5; ir = 2;
1185    ul *= ir;
1186    if(ul != 10){
1187      lrc = 178;
1188      if(prlc) printf(f,lrc);
1189    }
1190    ul = 5; lr = 2;
1191    ul *= lr;
1192    if(ul != 10){
1193      lrc = 179;
1194      if(prlc) printf(f,lrc);
1195    }
1196    ul = 5; ur = 2;
1197    ul *= ur;
1198    if(ul != 10){
1199      lrc = 180;
1200      if(prlc) printf(f,lrc);
1201    }
1202    ul = 5; fr = 2;
1203    ul *= fr;
1204    if(ul != 10){
1205      lrc = 181;
1206      if(prlc) printf(f,lrc);
1207    }
1208    ul = 5; dr = 2;
1209    ul *= dr;
1210    if(ul != 10){
1211      lrc = 182;
1212      if(prlc) printf(f,lrc);
1213    }
1214    fl = 5; cr = 2;
1215    fl *= cr;
1216    if(fl != 10){
1217      lrc = 183;
1218      if(prlc) printf(f,lrc);
1219    }
1220    fl = 5; sr = 2;
1221    fl *= sr;
1222    if(fl != 10){
1223      lrc = 184;
1224      if(prlc) printf(f,lrc);
1225    }
1226    fl = 5; ir = 2;
1227    fl *= ir;
1228    if(fl != 10){
1229      lrc = 185;
1230      if(prlc) printf(f,lrc);
1231    }
1232    fl = 5; lr = 2;
1233    fl *= lr;
1234    if(fl != 10){
1235      lrc = 186;
1236      if(prlc) printf(f,lrc);
1237    }
1238    fl = 5; ur = 2;
1239    fl *= ur;
1240    if(fl != 10){
1241      lrc = 187;
1242      if(prlc) printf(f,lrc);
1243    }
1244    fl = 5; fr = 2;
1245    fl *= fr;
1246    if(fl != 10){
1247      lrc = 188;
1248      if(prlc) printf(f,lrc);
1249    }
1250    fl = 5; dr = 2;
1251    fl *= dr;
1252    if(fl != 10){
1253      lrc = 189;
1254      if(prlc) printf(f,lrc);
1255    }
1256    dl = 5; cr = 2;
1257    dl *= cr;
1258    if(dl != 10){
1259      lrc = 190;
1260      if(prlc) printf(f,lrc);
1261    }
1262    dl = 5; sr = 2;
1263    dl *= sr;
1264    if(dl != 10){
1265      lrc = 191;
1266      if(prlc) printf(f,lrc);
1267    }
1268    dl = 5; ir = 2;
1269    dl *= ir;
1270    if(dl != 10){
1271      lrc = 192;
1272      if(prlc) printf(f,lrc);
1273    }
1274    dl = 5; lr = 2;
1275    dl *= lr;
1276    if(dl != 10){
1277      lrc = 193;
1278      if(prlc) printf(f,lrc);
1279    }
1280    dl = 5; ur = 2;
1281    dl *= ur;
1282    if(dl != 10){
1283      lrc = 194;
1284      if(prlc) printf(f,lrc);
1285    }
1286    dl = 5; fr = 2;
1287    dl *= fr;
1288    if(dl != 10){
1289      lrc = 195;
1290      if(prlc) printf(f,lrc);
1291    }
1292    dl = 5; dr = 2;
1293    dl *= dr;
1294    if(dl != 10){
1295      lrc = 196;
1296      if(prlc) printf(f,lrc);
1297    }
1298    cl = 5; cr = 2;
1299    cl /= cr;
1300    if(cl != 2){
1301      lrc = 197;
1302      if(prlc) printf(f,lrc);
1303    }
1304    cl = 5; sr = 2;
1305    cl /= sr;
1306    if(cl != 2){
1307      lrc = 198;
1308      if(prlc) printf(f,lrc);
1309    }
1310    cl = 5; ir = 2;
1311    cl /= ir;
1312    if(cl != 2){
1313      lrc = 199;
1314      if(prlc) printf(f,lrc);
1315    }
1316    cl = 5; lr = 2;
1317    cl /= lr;
1318    if(cl != 2){
1319      lrc = 200;
1320      if(prlc) printf(f,lrc);
1321    }
1322    cl = 5; ur = 2;
1323    cl /= ur;
1324    if(cl != 2){
1325      lrc = 201;
1326      if(prlc) printf(f,lrc);
1327    }
1328    cl = 5; fr = 2;
1329    cl /= fr;
1330    if(cl != 2){
1331      lrc = 202;
1332      if(prlc) printf(f,lrc);
1333    }
1334    cl = 5; dr = 2;
1335    cl /= dr;
1336    if(cl != 2){
1337      lrc = 203;
1338      if(prlc) printf(f,lrc);
1339    }
1340    sl = 5; cr = 2;
1341    sl /= cr;
1342    if(sl != 2){
1343      lrc = 204;
1344      if(prlc) printf(f,lrc);
1345    }
1346    sl = 5; sr = 2;
1347    sl /= sr;
1348    if(sl != 2){
1349      lrc = 205;
1350      if(prlc) printf(f,lrc);
1351    }
1352    sl = 5; ir = 2;
1353    sl /= ir;
1354    if(sl != 2){
1355      lrc = 206;
1356      if(prlc) printf(f,lrc);
1357    }
1358    sl = 5; lr = 2;
1359    sl /= lr;
1360    if(sl != 2){
1361      lrc = 207;
1362      if(prlc) printf(f,lrc);
1363    }
1364    sl = 5; ur = 2;
1365    sl /= ur;
1366    if(sl != 2){
1367      lrc = 208;
1368      if(prlc) printf(f,lrc);
1369    }
1370    sl = 5; fr = 2;
1371    sl /= fr;
1372    if(sl != 2){
1373      lrc = 209;
1374      if(prlc) printf(f,lrc);
1375    }
1376    sl = 5; dr = 2;
1377    sl /= dr;
1378    if(sl != 2){
1379      lrc = 210;
1380      if(prlc) printf(f,lrc);
1381    }
1382    il = 5; cr = 2;
1383    il /= cr;
1384    if(il != 2){
1385      lrc = 211;
1386      if(prlc) printf(f,lrc);
1387    }
1388    il = 5; sr = 2;
1389    il /= sr;
1390    if(il != 2){
1391      lrc = 212;
1392      if(prlc) printf(f,lrc);
1393    }
1394    il = 5; ir = 2;
1395    il /= ir;
1396    if(il != 2){
1397      lrc = 213;
1398      if(prlc) printf(f,lrc);
1399    }
1400    il = 5; lr = 2;
1401    il /= lr;
1402    if(il != 2){
1403      lrc = 214;
1404      if(prlc) printf(f,lrc);
1405    }
1406    il = 5; ur = 2;
1407    il /= ur;
1408    if(il != 2){
1409      lrc = 215;
1410      if(prlc) printf(f,lrc);
1411    }
1412    il = 5; fr = 2;
1413    il /= fr;
1414    if(il != 2){
1415      lrc = 216;
1416      if(prlc) printf(f,lrc);
1417    }
1418    il = 5; dr = 2;
1419    il /= dr;
1420    if(il != 2){
1421      lrc = 217;
1422      if(prlc) printf(f,lrc);
1423    }
1424    ll = 5; cr = 2;
1425    ll /= cr;
1426    if(ll != 2){
1427      lrc = 218;
1428      if(prlc) printf(f,lrc);
1429    }
1430    ll = 5; sr = 2;
1431    ll /= sr;
1432    if(ll != 2){
1433      lrc = 219;
1434      if(prlc) printf(f,lrc);
1435    }
1436    ll = 5; ir = 2;
1437    ll /= ir;
1438    if(ll != 2){
1439      lrc = 220;
1440      if(prlc) printf(f,lrc);
1441    }
1442    ll = 5; lr = 2;
1443    ll /= lr;
1444    if(ll != 2){
1445      lrc = 221;
1446      if(prlc) printf(f,lrc);
1447    }
1448    ll = 5; ur = 2;
1449    ll /= ur;
1450    if(ll != 2){
1451      lrc = 222;
1452      if(prlc) printf(f,lrc);
1453    }
1454    ll = 5; fr = 2;
1455    ll /= fr;
1456    if(ll != 2){
1457      lrc = 223;
1458      if(prlc) printf(f,lrc);
1459    }
1460    ll = 5; dr = 2;
1461    ll /= dr;
1462    if(ll != 2){
1463      lrc = 224;
1464      if(prlc) printf(f,lrc);
1465    }
1466    ul = 5; cr = 2;
1467    ul /= cr;
1468    if(ul != 2){
1469      lrc = 225;
1470      if(prlc) printf(f,lrc);
1471    }
1472    ul = 5; sr = 2;
1473    ul /= sr;
1474    if(ul != 2){
1475      lrc = 226;
1476      if(prlc) printf(f,lrc);
1477    }
1478    ul = 5; ir = 2;
1479    ul /= ir;
1480    if(ul != 2){
1481      lrc = 227;
1482      if(prlc) printf(f,lrc);
1483    }
1484    ul = 5; lr = 2;
1485    ul /= lr;
1486    if(ul != 2){
1487      lrc = 228;
1488      if(prlc) printf(f,lrc);
1489    }
1490    ul = 5; ur = 2;
1491    ul /= ur;
1492    if(ul != 2){
1493      lrc = 229;
1494      if(prlc) printf(f,lrc);
1495    }
1496    ul = 5; fr = 2;
1497    ul /= fr;
1498    if(ul != 2){
1499      lrc = 230;
1500      if(prlc) printf(f,lrc);
1501    }
1502    ul = 5; dr = 2;
1503    ul /= dr;
1504    if(ul != 2){
1505      lrc = 231;
1506      if(prlc) printf(f,lrc);
1507    }
1508
1509    #ifdef NO_FLOATS
1510                 fl = 5; cr = 2;
1511                 fl /= cr;
1512                 if(fl != 2){
1513                 lrc = 232;
1514                 if(prlc) printf(f,lrc);
1515                 }
1516                 fl = 5; sr = 2;
1517                 fl /= sr;
1518                 if(fl != 2){
1519                 lrc = 233;
1520                 if(prlc) printf(f,lrc);
1521                 }
1522                 fl = 5; ir = 2;
1523                 fl /= ir;
1524                 if(fl != 2){
1525                 lrc = 234;
1526                 if(prlc) printf(f,lrc);
1527                 }
1528                 fl = 5; lr = 2;
1529                 fl /= lr;
1530                 if(fl != 2){
1531                 lrc = 235;
1532                 if(prlc) printf(f,lrc);
1533                 }
1534                 fl = 5; ur = 2;
1535                 fl /= ur;
1536                 if(fl != 2){
1537                 lrc = 236;
1538                 if(prlc) printf(f,lrc);
1539                 }
1540                 fl = 5; fr = 2;
1541                 fl /= fr;
1542                 if(fl != 2){
1543                 lrc = 237;
1544                 if(prlc) printf(f,lrc);
1545                 }
1546                 fl = 5; dr = 2;
1547                 fl /= dr;
1548                 if(fl != 2){
1549                 lrc = 238;
1550                 if(prlc) printf(f,lrc);
1551                 }
1552                 dl = 5; cr = 2;
1553                 dl /= cr;
1554                 if(dl != 2){
1555                 lrc = 239;
1556                 if(prlc) printf(f,lrc);
1557                 }
1558                 dl = 5; sr = 2;
1559                 dl /= sr;
1560                 if(dl != 2){
1561                 lrc = 240;
1562                 if(prlc) printf(f,lrc);
1563                 }
1564                 dl = 5; ir = 2;
1565                 dl /= ir;
1566                 if(dl != 2){
1567                 lrc = 241;
1568                 if(prlc) printf(f,lrc);
1569                 }
1570                 dl = 5; lr = 2;
1571                 dl /= lr;
1572                 if(dl != 2){
1573                 lrc = 242;
1574                 if(prlc) printf(f,lrc);
1575                 }
1576                 dl = 5; ur = 2;
1577                 dl /= ur;
1578                 if(dl != 2){
1579                 lrc = 243;
1580                 if(prlc) printf(f,lrc);
1581                 }
1582                 dl = 5; fr = 2;
1583                 dl /= fr;
1584                 if(dl != 2){
1585                 lrc = 244;
1586                 if(prlc) printf(f,lrc);
1587                 }
1588                 dl = 5; dr = 2;
1589                 dl /= dr;
1590                 if(dl != 2){
1591                 lrc = 245;
1592                 if(prlc) printf(f,lrc);
1593                 }
1594    #else
1595                 fl = 5; cr = 2;
1596                 fl /= cr;
1597                 if(fl != 2.5){
1598                 lrc = 232;
1599                 if(prlc) printf(f,lrc);
1600                 }
1601                 fl = 5; sr = 2;
1602                 fl /= sr;
1603                 if(fl != 2.5){
1604                 lrc = 233;
1605                 if(prlc) printf(f,lrc);
1606                 }
1607                 fl = 5; ir = 2;
1608                 fl /= ir;
1609                 if(fl != 2.5){
1610                 lrc = 234;
1611                 if(prlc) printf(f,lrc);
1612                 }
1613                 fl = 5; lr = 2;
1614                 fl /= lr;
1615                 if(fl != 2.5){
1616                 lrc = 235;
1617                 if(prlc) printf(f,lrc);
1618                 }
1619                 fl = 5; ur = 2;
1620                 fl /= ur;
1621                 if(fl != 2.5){
1622                 lrc = 236;
1623                 if(prlc) printf(f,lrc);
1624                 }
1625                 fl = 5; fr = 2;
1626                 fl /= fr;
1627                 if(fl != 2.5){
1628                 lrc = 237;
1629                 if(prlc) printf(f,lrc);
1630                 }
1631                 fl = 5; dr = 2;
1632                 fl /= dr;
1633                 if(fl != 2.5){
1634                 lrc = 238;
1635                 if(prlc) printf(f,lrc);
1636                 }
1637                 dl = 5; cr = 2;
1638                 dl /= cr;
1639                 if(dl != 2.5){
1640                 lrc = 239;
1641                 if(prlc) printf(f,lrc);
1642                 }
1643                 dl = 5; sr = 2;
1644                 dl /= sr;
1645                 if(dl != 2.5){
1646                 lrc = 240;
1647                 if(prlc) printf(f,lrc);
1648                 }
1649                 dl = 5; ir = 2;
1650                 dl /= ir;
1651                 if(dl != 2.5){
1652                 lrc = 241;
1653                 if(prlc) printf(f,lrc);
1654                 }
1655                 dl = 5; lr = 2;
1656                 dl /= lr;
1657                 if(dl != 2.5){
1658                 lrc = 242;
1659                 if(prlc) printf(f,lrc);
1660                 }
1661                 dl = 5; ur = 2;
1662                 dl /= ur;
1663                 if(dl != 2.5){
1664                 lrc = 243;
1665                 if(prlc) printf(f,lrc);
1666                 }
1667                 dl = 5; fr = 2;
1668                 dl /= fr;
1669                 if(dl != 2.5){
1670                 lrc = 244;
1671                 if(prlc) printf(f,lrc);
1672                 }
1673                 dl = 5; dr = 2;
1674                 dl /= dr;
1675                 if(dl != 2.5){
1676                 lrc = 245;
1677                 if(prlc) printf(f,lrc);
1678                 }
1679    #endif
1680    cl = 5; cr = 2;
1681    cl %= cr;
1682    if(cl != 1){
1683      lrc = 246;
1684      if(prlc) printf(f,lrc);
1685    }
1686    cl = 5; sr = 2;
1687    cl %= sr;
1688    if(cl != 1){
1689      lrc = 247;
1690      if(prlc) printf(f,lrc);
1691    }
1692    cl = 5; ir = 2;
1693    cl %= ir;
1694    if(cl != 1){
1695      lrc = 248;
1696      if(prlc) printf(f,lrc);
1697    }
1698    cl = 5; lr = 2;
1699    cl %= lr;
1700    if(cl != 1){
1701      lrc = 249;
1702      if(prlc) printf(f,lrc);
1703    }
1704    cl = 5; ur = 2;
1705    cl %= ur;
1706    if(cl != 1){
1707      lrc = 250;
1708      if(prlc) printf(f,lrc);
1709    }
1710    sl = 5; cr = 2;
1711    sl %= cr;
1712    if(sl != 1){
1713      lrc = 251;
1714      if(prlc) printf(f,lrc);
1715    }
1716    sl = 5; sr = 2;
1717    sl %= sr;
1718    if(sl != 1){
1719      lrc = 252;
1720      if(prlc) printf(f,lrc);
1721    }
1722    sl = 5; ir = 2;
1723    sl %= ir;
1724    if(sl != 1){
1725      lrc = 253;
1726      if(prlc) printf(f,lrc);
1727    }
1728    sl = 5; lr = 2;
1729    sl %= lr;
1730    if(sl != 1){
1731      lrc = 254;
1732      if(prlc) printf(f,lrc);
1733    }
1734    sl = 5; ur = 2;
1735    sl %= ur;
1736    if(sl != 1){
1737      lrc = 255;
1738      if(prlc) printf(f,lrc);
1739    }
1740
1741    if(lrc != 0) {
1742      rc = 1;
1743      if(pd0->flgd != 0) printf(s714er,1);
1744    }
1745    return rc;
1746 }
1747
1748 /*********************************************************************************************
1749  the main loop that launches the sections
1750 *********************************************************************************************/
1751
1752 #ifndef NO_TYPELESS_STRUCT_PTR
1753         int section(int j,struct* pd0){
1754 #else
1755         int section(int j,void* pd0){
1756 #endif
1757         switch(j){
1758                 case 0: return s714(pd0);
1759         }
1760 }
1761
1762 #define cq_sections 1
1763
1764 /*
1765         C REFERENCE MANUAL (main)
1766 */
1767
1768 #ifndef NO_OLD_FUNC_DECL
1769 main(n,args)
1770 int n;
1771 char **args;
1772 {
1773 #else
1774 int main(int n,char **args) {
1775 #endif
1776
1777 int j;
1778 static struct defs d0, *pd0;
1779         
1780    d0.flgs = 1;          /* These flags dictate            */
1781    d0.flgm = 1;          /*     the verbosity of           */
1782    d0.flgd = 1;          /*         the program.           */
1783    d0.flgl = 1;
1784
1785    pd0 = &d0;
1786
1787    for (j=0; j<cq_sections; j++) {
1788      d0.rrc=section(j,pd0);
1789      d0.crc=d0.crc+d0.rrc;
1790      if(d0.flgs != 0) printf("Section %s returned %d.\n",d0.rfs,d0.rrc);
1791    }
1792
1793    if(d0.crc == 0) printf("\nNo errors detected.\n");
1794    else printf("\nFailed.\n");
1795
1796    return d0.crc;
1797 }