Ever Heard About the LINC Programming Language?


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


>>7

That's a "smiley emoticon" indicating a wink. Smiley emoticons were invented by a well known Lisp programmer Scott Fahlman.

[quote]19-Sep-82 11:44 Scott E. Fahlman :-)
From: Scott E. Fahlman <Fahlman at Cmu-20c>

I propose that the following character sequence for joke markers:

:-)

Read it sideways. Actually, it is probably more economical to mark
things that are NOT jokes, given current trends. For this, use

:-(
[/quote]

http://www.cs.cmu.edu/~sef/sefSmiley.htm