Т > ListTAP max%=&200 9ч mem% max%,type$(3):type$(0)="Basic":type$(3)="Code" (: 2JХ"Input .TAP/.SPT file: "in$:in%=▌(in$):Г in%=0:Я"'"in$"' not found":Ю <riscos%=і-1 FН ┘ Ж:Рclose:Я:Ю P: Z=Я ю"Type ",riscos%=0);"Filename Start Extra Length"; dУ nlen%= #in%+256* #in% xLГlen%>max%:Ц a%=0 ╦ max%-1:mem%?a%= #in%:М:Ц a%=max% ╦ len%-1:A%= #in%:М ┌5Гlen%<=max%:Гlen%:Ц a%=0 ╦ len%-1:mem%?a%= #in%:М ▄Г?mem%=0:Рheader √Г?mem%=&FF:Рdata ═Щ е#in%:Я':ы#in%:in%=0:Ю ╙: Є#щРclose:Г in%:A%=in%:in%=0:ы#A% ЎА х: р#щєh0(A%,N%)=б"0000000"+ц~A%,N%) э: ФщРheader Пtype%=mem%?1 ЗFm%=mem%?12:mem%?12=13:n$=$(mem%+2):mem%?12=m%:num%=mem%!12 ─ &FFFF 0start%=mem%!14 ─ &FFFF:exec%=mem%!16 ─ &FFFF #Г riscos%:РheaderRO ▀ РheaderZX А ": ,щРheaderZX 63Г type%<4:Я'type$(type%); ▀ Я'"&";єh0(type%,2); @?Я ┼6);n$" "єh0(start%,4)" "єh0(exec%,4)" "єh0(num%,4); JА T: ^щРheaderRO hPЯ'n$" "єhi(type%);єh0(start%,4);" ";єhi(type%);єh0(exec%,4);" ";єh0(num%,4); rА |: ├щєhi(A%) ░"Г A%<3:=єh0(A%,2) ▀ =єh0(-1,2) : є щРdata ўА Ъ