🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.database
Article #10750

foxpro�����ͨ��MODENͨѶ��

#10750
From: Sansluya
Date: Mon, 22 Dec 1997 00:00
39 lines
1361 bytes
�����������⣬FOXPRO2.5�����ͨ��MODEN��ר�ߣ�ͨѶ��

�����ָ�㡣
��ԭ�����������£�

clos all
set talk off
set echo off
!mode com1:9600,n,8,1
comfh=fopen("com1",12)    &&��ͨѶ��
if comfh <0
     wait "error opening com1 !"
     retu(0)
else
     BYTSWRIT=FWRITE(COMFH,"ATZ"+CHR(13)) &&MODEM��ʼ��
     =INKEY(1) &&��ͣ
ENDI
DIALcode="ABC"  &&���͵����
bytswrit=' '
*bytsread=' '    &&�����ǽ��ն�

BYTSwrit=Fwrite(COMFH,dialcode)

*BYTSread=Fread(COMFH,3)    &&�����ǽ��ն�


=inkey(1)

AA=FCLOSE(COMFH)


���Dz��У���է�죿


��������ʹ��Ƿ��ڳ�һ���д�Ⱦ��
Sansluya�����ö��صȴ���.....
------>   wheel@iname.com
5744232:icq
Technical Details
Message-ID: <67is9s$ec0$1@clinux.ml.org>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: 101948,ee31f1a84ee492eb,start
X-Google-Attributes: gid101948,public
From: "Sansluya" <wheel@iname.com>
Subject: foxpro�����ͨ��MODENͨѶ��
Date: 1997/12/22
Message-ID: <67is9s$ec0$1@clinux.ml.org>
X-Deja-AN: 309553410
X-Server-Date: 21 Dec 1997 10:50:36 GMT
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Organization: Chinese Linux User Group
Newsgroups: cn.bbs.comp.database