Loops/Infinite: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
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}}==
| |||