home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / CDCOM.ZIP / CFGFILES.ZIP / CAROUSEL.ZIP / CONVERT.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-09-29  |  4.5 KB  |  182 lines
  1. DECLARE SUB fix.filename (filename$)
  2. 'convert.bas
  3. 'written by Eric L. Schonning for the CdCom door program
  4. 'this program will run under dos 5.00 qbasic.exe
  5. 'type qbasic convert to load, then press F5 to run
  6. 'you must copy the 35 description files off the cdrom disk before
  7. 'running this program.  see makexrf.doc for the filenames
  8. CLS
  9. PRINT "Shareware Carousel Description Conversion Utility"
  10. PRINT
  11. PRINT "Modifying CAT Files Into Correct Format for MAKEXRF"
  12. cl = CSRLIN
  13. FOR i% = 1 TO 33
  14.   SELECT CASE i%
  15.     CASE 1
  16.       cf$ = "MASTER.CAT"
  17. 'macintosh
  18.     CASE 2
  19.       cf$ = "00APPL.CAT"
  20.     CASE 3
  21.       cf$ = "00CDEV.CAT"
  22.     CASE 4
  23.       cf$ = "00CODE.CAT"
  24.     CASE 5
  25.       cf$ = "00DA.CAT"
  26.     CASE 6
  27.       cf$ = "00DEMO.CAT"
  28.     CASE 7
  29.       cf$ = "00DOC.CAT"
  30.     CASE 8
  31.       cf$ = "00ED.CAT"
  32.     CASE 9
  33.       cf$ = "00FKEY.CAT"
  34.     CASE 10
  35.       cf$ = "00FONTS.CAT"
  36.     CASE 11
  37.       cf$ = "00HC.CAT"
  38.     CASE 12
  39.       cf$ = "00INIT.CAT"
  40.     CASE 13
  41.       cf$ = "00JOHN.CAT"
  42.     CASE 14
  43.       cf$ = "00LANG.CAT"
  44.     CASE 15
  45.       cf$ = "00MACII.CAT"
  46.     CASE 16
  47.       cf$ = "00MACTN.CAT"
  48.     CASE 17
  49.       cf$ = "00PATCHE.CAT"
  50.     CASE 18
  51.       cf$ = "00PICT.CAT"
  52.     CASE 19
  53.       cf$ = "00POSTSC.CAT"
  54.     CASE 20
  55.       cf$ = "00REVIEW.CAT"
  56.     CASE 21
  57.       cf$ = "00SOUNDS.CAT"
  58.     CASE 22
  59.       cf$ = "00TECH.CAT"
  60.     CASE 23
  61.       cf$ = "00UNIX.CAT"
  62.     CASE 24
  63.       cf$ = "00UTIL.CAT"
  64.     CASE 25
  65.       cf$ = "00UTILDK.CAT"
  66.     CASE 26
  67.       cf$ = "00UTILFL.CAT"
  68.     CASE 27
  69.       cf$ = "00UTILPN.CAT"
  70.     CASE 28
  71.       cf$ = "00VIRUS.CAT"
  72. 'c-64
  73.     CASE 29
  74.       cf$ = "064APPS.CAT"
  75.     CASE 30
  76.       cf$ = "064GAMES.CAT"
  77.     CASE 31
  78.       cf$ = "064MISC.CAT"
  79.     CASE 32
  80.       cf$ = "064MUSIC.CAT"
  81.     CASE 33
  82.       cf$ = "064UTILS.CAT"
  83.   END SELECT
  84.   LOCATE cl, 1: PRINT "Working on "; cf$; ","; i%; "of 33       "
  85.   OPEN cf$ FOR INPUT AS #1
  86.   SELECT CASE i%
  87.     CASE 1
  88.       FOR k% = 1 TO 33
  89.         i$ = STR$(k%): i$ = "0" + MID$(i$, 2): IF k% < 10 THEN i$ = "0" + i$
  90.         cf.tmp$ = i$ + ".CAT"
  91.         LOCATE cl + 1, 1: PRINT "Writing "; cf.tmp$
  92.         OPEN cf.tmp$ FOR OUTPUT AS #2
  93.         WHILE NOT EOF(1)
  94.           LINE INPUT #1, j$
  95.           IF j$ <> "" THEN
  96.             j$ = LEFT$(j$, 80)
  97.             SELECT CASE RIGHT$(j$, 3)
  98.               CASE i$
  99.                 GOSUB file.ok
  100.               CASE "GIF"
  101.                 IF i$ = "031" THEN GOSUB file.ok
  102.               CASE "PIC"
  103.                 IF i$ = "032" THEN GOSUB file.ok
  104.               CASE "MAC"
  105.                 IF i$ = "033" THEN GOSUB file.ok
  106.               CASE "HIL"
  107.                 IF i$ = "021" THEN GOSUB file.ok
  108.             END SELECT
  109.           END IF
  110.         WEND
  111.         CLOSE #2
  112.         SEEK #1, 1
  113.       NEXT k%
  114.       CLOSE #1
  115.       KILL cf$
  116.     CASE 2 TO 28
  117.       IF i% = 23 OR i% = 21 OR i% = 4 THEN
  118.         FOR k% = 1 TO 4
  119.           LINE INPUT #1, j$
  120.         NEXT k%
  121.       END IF
  122.       OPEN "034.CAT" FOR APPEND AS #2
  123.       WHILE NOT EOF(1)
  124.         LINE INPUT #1, j$
  125.         IF j$ <> "" THEN
  126.           j$ = RTRIM$(j$)
  127.           IF LEN(j$) > 80 THEN j$ = LEFT$(j$, 80): j$ = RTRIM$(j$)
  128.           filename$ = LEFT$(j$, 12)
  129.           CALL fix.filename(filename$)
  130.           j$ = filename$ + MID$(j$, 13)
  131.         END IF
  132.         PRINT #2, j$
  133.       WEND
  134.       CLOSE
  135.       KILL cf$
  136.     CASE 29 TO 33
  137.       OPEN "035.CAT" FOR APPEND AS #2
  138.       WHILE NOT EOF(1)
  139.         LINE INPUT #1, j$
  140.         IF j$ <> "" THEN
  141.           j$ = RTRIM$(j$)
  142.           IF LEN(j$) > 80 THEN j$ = LEFT$(j$, 80): j$ = RTRIM$(j$)
  143.           filename$ = LEFT$(j$, 12)
  144.           CALL fix.filename(filename$)
  145.           j$ = filename$ + MID$(j$, 13)
  146.         END IF
  147.         PRINT #2, j$
  148.       WEND
  149.       CLOSE
  150.       KILL cf$
  151.   END SELECT
  152. NEXT i%
  153. PRINT
  154. PRINT "Done"
  155. END
  156.  
  157. file.ok:
  158. j$ = LEFT$(j$, 77)
  159. filename$ = LEFT$(j$, 12)
  160. CALL fix.filename(filename$)
  161. j$ = filename$ + MID$(j$, 13)
  162. PRINT #2, j$
  163. RETURN
  164.  
  165. SUB fix.filename (filename$)
  166. 'remove spaces between filename and extention
  167. IF INSTR(filename$, CHR$(32)) = 0 THEN EXIT SUB
  168. filename$ = RTRIM$(filename$)
  169. 'if instr(filename$,chr$(46)) = 0 then
  170. pd = INSTR(filename$, CHR$(46))'check for "."
  171. sp = INSTR(filename$, CHR$(32))
  172. IF sp > pd THEN
  173.   ext$ = MID$(filename$, sp): ext$ = LTRIM$(ext$)
  174.   file8$ = LEFT$(filename$, sp - 1)
  175.   filename$ = file8$ + "." + ext$
  176.   IF LEN(filename$) < 12 THEN filename$ = filename$ + SPACE$(12 - LEN(filename$))
  177. ELSE
  178.   IF LEN(filename$) < 12 THEN filename$ = filename$ + SPACE$(12 - LEN(filename$))
  179. END IF
  180. END SUB
  181.  
  182.