rem program to control oppo switch hm31
rem note: null modem required between HM31 and microcontroller
br$="
"+CHR$(13)+CHR$(10)
LF$ = CHR$(10)
CR$ = CHR$(13)
start:
PRINT "welcome to OppoSelect"
PRINT " "
PRINT " "
PRINT "1 DirectTivo "
PRINT "2 Playstation 3 "
PRINT " "
PRINT "Please Select Your Input: ";
SERINIT 1,9600,8,1,0
REPEAT
wc=WEBCON
key = INKEY
UNTIL wc<>-1 OR key<>-1
IF key<>-1 THEN consle:
w$=WEBREQ$(wc,0)
IF INSTR(w$,"/doit",1)=0 THEN prform:
a$=WEBPST$(wc,200)
code=WEBOUT(wc,0,"postdata="+WEBESC$(a$)+br$)
code=WEBOUT(wc,0,"Input="+WEBESC$(WEBFRM$(a$,"Input"))+br$)
inpt = VAL(WEBFRM$(a$,"Input"))
GOSUB sndcmd:
code=WEBOUT(wc,0,"Switch="+WEBESC$(WEBFRM$(a$,"Switch"))+br$)
prform:
code=WEBOUT(wc,0,"