FLOW-MATIC is a programming language created in 1955 by Grace Hopper.
| #650on PLDB | 69Years Old |
FLOW-MATIC, originally known as B-0 (Business Language version 0), was the first English-like data processing language. It was developed for the UNIVAC I at Remington Rand under Grace Hopper during the period from 1955 until 1959. It had a strong influence on the development of COBOL.. Read more on Wikipedia...
(0) INPUT INVENTORY FILE-A PRICE FILE-B聽; OUTPUT PRICED-INV FILE-C UNPRICED-INV
FILE-D聽; HSP D .
(1) COMPARE PRODUCT-NO (A) WITH PRODUCT-NO (B)聽; IF GREATER GO TO OPERATION 10聽;
IF EQUAL GO TO OPERATION 5聽; OTHERWISE GO TO OPERATION 2 .
(2) TRANSFER A TO D .
(3) WRITE-ITEM D .
(4) JUMP TO OPERATION 8 .
(5) TRANSFER A TO C .
(6) MOVE UNIT-PRICE (B) TO UNIT-PRICE (C) .
(7) WRITE-ITEM C .
(8) READ-ITEM A聽; IF END OF DATA GO TO OPERATION 14 .
(9) JUMP TO OPERATION 1 .
(10) READ-ITEM B聽; IF END OF DATA GO TO OPERATION 12 .
(11) JUMP TO OPERATION 1 .
(12) SET OPERATION 9 TO GO TO OPERATION 2 .
(13) JUMP TO OPERATION 2 .
(14) TEST PRODUCT-NO (B) AGAINST聽; IF EQUAL GO TO OPERATION 16聽;
OTHERWISE GO TO OPERATION 15 .
(15) REWIND B .
(16) CLOSE-OUT FILES C聽; D .
(17) STOP . (END)