🚀 go-pugleaf

    FoxPro 2.5 For Dos��Ŀǰʹ����㷺����ݿ�������,����
������,�ҹ���ǿ�󡣵����в������,��Щ����(��"COPY TO��
��PACK"��)��Ȼ����һ�����������Ԥ������,�������ִ�й��
��ͨ��FoxPro�ڲ�������ʵ�ֵ�,������Բ�,�ر����ڴ����Ӵ����
�ݿ�ʱ,��Ļ����ִ�������,ͬʱҲ��֪�������Ĺ������,����
��ʱ����Ҳ��֪��,ʱ�䳤���������ɲ�����Ա�ķ�ζ��
    �ܲ�����FoxPro����ִ�й������ǿ�������,ʹ��Ļ�����
��?
    �ش��ǿ϶��ġ�������߽���ǿ"COPY TO��"��"PACK"��������
�Ŀ�����Ӧ�ú����ṩ���ҡ�(������Windows 95���ļ�������
��ջ���վЧ��,ͬʱ�¶ȼ�Ҳ�����˹������,��ʵ��Ӧ������Ч��
�á�)
    �����嵥����:
    u_Vcopy ������ݿ⿽������(��copy to����ͬЧ)
    ��ʽ:=u_Vcopy<Դ����>,<Ŀ�Ŀ���>,[����])
    FUNC u_Vcopy
    PARA x_1,x_2,x_3
    PRIV ALL LIKE x_*
    SET TALK OFF
      if empt(x_1)or empt(x_2)
        wait '���ø�ʽ:=u_Vcopy(<Դ����>,<Ŀ�Ŀ���>,[����])'
wind nowa
        retu
      endi
      @ 0,0,24,80 BOX REPL(chr(176),9)
        x_safe=set('safe')
        x_sele=sele(0)
        x_w='w'+sys(3)
      DIME x_C(4)
      x_C(1)='��' &&���:1385
      x_C(2)='��' &&���:1386
      x_C(3)='��' &&���:1387
      x_C(4)='��' &&���:1388
      DEFI WIND(x_w) FROM INT((SROW()-6)/2),INT((SCOL()-57)/
2);
        TO INT((SROW()-6)/2)+6,INT((SCOL()-57)/2)+57;
        DOUB COLO SCHE 5 TITL '���ڿ���'
      ACTI WIND(x_w)
        @ 2,1 to wrow(),wcol()-2
    SET SAFE OFF
      sele 0
        use(x_1)
        x_selel=sele(0)
        copy stru to (x_2)
      sele 0
        use(x_2)
        x_sele2=sele(0)
      sele (x_sele1)
        if empt(x_3)
     x_coun=recc()
        else
     set filt to &x_3
     coun to x_coun
        endi
    go top
    stor 1 to x_i,x_j,x_k
    x_spac=int((wcol()-16)/2)*2
    x_speed=int(x_coun/iif(x_coun<20,x_coun,20))
    x_coun=(wcol()-7)/x_coun
      DO WHIL not eof()
        @ 1,2 say PADR(ALLT(str(recn(),5)),5,'.')
        @ 1,8 say '��'+spac(x_spac)+'��'  &&���:1285  121
6
        @ 1,8+x_i*2 say x_C(x_j)+iif(x_i=x_spac/2,'��','')&&
���:1217
        @ 3,3+x_k*x_coun say' ' COLO 7/7*
      scat to x_arra
      inse into(x_2)from arra x_arra
      SKIP
        if x_k/x_speed=int(x_k/x_speed)
      x_i=iif(x_i=x_spac/2,1,x_i+1)
      x_j=iif(x_j=4,1,x_j+1)
        endi
      x_k=x_k+1
      ENDD
        @ 1,8 say '��'+spac(x_spac)+'��' &&���:1285  1217
       use in (x_sele1)
       use in (x_sele2)
     sele(x_sele)
      RELE WIND (x_w)
    SET SAFE &x_safe.
    RETU
    FUNC u_Vpack
    PRIV ALL LIKE x_
    SET TALK OFF
      if used()=.F.
        wait' ��ݿ�δ��!' wind nowa
        retu
      endi
      @ 0,0,24,80 BOX REPL(chr(176),9)
        x_safe=set('safe')
        x_sele=sele(0)
        x_w='w'+sys(3)
        x_FILE=strt(dbf(),sys(5)+curd())
      DIME x_C(4)
      x_C(1)='��'
     &&���:1385
      x_C(2)='��'
     &&���:1386
      x_C(3)='��'
     &&���:1387
      x_C(4)='��'
     &&���:1388
      DEFI WIND(x_w)FORM INT((SROW()-6)/2),INT((SCOL()-57)/2
);
        TO INT((SROW()-6)/2)+6,INT((SCOL()-57)/2)+57;
        DOUB COLO SCHE 5 TITL '����ɾ��'
      ACTI WIND(x_w)
        @ 2,1 to wrow(),wcol()-2
    SET SAFE OFF
        x_F='x'+righ(sys(3),7)+' DBF'
       copy stru to (x_F)
      sele 0
        use (x_F)
        x_selel=sele(0)
      sele(x_sele)
      x_coun=recc()
        go top
        stor I to x_i,x_j,x_k
        x_spac=int((wcol()-16)/2)*2
        x_speed=int((x_coun/iif(x_coun<20,x_coun,20))
        x_coun=(wcol()-7)/x_coun
      DO WHIL not eof()
     @ 1,2 say PADR(ALLT(str(recn(),5)),5,'.')
     @ 1,8 say '��'+spac(x_spac)+'��','')&&���:1287  1284
     @ 1,8+x_i*2 say x_C(x_j)+iif(x_i)=x_spac/2,'��','')&&��
�:1283
     @ 3,3+x_k*x_coun say'' COLO 7/7*
      if not dele()
        scat to x_arra
        inse into (x_F)from arra x_arra
      endi
        SKIP
     if x_k/x_speed=int(x_k/x_speed)
        x_i=iif(x_i=x_spac/2,1,x_i+1)
        x_j=iif(x_j=4,1,x_j+1)
     endi
        x_k=x_k+1
      ENDD
     @ 1,8 say'��'+spac(x+spac)+'��' &&���:1216 1283
        use in(x_selel)
      sele(x_sele)
        use.
      DELE FILE(x_FILE)
      RENA(x_F) to (x_FILE)FILE)
        use (x_FILE)
      RELE WIND (x_w)
    SET SAFE &x_safe.
    RETU
    ������UCDOS 3.1�����ϰ汾
    FoxPro 2.5 For DOS������ͨ��

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]