10 'Updater program internet to local storage device using GR8NET adapter
20 ' -_- For MSX ROM DATABASE Program by Eric Boez
30 SCREEN0:WIDTH80:CLS:CLEAR999:DEFINTA-P:KEYOFF:DEFDBLS-U:S=0#:T=0#:U=0#
40 PRINT"UPDATING : MSX ROM DATA BASE PROGRAM ":PRINT"----------------------------------------":GOSUB 250:PRINT
50 PRINT"Size: ";S;" Bytes":P=0
60 PRINT:PRINT "If you want to download it, provide a filename to save it on your A:"
70 INPUT"Filename to save";O$:INPUT "Do you want to Start it once downloaded ?(Y/N) ";ST$:PRINT:PRINT"Transfering data, please wait ...":PRINT
80 _NETBLOAD(F$):_NETCODE(A,B):IFA<>0THENPRINT"Bload error: ";A:END
90 OPENO$AS#1LEN=128:FIELD#1,128ASS$:LSETS$=STRING$(128,"!")
100 U=&H6000:L=64:IFS<128THEN140ELSEIFS<4096THENL=FIX(S/128)
110 FORM=1TOL:IFS<128THEN140
120 A=VARPTR(S$):_NETGETMEM(0,A+1,B,C):T=B+C*256:_NETLDRAM(P,U,128,T)
130 PUT#1:U=U+128:S=S-128:NEXT:P=P+1:GOTO100
140 CLOSE:IFS=0THEN170
150 OPENO$AS#1LEN=1:FIELD#1,1ASS$:LSETS$="!":T=LOF(1)+1
160 FORC=1TOS:_NETGETMEM(P,U,A):LSETS$=CHR$(A):PUT#1,T:T=T+1:U=U+1:S=S-1:NEXT:CLOSE
170 PRINT"Finished"
180 IF ST$="y" OR ST$="Y" THEN PRINT "Starting ";O$:RUN O$ ELSE PRINT "Please check A:";O$
190  END
200 ' Send Data
210 R$="":A$="http://ebsoft.fr/p.php?":A$=A$+OD$:KL=0:OPEN"HTTPA:a$"AS#1
220 IFLOC(1)<>0THENINPUT#1,R$(KL):KL=KL+1
230 IFEOF(1)THENCLOSE #1:RETURN
240 GOTO 220
250 ' Check Update
260 FORI=1TO10:KEY(I)OFF:NEXT
270 OD$="a=v2"+AC$+"&v="+VR$:GOSUB210:PRINT"Lastest MSX DATABASE program version is V";R$(0):PRINT"(";R$(1);")":F$="http://msx.ebsoft.fr/gr8net/"+R$(3):S=VAL(R$(4)):PRINT F$
280 RETURN