start tok64 d64-UOMoMV
10 REM *************
20 REM *           *
30 REM * basic dir *
40 REM *           *
50 REM *************   v2.0:sys pd 1991
60 REM
70 REM ob. computer 4/1987
80 REM
90 t=0
100 OPEN1,8,0,"$":POKE781,1:SYS65478:GETa$,a$
110 GETa$,a$:IFst=64THENSYS65484:CLOSE1:END
115 IFt=0THENt=-1:GETa$,a$,a$:PRINTTAB(9):GOTO125
120 GETa$,b$:s$=STR$(ASC(a$+CHR$(.))+256*ASC(b$+CHR$(.)))
121 PRINTTAB(10-LEN(s$))s$" ";
125 GETa$:IFa$=" "THEN125
126 PRINTa$;
130 GETa$:PRINTa$;:IFa$<>""THEN130
140 PRINT:GOTO110
stop tok64
(bastext 1.0)