diff --git a/lab-3/samples/quadratic-snippet.cbl b/lab-3/samples/quadratic-snippet.cbl
new file mode 100644
index 0000000..ab76e40
--- /dev/null
+++ b/lab-3/samples/quadratic-snippet.cbl
@@ -0,0 +1,35 @@
+       *> Code altered from https://www.quora.com/What-is-a-COBOL-program-that-will-solve-a-quadratic-equation
+       *> Program finds the roots to a simple quadratic equation
+
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. QuadraticSolver.
+       DATA DIVISION.
+           WORKING-STORAGE SECTION.
+           77 a PIC S9(5)V9(5) COMP-3 VALUE 1.
+           77 b PIC S9(5)V9(5) COMP-3 VALUE 5.
+           77 c PIC S9(5)V9(5) COMP-3 VALUE 6.
+           77 discriminant PIC S9(5)V9(5) COMP-3.
+           77 root1 PIC S9(5)V9(5) COMP-3.
+           77 root2 PIC S9(5)V9(5) COMP-3.
+           77 square-root-discriminant PIC S9(5)V9(5) COMP-3.
+
+       PROCEDURE DIVISION. *> program begins here
+           DISPLAY "EQUATION: (1x^2) + 5x + 6 = 0" 
+           COMPUTE discriminant = (b ** 2) - (4 * a * c)
+
+           IF discriminant > 0
+               COMPUTE square-root-discriminant = FUNCTION SQRT(discriminant)
+               COMPUTE root1 = (-b + square-root-discriminant) / (2 * a)
+               COMPUTE root2 = (-b - square-root-discriminant) / (2 * a)
+               DISPLAY "The equation has two distinct real roots: "
+               DISPLAY "Root 1: " root1
+               DISPLAY "Root 2: " root2
+
+           ELSE IF discriminant = 0
+               COMPUTE root1 = -b / (2 * a)
+               DISPLAY "The equation has one real root: "
+               DISPLAY "Root: " root1
+           ELSE
+               DISPLAY "The equation has no real roots."
+
+       STOP RUN.