Data update

Task/Loops-Infinite/DIBOL-11/loops-infinite.dibol-11

@@ -0,0 +1,13 @@
+          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

Task/Loops-Infinite/PL-M/loops-infinite.plm

@@ -0,0 +1,14 @@
+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

Task/Loops-Infinite/RATFOR/loops-infinite.ratfor

@@ -0,0 +1,7 @@
+program loop
+
+while (1==1)
+write(*,101)"SPAM"
+101 format(A)
+
+end