home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / filedocs / simcvt2.bas < prev    next >
Encoding:
BASIC Source File  |  1989-03-16  |  1.4 KB  |  39 lines
  1. 100 ' SIMCVT.BAS: TRANSFORM THE SIMIBM.IDX FILE FROM SIMTEL20 INTO A
  2. 105 ' READABLE FORM, AND CALL IT SIMIBM.LST.
  3. 110 ' MODIFIED BY RQD, FEB 89 TO OUTPUT IN PRINTER FORM TO 
  4. 115 ' EITHER SCREEN OR PRINT FILE
  5. 116 ' FOR DOUBLE SIDE PRINTING USE BS.COM FROM HUG
  6. 120   FILES
  7. 130  INPUT "Enter Index Filename (.IDX) ";IFN$
  8. 140  OPEN IFN$ FOR INPUT AS #1
  9. 150  INPUT "Enter 1 FOR SCREEN, 2 FOR FILE OUTPUT ";INK
  10. 160  IF INK =1 GOTO 190
  11. 170  IF INK =2 GOTO 210
  12. 180  GOTO 150
  13. 190  OPEN "SCRN:" FOR OUTPUT AS #2
  14. 200  GOTO 230
  15. 210  DOT$="." : J=INSTR(IFN$,DOT$) :MID$(IFN$,J)=".LST"
  16. 220  OPEN IFN$ FOR OUTPUT AS #2
  17. 225  'OUTPUT FILE HAS SAME NAME WITH .IDX CHANGED TO .LST
  18. 230  PRINT #2, "WSMR-SIMTEL20.ARMY.MIL PUBLIC DOMAIN LISTING AS OF "; DATE$
  19. 240  PRINT #2,
  20. 250  PRINT #2, "NOTE: Type B is Binary; Type A is ASCII"
  21. 260  WHILE NOT EOF(1)
  22. 270   INPUT #1, FS$, DIR$, FLNM$, REV, LNGTH, BITS, DT, DESCR$
  23. 280   IF FS$<>LFS$ OR DIR$<>LDIR$ THEN GOSUB 380
  24. 290   PRINT #2, FLNM$; TAB(15);
  25. 300   IF BITS=8 THEN PRINT #2, "B"; ELSE PRINT #2, "A";
  26. 310   PRINT #2, USING " ####### ####### &"; LNGTH, DT, " "+DESCR$
  27. 320   LFS$ = FS$: LDIR$ = DIR$
  28. 330 WEND
  29. 340 CLOSE #1
  30. 350 CLOSE #2
  31. 360 STOP  :' SYSTEM
  32. 370 END
  33. 380 REM New Directory
  34. 390 PRINT #2,: PRINT #2, "Directory ";FS$;DIR$
  35. 400 PRINT #2, " Filename   Type Length   Date    Description"
  36. 410 PRINT #2, "=============================================="
  37. 420 RETURN
  38. 430 ' save"simcvt.bas",a
  39.