1000 ' save "FLT94A",A 1010 ON ERROR GOTO 1330 : CLS 3 1020 PRINT"データの間引き作業用フィルタプログラム　Ｖｅｒ．１．２　　　　 " 1030 PRINT" 負の値にも対応　　　　　　　　　　　　　　　　　　　　　　 " 1040 PRINT"　　線形補間バージョン　ＣＳＶ形式で保存したデータ用" 1050 PRINT 1060 PRINT"データのならびは　電流，ゲイン補正前，ゲイン補正後　とします。 " 1070 PRINT"また、先頭行を除いて電流が昇順にソートされているものとします。" 1080 PRINT 1090 INPUT"データドライブ￥ディレクトリを入力して下さい。（例 D:\ ）　",DR$ 1100 CHDIR DR$:FILES DR$:PRINT 1110 INPUT"データファイル名の入力 ６文字以内で拡張子（.CSV）無し　　",DNAME$ 1120 PRINT 1130 INPUT"電流増分の入力　　Return:0.05　",DIX 1140 IF DIX=0 THEN DIX=.05 1150 IX=0 1160 OPEN DR$+DNAME$+".CSV" FOR INPUT AS #1 1170 OPEN DR$+DNAME$+"A.TXT" FOR OUTPUT AS #2 1180 LINE INPUT #1,A$ :PRINT A$ 1190 INPUT #1,IIN,G0,G1 1200 IF IIN<0 THEN 1210 ELSE 1260 1210 PRINT "電流の初期値";IIN;"は負です。初期値を入力して下さい。" 1220 INPUT " ( 初期値の入力，終了：Return)";ANS 1230 IF ANS=0 THEN 1240 ELSE IX=ANS :GOTO 1260 1240 PRINT"電流の初期値が負なので終了します。":CLOSE:END 1250 INPUT #1,IIN,G0,G1 1260 PRINT"補間電流値Ix，現在の読込値";IX,IIN,G0,G1 1270 IF IIN