10  'SAVE"ONDO.BAS"
20   CLEAR ,,10000   'M-3850D 2001/10/05
30   SCREEN 3:CONSOLE 0,25,0,1
40  CLS 3:COLOR 6
50 'ON ERROR GOTO 690
60   LOCATE 0,0:PRINT "開始時間"
70   LOCATE 0,1:PRINT TIME$
80   BEEP
90   GOSUB *MES
100   '表の作成
110  LINE(0,0)-(0,350),5
120  LINE(0,350)-(600,350),5
130  LOCATE 0, 3:PRINT"150℃"
140  LOCATE 0, 9:PRINT"100℃"
150  LOCATE 0,15:PRINT" 50℃"
160  LOCATE 24,22:PRINT"1H"
170  LOCATE 49,22:PRINT"2H"
180  LOCATE 74,22:PRINT"3H"
190  FOR I=1 TO 15
200  LINE(I*40,0)-(I*40,350),1,,&HF1F1
210  NEXT I
220  FOR I=1 TO 17
230  LINE(0,350-I*20)-(600,350-I*20),1,,&HF1F1
240  NEXT I
250  LINE(5*40,0)-(5*40,350),1
260  LINE(10*40,0)-(10*40,350),1
270  LINE(15*40,0)-(15*40,350),1
280  LINE(0,350-5*20)-(600,350-5*20),1
290  LINE(0,350-10*20)-(600,350-10*20),1
300  LINE(0,350-15*20)-(600,350-15*20),1
310  I=0:X=0
320  *LOOP1  '繰り返し
330  FOR T=0 TO  1000 :NEXT T
340  S$=RIGHT$(TIME$,2)
350  S=VAL(S$)
360  IF S MOD 5 =0 GOTO 390 ELSE 320
370 '10    毎にデータをグラフ表示し記録する
380   BEEP
390  GOSUB *MES
400  LOCATE 23,1:PRINT "       "
410  LOCATE 23,0:PRINT "現在温度"
420  LOCATE 23,1:PRINT DA
430  LOCATE 10,0:PRINT "現在時間"
440  LOCATE 10,1:PRINT TIME$
450  X=X+1
460  LOCATE 55,0:PRINT X
470   I=I+1
480   X=I
490   Y=350-DA*2
500   PSET(X,Y),6
510 'ON ERROR GOTO 740
520  OPEN"B:\M3850D\DATA1.DAT" FOR APPEND AS #2 'OUTPUT=FILE TUKURU
530  WRITE #2,DA
540  CLOSE #2
550    FOR T=0 TO 1000 :NEXT T
560   GOTO *LOOP1
570 '終了時必要
580 ON ERROR GOTO 0
590 CLOSE
600 END
610 '-------ERROR処理--------
620 IF ERR =  62 THEN 680
630 'RS232C ERROR処理
640 IF ERR <> 23 THEN END
650 CLOSE #1
660 OPEN "COM1:N72NN" AS #1
670 RESUME
680 'ﾃﾞｨｽｸ ERROR処理
690 COLOR 4
700 LOCATE 33,0:PRINT"ディスクオフライン"
710 LOCATE 33,1:PRINT"ディスクをセットし何かキーを押す"
720 A$=INKEY$
730 IF A$="" THEN 720
740 LOCATE 33,0:PRINT"                  "
750 LOCATE 33,1:PRINT"                                "
760 RESUME
770 *MES
780 OPEN "COM1:N72NN" AS #1
790 FOR N=0 TO 15000
800 OUT &H32,&H7 'RS232制御-- '1 2 3 4 5 6 7 8 9 A B C D E
810 OUT &H32,&HF '6回ないとNG 'D C   - 3 . 9 9 9   V     CR
820 'FOR T=0 TO 100:NEXT T     'O H     3 . 9 9 9 M o h m CR
830 NEXT N
840 DA$=INPUT$(14,#1)
850 DA$=MID$(DA$,4,6)
860 DA=VAL(DA$) :CLOSE #1
870 RETURN