home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / dir.ba < prev    next >
Text File  |  2006-10-19  |  449b  |  8 lines
  1. 0 ' DIR.BA - author unknown
  2. 1 ' CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 INPUT "USE PRINTER (Y)";X$:INPUT "FULL DIR (F)";Y$:FORDE=63842 TO 64128 STEP 11:IF (PEEK(DE)<128)ANDY$<>"F"THEN6
  4. 3 PRINTDE;PEEK(DE);:IFX$="Y"THENLPRINTDE;PEEK(DE);
  5. 4 FORI=1TO8:PRINTCHR$(PEEK(DE+I+2));:IFX$="Y"THENLPRINTCHR$(PEEK(DE+I+2));
  6. 5 NEXTI:PRINTPEEK(DE+1)+256*PEEK(DE+2):IF X$="Y"THENLPRINTPEEK(DE+1)+256*PEEK(DE+2)
  7. 6 NEXTDE
  8.