home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 June / 64er_Magazin_87-06_1987_Markt__Technik_de_Side_A.d64 / directory-rout. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  136 b   |  6 lines
  1. 1 open1,8,0,"$":get#1,a$,a$:e$=chr$(0)
  2. 2 get#1,a$,a$,h$,l$:ifstthenclose1:return
  3. 3 print"[157]"asc(h$+e$)+256*asc(l$+e$);
  4. 4 get#1,a$,b$:ifa$thenprinta$b$;:goto4
  5. 5 printa$:goto2
  6.