home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pggene / drctry.bp < prev    next >
Text File  |  2006-10-19  |  711b  |  28 lines
  1. 0 REM DRCTRY.BA by Paul Globman, copyright (c) 1988
  2. 1 CLS
  3. 2 LCD=65024
  4. 3 LFILES"ROOT"
  5. 4 OPEN"R:DIRLST"FOROUTPUTAS1
  6. 5 PRINT#1,"<ROOT DIRECTORY> "DAY$" "DATE$"  "TIME$
  7. 6 CLOSE
  8. 7 GOSUB21
  9. 8 OPEN"R:DIRLST"FORINPUTAS1
  10. 9 LINE INPUT#1,D$(1)
  11. 10 FORI=1TO10:D$(I)=INPUT$(10,1):NEXT:CLOSE:FORII=1TO10:IFRIGHT$(D$(II),4)<>".<> "THENMENU
  12. 11 D$=LEFT$(D$(II),6)
  13. 12 KB$="CLS:LFILES"+CHR$(34)+D$+CHR$(34)+":CONT"+CHR$(13)
  14. 13 BUF=65451
  15. 14 FORJ=1TOLEN(KB$)
  16. 15 C=ASC(MID$(KB$,J,1))
  17. 16 POKEBUF+(J-1)*2,C
  18. 17 POKEBUF+1+(J-1)*2,32
  19. 18 NEXTJ
  20. 19 POKEBUF-1,LEN(KB$)
  21. 20 STOP:PRINT@0,D$:GOSUB21:NEXTII:MENU
  22. 21 OPEN"R:/ROOT/DIRLST"FORAPPENDAS1
  23. 22 FORI=0TO319
  24. 23 PRINT#1,CHR$(PEEK(LCD+I));
  25. 24 NEXTI
  26. 25 CLOSE
  27. 26 RETURN
  28.