0  BEGIN PGM PSRD25X MM 
1  Q0 = Q109 + 200
2  FN 9: IF +0 EQU +0 GOTO LBL Q0
3  LBL 200
4  FN 18: SYSREAD Q31 = ID270 NR1 IDX2
5  FN 18: SYSREAD Q32 = ID270 NR1 IDX3
6  FN 9: IF +0 EQU +0 GOTO LBL 209
7  LBL 201
8  FN 18: SYSREAD Q31 = ID270 NR1 IDX3
9  FN 18: SYSREAD Q32 = ID270 NR1 IDX1
10 FN 9: IF +0 EQU +0 GOTO LBL 209
11 LBL 202
12 FN 18: SYSREAD Q31 = ID270 NR1 IDX1
13 FN 18: SYSREAD Q32 = ID270 NR1 IDX2
14 FN 9: IF +0 EQU +0 GOTO LBL 209
15 LBL 206
16 FN 18: SYSREAD Q31 = ID270 NR1 IDX2
17 FN 18: SYSREAD Q32 = ID270 NR1 IDX3
18 FN 9: IF +0 EQU +0 GOTO LBL 209
19 LBL 207
20 FN 18: SYSREAD Q31 = ID270 NR1 IDX3
21 FN 18: SYSREAD Q32 = ID270 NR1 IDX1
22 FN 9: IF +0 EQU +0 GOTO LBL 209
23 LBL 208
24 FN 18: SYSREAD Q31 = ID270 NR1 IDX1
25 FN 18: SYSREAD Q32 = ID270 NR1 IDX2
26 LBL 209
27 END PGM PSRD25X MM 
