Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/5/84; site aicchi.UUCP
Path: utzoo!watmath!clyde!cbosgd!cbdkc1!desoto!cord!hudson!bentley!ihnp1!ihnp4!aicchi!ignatz
From: ignatz@aicchi.UUCP (Ihnat)
Newsgroups: net.unix,net.lang.c
Subject: DON'T EVER DO THIS!!!
Message-ID: <536@aicchi.UUCP>
Date: Wed, 31-Jul-85 21:53:18 EDT
Article-I.D.: aicchi.536
Posted: Wed Jul 31 21:53:18 1985
Date-Received: Fri, 2-Aug-85 02:25:45 EDT
Distribution: net
Organization: Analysts International Corp; Chicago Branch
Lines: 102
Xref: watmath net.unix:5212 net.lang.c:5867

I won't mention what program this comes from; it's been posted to the
net, and (functionally) is quite interesting and enjoyable.  BUT--it
mysteriously broke the 'C' compiler on an Altos 586 running Xenix 3.0b,
and when I looked at it---well, you take a look.  DON'T *EVER* DO THIS!!
		 .
		 .
		 .
        while (--count &&

               (!(rand_mod(prob)) ||

                (obj = occupant[y=(curkl->posy+curkl->vely+YSIZE00)%YSIZE]

                               [x=(curkl->posx+curkl->velx+XSIZE00)%XSIZE]) &&

                (obj->type == Star ||

                 ((rand_mod(100) <= smarts) &&

                  !obj->vely && !obj->velx &&

                  (obj->image == 'o' ||

                   obj->image == 'O' ||

                   obj->image == 'X'

                  )

                 ) ||

                 (obj->type == Web &&

                  (curkl->image != 'T' ||

                   (count > 5 && obj->image ==

                    (curkl->vely?

                     (curkl->velx?

                      (curkl->velx==curkl->vely?

                       '\\'

                      :

                       '/'

                      )

                     :

                      '|'

                     )

                    :

                     '-'

                    )

                   )

                  )

                 )

                )

               )

              ) {

            if (massacre && curkl->image != 'T') {

                curkl->vely = rand_mod(7) - 3;

                curkl->velx = rand_mod(7) - 3;

            }

            else if (curkl->energy >= 2500 && curkl->image != 'T') {

                curkl->vely = rand_mod(5) - 2;

                curkl->velx = rand_mod(5) - 2;

            }

            else {

                curkl->vely = rand_mod(3) - 1;

                curkl->velx = rand_mod(3) - 1;

            }

        }

================================> *WHEW!* <==============================