M98 P L
M98 P1000 M98 P2000 L3 M2 O1000 (print,This is subprocedure O1000) M99 O2000 (print,This is subprocedure O2000) M99
Output:
This is subprocedure O1000 This is subprocedure O2000 This is subprocedure O2000 This is subprocedure O2000
M99