PROGRAM CNTRL%INPUT,OUTPUT,TAPE5#INPUT,TAPE6#OUTPUT,PUNCH, 1TAPE1,TAPE2,TAPE3,TAPE4,TAPE7,TAPE8,TAPE9,TAPE10,TAPE11< DIMENSION XIN%6<,CM%3< DIMENSION S%123<,EPS%123<,IDNT%41< COMMON EPS,XIN,CM IF5#5 IVV#0 INN#0 READ%IF5,15