From 96d65ce63872ff89aea1d6532e1d40f7f07ffd75 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sun, 13 Mar 2016 12:41:27 -0700
Subject: [PATCH] some code clean up

---
 src/chatsrc/chat.pla                    |  10 +++++-----
 src/chatsrc/chatserver/clientfiles/CHAT | Bin 2067 -> 2066 bytes
 src/libsrc/inet.pla                     |  12 +-----------
 3 files changed, 6 insertions(+), 16 deletions(-)

diff --git a/src/chatsrc/chat.pla b/src/chatsrc/chat.pla
index 4e6bcc9..4525222 100644
--- a/src/chatsrc/chat.pla
+++ b/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()
diff --git a/src/chatsrc/chatserver/clientfiles/CHAT b/src/chatsrc/chatserver/clientfiles/CHAT
index d2f7717606713bf9e100a052583854a6704147a4..d0c77ed55872116dce95f4d7416516626c647517 100644
GIT binary patch
delta 783
zcmYL_K}b|l6o${e?_Nxl;mz2nVM1g&`kdrJ)IzL=N)vqOP@_W>GS#EWNn;QR6KS{v
zA(9NYOAzJ4mTp?Kh&F~RA%jc^f}j>b<U%5Z1R3P@k3lWI_y6ZV=iK|a#(rd1Ey{bJ
ziL!PzwdtxsovhTEG%M=YP0^z5Ivpt@H~AxQZ;;P<CRNnG;w)<#S&Z$NZgwC3Et_T~
z)5A{><|+Q6!e`uB$j9yFjO&v#lkmdiGdky0KtdBN*++<<CA<dIUd{iFzunCs>68Z+
zdVS`^dX9Jp%~xLEUOmBboQBFL&LzBj5D%Eo^8aqz+r>hV@HS1eH6rorsjM+pS7@DK
zwk2xk>S@S(ZoXK<EM&Swdn`<QC*~UM&{U(H+z4(q*-kp)J*Ct@#3iRTRSLTutwxJj
z-O2JR5IL<#>(HcfFEwi3i}P&2)XM94hAG)x$l5M$%N+7byL5$TZQ`Xc@iFK$D1tSx
z1478_BE$#4XoPf*guY8mKLqpeFG;93M0yqa4Y~o{CQ|i`R0C)NeT;NJ6Z#gIWKz!-
z@G(rPMKoWa`3`;!`V+bZ{f)u>oGFi!9^p*y@~Cz!TOGAXx!?rowMh3tFMvznD)2!T
z<iHsE4=kx>;pc!x{n(1?B}?kUie;&f2tFa$C!`JwOSK5n$3&&-gq{*nbw-ft2ECvk
z*+pcR;fKLB)FY^G!;gbWpui0BS3;^~_!Y1Uz9ZYhx!dqNAQ054g^a3*By|8B2F;Rm
go2*eT^th~4XQ63XrN^aIci^>@`U(8J8LC+N1L7Xd&Hw-a

delta 795
zcmYk2PiPZC6vp41ouQOS-6pOSp(50#?HXzn6cmF|YbvtZDCr+WLu!JwK{3#xRKzeA
z0~JN5(~F8w5D$76FM6n8J%}I{1U=}<ibbK+gR~&=OHuIf+wXhdd%W41N!Ple$Lh*Q
zqO7}y+D)j}4EJ-z%(QqFH|}?4h~nw5)%Y1I2$9QF%yNvgHp*?hXpizZ{5!tPOSVVs
z<qP(f@X8S?Fm(m>5TE5Jr+cVC{=H<-j3n?V_O`CT!k;ev>n~K(vD(P=AtY_7&B4aM
zGX*NeNMIPv^19V|G0H_jeQ_i=lR>c>t8#%$|E~<y&cvc>GFY%tXISAHnXH|1_B6~f
z#-pBFY@)v4f&JuUS=of#(h;H6rNw3!e|)LgP0v?{T3o+B8Qi5zDjX+&eP*dK-q~)A
zj5Z|_wMQZH+YvXQOSNVuZ{NsnPFYXo@hW4gwVZY1I54*<SpH2XMb;&;)QI~)M?eM4
zf<>T^H-t%~Kt4=nkfbRQn{i;_ACc5gh|CQ11N1ZW2a#UOq{CnX*w17RvNWf`c~(Z3
z@wv`QPowz|%@^>q&@a$$(C-)w3DyS$nVev=B0SUKxH{&L-U@brZimca=rJ$=av%@R
zfMIYJ{cDcW6Yw{{ZPZhaXP!CAlwUfIo<r~+L7h~_m5y$eWVXwCy$hO<p57-(cY$tj
z1le(9C*V(kLDWO2&%uv?F>n=3Ab%>Ao`HV_UW0jLKe6{0{0bmNyNyzwjwn12XaP}0
h##a%&4Z2g+>n`Yk3Yih5^hNkdrOX}p`?k04`5&NU$)*4R

diff --git a/src/libsrc/inet.pla b/src/libsrc/inet.pla
index c7587c0..35666f6 100644
--- a/src/libsrc/inet.pla
+++ b/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
 //