Data update

Task/Program-termination/Ada/program-termination-1.adb

@@ -0,0 +1,10 @@
+with Ada.Task_Identification;  use Ada.Task_Identification;
+
+procedure Main is
+   -- Create as many task objects as your program needs
+begin
+   -- whatever logic is required in your Main procedure
+   if some_condition then
+      Abort_Task (Current_Task);
+   end if;
+end Main;

Task/Program-termination/Ada/program-termination-2.adb

@@ -0,0 +1,11 @@
+procedure Main is
+   -- Create as many task objects as your program needs
+begin
+   -- whatever logic is required in your Main procedure
+   if some_condition then
+      -- for each task created by the Main procedure
+      The_task.Stop;
+      -- end the Main procedure
+      return;  -- actually, this is not needed
+   end if;
+end Main;

Task/Program-termination/Ada/program-termination-3.adb

@@ -0,0 +1,14 @@
+task body Some_Task is
+begin
+   loop
+      select
+         -- Some alternatives
+         ...
+      or accept Stop do
+            -- Some cleanup while holding the caller is here
+         end Stop;
+            -- A cleanup asynchronous to the caller is here
+         exit; -- We are through
+      end select
+   end loop;
+end Some_Task;

Task/Program-termination/Ada/program-termination-4.adb

@@ -0,0 +1,10 @@
+task body Some_Task is
+begin
+   loop
+      select
+         -- Some alternatives
+         ...
+      or terminate; -- We are through
+      end select
+   end loop;
+end Some_Task;

Task/Program-termination/AutoIt/program-termination.au3

@@ -0,0 +1,3 @@
+If problem Then
+  Exit
+Endif

Task/Program-termination/COBOL/program-termination-1.cob

@@ -0,0 +1,3 @@
+IF problem
+    STOP RUN
+END-IF

Task/Program-termination/COBOL/program-termination-2.cob

@@ -0,0 +1,3 @@
+IF problem
+    GOBACK
+END-IF

Task/Program-termination/Emacs-Lisp/program-termination.el

@@ -0,0 +1,2 @@
+(when something
+  (kill-emacs))

Task/Program-termination/Microsoft-Small-Basic/program-termination.basic

@@ -0,0 +1,3 @@
+If 1 = 1 Then
+  Program.End()
+EndIf

Task/Program-termination/Pluto/program-termination.pluto

@@ -0,0 +1,4 @@
+local condition = true
+local code = false
+
+if condition then os.exit(code, true) end

Task/Program-termination/PowerShell/program-termination.ps1

@@ -0,0 +1,3 @@
+if (somecondition) {
+    exit
+}

Task/Program-termination/Rebol/program-termination-1.rebol

@@ -0,0 +1 @@
+if error? try [6 / 0] [quit]

Task/Program-termination/Rebol/program-termination-2.rebol

@@ -0,0 +1 @@
+if error? try [dangerous-operation] [quit/return -12]

Task/Program-termination/Rebol/program-termination-3.rebol

@@ -0,0 +1 @@
+if error? try [something-silly] [q/return -12]

Task/Program-termination/Rebol/program-termination-4.rebol

@@ -0,0 +1 @@
+view layout [button "stopme" [halt]]

Task/Program-termination/Uiua/program-termination.uiua

@@ -0,0 +1 @@
+⍣(°1|&exit1) 0

Task/Program-termination/VBScript/program-termination.vbs

@@ -0,0 +1,11 @@
+dim i, j
+j = 0
+do
+    for i = 1 to 100
+        while j < i
+            if i = 3 then
+                wscript.quit
+            end if
+        wend
+    next
+loop