0  BEGIN PGM M501 MM 
1  * - User M function comment ------ *
2  ; Marker for output: (M6001 ~ M6016)
3  ;   M6001 -> User M func  1 output
4  ;   M6002 -> User M func  2 output
5  ;     :               :
6  ;   M6016 -> User M func 16 output
7  ;
8  ; Marker for input: (M6101 ~ M6116)
9  ;   M6101 -> User M func  1 input
10 ;   M6102 -> User M func  2 input
11 ;     :               :
12 ;   M6116 -> User M func 16 input
13 ;===================================
14 FN 17: SYSWRITE ID 2000 NR10 IDX6001 =+1
15 LBL 1
16 FN 18: SYSREAD Q1 = ID2000 NR10 IDX6101
17 FN 12: IF +Q1 LT +1 GOTO LBL 1
18 FN 17: SYSWRITE ID 2000 NR10 IDX6001 =+0
19 LBL 99
20 END PGM M501 MM