00100 BAICLC=BPDAHD[S,AIL]+BAICLC/NOLOAD, 00200 BAIIO1=BPDAHD[S,AIL]+BAIIO1/NOLOAD, 00300 BAIIO2=BPDAHD[S,AIL]+BAIIO2/NOLOAD, 00400 BAIMSC=BPDAHD[S,AIL]+BAIMSC/NOLOAD, 00500 BAIPRC=BPDAHD[S,AIL]+BAIPRC/NOLOAD, 00600 BAISM1=BSM1HD[S,AIL]+BAISM1