4Т > FPickerDemo.bbc 1.00 21-Dec-2015 J.G.Harston 9Т Text-only file picker, independent of any API calls >Т Navigates between directories, returns selected filename (Т 2Т Bugs: <;Т If catalog scrolls the screen, display becomes messy FSТ Can't tell difference between filename with spaces that matches column break P: Z *FX4,1 d$К 12:Т COLOUR 3:COLOUR 128+4:CLS nУ xЯ"File Picker Demo"' ┌A$=єfile_picker ▄Я "File picked: ";A$; √A%=і(200):ш ═Щ ё ╙Ю Є: Ўщєfile_picker хGЙ width%,yp0%,yp1%,xp%,yp%,A$,A%,K%,colwidth%,colmax%,fg%,bg%,last% рcolwidth%=20:Т Hard wired э┘Т LOCAL ERROR:ON ERROR LOCAL A$=FNfile_highlight(fg%,128+bg%):PRINTTAB(0,yp1%):IF ERR=17:="" ELSE RESTORE ERROR:ERROR ERR,REPORT$ Ф+fg%=7:bg%=0:Т fg%=@vdu%?70:bg%=@vdu%?71 ПУ Зyp0%=╪+3 *. :О 8:width%=╠:colmax%=((width%+1) │ colwidth%)-1:yp1%=╪ &Г colmax%>3:colmax%=3:Т Hard wired "yp%=yp0%+1:xp%=0 ,У 6!Я┼(xp% ─ (yp%<>yp0%))+0,yp%); @#A$=єfile_highlight(bg%,128+fg%) J!Я┼(xp% ─ (yp%<>yp0%))+0,yp%); TK%=╧ ^@Т IF K%:IF yp%>yp0%:VDU8:A%=FNscrnchr:VDU9:IFA%<>32:K%=FALSE h6Г K%:Г ≈A$=32:Г last%:K%=ё:Гyp%=yp1%:last%=last%┌1 rУ Г K%:K%=╔ ▀ K%=last% |&Щ (K%>135 ─ K%<140) └ K%=13 └ K%=8 ├last%=K% ░-Г K%>127:Гєfile_highlight(fg%,128+bg%)="" CГ K%=136:xp%=xp%-colwidth%:Г xp%<0:xp%=colwidth%*colmax%:K%=139 єCГ K%=137:xp%=xp%+colwidth%:Г xp%>colwidth%*colmax%:xp%=0:K%=138 ў;Г K%=138:yp%=yp%+1 :Г yp%>yp1%:yp%=yp%-1:last%=0 ╦;Г K%=139:yp%=yp%-1 :Г yp%"":Ъ "DIR "+A$ ЧЯ ┼0,yp0%-3); У:Я┴(width%+1);:Щ ╪>yp1% Я ┼0,yp0%-3); Щ ё &="" 0: :щєfile_highlight(FG%,BG%) DC%=ё:A$="" NТ IF yp%=yp0%:VDU 8,8 XУ:B%=єscrnchr:A$=A$+ҐB%:О 9 bNГ yp%=yp0%:C%=╘A$=width% ▀ Г (╘A$ ┐ colwidth%=12) └ ╠<1:Г єscrnchr<33:C%=╧ lЩ C% vЯд╘A$,Ґ8);:Ш FG%:Ш BG%:ЯA$; ─=A$ ┼: ■*щєscrnchr:A%=135:=((╨&FFF4)─&FF00)│256 ·: ╗щєs(A$) ╡х∙ юA$,1)=" ":A$=аA$,2):н ╪!х∙ бA$,1)=" ":A$=юA$,╘A$-1):н ф=A$ Ъ