0001
0002 I1 = getsp('S1');
0003 I2 = getsp('S2');
0004 I3 = getsp('S3');
0005 I4 = getsp('S4');
0006 I5 = getsp('S5');
0007 I6 = getsp('S6');
0008 I7 = getsp('S7');
0009 I8 = getsp('S8');
0010 I9 = getsp('S9');
0011 I10 = getsp('S10');
0012
0013
0014 frac = 0.5;
0015
0016 setsp('S1',I1*frac);
0017 setsp('S2',I2*frac);
0018 setsp('S3',I3*frac);
0019 setsp('S4',I4*frac);
0020 setsp('S5',I5*frac);
0021 setsp('S6',I6*frac);
0022 setsp('S7',I7*frac);
0023 setsp('S8',I8*frac);
0024 setsp('S9',I9*frac);
0025 setsp('S10',I10*frac);