home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / directory (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  134 b   |  6 lines
  1. 10 open1,8,0,"$":get#1,a$,a$
  2. 20 get#1,a$,a$:ifst=64thenclose1:end
  3. 30 get#1,a$,b$:printasc(a$+chr$(0))+256*asc(b$+chr$(0));
  4. 40 get#1,a$:printa$;:ifa$<>""then40
  5. 50 print:goto20
  6.