KBprocess: obj LIB.BasicSystem.BasicSystem P1: obj BasicProcess("P1") loop: ch: var char P2: obj BasicProcess("P2") loop: obj i: var integer