start tok64 d64-ZqE9Wq
10 REM *************
20 REM *           *
30 REM * basic dir *
40 REM *           *
50 REM *************
60 REM
70 REM ob. computer 4/1987
80 REM
100 OPEN1,8,0,"$":POKE781,1:SYS65478:GETa$,a$
110 GETa$,a$:IFst=64THENSYS65484:CLOSE1:END
120 GETa$,b$:PRINT"{right*5}"ASC(a$+CHR$(.))+256*ASC(b$+CHR$(.));
130 GETa$:PRINTa$;:IFa$<>""THEN130
140 PRINT:GOTO110
stop tok64
(bastext 1.0)