home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8706a.d64 / directory-rout. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  136b  |  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.