10 'File copy from internet to local storage device using GR8NET adapter
20 'Developed 2016 by Eugeny Brychkov
30 DEFINTA-P:DEFDBLS-U:S=0#:T=0#:U=0#
40 PRINT"Default server: ";:CALLNETGETHOST:PRINT:PRINT"Default path: ";:CALLNETGETPATH
50 PRINT:PRINT"Default file: ";:CALLNETGETNAME:INPUT"Enter URI to the remote file";F$
60 CALLNETBLOAD(F$):CALLNETCODE(A,B):IFA<>0THENPRINT"Bload error: ";A:END
70 CALLNETVARBSIZE(S):PRINT"Size: ";S:P=0
80 INPUT"Output file";O$:OPENO$AS#1LEN=128:FIELD#1,128ASS$:LSETS$=STRING$(128,"!")
90 U=&H6000:L=64:IFS<128THEN130ELSEIFS<4096THENL=FIX(S/128)
100 FORM=1TOL:IFS<128THEN130
110 A=VARPTR(S$):CALLNETGETMEM(0,A+1,B,C):T=B+C*256:CALLNETLDRAM(P,U,128,T)
120 PUT#1:U=U+128:S=S-128:NEXT:P=P+1:GOTO90
130 CLOSE:IFS=0THEN160
140 OPENO$AS#1LEN=1:FIELD#1,1ASS$:LSETS$="!":T=LOF(1)+1
150 FORC=1TOS:CALLNETGETMEM(P,U,A):LSETS$=CHR$(A):PUT#1,T:T=T+1:U=U+1:S=S-1:NEXT:CLOSE
160 PRINT"Finished":END