home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / CDCOM.ZIP / CFGFILES.ZIP / CAROV2N1.ZIP / CONVERT.BAS < prev    next >
BASIC Source File  |  1991-09-28  |  4KB  |  115 lines
  1. DECLARE SUB fix.filename (filename$)
  2. 'convert.bas description conversion routine for CdCom door
  3. 'written by Eric L. Schonning
  4. 'works under dos 5.00 qbasic.exe (or qb 4.00 or greater)
  5. 'copy the following files from the cdrom disk to the current directory:
  6. 'filename         size   date     time
  7. 'AMIGA.CAT       40532 08-20-90   7:59p
  8. 'ATARI.CAT       41554 08-20-90  12:19p
  9. 'COMDORE.CAT     97334 08-21-90   8:14p
  10. 'GRAPHIC.CAT     90460 07-12-90  11:42a
  11. 'MACTOSH.CAT    178513 08-21-90   1:59p
  12. 'MASTER.CAT     973174 08-13-90   2:15p
  13. 'MEAN_18.CAT     19535 08-20-90   4:18p
  14. 'then type qbasic convert, then press F5 to run
  15. CLS
  16. PRINT "Shareware Carousel Vol. 2 #1 Description Conversion"
  17. PRINT
  18. PRINT "Modifying CAT Files Into Correct Format For MAKEXRF"
  19. cl = CSRLIN
  20. FOR i% = 1 TO 7
  21.   SELECT CASE i%
  22.     CASE 1
  23.       cf$ = "MASTER.CAT"
  24.     CASE 2
  25.       cf$ = "AMIGA.CAT"
  26.     CASE 3
  27.       cf$ = "ATARI.CAT"
  28.     CASE 4
  29.       cf$ = "MEAN_18.CAT"
  30.     CASE 5
  31.       cf$ = "COMDORE.CAT"
  32.     CASE 6
  33.       cf$ = "MACTOSH.CAT"
  34.     CASE 7
  35.       cf$ = "GRAPHIC.CAT"
  36.   END SELECT
  37.   LOCATE cl, 1: PRINT "Working on "; cf$; ","; i%; "of 7       "
  38.   OPEN cf$ FOR INPUT AS #1
  39.   IF i% = 1 THEN
  40.     FOR k% = 1 TO 30
  41.       i$ = STR$(k%): i$ = "0" + MID$(i$, 2): IF k% < 10 THEN i$ = "0" + i$
  42.       cf.tmp$ = i$ + ".CAT"
  43.       LOCATE cl + 1, 1: PRINT "Writing "; cf.tmp$
  44.       OPEN cf.tmp$ FOR OUTPUT AS #2
  45.       WHILE NOT EOF(1)
  46.         LINE INPUT #1, j$
  47.         IF j$ <> "" THEN
  48.           j$ = LEFT$(j$, 79)
  49.           IF RIGHT$(j$, 3) = i$ THEN
  50.             j$ = LEFT$(j$, 76)
  51.             filename$ = LEFT$(j$, 12)
  52.             CALL fix.filename(filename$)
  53.             j$ = filename$ + MID$(j$, 13)
  54.             PRINT #2, j$
  55.           END IF
  56.           '"GIF","  F","PIC","MAC"
  57.           'these files are in the graphic.cat, so don't dupe them here
  58.         END IF
  59.       WEND
  60.       CLOSE #2
  61.       SEEK #1, 1
  62.     NEXT k%
  63.     CLOSE #1
  64.     KILL cf$
  65.   ELSE
  66.     LOCATE cl + 1, 1: PRINT "Writing 0"; MID$(STR$(29 + i%), 2); ".CAT"
  67.     IF i% = 6 THEN LINE INPUT #1, j$
  68.     cf.tmp$ = LEFT$(cf$, INSTR(cf$, ".")) + "TMP"
  69.     OPEN cf.tmp$ FOR OUTPUT AS #2
  70.     WHILE NOT EOF(1)
  71.       LINE INPUT #1, j$
  72.       IF j$ <> "" THEN
  73.         j$ = RTRIM$(j$)
  74.         IF LEN(j$) > 80 THEN j$ = LEFT$(j$, 80): j$ = RTRIM$(j$)
  75.         IF i% = 7 THEN IF MID$(j$, LEN(j$) - 3, 3) = "GIF" THEN j$ = LEFT$(j$, LEN(j$) - 1)
  76.         filename$ = LEFT$(j$, 12)
  77.         CALL fix.filename(filename$)
  78.         j$ = filename$ + MID$(j$, 13)
  79.       END IF
  80.       PRINT #2, j$
  81.     WEND
  82.     CLOSE
  83.     KILL cf$
  84.     NAME cf.tmp$ AS cf$
  85.   END IF
  86. NEXT i%
  87. PRINT
  88. PRINT "Done"
  89. CLOSE
  90. NAME "AMIGA.CAT" AS "031.CAT"
  91. NAME "ATARI.CAT" AS "032.CAT"
  92. NAME "MEAN_18.CAT" AS "033.CAT"
  93. NAME "COMDORE.CAT" AS "034.CAT"
  94. NAME "MACTOSH.CAT" AS "035.CAT"
  95. NAME "GRAPHIC.CAT" AS "036.CAT"
  96. END
  97.  
  98. SUB fix.filename (filename$)
  99. 'remove spaces between filename and extention
  100. IF INSTR(filename$, CHR$(32)) = 0 THEN EXIT SUB
  101. filename$ = RTRIM$(filename$)
  102. 'if instr(filename$,chr$(46)) = 0 then
  103. pd = INSTR(filename$, CHR$(46))'check for "."
  104. sp = INSTR(filename$, CHR$(32))
  105. IF sp > pd THEN
  106.   ext$ = MID$(filename$, sp): ext$ = LTRIM$(ext$)
  107.   file8$ = LEFT$(filename$, sp - 1)
  108.   filename$ = file8$ + "." + ext$
  109.   IF LEN(filename$) < 12 THEN filename$ = filename$ + SPACE$(12 - LEN(filename$))
  110. ELSE
  111.   IF LEN(filename$) < 12 THEN filename$ = filename$ + SPACE$(12 - LEN(filename$))
  112. END IF
  113. END SUB
  114.  
  115.