0  BEGIN PGM M55 MM 
1  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+55 ; NUMBER NC MACRO ON
2  FN 18: SYSREAD Q1 = ID290 NR1
3  FN 9: IF +Q1 EQU +3 GOTO LBL "END"
4  FN 19: PLC =+99990 / +24
5  M55
6  FN 17: SYSWRITE ID 290 NR1 =+3
7  M36
8  FN 20: WAIT FOR  SYNC
9  FN 20: WAIT FOR  M7113==1
10 LBL "END"
11 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
12 END PGM M55 MM