🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.basic
Article #30

n88basic de 19200Baud

#30
From: Yasuyuki Mukai
Date: Mon, 13 Apr 1998 00:00
31 lines
1502 bytes
NEC N-88 BASIC(86) version 5.0をWindows95のDOS窓で使っています。
# NECの動作保証が無いのは承知の上なのですが。
マシンはPC-9821Cr13です。
この環境でCOMポートからデータを取り込むブログラムを作っています。
DOSのSPEEDコマンドで19200Baudに設定しているにも関わらず、
BASICで読むと1200Baudにでしか読むことができません。
なんとかして19200Baudで読む方法はないでしょうか?
以下がテストに使ったプログラムです。

1010 '
1020 ON COM(1) GOSUB *GET.COM.DATA
1030 COM (1) OFF
1040 OPEN "COM1:N71NN" AS #1
1050 COM(1) ON
1060 '
1070 WHILE 1
1080 WEND
1090 END
1100 '
1110 'Get data
1120 *GET.COM.DATA
1130 COM(1) STOP
1140 D$=INPUT$(LOC(#1),#1)
1150 'PRINT LEN(D$);" ";
1160 'PRINT D$;
1170  FOR I=1 TO LEN(D$)
1180    PRINT HEX$(ASC(MID$(D$,I,1)));" ";
1190  NEXT I
1200 COM(1) ON
1210 RETURN
Technical Details
Message-ID: <3530DD83.77AE@imasy.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: f5300,8bc82d2832e52923,start
X-Google-Attributes: gidf5300,public
From: Yasuyuki Mukai <yasuyuki@imasy.or.jp>
Subject: n88basic de 19200Baud
Date: 1998/04/13
Message-ID: <3530DD83.77AE@imasy.or.jp>
X-Deja-AN: 343337223
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=iso-2022-jp
X-Complaints-To: usenet@imasy.or.jp
X-Trace: light.imasy.or.jp 892394885 10252 (None) 202.227.24.45
Organization: IMASY / Internet Mutual Aid Society Yokohama
Mime-Version: 1.0
Reply-To: yasuyuki@imasy.or.jp
Newsgroups: fj.lang.basic