N..... USE_LENGTH_UNITS(CANON_UNITS_MM)
 N..... SET_ORIGIN_OFFSETS(0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
 N..... SET_FEED_REFERENCE(CANON_XYZ)
 N..... COMMENT("DUMMY SUBROUTINE")
 N..... COMMENT("MAIN SUBROUTINE")
 N..... COMMENT("MAIN")
 N..... STRAIGHT_TRAVERSE(1.0000, 2.0000, 3.0000, 0.0000, 0.0000, 0.0000)
 N..... COMMENT("#1 #2 and #3 are now corrupted upon return from dummy subroutine")
 N..... STRAIGHT_TRAVERSE(1.0000, 2.0000, 3.0000, 0.0000, 0.0000, 0.0000)
 N..... SET_ORIGIN_OFFSETS(0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
 N..... STOP_SPINDLE_TURNING()
 N..... PROGRAM_END()