Data commit

Task/Loops-Infinite/00-META.yaml

@@ -0,0 +1,5 @@
+---
+category:
+- Simple
+from: http://rosettacode.org/wiki/Loops/Infinite
+note: Iteration

Task/Loops-Infinite/00-TASK.txt

@@ -0,0 +1,22 @@
+;Task:
+Print out &nbsp; &nbsp; &nbsp; <big> '''SPAM''' </big> &nbsp; &nbsp; &nbsp; followed by a &nbsp; ''newline'' &nbsp; in an infinite loop.
+
+
+;Related tasks:
+* &nbsp; [[Loop over multiple arrays simultaneously]]
+* &nbsp; [[Loops/Break]]
+* &nbsp; [[Loops/Continue]]
+* &nbsp; [[Loops/Do-while]]
+* &nbsp; [[Loops/Downward for]]
+* &nbsp; [[Loops/For]]
+* &nbsp; [[Loops/For with a specified step]]
+* &nbsp; [[Loops/Foreach]]
+* &nbsp; [[Loops/Increment loop index within loop body]]
+* &nbsp; [[Loops/Infinite]]
+* &nbsp; [[Loops/N plus one half]]
+* &nbsp; [[Loops/Nested]]
+* &nbsp; [[Loops/While]]
+* &nbsp; [[Loops/with multiple ranges]]
+* &nbsp; [[Loops/Wrong ranges]]
+<br><br>
+

Task/Loops-Infinite/11l/loops-infinite.11l

@@ -0,0 +1,2 @@
+L
+   print(‘SPAM’)

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

@@ -0,0 +1,16 @@
+INFINITE CSECT ,                       this PGM control section
+INFINITE AMODE 31                      addressing mode 31 bit
+INFINITE RMODE ANY                     loader can load either 24 or 31
+         BAKR  14,0                    stack caller's register contents
+         LR    12,15                   establish base
+         LA    13,0                    no savearea
+         USING INFINITE,12             base to assembler
+         LA    10,1                    1 in reg 10
+         LA    11,2                    2 in reg 11
+LOOP     EQU   *
+         CR    10,11                   1==2?
+         BE    RETURN                  Yes, exit.
+        WTO    'SPAM',ROUTCDE=11       print SPAM to syslog
+         B     LOOP                    No, check again.
+RETURN   PR    ,                       return to caller
+         END   INFINITE

Task/Loops-Infinite/4DOS-Batch/loops-infinite.4dos

@@ -0,0 +1,4 @@
+@echo off
+do forever
+  echo SPAM
+enddo

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

@@ -0,0 +1,9 @@
+InfiniteLoop	LDX #0
+PrintLoop:	LDA MSG,x
+		JSR PrintAccumulator	;routine not implemented
+		INX
+		CPX #5
+		BNE PrintLoop
+		BEQ InfiniteLoop
+
+MSG		.byte "SPAM", $0A

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

@@ -0,0 +1,31 @@
+        .cr  6800
+        .tf  spam6800.obj,AP1
+        .lf  spam6800
+;=====================================================;
+;       Infinite SPAM loop for the Motorola 6800      ;
+;                 by barrym 2013-04-10                ;
+;-----------------------------------------------------;
+; Prints the message "SPAM" repeatedly to an ascii    ;
+;   terminal (console) connected to a 1970s vintage   ;
+;   SWTPC 6800 system, which is the target device for ;
+;   this assembly.                                    ;
+; Many thanks to:                                     ;
+;   swtpc.com for hosting Michael Holley's documents! ;
+;   sbprojects.com for a very nice assembler!         ;
+;   swtpcemu.com for a very capable emulator!         ;
+; reg x is the string pointer                         ;
+; reg a holds the ascii char to be output             ;
+;-----------------------------------------------------;
+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
+;=====================================================;
+string  .as  "SPAM",#13,#10,#0
+        .en

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

@@ -0,0 +1,8 @@
+doSPAM:
+LEA Message,A0
+JSR PrintString
+JMP doSPAM
+
+Message:
+DC.B "SPAM",13,10,0
+EVEN

Task/Loops-Infinite/8086-Assembly/loops-infinite-1.8086

@@ -0,0 +1,21 @@
+Spam:
+mov ah,02h
+mov dl,'S'  ;VASM replaces a character in single quotes with its ascii equivalent
+int 21h     ;Print Char routine
+
+mov dl,'P'
+int 21h
+
+mov dl, 'A'
+int 21h
+
+mov dl, 'M'
+int 21h
+
+mov dl,13  ;Carriage Return
+int 21h
+
+mov dl,10  ;New Line
+int 21h
+
+jmp Spam

Task/Loops-Infinite/8086-Assembly/loops-infinite-2.8086

@@ -0,0 +1,17 @@
+mov ah, 02h                 ;prep int 21h for printing to screen
+mov ax, seg SpamMessage     ;load into ax whatever segment the address of our message is in.
+mov ds, ax                  ;segment registers on the original 8086 must be loaded from a register
+
+cld                         ;clear the direction flag, this makes commands like "lodsb" auto-increment
+
+SpamOuter:
+mov si, offset SpamMessage  ;load the address of SpamMessage into the source index
+SpamInner:
+lodsb                       ;mov al,[ds:si] and increment si by 1.
+cmp al,0                    ;is this the terminator?
+jz SpamOuter                ;point si to the beginning of the message again
+mov dl,al                   ;the DOS interrupt for printing requires the desired character to be in DL
+int 21h                     ;print the chosen character to the screen
+jmp SpamInner
+
+SpamMessage db "SPAM",13,10,0

Task/Loops-Infinite/8th/loops-infinite-1.8th

@@ -0,0 +1 @@
+: inf "SPAM\n" . recurse ;

Task/Loops-Infinite/8th/loops-infinite-2.8th

@@ -0,0 +1 @@
+: inf repeat "SPAM\n" . again ;

Task/Loops-Infinite/AArch64-Assembly/loops-infinite.aarch64

@@ -0,0 +1,33 @@
+/* ARM assembly AARCH64 Raspberry PI 3B */
+/*  program infinite64.s   */
+
+/*******************************************/
+/* Constantes file                         */
+/*******************************************/
+/* for this file see task include a file in language AArch64 assembly*/
+.include "../includeConstantesARM64.inc"
+/*********************************/
+/* Initialized data              */
+/*********************************/
+.data
+szMessage:           .asciz "SPAM\n"
+/*********************************/
+/*  code section                 */
+/*********************************/
+.text
+.global main
+
+main:
+
+loop:
+    ldr x0,qAdrszMessage
+    bl affichageMess
+    b loop
+
+qAdrszMessage:     .quad szMessage
+
+/********************************************************/
+/*        File Include fonctions                        */
+/********************************************************/
+/* for this file see task include a file in language AArch64 assembly */
+.include "../includeARM64.inc"

Task/Loops-Infinite/ACL2/loops-infinite.acl2

@@ -0,0 +1,6 @@
+(defun spam ()
+   (declare (xargs :mode :program))
+   (if nil
+       nil
+       (prog2$ (cw "SPAM~%")
+               (spam))))

Task/Loops-Infinite/ALGOL-60/loops-infinite.alg

@@ -0,0 +1,5 @@
+'BEGIN' 'COMMENT' Loops/Infinite - Algol60 - 23/06/2018;
+  'INTEGER' I;
+  'FOR' I := 1 'STEP' 0 'UNTIL' 2 'DO'
+    OUTSTRING(1,'('SPAM')')
+'END'

Task/Loops-Infinite/ALGOL-68/loops-infinite-1.alg

@@ -0,0 +1,3 @@
+DO
+  printf($"SPAM"l$)
+OD

Task/Loops-Infinite/ALGOL-68/loops-infinite-2.alg

@@ -0,0 +1,3 @@
+loop x:
+   printf($"SPAM"l$);
+loop x

Task/Loops-Infinite/ALGOL-W/loops-infinite.alg

@@ -0,0 +1,3 @@
+begin
+    for i := 1 step 0 until 2 do write( "SPAM" )
+end.

Task/Loops-Infinite/ARM-Assembly/loops-infinite.arm

@@ -0,0 +1,11 @@
+.global main
+
+main:
+
+loop:
+    ldr r0, =message
+    bl printf
+    b loop
+
+message:
+    .asciz "SPAM\n"

Task/Loops-Infinite/AWK/loops-infinite.awk

@@ -0,0 +1,5 @@
+BEGIN {
+  while(1) {
+    print "SPAM"
+  }
+}

Task/Loops-Infinite/Action-/loops-infinite.action

@@ -0,0 +1,5 @@
+PROC Main()
+  DO
+    PrintE("SPAM")
+  OD
+RETURN

Task/Loops-Infinite/ActionScript/loops-infinite.as

@@ -0,0 +1,3 @@
+while (true) {
+    trace("SPAM");
+}

Task/Loops-Infinite/Ada/loops-infinite.ada

@@ -0,0 +1,3 @@
+loop
+   Put_Line("SPAM");
+end loop;

Task/Loops-Infinite/Agena/loops-infinite.agena

@@ -0,0 +1,3 @@
+do
+    print( "SPAM" )
+od

Task/Loops-Infinite/Aime/loops-infinite.aime

@@ -0,0 +1,3 @@
+while (1) {
+    o_text("SPAM\n");
+}

Task/Loops-Infinite/AmigaE/loops-infinite.amiga

@@ -0,0 +1,5 @@
+PROC main()
+  LOOP
+    WriteF('SPAM')
+  ENDLOOP
+ENDPROC

Task/Loops-Infinite/AppleScript/loops-infinite.applescript

@@ -0,0 +1,3 @@
+repeat
+  log "SPAM"
+end repeat

Task/Loops-Infinite/Applesoft-BASIC/loops-infinite.basic

@@ -0,0 +1 @@
+FOR I = 0 TO 1 STEP 0 : PRINT "SPAM" : NEXT

Task/Loops-Infinite/ArnoldC/loops-infinite.arnoldc

@@ -0,0 +1,5 @@
+IT'S SHOWTIME
+STICK AROUND @NO PROBLEMO
+TALK TO THE HAND "SPAM"
+CHILL
+YOU HAVE BEEN TERMINATED

Task/Loops-Infinite/Arturo/loops-infinite.arturo

@@ -0,0 +1,3 @@
+while [true] [
+	print "SPAM"
+]

Task/Loops-Infinite/AutoHotkey/loops-infinite.ahk

@@ -0,0 +1,2 @@
+Loop
+  MsgBox SPAM `n

Task/Loops-Infinite/Axe/loops-infinite.axe

@@ -0,0 +1,3 @@
+While 1
+ Disp "SPAM",i
+End

Task/Loops-Infinite/BASIC/loops-infinite-1.basic

@@ -0,0 +1,3 @@
+while 1
+  print "SPAM"
+wend

Task/Loops-Infinite/BASIC/loops-infinite-2.basic

@@ -0,0 +1,3 @@
+do
+  print "SPAM"
+loop

Task/Loops-Infinite/BASIC/loops-infinite-3.basic

@@ -0,0 +1,3 @@
+for i = 1 to 10 step 0
+  print "SPAM"
+next i

Task/Loops-Infinite/BASIC/loops-infinite-4.basic

@@ -0,0 +1,2 @@
+10 print "SPAM"
+20 goto 10

Task/Loops-Infinite/BASIC/loops-infinite-5.basic

@@ -0,0 +1 @@
+10 clr:print "Commodore Spam! ";:gosub 10

Task/Loops-Infinite/BASIC/loops-infinite-6.basic

@@ -0,0 +1 @@
+10 clear : print "Apple Spam! ";: gosub 10

Task/Loops-Infinite/BASIC/loops-infinite-7.basic

@@ -0,0 +1,3 @@
+10 for i = 1 to 10 step 0 : rem A zero step makes the loop infinite
+20 print "SPAM";
+30 next i

Task/Loops-Infinite/BASIC/loops-infinite-8.basic

@@ -0,0 +1,2 @@
+10 print "Spam! ";
+20 run

Task/Loops-Infinite/BASIC/loops-infinite-9.basic

@@ -0,0 +1 @@
+10 print "SPAM SPAM! ";:if 1 then 10

Task/Loops-Infinite/BASIC256/loops-infinite.basic

@@ -0,0 +1,3 @@
+while true
+    print "SPAM"
+end while

Task/Loops-Infinite/BBC-BASIC/loops-infinite.basic

@@ -0,0 +1,3 @@
+      REPEAT
+        PRINT "SPAM"
+      UNTIL FALSE

Task/Loops-Infinite/BCPL/loops-infinite.bcpl

@@ -0,0 +1,3 @@
+get "libhdr"
+
+let start() be writes("SPAM*N") repeat

Task/Loops-Infinite/BQN/loops-infinite.bqn

@@ -0,0 +1 @@
+{𝕊 •Out 𝕩}"SPAM"

Task/Loops-Infinite/Batch-File/loops-infinite-1.bat

@@ -0,0 +1,4 @@
+@echo off
+:loop
+echo SPAM
+goto loop

Task/Loops-Infinite/Batch-File/loops-infinite-2.bat

@@ -0,0 +1 @@
+for /l %%x in (1,0,2) do @echo SPAM

Task/Loops-Infinite/Bc/loops-infinite.bc

@@ -0,0 +1,2 @@
+while (1) "SPAM
+"

Task/Loops-Infinite/Beeswax/loops-infinite.beeswax

@@ -0,0 +1,2 @@
+_>`SPA`p
+  bN`M`<

Task/Loops-Infinite/Befunge/loops-infinite.bf

@@ -0,0 +1 @@
+55+"MAPS",,,,,

Task/Loops-Infinite/Blz/loops-infinite.blz

@@ -0,0 +1,3 @@
+while true
+    print("SPAM")
+end

Task/Loops-Infinite/BootBASIC/loops-infinite-1.basic

@@ -0,0 +1,2 @@
+10 print "SPAM"
+20 goto 10

Task/Loops-Infinite/BootBASIC/loops-infinite-2.basic

@@ -0,0 +1,2 @@
+10 print "SPAM"
+20 run

Task/Loops-Infinite/Bracmat/loops-infinite.bracmat

@@ -0,0 +1 @@
+whl'out$SPAM

Task/Loops-Infinite/Brainf---/loops-infinite-1.bf

@@ -0,0 +1,2 @@
+++++++++++[->++++++>++++++++>+<<<]>+++++>
+[+++.---.<.>---.+++>.<]

Task/Loops-Infinite/Brainf---/loops-infinite-2.bf

@@ -0,0 +1,4 @@
+10++++++++++
+[-> 8++++++++ > 8++++++++ > 6++++++ > 8++++++++ > 1+ <<<<<]>
+83+++ > 80 > 65+++++ > 77--- <<<
+[.>.>.>.>.<<<<]

Task/Loops-Infinite/Brat/loops-infinite.brat

@@ -0,0 +1 @@
+loop { p "SPAM" }

Task/Loops-Infinite/C++/loops-infinite-1.cpp

@@ -0,0 +1,2 @@
+while (true)
+  std::cout << "SPAM\n";

Task/Loops-Infinite/C++/loops-infinite-2.cpp

@@ -0,0 +1,2 @@
+for (;;)
+  std::cout << "SPAM\n";

Task/Loops-Infinite/C++/loops-infinite-3.cpp

@@ -0,0 +1,3 @@
+do
+  std::cout << "SPAM\n";
+while (true);

Task/Loops-Infinite/C-Shell/loops-infinite.csh

@@ -0,0 +1,3 @@
+while (1)
+	echo SPAM
+end

Task/Loops-Infinite/C-sharp/loops-infinite.cs

@@ -0,0 +1,4 @@
+while (true)
+{
+    Console.WriteLine("SPAM");
+}

Task/Loops-Infinite/C/loops-infinite-1.c

@@ -0,0 +1 @@
+while(1) puts("SPAM");

Task/Loops-Infinite/C/loops-infinite-2.c

@@ -0,0 +1 @@
+ for(;;) puts("SPAM");

Task/Loops-Infinite/C/loops-infinite-3.c

@@ -0,0 +1 @@
+do { puts("SPAM"); } while(1);

Task/Loops-Infinite/C/loops-infinite-4.c

@@ -0,0 +1 @@
+while(puts("SPAM"));

Task/Loops-Infinite/C/loops-infinite-5.c

@@ -0,0 +1,2 @@
+spam: puts("SPAM");
+goto spam;

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

@@ -0,0 +1,10 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Spam.
+
+       PROCEDURE DIVISION.
+           PERFORM UNTIL 1 <> 1
+               DISPLAY "SPAM"
+           END-PERFORM
+
+           GOBACK
+           .

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

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

Task/Loops-Infinite/Chipmunk-Basic/loops-infinite.basic

@@ -0,0 +1,3 @@
+10 while 1
+20  print "SPAM"
+30 wend

Task/Loops-Infinite/ChucK/loops-infinite.chuck

@@ -0,0 +1 @@
+while(true) <<<"SPAM">>>;

Task/Loops-Infinite/Clojure/loops-infinite.clj

@@ -0,0 +1 @@
+(loop [] (println "SPAM") (recur))

Task/Loops-Infinite/CoffeeScript/loops-infinite.coffee

@@ -0,0 +1,2 @@
+loop
+  console.log 'SPAM'

Task/Loops-Infinite/ColdFusion/loops-infinite-1.cfm

@@ -0,0 +1,3 @@
+<cfloop condition = "true NEQ false">
+  SPAM
+</cfloop>

Task/Loops-Infinite/ColdFusion/loops-infinite-2.cfm

@@ -0,0 +1,6 @@
+<cfscript>
+  while( true != false )
+  {
+    writeOutput( "SPAM" );
+  }
+</cfscript>

Task/Loops-Infinite/Comal/loops-infinite.comal

@@ -0,0 +1,3 @@
+LOOP
+   PRINT "SPAM"
+ENDLOOP

Task/Loops-Infinite/Common-Lisp/loops-infinite-1.lisp

@@ -0,0 +1 @@
+(loop (write-line "SPAM"))

Task/Loops-Infinite/Common-Lisp/loops-infinite-2.lisp

@@ -0,0 +1,3 @@
+(do ()					; Not initialization
+    (nil)				; Not break condition
+  (print "SPAM"))			; On every loop as requested

Task/Loops-Infinite/Corescript/loops-infinite.core

@@ -0,0 +1,3 @@
+:top
+print Spam!
+goto top

Task/Loops-Infinite/Cowgol/loops-infinite.cowgol

@@ -0,0 +1,5 @@
+include "cowgol.coh";
+
+loop
+    print("Spam\n");
+end loop;

Task/Loops-Infinite/Crystal/loops-infinite-1.crystal

@@ -0,0 +1,3 @@
+loop do
+    puts "SPAM"
+end

Task/Loops-Infinite/Crystal/loops-infinite-2.crystal

@@ -0,0 +1,3 @@
+while true
+    puts "SPAM"
+end

Task/Loops-Infinite/Crystal/loops-infinite-3.crystal

@@ -0,0 +1,3 @@
+until false
+    puts "SPAM"
+end

Task/Loops-Infinite/Crystal/loops-infinite-4.crystal

@@ -0,0 +1,3 @@
+(0..).each do
+    puts "SPAM"
+end

Task/Loops-Infinite/D/loops-infinite-1.d

@@ -0,0 +1,6 @@
+import std.stdio;
+
+void main() {
+    while (true)
+        writeln("SPAM");
+}

Task/Loops-Infinite/D/loops-infinite-2.d

@@ -0,0 +1,7 @@
+import std.stdio;
+
+void main() {
+    do
+        writeln("SPAM");
+    while (true);
+}

Task/Loops-Infinite/D/loops-infinite-3.d

@@ -0,0 +1,6 @@
+import std.stdio;
+
+void main() {
+    for ( ; ; )
+        writeln("SPAM");
+}

Task/Loops-Infinite/D/loops-infinite-4.d

@@ -0,0 +1,7 @@
+import std.stdio;
+
+void main() {
+    LOOP:
+    writeln("SPAM");
+    goto LOOP;
+}

Task/Loops-Infinite/DCL/loops-infinite.dcl

@@ -0,0 +1,3 @@
+$ loop:
+$  write sys$output "SPAM"
+$  goto loop

Task/Loops-Infinite/DWScript/loops-infinite.dw

@@ -0,0 +1,2 @@
+while True do
+   PrintLn('SPAM');

Task/Loops-Infinite/Dart/loops-infinite.dart

@@ -0,0 +1,5 @@
+main() {
+  while(true) {
+    print("SPAM");
+  }
+}

Task/Loops-Infinite/Dc/loops-infinite.dc

@@ -0,0 +1,2 @@
+[[SPAM
+]P dx]dx

Task/Loops-Infinite/Draco/loops-infinite.draco

@@ -0,0 +1,5 @@
+proc nonrec main() void:
+    while true do
+        writeln("SPAM")
+    od
+corp

Task/Loops-Infinite/Dyalect/loops-infinite.dyalect

@@ -0,0 +1,3 @@
+while true {
+    print("SPAM")
+}

Task/Loops-Infinite/E/loops-infinite-1.e

@@ -0,0 +1,3 @@
+while (true) {
+    println("SPAM")
+}

Task/Loops-Infinite/E/loops-infinite-2.e

@@ -0,0 +1,5 @@
+def f() {
+    println("SPAM")
+    f <- ()
+}
+f <- ()

Task/Loops-Infinite/EDSAC-order-code/loops-infinite.edsac

@@ -0,0 +1,33 @@
+[ Infinite loop
+  =============
+
+  A program for the EDSAC
+
+  Works with Initial Orders 2 ]
+
+        T56K
+        GK
+
+        O10@  [ letter shift ]
+
+[  1 ]  A17@  [ a += C(17@) ]
+        O11@
+        O12@
+        O13@
+        O14@
+        O15@
+        O16@
+        T17@  [ C(17@) = a; a = 0 ]
+        E1@   [ if a >= 0 goto 1@ ]
+
+[ 10 ]  *F
+[ 11 ]  SF
+[ 12 ]  PF
+[ 13 ]  AF
+[ 14 ]  MF
+[ 15 ]  @F    [ carriage return ]
+[ 16 ]  &F    [ line feed ]
+
+[ 17 ]  PF
+
+        EZPF

Task/Loops-Infinite/EMal/loops-infinite.emal

@@ -0,0 +1,3 @@
+for ever
+  writeLine("SPAM")
+end

Task/Loops-Infinite/ERRE/loops-infinite.erre

@@ -0,0 +1,3 @@
+LOOP
+  PRINT("SPAM")
+END LOOP

Task/Loops-Infinite/EasyLang/loops-infinite.easy

@@ -0,0 +1,3 @@
+while 0 = 0
+   print "SPAM"
+.