N88互換BASICで変換したが使えません。その1
昔、NECのPC98でN88BASICを使ってプログラムを起動していましたが、N88互換BASIC for windowsにて変換し、WINDOWSパソコンで使用しようと思い、実行してみたら行番号330のファイルが見つかりませんとエラーが出て困っています。
パソコンと温度計をRS232Cケーブルで接続し、温度データを30秒ごとにパソコンに取り込むというソフトなのですが。昔、会社にいた人が作ったそうです。
プログラムは以下のとおりです。私はBASICのことは全くわかりません。
文字数の都合上、分割して表示します。
1 ' save "B:\BAS\VS_RS232.BAS"
2 ' Program Name:VS_RS232.BAS
30 WIDTH 80,25 :CONSOLE 0,25,0,1
40 DEFINT A-Z:TR.NO=1
50 DIM PV$(30)
60 O$ =":" ' : SET
70 P$ ="." ' . SET
80 Q$ =CHR$(&H22) ' " SET
90 R$ ="," ' , SET
100 SP$ =CHR$(&H20) ' SPACE SET
110 DEF FNF1$(X$,Y$) =MID$(X$,4,2)+MID$(X$,7,2)+MID$(Y$,1,2)+MID$(Y$,4,2)+".DAT"
120 DEF FNF2$(X$,Y,Z) =MID$(X$,Y,2)+STR$(VAL(MID$(X$,Z)))
130 DEF FNF3$(X$,X) =MID$(X$,X,6)