编程一个矩形槽子程序通常涉及以下步骤：
确定子程序的基本结构
子程序通常以`M99`结束，表示返回主程序。
子程序可以包含建立坐标系、设定工件原点、切削路径等指令。
编写子程序
建立坐标系：使用`G90`（绝对坐标系）或`G91`（相对坐标系）指令。
设定工件原点：使用`G40`（取消刀尖半径补偿）和`G00`（快速定位）指令将刀具移动到工件原点。
切削路径：使用`G01`（直线插补）指令进行切削，`F`指令设置进给速度，`M`指令设置主轴转速等。
调用子程序
在主程序中，使用`O`指令（子程序调用）和子程序号来调用子程序。例如：`O0701`表示调用名为`O0701`的子程序。
可以根据需要调用子程序多次，例如：`M98 P40701`表示调用子程序`O0701`四次。
```gcode
； 矩形槽子程序 O0701
； 建立坐标系，设定工件原点
G90
G40
G00 Z100
； 四次铣削矩形槽
M98 P40701
G00 X60 Y-60
G01 Z0 F100
M98 P40701
G00 X60 Y-30
G01 Z0 F100
M98 P40701
G00 X60 Y0
G01 Z0 F100
M98 P40701
G00 X60 Y30
G01 Z0 F100
； 返回主程序
M99
```
在主程序中调用该子程序：
```gcode
； 主程序
G90
G54
G40
G00 Z100
； 调用子程序四次，铣外轮廓
M98 P40701
G00 Z100
X60 Y-60
G01 Z0 F100
； 调用子程序四次，铣矩形槽
M98 P40701
G00 Z100
```
请根据具体的加工需求和机床功能调整上述子程序和主程序的指令。