I haven't finished, don't worry about size, because i'll put datas in appvars, and don't worry about speed, here it's just because of my code.

So I summarizes the way I'm going to use to display list of items (inventory only) or specified list. Each save contain items data. Each item is 2 bytes longer (1 byte to the quantity, 2 bits to Type, 6 bits to number) and have his text and his sprite. In game, only the quantity byte is modified. With my item menu, I'll load a copy of the item data save in L5 (106 bytes needed), but without empty items, or only with a specified list (necessarily mean L5 is not fully used).
NB : currently, I use r1, r2, r3, r4, r5, r6, I and J as tempory variable.
NB2 : Sprites and texts are determinated with its number.

@Spyro543 : just a question : how to display sprites qui 4 lvl of gray... without use 4 grayscales ?

@saintrunner : can you try to make 2 tools&swords different more, to differentiate rock and gold ?

Let me finish cursor and I'll post source (so messy for the moment).

Oups sorry, there is 53 item exactly (not 63)... here a list that could be in data :
--Tools
wood Pick [01]
rock Pick [02]
iron Pick [03]
gold Pick [04]
rock Pick [05]

wood Axe [06]
rock Axe [07]
iron Axe [08]
gold Axe [09]
gem Axe [0A]

"wood Hoe" [0B]
"rock Hoe" [0C]
"iron Hoe" [0D]
"gold Hoe" [0E]
"gem Hoe" [0F]

"wood Shovl" [10]
"rock Shovl" [11]
"iron Shovl" [12]
"gold Shovl" [13]
"gem Shovl" [14]
--Weapon
"wood Sword" [15]
"rock Sword" [16]
"iron Sword" [17]
"gold Sword" [18]
"gem Sword" [19]
--Utilities
"Pow Glove" [1A]
"Workbench" [1B]
"Furnace" [1C]
"Lantern" [1D]
"Anvil" [1E]
"Oven" [1F]
"Chest" [20]
--Resources
"Wood" [61]
"Stone" [62]
"Flower" [A3]
"Acorn" [A4]
"Dirt" [A5]
"Sand" [A6]
"Cactus" [A7]
"Seeds" [A8]
"Wheat" [69]
"Bread" [EA]
"Apple" [EB]
"Coal" [6C]
"Iron Ore" [6D]
"Gold Ore" [6E]
"Iron" [6F]
"Gold" [70]
"Slime" [71]
"Glass" [72]
"Cloth" [73]
"Cloud" [F3]
"Gem" [74]I try it now.

Here a first screen :
For the moment, executable is around 1200 bytes larger.


EDIT : Wow, pretty nice on real calc.

What do you think about this disposition of the menu item (crafting+inventory) :

I would like to express my anger about a lot of games that don't work on my 83 +, due to a scrolling engine that uses 4 levels grayscale, just to look a little more pretty.

That's why I suggest to make an option to display the tilemap in 3 lvl of grayscales (!If full)  or 4 lvl (to lucky owners 84+). It mean we have to make 3 bytes to 8 pixels of sprite&tile. However, I don't think display 4 level grayscale in a menu is a problem on 83+, here I espacially think about Workbench, furnace, chest.. system.

Bottom an example of 3 lvl grayscales sprites&tiles :

Ok, the fact : I looked around the forum about link command, but I saw nowhere a complete code that used the port link so improved.
So today I worked on it.

My technique is initially to define a calculator server and a calculator client, in Boolean it mean 1 and 0. To specify if the calculator is server or client, I do it more or less randomly, because for the rest of the program I don't mind the order.
:.r1 is the number of swap you want to try it work, ussualy 10 is same than 200
:Lbl SYN
:Output(0,,"Synchronisation ...
:0→r2
:Repeat r2>r1 or getKey(15)
:If Get+1
:→r2
:End
:Send(r2,100)
:End
:Returnr2^2Now we have a server (0) and a client (1), and the first application is to separate server code and client code :
!If B
:SRV()
:Else
:CLT()
:EndMy first idea was to make a program where the server send and the client get each loop, here a funny example :
:.AXE
:[183C7EFFFF7E3C18]→Pic1
:0→X
:ClrHome
:SYN(200)→B
:Repeat getKey(15) or (B>1
:!If B
:SRV()
:Else
:CLT()
:End
:DispGraphClrDraw
:End
:Return

:.Program host
:Lbl SRV
:If X<96
:Pt-On(X,48,Pic1
:End
:X<192?X++,→X
:Send(X,5000)
:Return

:.Program client
:Lbl CLT
:If X>95
:Pt-On(X-96,48,Pic1
:End
:If Get+1:-1→X:End
:Return
NB : With real calculator there isn't this speed lag, here it's cause of wabbitemu mistake.

Now I thought about a way to send multiple bytes in both directions (for games such as Battleship, Chess, pokemon, and thousands more). My first solution is a system of roundtrip between server and client, after synchronizing calcs.
:.r1 ==> number of bytes to send
:Lbl ECH
:SYN(10)
:For(I,0,r1)
:!If B
:Send({L1+I},5000)
:GET()→{L2+I}
:Else
:GET()→{L2+I}
:Send({L1+I},10000)
:End
:End
:Return
:
:Lbl GET
:Repeat Get+1→r2
:If getKey(15)
:Goto ERR
:.ERR routine just leave program
:End
:End
:Returnr2-1And it work perfectly, but I find this routine not very optimized, so I decided to try another way by sending all at once to the server, then to the client... to be continued. 

PS : I can't test my code for the moment because of wabbitemu' mistakes...

Currently, is this tutorial efficient yet ?