要编写一个激光竖琴的歌曲程序，你需要考虑以下几个关键点：
激光束的控制：
激光竖琴通常使用激光束来代表不同的音符，因此你需要一个方法来控制这些激光束的点亮和熄灭。
音符的频率与延时：
每个音符对应一个特定的频率，以及一个延时值，用于控制激光束保持点亮的时间。
音乐数据的存储：
你需要一个数据结构来存储歌曲的音符和对应的频率及延时信息。
控制逻辑：
程序需要能够读取歌曲数据，并根据这些数据控制激光束的点亮和熄灭，同时可能还需要控制其他功能，如LED显示或音乐播放。
```c
include
// 定义激光束控制的端口
sbit SPK = P3^4； // 激光束输出端口
// 定义音符对应的延时
uint code Tone_Delay_Table[] = {64021, 64103, 64260, 64400, 64524, 64580, 64684, 64777, 64820, 64898, 64968, 65030, 65058, 65110, 65157, 65178}；
// 定义歌曲的音符频率表
uchar code SONG_TONE[] = {212, 212, 190, 212, 159, 169, 212, 212, 190, 212, 142, 159, 212, 212, 212, 159, 169, 190, 119, 119, 126, 159, 142, 159, 0}；
// 定义歌曲长度
uchar code SONG_LONG[] = {9, 3, 12, 12, 12, 24, 9, 3, 12, 12, 12, 24, 9, 3, 12, 12, 12, 12, 9, 3, 12, 12, 12, 24, 0}；
void setup（） {
// 初始化端口
SPK = 0； // 关闭激光束
}
void loop（） {
// 播放歌曲
playSong（SONG_LONG, sizeof（SONG_LONG））；
}
void playSong（uchar *song, uchar songLen） {
for （uchar i = 0； i < songLen； i++） {
// 获取当前音符的频率
uchar tone = song[i]；
// 获取当前音符的延时
uchar delay = Tone_Delay_Table[tone]；
// 延时
while （delay--）；
// 点亮激光束
SPK = 1；
// 保持激光束点亮一段时间
while （Tone_Delay_Table[tone]--）；
// 关闭激光束
SPK = 0；
}
}
```
这个程序是一个非常基础的示例，它只包含了一个简单的歌曲《生日快乐》。实际应用中，你可能需要更复杂的逻辑来处理多首歌曲、不同的音调和节奏，以及可能的LED显示和其他功能。
请注意，这个程序仅供参考，实际应用中可能需要根据具体的硬件和需求进行调整。如果你需要更详细的帮助或更复杂的程序，请提供更多的信息，例如你使用的单片机型号、激光束的控制方式等。