home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / CDCOM.ZIP / CFGFILES.ZIP / PRGMROM.ZIP / CONVERT.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-09-28  |  1.2 KB  |  44 lines
  1. 'convert.bas description conversion utility
  2. 'works under dos 5.00 qbasic.exe program (or qb 4.00 or greater)
  3. 'copy _rom.cat from root directory of programmers rom disk to current
  4. 'directory, then type qbasic convert, then press F5 to run
  5. 'written by Eric L. Schonning for CdCom door program
  6. CLS
  7. PRINT "Programmers Rom QB-1011 Description Conversion"
  8. PRINT
  9. PRINT "Modifying _ROM.CAT Into Correct Format For MAKEXRF"
  10. OPEN "_rom.cat" FOR INPUT AS #1
  11. i% = 0
  12. WHILE NOT EOF(1)
  13.   LINE INPUT #1, j$
  14.   IF j$ <> "" THEN
  15.     SELECT CASE ASC(LEFT$(j$, 1))
  16.       CASE 124
  17.        ' this character |
  18.         CLOSE #2
  19.         i% = i% + 1
  20.         i$ = STR$(i%)
  21.         i$ = "0" + MID$(i$, 2)
  22.         IF i% < 10 THEN i$ = "0" + i$
  23.         PRINT "Writing "; i$; ".CAT"
  24.         OPEN i$ + ".CAT" FOR OUTPUT AS #2
  25.       CASE 43
  26.         'do nuttin with +
  27.       CASE 33, 35 TO 41, 45, 48 TO 57, 64 TO 90, 95 TO 126
  28.         'valid filename letters
  29.         IF LEFT$(j$, 8) = STRING$(8, 45) THEN
  30.           'this is  --------, not a filename so ignore
  31.         ELSE
  32.           j$ = RTRIM$(j$)
  33.           PRINT #2, j$
  34.         END IF
  35.     END SELECT
  36.   END IF
  37. WEND
  38. CLOSE
  39. KILL "_rom.cat"
  40. PRINT
  41. PRINT "Done"
  42. END
  43.  
  44.