some code clean up

src/chatsrc/chat.pla

@@ -160,17 +160,17 @@ def kbstr
 	    ^$C010
 	    if key == $88
 	        if inlen > 0
-	            inlen = inlen - 1
+	            inlen--
 		fin
 	    elsif key == $9B
 	        while inlen
 		    ^(txtline + inlen) = $A0
-	            inlen = inlen - 1
+	            inlen--
 		loop
 	    elsif key >= $A0 and inlen < 39
 	        ^(txtline + inlen) = key
 	        ^(inbuf + inlen) = key & $7F
-		inlen = inlen + 1
+		inlen++
 	    fin
 	fin
 	iNet:serviceIP()
@@ -178,7 +178,7 @@ def kbstr
     ^instr = inlen
     repeat
         ^(txtline + inlen) = $A0
-	inlen = inlen - 1
+	inlen--
     until inlen == $FF
     return instr
 end
@@ -215,7 +215,7 @@ repeat
 	    timeout = 1000
 	    while !response and timeout
                 iNet:serviceIP()
-		timeout = timeout - 1
+		timeout--
 	    loop
 	    if response == 'W'
 	        txtclr()

src/libsrc/inet.pla

@@ -1,14 +1,4 @@
-import cmdsys
-    predef syscall, call, getc, gets, putc, puts, putln
-    predef memset, memcpy, modaddr, modexec
-    predef heapmark, heapallocalign, heapalloc, heaprelease, heapavail
-    byte MACHID
-end
-//
-// Module don't free memory
-//
-const modkeep     = $2000
-const modinitkeep = $4000
+include "inc/cmdsys.plh"
 //
 // Net object
 //