N88-BASIC(86) サンプルプログラム:シーケンシャルファイル

100 F$="DATA.D"+RIGHT$(DATE$,2)
110 OPEN F$ FOR OUTPUT AS #1
120 PRINT #1,DATE$;",";TIME$
130 PRINT "今日のデータを入力してください"
140 PRINT:PRINT "リターンキーだけ押すと終了します"
150 PRINT:INPUT "品名";NA$
160 IF NA$="" THEN CLOSE:GOTO *INDATA
170 INPUT "価格";PRC
180 INPUT "個数";N%
190 PRINT #1,NA$;",";PRC;",";N%
200 GOTO 140
210 *INDATA
220 TOTAL=0
230 OPEN F$ FOR INPUT AS #1
240 INPUT #1,DA$,TI$
250 PRINT:PRINT "日付　：　";DA$,"時刻　：　";TI$
260 PRINT
270 IF EOF(1) THEN *TOTALPRN
280 INPUT #1,NA$,PRC,N%
290 SUM=PRC*N%
300 PRINT NA$;TAB(10);PRC;"*";N%;"=";SUM
310 TOTAL=TOTAL+SUM
320 GOTO 270
330 *TOTALPRN
340 PRINT:PRINT "TOTAL=";TOTAL
250 PRINT:PRINT "今日のデータを ";F$;" として作成しました"
360 CLOSE:END

.
"DATA.Dxx"(xxは日付)を出力モードでオープン。
日付と時刻を書き出す。



入力の終了、ファイルのクローズ。


品名、価格、個数の各データを書き出す。



同じファイルを入力モードでオープン。
日付と時刻を読み込む。



品名、価格、個数の各データを読み込む。
小計。
品名、価格、個数および小計の表示。
合計。


合計の表示。

ファイルをクローズ、終了。