'MPC-3000 HTTP server 'set_ip 'IPadrs = 192.168.0.6 ' MASK = 255.255.255.0 'Gateway= 192.168.0.248 'OFF Delay ACK baud=38400 'MACadrs= 70B3D553D00F ' p '1 : / TCP PACKET 80 Slave ' num=0 DO WHILE TCP(0)!=1 : WEND : PRINT "Listen" WHILE TCP_R0$=="" : WEND ' PRINT num=num+1 TCP_R0$ STRCPY TCP_R0$ cmnd$ 0 20 ptr_=cmnd$ head=0 IF PTR$(1)=="G" THEN : print "GET" : END_IF IF PTR$(1)=="H" THEN : print "HEAD" : head=1 : END_IF PRINT "input=" pnt=VAL(cmnd$) TCP_R0$="" GOSUB *SET_HEAD TCP_X0$=HEAD$ WHILE TCP_X0$!="" : WEND IF head==1 THEN : GOTO *head_only :END_IF GOSUB *SET_CONTENT TCP_X0$=HTML$ WHILE TCP_X0$!="" : WEND ' SET TABLE HTML$="\r\n" HTML$=HTML$+"" IF pnt=<0 THEN : pnt=1 : END_IF : IF pnt>30000 THEN : pnt=1 : END_IF FOR i=0 TO 9 if i!=0 THEN : HTML$="" : END_IF HTML$=HTML$+"" HTML$=HTML$+"" HTML$=HTML$+"" HTML$=HTML$+"" HTML$=HTML$+"" HTML$=HTML$+"" HTML$=HTML$+"\r\n" IF i!=9 THEN TCP_X0$=HTML$ WHILE TCP_X0$!="" : WEND END_IF NEXT HTML$="

	X	Y	U	Z
" HTML$=HTML$+"P("+STR$(i+pnt)+")" HTML$=HTML$+"	" HTML$=HTML$+STR$(X(i+pnt)) HTML$=HTML$+"	" HTML$=HTML$+STR$(Y(i+pnt)) HTML$=HTML$+"	" HTML$=HTML$+STR$(U(i+pnt)) HTML$=HTML$+"	" HTML$=HTML$+STR$(Z(i+pnt)) HTML$=HTML$+"

\r\n" HTML$=HTML$+" \r\n" HTML$=HTML$+"\r\n" TCP_X0$=HTML$ WHILE TCP_X0$!="" : WEND *head_only PRINT "Complete Xmt" a=TCP(-1,0) WHILE TCP(0)!=0 : WEND : PRINT "Dis con" a=TCP(-2,0) LOOP *SET_HEAD dt$=DATE$(1) : tm$=TIME$(1) HEAD$="HTTP/1.1 200 OK \r\n" HEAD$=HEAD$+"Date:"+dt$+" "+tm$+" TYO\r\n" HEAD$=HEAD$+"Server: MPC-3000\r\n" HEAD$=HEAD$+"Accept-Ranges: bytes\r\n" HEAD$=HEAD$+"Keep-Alive: timeout=15, max=100\r\n" HEAD$=HEAD$+"Connection: Keep-Alive\r\n" 'HEAD$=HEAD$+"Content-Length: 50000\r\n" HEAD$=HEAD$+"Content-Type: text/html\r\n\r\n" pr LEN(HEAD$) RETURN *SET_CONTENT HTML$=" \r\n" HTML$=HTML$+" \r\n" HTML$=HTML$+" \r\n" d$=DATE$(2) : t$=TIME$(2) HTML$=HTML$+" Hello "+d$+" "+t$+"\r\n" HTML$=HTML$+" "+VER$+"\n" HTML$=HTML$+"" pr LEN(HTML$) RETURN