Loops/Infinite: Difference between revisions
no edit summary
No edit summary |
|||
| (3 intermediate revisions by the same user not shown) | |||
Line 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 1,408 ⟶ 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,745 ⟶ 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,876 ⟶ 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}}==
| |||