单段打孔程序可以根据不同的需求和加工条件进行编写。以下是一个简单的单段打孔程序的示例，假设我们要在数控车床上进行孔加工：
```plaintext
； 打一个孔的程序示例
N0010 G92 X0 Y0 Z50 ； 设定工件坐标系，钻头初始位置在工件表面50mm处
N0020 M03 ； 主轴正转
N0030 G00 X0 Y0 ； 移动到第一个孔的中心位置
N0040 M98 L200 ； 调用子程序打孔，L200表示调用子程序200次
N0050 M05 ； 主轴停止
N0060 G26 ； 三轴同时回到参考点
N0070 M02 ； 程序结束
```
在这个示例中，我们首先设定了工件坐标系，并将钻头初始位置设置在工件表面50mm处。然后，主轴正转，移动到第一个孔的中心位置，并调用子程序进行打孔。最后，主轴停止，三轴同时回到参考点，程序结束。
子程序`L200`的内容可能如下：
```plaintext
； 子程序L200，用于打孔200次
N0200 G00 Z0； 快速接近工件表面
N0210 G01 W-10 F60 ； 打孔，使用G01直线插补，F值为60
N0220 G00 W+10 ； 退出
N0230 G00 Z50； 快速抬起
N0240 M99 ； 子程序返回
```
这个子程序首先将钻头快速接近工件表面，然后进行直线插补打孔，最后退出并抬起钻头。
请注意，这只是一个简单的示例，实际编程可能需要根据具体的加工要求和设备进行调整。建议在实际应用中参考设备的操作手册和相关编程规范，以确保编程的正确性和有效性。