 
Т > PeekPoke 1.02 : Н ┘ Ж:Я:Г і-1 Ю ▀ Ы (*ч ctrl% 31,mem% 255:X%=ctrl%:Y%=X%│256 2/Я "Test peeking and poking remote machines" </Х "Remote machine: "A$:stn%=єnet_StnNum(A$) F+Х "Remote address: &"A$:addr%=═("&"+A$) P Я "Press p(E)ek or p(O)ke:"; ZУ d%У A$=Ґ(╔ ─ &DF):A%=ї"EO",A$):Щ A% noff%=off%+1 xГ A%=1:Рpeek ▀ Рpoke ┌Щ ё ▄: √
щРpeek ═/Ц A%=0 ╦ 255:mem%?A%=off%-A%:М A%:Я " PEEK" ╙9!X%=&81:X%!2=stn%:X%!4=mem%:X%!8=mem%+256:X%!12=addr% Є3A%=&10:Уж&FFF1:Щ?X%:A%=&32:УЩ(╨&FFF4 ─ &8000)=0 ЎРdump:А х: р
щРpoke э/Ц A%=0 ╦ 255:mem%?A%=off%+A%:М A%:Я " POKE" Ф9!X%=&82:X%!2=stn%:X%!4=mem%:X%!8=mem%+256:X%!12=addr% П3A%=&10:Уж&FFF1:Щ?X%:A%=&32:УЩ(╨&FFF4 ─ &8000)=0 ЗРdump:А:
щРdump6Ц A%=0 ╦ 63 ┬ 16:Яєh0(addr%+A%,4);:Ц B%=A% ╦ A%+15"%Я " ";єh0(mem%?B%,2);:М B%:Я:М A%,А6:@:J#щєh0(A%,N%)=б"0000000"+ц~A%,N%)Tщєnet_StnNum(A$)^5A%=їA$,"."):ГA%:=256*╩юA$,A%-1)+╩аA$,A%+1) ▀ =╩A$Ъ