REM MAY 2025 - I STOCKS REM ECONET ELITE SCOREBOARD REM 2 BYTE KILL VALUE ?#23B=#3F;REM *PROT IN."PORT",P P.$12" ATOM SCOREBOARD"' P."M STN LC KILLS SCORE"' M=#8006 !M=#556A607B;M!4=#72557A50 M!32=#546C486C;M!36=#4C546840 M=15;REM MAX PLAYERS T=0 DIM NN(M) ( DIM KK(M),D(M),SS(M),I(M),E(M) * DIM H(M),C(M);FOR L=0 TO M-1;H?L=L;C?L=L;N. - DIM J(24);!J=#60484441;J!4=#42484450;J!8=#FF7FA004;O=0 . J!12=#18060F03;J!16=#02130D82;J!20=#00000501 / REM J!8=#12190704;REM B/W SCREEN 0 FOR L=0 TO 31 S.4;L!#8200=#20202020;N. 2 FOR L=0 TO M-1 < DIM X(10);NN(L)=X;REM ALLOCATE STRING SPACE F KK(L)=0;D?L=0 P SS(L)=0;I?L=0;E?L=0 Z N. _ DIM X(10) d REM P=99;REM LISTEN PORT n DIM B(32);REM NETWORK BUFFER x Q=0 – DO È GOS.g;REM SETUP RX BLOCK Ò GOS.r;REM START LISTENING Ü DO;O=O+1;?#801F=J?((O/4)%8) æ IF ?#B002&64=0;T=(T+1)%2;GOS.s;REM CHANGE SORT ð UN.?R>=#80 ú FOR L=0 TO 7 Z=B?L IF Z>96 Z=Z-32 X?L=Z N. X?8=13 IF B?17=0;B?17=R?2;B?18=R?3 GOS.p;REM FIND PLAYER IF N=-1 N=Q;Q=Q+1 IF N>12;IF Q>14;?#801F=24;G.e;REM TOO MANY USERS IF Q>14;Q=14 ! $NN(N)=$X | KK(N)=B?10+(B?19*256);D?N=B?11;SS(N)=B!12 † I?N=B?17;E?N=B?18 Ÿ M=#8220+(N*32);GOS.l ¢ IF Q>1;GOS.o ¤ GOS.s ® FOR L=0 TO Q-1 ¯ IF T=0;IF H?L=N;U=L;L=Q ° IF T=1;IF C?L=N;U=L;L=Q ³ N. ¸ M=#8041+(U*32);?M=#2A „eUN.0 ç END ègR=#80;!R=#7F;R!4=B ò R!6=B+32;R?8=0 ü R?1=P;REM PORT L R. °r?#23A=?#23AF;?#230=R º ?#231=R/256 Ä ?#23A=?#23A|#80 R. xfREM FORMAT U AS 3 DIGIT DECIMAL INTO W | Z=2;IF U>#FFFFFF Z=3 } A=(U/#FFFF)&#FFF;U=U&#FFFF ‚ DO W?Z=U%10+#30+A;U=U/10 Œ Z=Z-1 – UN. U=0 IF A;IF Z>=0;FOR U=0TOZ;W?U=#A0;N. © R. ªhREM FORMAT U AS 4 DIGIT DECIMAL INTO W ´ Z=3;W?4=#2E;W?5=U%10+#30;U=U/10;DO ¾ W?Z=U%10+#30;U=U/10;Z=Z-1;UN.U=0 È R. ÜpREM FIND $X IN NN$, N=POS á N=-1 æ FOR L=0 TO Q-1 ð IFB?17=I?L;IFB?18=E?L;IF$NN(L)=$X;N=L;L=Q ú N. R. @lREM FORMAT N ENTRY AT M FOR DISPLAY J FOR Z=0 TO 31ST.4;M!Z=#20202020;N. T M?0=J?((B?16)+16) ^ FOR Z=0 TO LEN(NN(N))-1;W=NN(N)?Z+#20;IF W<#80;W=W:#60 `M?(Z+6)=W f N. h M?14=J?((B?8)+12) m M?15=J?((B?9)+8) r W=M+18;U=#800000+(B?10+(B?19*256));GOS.f | W=M+21;U=B?11;;GOS.f † W=M+2;U=#800000+B?17;GOS.f W=M+25;U=SS(N) š IF U>100000000 U=U/1000000;M?31=13 ¤ IF U>100000 U=U/1000;M?31=11 Ö GOS.h R. lsREM UPDATE SCREEN o ?#801F=4 r ?#8038=32;?#803F=32 s IF T=0;?#803F=31 t IF T=1;?#8038=31 v FOR L=0 TO Q-1 € IF T=0;U=#8220+((H?L)*32) ‚ IF T=1;U=#8220+((C?L)*32) … IF L>=Q;U=#8200 Š Z=#8040+(L*32) ” FOR W=0 TO 31 S.4;Z!W=U!W;N. ² N. Ð R. ¸oREM ORDERING OF USERS ½ ?#801F=19 Â DO Ì Z=0 Ö FOR L=Q-2 TO 0 ST.-1 à IF SS(H?L)