0  BEGIN PGM M73 MM 
1  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+73 ; NUMBER NC MACRO ON
2  FN 18: SYSREAD Q1 = ID2000 NR10 IDX214
3  FN 10: IF +Q1 NE +1 GOTO LBL "NEW_RANGE"
4  FN 14: ERROR= 392
5  STOP
6  LBL "NEW_RANGE"
7  FN 31: RANGE:2
8  M73
9  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
10 END PGM M73 MM