2014-12-09, 03:12 PM
Code:
10 %connect #4,"the8bitmud.zapto.org",16384
20 %control #5
25 print #4;chr$ 0
30 print #5;"p"
40 input #5;a;a$
50 if a=4 and a$="recv" then goto 200
60 let k$=inkey$
70 if k$="" then goto 40
71 if code k$=12 then print #4;chr$ 8;:print chr$ 8;" ";chr$ 8;: goto 40
75 print #4;k$;: printk$;
80 pause 50: goto 40
200 let s$=inkey$#4: if code s$=13 then print '
201 if code s$ > 127 then goto 40
202 if code s$ < 32 then goto 40
210 print s$above into this
Code:
#include <spectranet.bas>
30 conn1 = SNETconnect(4 , "the8bitmud.zapto.org", 16384)
SNETaccept(4)
40 poke 60000,0
50 send1 = SNETsend(4,60000,1)
64 t = SNETlisten(4)
65 p = SNETrecv(4, 60002,1)
70 print p;
80 goto 64
I'm always on the chat or facebook.