start tok64 d64-bXlBdH
10 REM *** quick basdir ***
20 REM *** f{pound}r s h n av ***
30 REM *** mikael pawlo ***
40 PRINT"{clear}":OPEN 1,8,0,"$"
50 POKE781,1:SYS65478:GETa$,a$:e$=CHR$(0)
60 GETa$,a$,h$,l$
70 IF st THEN SYS65484:CLOSE1:END
80 PRINTASC(h$+e$)+256*ASC(l$+e$);
90 GETa$,b$:IFa$THEN PRINTa$b$;:GOTO90
100 PRINTa$:GOTO60
stop tok64
(bastext 1.0)