🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: cn.bbs.comp.database
1 messages
1 total messages Started by Sansluya Mon, 22 Dec 1997 00:00
foxpro�����ͨ��MODENͨѶ��
#10750
Author: 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
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads