主题 : [古董]找到一些 Turbo C 的源程序

使用道具 | 复制链接 | 浏览器收藏 | 打印

永恒の翼

不经常在线，有事邮件

级别: 论坛管理员

作者资料发送短消息 QQ联系

UID: 12125
精华: 0
发帖: 5142
威望: 36 星
金钱: 375371 浮游币
贡献值: 19405 点
好评度: 21716 点
人气: 11662 点
在线时间: 1978(时)
注册时间: 2004-08-31
最后登录: 2024-10-28

楼主发表于: 2005-01-29 22:44

全看 | 小中大

[古董]找到一些 Turbo C 的源程序

第一个是，提取 DOS 版仙剑 MIDI 音乐的，原来骗过稿费的东西

代码

#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
char TargetFileName[32]="PAL_00.mid";
void main(void)
{
FILE *SourceFile,*TargetFile;
long Start,End,Len;
int i,j,k,file;
file=0;
clrscr();
gotoxy (18,10);
printf ("PAL Music Maker, Made by Ashuro. Date:2000/12/21\n");
if ((SourceFile=fopen ("MIDI.MKF"),"rb")=NULL)
{
gotoxy (21,13);
printf ("Can not find MIDI.MKF\n");
exit(1);
}
for (i=1;i<87;i++)
{
fseek (SourceFile,1*4,SEEK_SET);
fread (&Start,1,4,SourceFile);
fread (&End,1,4,SourceFile);
fseek (SourceFile,Start,SEEK_SET);
Len=End-Start;
if (len>0)
{
++file;
TargetFileName[6]=(file/10)+'0';
TargetFileName[7]=(file%10)+'0';
TargetFile=fopen (TargetFileName,"wb");
gotoxy (23,13);
printf ("Now Saving %d music: %s",file,TargetFileName);
for (j=0;j<len;j++)
{
k=fgetc (SourceFile);
fputc (k,TargetFile);
}
fclose (TargetFile);
}
}
fclose (SourceFile);
gotoxy (29,15);
printf ("Music has all saved successfully.\n");
}

来自：顶端

回复引用

心太

化身肥宅，躺平！