惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

C
Check Point Blog
IT之家
IT之家
V
Visual Studio Blog
The Cloudflare Blog
博客园 - 司徒正美
Jina AI
Jina AI
博客园_首页
阮一峰的网络日志
阮一峰的网络日志
美团技术团队
S
SegmentFault 最新的问题
博客园 - 聂微东
人人都是产品经理
人人都是产品经理
T
Tailwind CSS Blog
罗磊的独立博客
酷 壳 – CoolShell
酷 壳 – CoolShell
量子位
奇客Solidot–传递最新科技情报
奇客Solidot–传递最新科技情报
Hugging Face - Blog
Hugging Face - Blog
博客园 - 【当耐特】
博客园 - 三生石上(FineUI控件)
爱范儿
爱范儿
博客园 - Franky
Last Week in AI
Last Week in AI
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知

博客园 - 张瓅

puppy-language ConsolePlayer HTML5 模版调用析构函数的一个发现 编译期运算 如何测量代码执行时间 【转】老外眼中的武侠小说 1850年的宁波 关于安装 DirectX SDk Dec 2005 后无法编译DirectShow应用程序的问题 [转]VB中嵌入汇编与真正的DLL 新的连连看网络版 各种连接字符串 关于CSS属性display:none和visible:hidden的区别 我用超白痴的方法解出了这道题,大家有没有更好的方法 Fire Net 尝试了一下Flex VFP中如何调用API函数 DES加密算法的实现 软件项目经理必备素质(转)
仙剑奇侠传4主题曲 QBASIC代码
张瓅 · 2007-05-11 · via 博客园 - 张瓅

《童话》一样,都是照着曲谱翻译的。

程序源代码如下:

print "----------------"
PRINT "PAL4 Music"
print "----------------"
PLAY 
"t200o4a2o4cd e1 egec d1 o4a2o4ce d2c2 o4a1 g1"
PLAY 
"a2o4cd mle2emsg agec d1 o4a2o4ce d2c2 o4mla1g1"

PLAY 
"p4p4mso4ed e2eo4a o4mld2dmsc8o4b8 mlaa8msb8ag e2eg o4c2o4eg b2ag"
PLAY 
"mla2amso4e d2ed e2eo4a o4mld2d msc8o4b8 mlaa8msb8ag e2eg o4c2o4eg"
PLAY 
"o4mldd8mse8do4g a1 mlb1 b2msgea1"
PRINT "Thank you!"


已编译的程序下载:
PAL4Music.rar
里面包含三个程序PAL4_1.exe,PAL4_2.exe,PAL4_3.exe,三种不同风格,其中PAL4_2和PAL4_3和上面的代码略有不同。