🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.program
Article #2383

Re: �����Foxpro for DOS ��Ƕ���жϳ���

#2383
From: lucky
Date: Fri, 26 Dec 1997 00:00
76 lines
2895 bytes
����� wrote:
> 
>  �� foxpro ��д��Ӧ�ó����������һ�����ȼ���ߵ��жϳ���
> �����ж��źŵ���ʱ�����жϵ�ǰ��Ӧ�ó��򣬱���ϵ㡣���ж�
> ��������ϣ��ٷ���ԭӦ�ó���ϵ㴦������ִ�С����ʵ����
> �ṩ������лл��λ��Ϻ��
> 
> --
> �� ��Դ:���̺����� bbs.dlut.edu.cn��[FROM: 202.118.68.63]

������ʵ�ַ�����
1��ʹ��Foxpro LCK����Foxpro2.5 for
DOS��ҵ���еĵ�ʮ���̡���ʹ����C���Ա�д����������ӵ�Foxpro2.5��������Ŀ�ִ���ļ�������C���Եİ����жϳ���Ӧ�ò������⡣

2�������Foxpro 2.0�汾�������Ҫ���������ԡ�
    ʹ�ñ����������С�ġ����ο�Foxpro�鼮�е�load���
    1�������򲻵ó���32K�����ұ�����COM�����ļ���BIN�����ļ�
    2���������˳�ʱ�����ܸı�μĴ�����BX�Ĵ�����BP�Ĵ�����SP�Ĵ���
       ����ʱ������ retf.
    3��Foxpro���򴫵ݵı����������Ҫ�ӻ����򷵻ؽ�������Ϊ�ַ�
       ����
    4��Foxpro���򴫵ݵı����ĵ�ַ��DS:BX
    5��ʹ�û�����ʱ����Foxpro�����м���. load

    ��
    �Ѿ���һ����������Ļ����� int_fox.bin
    
    push bx
    push ax
    mov ax, [bx]
    cmp ax, '1'
    jz  init_interrupt
    cmp ax, '2'
    jz  close_interrupt
    jnz error_parameter
    .
    .
    .
    pop ax
    pop bx
    retf

    ��Foxpro������
	load c:\fox\bin\int_fox.bin
        .
 	.
	.
	init_para = "1"
	call int_fox.bin with int_para
	if int_para="0" then
	   	.
		.
		.
	else
		.
		.
		.
        end if    
  
	.
	.
	.
	close_para = "2"
	call int_fox with close_para
	if close_para="0" then
		.
		.
		.
	else
		.
		.
		.
	endif

	return
Technical Details
Message-ID: <34A334D9.5A51@nobsys.com>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <3LhYB0$GfE@bbs.dlut.edu.cn>

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: fc86e,e8118a8a6ba72098
X-Google-Attributes: gidfc86e,public
From: lucky <qh.lu@nobsys.com>
Subject: Re: �����Foxpro for DOS ��Ƕ���жϳ���
Date: 1997/12/26
Message-ID: <34A334D9.5A51@nobsys.com>
X-Deja-AN: 310225362
Content-Transfer-Encoding: 8bit
References: <3LhYB0$GfE@bbs.dlut.edu.cn>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Organization: Net Ease
Newsgroups: cn.bbs.comp.program