home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / ts-dir.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  39 lines
  1. 0 'CLUB 100 Library, Modem 415-939-1246
  2. 1 'DRCTRY.BA by Paul Globman (C) 1988
  3. 2 'Revised 12/26/91 by Lex Jenkins
  4. 10 CLS
  5. 11 LCD=65024
  6. 12 LFILES"ROOT"
  7. 13 OPEN"R:DIRLST"FOROUTPUTAS1
  8. 14 PRINT#1,"<ROOT DIRECTORY> "DAY$" "DATE$"  "TIME$
  9. 15 CLOSE
  10. 16 GOSUB30
  11. 17 OPEN"R:DIRLST"FORINPUTAS1
  12. 18 LINE INPUT#1,D$(1)
  13. 19 FORI=1TO10:D$(I)=INPUT$(10,1):NEXT:CLOSE:FORII=1TO10:IFRIGHT$(D$(II),4)<>".<> "THENMENU
  14. 20 D$=LEFT$(D$(II),6)
  15. 21 KB$="CLS:LFILES"+CHR$(34)+D$+CHR$(34)+":CONT"+CHR$(13)
  16. 22 BUF=65451
  17. 23 FORJ=1TOLEN(KB$)
  18. 24 C=ASC(MID$(KB$,J,1))
  19. 25 POKEBUF+(J-1)*2,C
  20. 26 POKEBUF+1+(J-1)*2,32
  21. 27 NEXTJ
  22. 28 POKEBUF-1,LEN(KB$)
  23. 29 STOP:PRINT@0,D$:GOSUB30:NEXTII:MENU
  24. 30 OPEN"R:/ROOT/DIRLST"FORAPPENDAS1
  25. 31 FORI=0TO319
  26. 32 PRINT#1,CHR$(PEEK(LCD+I));
  27. 33 NEXTI
  28. 34 CALL23164,0,23366:CALL27795
  29. 35 CLOSE
  30. 36 RETURN
  31. 40 'GOSUB 30 captures the LCD and appends it to DIRLST.DO.
  32. 41 'Lines 10-16 display ROOT dir and puts it in DIRLST.DO.
  33. 42 'Lines 17-19 reads DIRLST.DO and builds an array of directory names.
  34. 43 'Lines 19-29 executes for each directory poke into keyboard buffer a
  35. 44 'CLS;LFILES "dir" and CONT.
  36. 45 'The STOP allows  the keyboard buffer to execute,
  37. 46 'then continues by APPENDing current LCD display to DIRLST.
  38. 47 'Line 34 restores function keys to their default settings.
  39.