Jim Weirich collecting infinite loops

gistfile1.txt

Date:	Mon, 8 Mar 1999 21:44:30 -0500
From:	Jim Weirich <[email protected]>
To:	[email protected]
Subject: Infinite Loops

I'm packing up my basement in preparation for some construction next
week.  In cleaning off my computer bookself, I came across a number of 
really old items, some of which may be interesting.

I used to collect infinite loops.  I came across my list of loops
while packing and thought I might share them.

Each loop is written in a different computer language.  Most are
mainstream languages, although one or two are really obscure (but I
kept them because I thought they were neat for some reason).  No
language is represented more than once.  How many do you recognize?

----------------------------------------------------------------------
(1)  REPEAT A := 0 UNTIL false

(2)  10 GOTO 10

(3)  loop null; end loop;

(4)  10     GO TO 10

(5)  BEGIN AGAIN

(6)  (())

(7)  [1] -> 1

(8)  begin boolean A; for A := true while A do end

(9)          TST      -(PC)

(10) DO WHILE "1"B; END;

(11) repeat;

(12) HERE   :(HERE)

(13) for (;;);

(14) LOOP END

(15) true whileTrue [ ]

(16) *HERE   J:*HERE

(17) LOOP    ADVANCE TO LOOP

(18) GOTO(GOTO)

(19) from until False loop end

(20)      C          LOOP        TAG
          C                      GOTO LOOP
----------------------------------------------------------------------

-- Jim Weirich     [email protected]    http://w3.one.net/~jweirich
---------------------------------------------------------------------
-- "A distributed system is one in which I cannot get something done
-- because a machine I've never heard of is down."   --Leslie Lamport


---------------------------------------------------------------------------
The Cincinnati Linux Users Group              |    Programming Mailing List
http://www.clug.org                           |      http://www.clug.org/ml
To unsubscribe: Send a message with subject   |
"unsubscribe" to [email protected] |      import std.Disclaimer;