/* CIF SYSTEMDiagram */
/* CIF Keep Specific Geode TextMode 4 */
/* CIF Keep Specific Geode Modified */
/* CIF Specific Geode Version @(V) tool=geodedit V4.1.2 format=SDL96 nested=yes cif=yes */
/* CIF Keep Specific Geode LastModified Wed Apr 05 13:53:39 2000 */
/* CIF Page DefaultPartition (2100, 2970) */
/* CIF Frame (41, 71), (869, 768) */
/* CIF Keep Specific Geode TextMode 0 */
/* CIF Keep Specific Geode Modified */
/* CIF Keep Specific Geode Preview 0 0 0 */
SYSTEM tcs_s;

  /* CIF CurrentPage DefaultPartition */

  /* CIF TEXT (81, 151), (309, 222) */
  /* CIF Keep Specific Geode TextMode 4 */
  /* CIF Keep Specific Geode Modified */
  signal
    n, x, r,
    l, u, a;
  
  signallist ee = n, x, r;
  signallist tcm = l, u, a;
  /* CIF End Text */

  /* CIF CurrentPage DefaultPartition */

  /* CIF CHANNEL (548, 427) , (548, 71) */
  /* CIF TextPosition (558, 249) */
  /* CIF TextPosition (558, 183) SignalList1 */
  /* CIF Keep Specific Geode TextMode 3 */
  /* CIF Keep Specific Geode TextMode 0 Siglist1 */
  /* CIF Keep Specific Geode TextMode 0 Siglist2 */
  /* CIF Keep Specific Geode Modified */
  CHANNEL tcm
    FROM tcs_b TO ENV WITH (tcm);
  ENDCHANNEL;

  /* CIF CHANNEL (41, 502) , (460, 502) */
  /* CIF TextPosition (235, 512) */
  /* CIF TextPosition (307, 512) SignalList1 */
  /* CIF Keep Specific Geode TextMode 4 */
  /* CIF Keep Specific Geode TextMode 0 Siglist1 */
  /* CIF Keep Specific Geode TextMode 0 Siglist2 */
  /* CIF Keep Specific Geode Modified */
  CHANNEL EE
    FROM ENV TO tcs_b WITH (ee);
  ENDCHANNEL;

  /* CIF CurrentPage DefaultPartition */

  /* CIF BLOCK (460, 427), (250, 150) */
  /* CIF Keep Specific Geode TextMode 4 */
  /* CIF Keep Specific Geode Modified */
  /* CIF Page DefaultPartition (2100, 2970) */
  /* CIF Frame (32, 52), (567, 616) */
  /* CIF Keep Specific Geode TextMode 0 */
  /* CIF Keep Specific Geode Modified */
  /* CIF Keep Specific Geode Preview 0 0 0 */
  BLOCK tcs_b;

    /* CIF CurrentPage DefaultPartition */

    /* CIF SIGNALROUTE (413, 294) , (413, 52) */
    /* CIF TextPosition (423, 173) */
    /* CIF TextPosition (423, 82) SignalList1 */
    /* CIF Keep Specific Geode TextMode 3 */
    /* CIF Keep Specific Geode TextMode 6 Siglist1 */
    /* CIF Keep Specific Geode TextMode 6 Siglist2 */
    /* CIF Keep Specific Geode Modified */
    SIGNALROUTE tcm
      FROM room TO ENV WITH (tcm);

    /* CIF SIGNALROUTE (32, 364) , (350, 364) */
    /* CIF TextPosition (175, 374) */
    /* CIF TextPosition (278, 374) SignalList1 */
    /* CIF Keep Specific Geode TextMode 4 */
    /* CIF Keep Specific Geode TextMode 2 Siglist1 */
    /* CIF Keep Specific Geode TextMode 2 Siglist2 */
    /* CIF Keep Specific Geode Modified */
    SIGNALROUTE ee
      FROM ENV TO room WITH (ee);

    /* CIF CurrentPage DefaultPartition */

    /* CIF CONNECT */
    /* CIF Keep Specific Geode Position (393, 32) */
    /* CIF Keep Specific Geode TextMode 4 */
    /* CIF Keep Specific Geode Modified */
    CONNECT tcm AND tcm;

    /* CIF CONNECT */
    /* CIF Keep Specific Geode Position (12, 344) */
    /* CIF Keep Specific Geode TextMode 4 */
    /* CIF Keep Specific Geode Modified */
    CONNECT EE AND ee;

    /* CIF CurrentPage DefaultPartition */

    /* CIF PROCESS (350, 294), (200, 150) */
    /* CIF Keep Specific Geode TextMode 4 */
    /* CIF Keep Specific Geode Modified */
    /* CIF Page DefaultPartition (2100, 2970) */
    /* CIF Frame (20, 39), (1641, 892) */
    /* CIF Keep Specific Geode TextMode 0 */
    /* CIF Keep Specific Geode Modified */
    /* CIF Keep Specific Geode Preview 0 0 0 */
    PROCESS room(1,1);

      /* CIF CurrentPage DefaultPartition */

      /* CIF START (96, 79), (89, 70) */
      /* CIF Keep Specific Geode TextMode 4 */
      /* CIF Keep Specific Geode Modified */
      START ;
        /* CIF TASK (71, 179), (137, 71) */
        /* CIF Keep Specific Geode TextMode 4 */
        /* CIF Keep Specific Geode Modified */
        TASK 'C := 0';
        /* CIF OUTPUT (107, 280), (67, 70) */
        /* CIF Keep Specific Geode TextMode 4 */
        /* CIF Keep Specific Geode Modified */
        OUTPUT U;
        /* CIF NEXTSTATE (106, 380), (68, 70) */
        /* CIF Keep Specific Geode TextMode 4 */
        /* CIF Keep Specific Geode Modified */
        NEXTSTATE N;

      /* CIF CurrentPage DefaultPartition */

      /* CIF STATE (855, 79), (66, 70) */
      /* CIF Keep Specific Geode TextMode 4 */
      /* CIF Keep Specific Geode Modified */
      STATE E;

        /* CIF INPUT (839, 179), (97, 70) */
        /* CIF Keep Specific Geode TextMode 4 */
        /* CIF Keep Specific Geode Modified */
        INPUT N, X;
          /* CIF OUTPUT (844, 279), (86, 70) */
          /* CIF Keep Specific Geode TextMode 4 */
          /* CIF Keep Specific Geode Modified */
          OUTPUT A,L;
          /* CIF NEXTSTATE (857, 380), (62, 70) */
          /* CIF Keep Specific Geode TextMode 4 */
          /* CIF Keep Specific Geode Modified */
          NEXTSTATE E;

      /* CIF End STATE */

      ENDSTATE;

      /* CIF STATE (995, 79), (59, 70) */
      /* CIF Keep Specific Geode TextMode 4 */
      /* CIF Keep Specific Geode Modified */
      STATE *;

        /* CIF INPUT (991, 179), (68, 70) */
        /* CIF Keep Specific Geode TextMode 4 */
        /* CIF Keep Specific Geode Modified */
        INPUT R;
          /* CIF TASK (956, 279), (137, 71) */
          /* CIF Keep Specific Geode TextMode 4 */
          /* CIF Keep Specific Geode Modified */
          TASK 'C := 0';
          /* CIF OUTPUT (992, 380), (66, 70) */
          /* CIF Keep Specific Geode TextMode 4 */
          /* CIF Keep Specific Geode Modified */
          OUTPUT U;
          /* CIF NEXTSTATE (994, 480), (62, 70) */
          /* CIF Keep Specific Geode TextMode 4 */
          /* CIF Keep Specific Geode Modified */
          NEXTSTATE N;

      /* CIF End STATE */

      ENDSTATE;

      /* CIF STATE (375, 79), (62, 70) */
      /* CIF Keep Specific Geode TextMode 4 */
      /* CIF Keep Specific Geode Modified */
      STATE N;

        /* CIF INPUT (327, 183), (66, 70) */
        /* CIF Keep Specific Geode TextMode 4 */
        /* CIF Keep Specific Geode Modified */
        INPUT N;
          /* CIF TASK (297, 283), (125, 71) */
          /* CIF Keep Specific Geode TextMode 4 */
          /* CIF Keep Specific Geode Modified */
          TASK 'INCR';

        /* CIF LABEL (249, 384), (222, 95) */
        /* CIF Keep Specific Geode TextMode 4 */
        /* CIF Keep Specific Geode Modified */
        CHECK:

          /* CIF DECISION (287, 509), (147, 70) */
          /* CIF Keep Specific Geode TextMode 4 */
          /* CIF Keep Specific Geode Modified */
          DECISION 'COUNT';
            /* CIF ANSWER */
            /* CIF Specific Geode Position (164, 610), (111, 70) */
            /* CIF Line (360, 580), (360, 595), (220, 595), (220, 610) */
            /* CIF Keep Specific Geode TextMode 4 */
            /* CIF Keep Specific Geode Modified */
            ( 'BAD' ):
              /* CIF OUTPUT (175, 710), (89, 70) */
              /* CIF Keep Specific Geode TextMode 4 */
              /* CIF Keep Specific Geode Modified */
              OUTPUT L,A;
              /* CIF NEXTSTATE (186, 811), (67, 70) */
              /* CIF Keep Specific Geode TextMode 4 */
              /* CIF Keep Specific Geode Modified */
              NEXTSTATE E;
            /* CIF ANSWER */
            /* CIF Specific Geode Position (295, 614), (134, 70) */
            /* CIF Line (360, 580), (360, 595), (362, 595), (362, 614) */
            /* CIF Keep Specific Geode TextMode 4 */
            /* CIF Keep Specific Geode Modified */
            ( 'MAXP' ):
              /* CIF OUTPUT (331, 715), (62, 70) */
              /* CIF Keep Specific Geode TextMode 4 */
              /* CIF Keep Specific Geode Modified */
              OUTPUT L;
              /* CIF NEXTSTATE (329, 815), (67, 70) */
              /* CIF Keep Specific Geode TextMode 4 */
              /* CIF Keep Specific Geode Modified */
              NEXTSTATE N;
            /* CIF ANSWER */
            /* CIF Specific Geode Position (449, 610), (119, 70) */
            /* CIF Line (360, 580), (360, 595), (509, 595), (509, 610) */
            /* CIF Keep Specific Geode TextMode 4 */
            /* CIF Keep Specific Geode Modified */
            ELSE:
              /* CIF OUTPUT (475, 710), (67, 70) */
              /* CIF Keep Specific Geode TextMode 4 */
              /* CIF Keep Specific Geode Modified */
              OUTPUT U;
              /* CIF NEXTSTATE (475, 811), (67, 70) */
              /* CIF Keep Specific Geode TextMode 4 */
              /* CIF Keep Specific Geode Modified */
              NEXTSTATE N;

          /* CIF End DECISION */

          ENDDECISION;

        /* CIF INPUT (656, 179), (64, 70) */
        /* CIF Keep Specific Geode TextMode 4 */
        /* CIF Keep Specific Geode Modified */
        INPUT X;
          /* CIF TASK (620, 279), (137, 71) */
          /* CIF Keep Specific Geode TextMode 4 */
          /* CIF Keep Specific Geode Modified */
          TASK 'DECR';
          /* CIF JOIN (622, 380), (132, 115) */
          /* CIF Keep Specific Geode TextMode 4 */
          /* CIF Keep Specific Geode Modified */
          JOIN CHECK;

      /* CIF End STATE */

      ENDSTATE;

    ENDPROCESS;

  ENDBLOCK;

/* CIF End SYSTEMDiagram */

ENDSYSTEM;