Т > NameList Т Get names from Name module : (file$="Modules100\Name." 2base%=&016D <: F ч mem% &A00:base%=mem%+base% PЪ "LOAD "+file$+" "+ц~mem% ZЦ letter%=≈"A" ╦ ≈"Z" d)ptr%=base%!((letter%-≈"A")*2) ─ &FFFF n"Г ptr%:ptr%=base%+ptr%:Рfollow x М letter% ┌Ю ▄: √щРfollow ═У ╙id%=ptr% Є/byte%=?id%:len%=byte% ─ 15:size%=byte% │ 16 ЎA$=Ґletter% х:У:id%=id%+1:A$=A$+Ґ(?id% ─ 127):Щ ?id%>127 └ ?id%<≈"0" р`Г size%>3:value%=size%-4:size%=0 ▀ value%=0:Ц A%=0 ╦ size%:value%=value%*256+id%?(A%+1):М A% э: ФТ List by value П/Я ┴(6-size%*2);єh0(value%,size%*2+2);" ";A$ З: Т List by identifier Т PRINT A$;SPC(8-POS); bТ IF size%>3:PRINT " short: &";~value% ELSE PRINT ;size%+1;" bytes: &";FNh0(value%,size%*2+2) ": ,ptr%=ptr%+len% 6 Щ ?ptr%=0 @А J: T-щєc(A%):A%=A%─127:ГA%<32└A%=127:="."▀=ҐA% ^#щєh0(A%,N%)=б"0000000"+ц~A%,N%) Ъ