4600 KVA=1 : GOSUB 390