Spectranet

[ardentcrest]

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