Programmirovanije na jazyke BEJSIK - Worth, Thomas (Mašinostrojenije, 1981)