Loops/Infinite: Difference between revisions
no edit summary
(Add LDPL) |
No edit summary |
||
| (11 intermediate revisions by 9 users not shown) | |||
Line 551:
unless explicitly stopped with '''@'''.
<syntaxhighlight lang="befunge">55+"MAPS",,,,,</syntaxhighlight>
=={{header|Binary Lambda Calculus}}==
Adding "SPAM\n" to the BLC8 cycle program generated from https://github.com/tromp/AIT/blob/master/lists/cycle.lam
gives the 16 byte program
<pre>11 a1 72 34 00 2d e5 e7 ef b3 40 53 50 41 4d 0a</pre>
=={{header|blz}}==
Line 590 ⟶ 595:
=={{header|Brat}}==
<syntaxhighlight lang="brat">loop { p "SPAM" }</syntaxhighlight>
=={{header|Bruijn}}==
<syntaxhighlight lang="bruijn">
:import std/String .
main [spam spam]
spam ["SPAM\n" ++ (0 0)]
</syntaxhighlight>
=={{header|C}}==
Line 793 ⟶ 806:
=={{header|Delphi}}==
''See [[#Pascal|Pascal]]''
=={{header|DIBOL-11}}==
<syntaxhighlight lang="DIBOL-11">
START ;Infinite Loop
RECORD SPAM
, A4, 'SPAM'
PROC
XCALL FLAGS (0007000000,1) ;Suppress STOP message
OPEN(8,O,'TT:')
LOOP,
WRITES(8,SPAM)
GOTO LOOP
END
</syntaxhighlight>
=={{header|Draco}}==
Line 839 ⟶ 869:
=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
while
print "SPAM"
.
Line 906 ⟶ 936:
=={{header|Elena}}==
ELENA
<syntaxhighlight lang="elena">public program()
{
while (true)
{
console.writeLine
}
}</syntaxhighlight>
Line 1,395 ⟶ 1,425:
spam')
spam</syntaxhighlight>
=={{header|MACRO11}}==
<syntaxhighlight lang="MACRO11">
; Infinte Loop under RT11
.MCALL .PRINT
.EVEN
BEGIN:
LOOP:
.PRINT #SPAM
BR LOOP
SPAM: .ASCIZ /SPAM/
.END BEGIN
</syntaxhighlight>
=={{header|MAD}}==
Line 1,587 ⟶ 1,631:
<syntaxhighlight lang="ns-hubasic">10 PRINT "SPAM"
20 RUN</syntaxhighlight>
=={{header|Nu}}==
<syntaxhighlight lang="nu">
while true {print SPAM}
</syntaxhighlight>
=={{header|Oberon-2}}==
Line 1,727 ⟶ 1,776:
put list ('SPAM'); put skip;
end;</syntaxhighlight>
=={{header|PL/M}}==
<syntaxhighlight lang="PL/M">
100H:
BDOS: PROCEDURE (FN, ARG); DECLARE FN BYTE, ARG ADDRESS; GO TO 5; END BDOS;
EXIT: PROCEDURE; CALL BDOS(0,0); END EXIT;
PRINT: PROCEDURE (S); DECLARE S ADDRESS; CALL BDOS(9,S); END PRINT;
DECLARE SPAM DATA ('SPAM',0DH,0AH,'$');
LOOP: DO;
CALL PRINT( .SPAM );
GO TO LOOP;
END;
EOF
</syntaxhighlight>
=={{header|Plain English}}==
Line 1,858 ⟶ 1,925:
output: "SPAM"
od</syntaxhighlight>
=={{header|RATFOR}}==
<syntaxhighlight lang="RATFOR">
program loop
while (1==1)
write(*,101)"SPAM"
101 format(A)
end
</syntaxhighlight>
=={{header|REBOL}}==
Line 2,275 ⟶ 2,353:
out "SPAM" endl console
end while</syntaxhighlight>
=={{header|Uxntal}}==
<syntaxhighlight lang="Uxntal">
|0100
&l ;SPAM <print-str> !&l
@<print-str> ( str* -- )
&while ( -- )
LDAk #18 DEO
INC2 LDAk ?&while
POP2 JMP2r
@SPAM
"SPAM 0a $1</syntaxhighlight>
=={{header|V}}==
Line 2,376 ⟶ 2,467:
=={{header|Wren}}==
<syntaxhighlight lang="
=={{header|X86 Assembly}}==
| |||