Sync

Task/Loops-Infinite/6800-Assembly/loops-infinite.6800

@@ -16,16 +16,16 @@
 ; reg x is the string pointer                         ;
 ; reg a holds the ascii char to be output             ;
 ;-----------------------------------------------------;
-outeee   =   $e1d1      ROM: console putchar routine
+outeee   =   $e1d1      ;ROM: console putchar routine
         .or  $0f00
 ;-----------------------------------------------------;
-main    ldx  #string    Point to the string
-        bra  puts         and print it
-outs    jsr  outeee     Emit a as ascii
-        inx             Advance the string pointer
-puts    ldaa ,x         Load a string character
-        bne  outs       Print it if non-null
-        bra  main       else restart
+main    ldx  #string    ;Point to the string
+        bra  puts       ;  and print it
+outs    jsr  outeee     ;Emit a as ascii
+        inx             ;Advance the string pointer
+puts    ldaa ,x         ;Load a string character
+        bne  outs       ;Print it if non-null
+        bra  main       ;else restart
 ;=====================================================;
 string  .as  "SPAM",#13,#10,#0
         .en

Task/Loops-Infinite/COBOL/loops-infinite.cobol

@@ -2,7 +2,7 @@
        PROGRAM-ID. Spam.
 
        PROCEDURE DIVISION.
-           PERFORM FOREVER
+           PERFORM UNTIL 1 <> 1
                DISPLAY "SPAM"
            END-PERFORM
 

Task/Loops-Infinite/Chapel/loops-infinite.chapel

@@ -0,0 +1 @@
+while true do writeln("SPAM");

Task/Loops-Infinite/Erlang/loops-infinite.erl

@@ -1,6 +1,6 @@
 -module (main).
--export ([main/1]).
+-export ([main/0]).
 
-main(Any) ->
-  io:fwrite("SPAM~n",[]),
-  main(Any)
+main() ->
+  io:fwrite( "SPAM~n" ),
+  main().

Task/Loops-Infinite/REXX/loops-infinite-1.rexx

@@ -0,0 +1,7 @@
+/*REXX program displays the  word      SPAM      forever.               */
+
+  do forever
+  say 'SPAM'
+  end   /*DO forever*/
+                                       /*control will never reach here. */
+                                       /*don't stick a fork in it.      */

Task/Loops-Infinite/REXX/loops-infinite-2.rexx

@@ -0,0 +1,7 @@
+/*REXX program displays the  word      SPAM      forever.               */
+
+   do  while  1==1                      /*esoteric  "forever"  clause.   */
+   say 'SPAM'
+   end   /*DO while 1==1*/
+                                        /*control will never reach here. */
+                                        /*don't stick a fork in it.      */

Task/Loops-Infinite/REXX/loops-infinite-3.rexx

@@ -0,0 +1,8 @@
+/*REXX program displays the  word      SPAM      forever.               */
+
+tell_it:    say 'SPAM'
+
+signal tell_it                         /*REXX's version of a  GO TO     */
+
+                                       /*control will never reach here. */
+                                       /*don't stick a fork in it.      */