5 text$="  Please use cursor keys to select file, then press [ENTER] to confirm":search$="*.*"
10 x$=CHR$(27):Win1$=x$+"X  >z":win2$=x$+"X !>y"'Win1$ is no window - default,win2$=left margin=1
20 PRINT x$"f"x$"E"win2$;:FILES search$:PRINT win1$
22 PRINT x$"0"x$"Y? ";text$;
25 DEF FNa$(a$,b$)=x$+"Y"+CHR$(y+32)+CHR$((x*14)+32)+a$+x$+"Y"+CHR$(y+32)+CHR$((x*14)+45)+b$
30 PRINT FNa$(x$+"p"+"*","*"+x$+"q"):z$=INPUT$(1):PRINT FNa$(" "," ")
40 IF z$=CHR$(6) THEN x=MIN(x+1,5)
50 IF z$=CHR$(1) THEN x=MAX(0,x-1)
60 IF z$=CHR$(30) THEN y=MIN(y+1,29)
70 IF z$=CHR$(31) THEN y=MAX(0,y-1)
80 IF z$=CHR$(13) THEN z$=STRIP$(FIND$(search$,(y*6)+(x+1))):IF z$="" THEN PRINT CHR$(7);: ELSE PRINT x$"1"x$"e"x$"E"x$"HSelected:  "z$:END
100 GOTO 30
TRIP$(FIND$(search$,(y*