[SAMPLE28] SAMPLE
10 REM SAMPLE28
100 F$="e:\data\data28.d" + RIGHT$(DATE$,2)
110 OPEN F$ FOR OUTPUT AS #5
120 PRINT #5,DATE$;",";,TIME$
130 PRINT "今日のDATAを入力して下さい。"
140 PRINT:PRINT "RETURNキーだけを押すと終了します。"
150 PRINT:INPUT "品 名";NA$
160 IF NA$ <>"" THEN 170 ''CLOSE:GOTO 210
165 CLOSE:GOTO 210
170 INPUT "価 格"; PRC
180 INPUT "個 数";N%
190 PRINT #5,NA$;",";PRC;",";N%
200 GOTO 140
210 'INPUT DATA
220 TOTAL=0
230 OPEN F$ FOR INPUT AS #5
240 INPUT #5,DA$,TL$
250 PRINT:PRINT "日 付 : ";DA$,"時 刻 : ";TL$
260 PRINT
270 IF EOF(5) THEN 330
280 INPUT #5,NA$,PRC,N%
290 SUM=PRC * N%
300 PRINT NA$;TAB(10);PRC;"*";N%;"=";SUM
310 TOTAL = TOTAL + SUM
320 GOTO 270
330 'TOTAL PRINT
340 PRINT:PRINT "TOTAL=";TOTAL
350 PRINT:PRINT "今日のDATAを ";F$;" として作成、完了。"
360 CLOSE:END