N88互換BASICのプログラムについて。
私は機械科3年ですが、今年からBASICを勉強しています。次のプログラムのエラー(行番号190にてopenしたファイルに出力できないです)がどうしても解決できないです。N88互換BASICやられている方でどなたか私にアドバイスをしていただけると助かります。
110 REM EX1B by E/F on 2006/04/25
120 PI=3.14159:PHI=30:Y0=.5
130 '************ Output into File ************
140 CLOSE #1:OPEN "C:\WINBASIC\EX1B_OUT.TXT" FOR OUTPUT AS #1
150 FOR X=0 TO 360 STEP 45
160 A=.2 :Y1=A*SIN((X-PHI))+Y0
170 A=1.2 :Y2=A*SIN((X-PHI))+Y0
180 A=2 :Y3=A*SIN((X-PHI))+Y0
190 PRINT #1,X;",";Y1;",";Y2;",";Y3"
200 PRINT"Out:";X;",";Y1;",";Y2;",";Y3
210 NEXT X
220 CLOSE #1
230 '************ Input from File **************
240 CLOSE #2:OPEN "C:\WINBASIC\EX1B_OUT.TXT" FOR INPUT AS #2
250 IF EOF(2)<>0 THEN GOTO 190
260 INPUT #2,X,Y1,Y2,Y3
270 PRINT"Inp:x=";X;" y1=";Y1;" y2=";Y2;" y3=";Y3;"
280 GOTO 150
290 CLOSE #2
300 '***** Close All Files and Computer Stop*****
310 CLOSE
320 END
お礼
どうもありがとうございました。