现金悬赏:xp或2k加载bin问题

原程序是basica的程序,部分代码如下: 
1 CLEAR,&HF700:OE=&H268:OF=&H269:OG=&H26A:OH=&H26B 
2 K=0:OA=&H270:OB=&H271:OC=&H272:OD=&H273:GOSUB 5000 
3 BLOAD "3PCGC.BIN",&HF800:COLOR 14,1:CLS 
4 PCGC1=&HF800:PCGC2=&HFA00:PCGC3=&HFC00 
5 P=658:D=656:IP=&H260:IP1=&H261:IP2=&H262:IP3=&H263 6650 CALL PCGC3(G(1)) 
6690 RETURN 
6710 CALL PCGC2(S(1)) 
6720 CALL PCGC1(D(1)) 
6730 J=0 
6740 FOR N=1 TO K 
6750 FOR I=1 TO 17 
6760 A(N,I)=D(J+I):B(N,I)=S(J+I) 
6770 NEXT I 
6780 J=J+17 
6790 NEXT N 
6800 RETURN 要求在VB6/delphi下实现同样的功能(或可以在winxp下运行的其它语言) 
或者反汇编3PCGC。BIN文件然后用高级语言实现 
现金求助,具体金额可以详谈msn:[email protected] 3PCGC.bin在这里http://hinfo.cn/3pcgc.rar