/prog/ - Ever Heard About the LINC Programming Language?

Name: Anonymous 2014-01-11 16:34


LOOK.UP; EVERY CUST
           : Read in every customer
           : Next find the customer’s total deposits.
   DETERMINE; TOTAL DEPOSITS AMOUNT (CUST.CUSTOMER)
           : Calculate the interest due.
   MULTIPLY; CUST.INTEREST GLB.TOTAL
   SD; SD-INTEREST (INTEREST)
           : Now create the interest deposit for the customer
   AUTO.ENTRY; DEPOS
      AUTO; CUST.CUSTOMER CUSTOMER
      AUTO; GLB.TOTAL AMOUNT
      AUTO; SD-INTEREST NARRATION
   AUTO; WRITE&CLEAR
   ...
   ...
           : Create the other side of the entry.
   AUTO.ENTRY; JRNL
      AUTO; SD-INTEREST LEDGER
      AUTO; GLB.TOTAL AMOUNT
      AUTO; CONTRA AMOUNT
   AUTO; WRITE&CLEAR
             : If the customer is unemployed, the interest
             : amount must also be sent to the EMPLOY System.
   DO.WHEN; CUST.ETYPE=(N)
      MOVE; (EMPLOYDB) GLB.DESTINATION
      AUTO.ENTRY; DEPOS
         AUTO; CUST.CUSTOMER CUSTOMER
         AUTO; GLB.TOTAL AMOUNT
         AUTO; SD-INTEREST NARRATION
      AUTO; WRITE&CLEAR
      MOVE; GLB.SELF GLB.DESTINATION
   END;
END

Ever Heard About the LINC Programming Language?

1 Name: Anonymous 2014-01-11 16:34

7 Name: Anonymous 2014-01-12 3:36

Name: Anonymous 2014-01-11 16:34

Name: Anonymous 2014-01-12 3:36