home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / filedocs / simcvt.bas < prev    next >
BASIC Source File  |  1994-03-04  |  884b  |  25 lines
  1. 5 ' SIMCVT.BAS: TRANSFORM THE SIMIBM.IDX FILE FROM SIMTEL INTO A
  2. 6 ' READABLE FORM, AND CALL IT SIMIBM.LST.
  3. 10 OPEN "SIMIBM.IDX" FOR INPUT AS #1
  4. 20 OPEN "SIMIBM.LST" FOR OUTPUT AS #2
  5. 22 PRINT #2, "SimTel MS-DOS Files Listing as of "; DATE$
  6. 23 PRINT #2,
  7. 25 PRINT #2, "NOTE: Type B is Binary; Type A is ASCII"
  8. 80 WHILE NOT EOF(1)
  9. 100   INPUT #1, FS$, DIR$, FLNM$, REV, LNGTH, BITS, DT, DESCR$
  10. 105   IF FS$<>LFS$ OR DIR$<>LDIR$ THEN GOSUB 500
  11. 110   PRINT #2, FLNM$; TAB(15);
  12. 115   IF BITS=8 THEN PRINT #2, "B"; ELSE PRINT #2, "A";
  13. 120   PRINT #2, USING " ####### ####### &"; LNGTH, DT, " "+DESCR$
  14. 127   LFS$ = FS$: LDIR$ = DIR$
  15. 130 WEND
  16. 150 CLOSE #1
  17. 160 CLOSE #2
  18. 165 SYSTEM
  19. 170 END
  20. 500 REM New Directory
  21. 510 PRINT #2,: PRINT #2, "Directory ";FS$;DIR$
  22. 530 PRINT #2, " Filename   Type Length   Date    Description"
  23. 540 PRINT #2, "=============================================="
  24. 560 RETURN
  25.