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


>>5

All I meant was that e.g. my favorite Smalltalk implementation does not run on an ISA specifically microcoded for Smalltalk anymore and that I have to run Symbolics Genera on VLM on QEMU on some old as heck Debian ;)