0  BEGIN PGM MACROCANCEL MM 
1  FN 18: SYSREAD Q1 = ID2000 NR70 IDX7098 ; NC MACRO STATUS
2  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-3 ; NC MACRO INTERNAL STOP
3  LBL "END"
4  END PGM MACROCANCEL MM