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