0  BEGIN PGM USER_M MM 
1  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+1100 ; NUMBER NC MACRO ON
2  FN 17: SYSWRITE ID 2000 NR10 IDX7387 =+1
3  *** User M function 1 ***
4  LBL 1
5  FN 18: SYSREAD Q1 = ID2000 NR10 IDX7388
6  FN 10: IF +Q1 NE +1 GOTO LBL 2
7  M501 M31
8  FN 17: SYSWRITE ID 2000 NR10 IDX7388 =+0
9  FN 9: IF +0 EQU +0 GOTO LBL 100
10 *** User M function 2 ***
11 LBL 2
12 FN 18: SYSREAD Q1 = ID2000 NR10 IDX7389
13 FN 10: IF +Q1 NE +1 GOTO LBL 3
14 M502 M31
15 FN 17: SYSWRITE ID 2000 NR10 IDX7389 =+0
16 FN 9: IF +0 EQU +0 GOTO LBL 100
17 *** User M function 3 ***
18 LBL 3
19 FN 18: SYSREAD Q1 = ID2000 NR10 IDX7390
20 FN 10: IF +Q1 NE +1 GOTO LBL 4
21 M503 M31
22 FN 17: SYSWRITE ID 2000 NR10 IDX7390 =+0
23 FN 9: IF +0 EQU +0 GOTO LBL 100
24 *** User M function 4 ***
25 LBL 4
26 FN 18: SYSREAD Q1 = ID2000 NR10 IDX7391
27 FN 10: IF +Q1 NE +1 GOTO LBL 5
28 M504 M31
29 FN 17: SYSWRITE ID 2000 NR10 IDX7391 =+0
30 FN 9: IF +0 EQU +0 GOTO LBL 100
31 *** User M function 5 ***
32 LBL 5
33 FN 18: SYSREAD Q1 = ID2000 NR10 IDX7392
34 FN 10: IF +Q1 NE +1 GOTO LBL 6
35 M505 M31
36 FN 17: SYSWRITE ID 2000 NR10 IDX7392 =+0
37 FN 9: IF +0 EQU +0 GOTO LBL 100
38 *** User M function 6 ***
39 LBL 6
40 FN 18: SYSREAD Q1 = ID2000 NR10 IDX7393
41 FN 10: IF +Q1 NE +1 GOTO LBL 7
42 M506 M31
43 FN 17: SYSWRITE ID 2000 NR10 IDX7393 =+0
44 FN 9: IF +0 EQU +0 GOTO LBL 100
45 *** User M function 7 ***
46 LBL 7
47 FN 18: SYSREAD Q1 = ID2000 NR10 IDX7394
48 FN 10: IF +Q1 NE +1 GOTO LBL 8
49 M507 M31
50 FN 17: SYSWRITE ID 2000 NR10 IDX7394 =+0
51 FN 9: IF +0 EQU +0 GOTO LBL 100
52 *** User M function 8 ***
53 LBL 8
54 FN 18: SYSREAD Q1 = ID2000 NR10 IDX7395
55 FN 10: IF +Q1 NE +1 GOTO LBL 9
56 M508 M31
57 FN 17: SYSWRITE ID 2000 NR10 IDX7395 =+0
58 FN 9: IF +0 EQU +0 GOTO LBL 100
59 *** User M function 9 ***
60 LBL 9
61 FN 18: SYSREAD Q1 = ID2000 NR10 IDX7396
62 FN 10: IF +Q1 NE +1 GOTO LBL 10
63 M509 M31
64 FN 17: SYSWRITE ID 2000 NR10 IDX7396 =+0
65 FN 9: IF +0 EQU +0 GOTO LBL 100
66 *** User M function 10 ***
67 LBL 10
68 FN 18: SYSREAD Q1 = ID2000 NR10 IDX7397
69 FN 10: IF +Q1 NE +1 GOTO LBL 100
70 M510 M31
71 FN 17: SYSWRITE ID 2000 NR10 IDX7397 =+0
72 *************************
73 LBL 100
74 FN 17: SYSWRITE ID 2000 NR10 IDX7387 =+0
75 LBL 99
76 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
77 END PGM USER_M MM