# HG changeset patch
# User thomas_-_s <thomas_-_s@59b1889a-e5ac-428c-b0c7-476e01d41282>
# Date 1212050375 0
# Node ID dd1e1db4723df34b35c7aabf3e162fd3e6ad13fb
# Parent  4b1ae20f1e0600a7346766ce8141a9c2113762d8
Added a cobol example code file.

git-svn-id: svn://svn.code.sf.net/p/universalindent/code/trunk@713 59b1889a-e5ac-428c-b0c7-476e01d41282

diff -r 4b1ae20f1e06 -r dd1e1db4723d indenters/example.cbl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/indenters/example.cbl	Thu May 29 08:39:35 2008 +0000
@@ -0,0 +1,30 @@
+      $ SET SOURCEFORMAT"FREE"
+IDENTIFICATION DIVISION.
+PROGRAM-ID.  Iteration-If.
+AUTHOR.  Michael Coughlan.
+
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01  Num1           PIC 9  VALUE ZEROS.
+01  Num2           PIC 9  VALUE ZEROS.
+01  Result         PIC 99 VALUE ZEROS.
+01  Operator       PIC X  VALUE SPACE.
+
+PROCEDURE DIVISION.
+Calculator.
+    PERFORM 3 TIMES
+       DISPLAY "Enter First Number      : " WITH NO ADVANCING
+       ACCEPT Num1
+       DISPLAY "Enter Second Number     : " WITH NO ADVANCING
+       ACCEPT Num2
+       DISPLAY "Enter operator (+ or *) : " WITH NO ADVANCING
+       ACCEPT Operator
+       IF Operator = "+" THEN
+          ADD Num1, Num2 GIVING Result
+       END-IF
+       IF Operator = "*" THEN
+          MULTIPLY Num1 BY Num2 GIVING Result
+       END-IF
+       DISPLAY "Result is = ", Result
+    END-PERFORM.
+    STOP RUN.
\ No newline at end of file