0 defint a-z
10 a$="http://network.symbos.org:2801/"
20 open"tcp:a$"as#1
30 print#1,"Eugeny"
40 input#1,a$:print"New name: ";a$
50 input#1,a$:print"Code: ";a$
55 o$=0:fori=0to5:callnetgetmem(255,&h6001+i,a):z=val("&H"+mid$(a$,i*2+1,2)):z=zxora:gosub100:nexti
60 print#1,o$:print"Code reply: ";o$:close#1:stop
100 m$=hex$(z):iflen(m$)=1thenm$="0"+m$:return