Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/Loops-Break/COBOL/loops-break.cobol
+++ b/Task/Loops-Break/COBOL/loops-break.cobol
@ -1,26 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. Random-Nums.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  Num  PIC Z9.
-
-       PROCEDURE DIVISION.
-       Main.
-           PERFORM FOREVER
-               PERFORM Generate-And-Display-Num
-
-               IF Num = 10
-                   EXIT PERFORM
-               ELSE
-                   PERFORM Generate-And-Display-Num
-               END-IF
-           END-PERFORM
-
-           GOBACK
-           .
-
-       Generate-And-Display-Num.
-           COMPUTE Num =  FUNCTION REM(FUNCTION RANDOM * 100, 20)
-           DISPLAY Num
-           .