How to data take and transfer from PC(9801/PC-AT) to WWW
Please contact to Member.
--------------------------------------
100 CONSOLE 0,24,1:CLS
110 OPEN "COM:N81XN" AS #1
120 ON COM GOSUB 190:COM ON
130 A$=INKEY$
140 COM STOP
150 PRINT #1,A$;
160 IF A$=CHR$(13) THEN A$=A$
170 COM ON
180 GOTO 130
190 BUF=LOC(1)
200 IF BUF=0 THEN 240
210 B$=INPUT$(BUF,#1)
220 IF B$=CHR$(13) THEN B$=B$
230 PRINT B$;
240 RETURN
--------------------------------------
Please contact to Member.
Please contact to Member.
--------------------------------------
<HTML>
<TITLE> KEKPS-AIDA L-H2 Target </TITLE>
<BODY BGCOLOR="#FFFFB1"></BODY>
<META HTTP-EQUIV="REFRESH" CONTENT=60>
<FONT SIZE=3>
<PRE>
Auto-reload every 60 sec (Netscape only).
(Data is updated every 9 min)
<H4>[ KEKPS-AIDA Liquid H2 Target Status ]
96/07/11 *14:41:19*
</H4>
Gas H2 In Pres. C 1= 1.38 bar 2.073290 V
Gas H2 Out Pres. C 2= 1.40 bar 2.108020 V
:
:
Cond. Heat Power C19= 0.00 W 0.000000 V
Target Heat Power C20= 0.00 W 0.000000 V
</PRE>
</FONT>
</HTML>
--------------------------------------
--------------------------------------
> #!/bin/csh
> start:
> cat public_html/htread.html
> echo " KEK Liq. H2 Target "
> sleep 60
> goto start
--------------------------------------