DEFINT A-Z

infile$ = "h:\playpal\coleco.gg"     'input CSV file
outfile$ = "h:\playpal\coleco.csv"   'output binary file
datstart& = &H96E                    'data starts at 0x96E
entries = 41                         'no. of entries (40 or 41)

DIM text AS STRING * 32
DIM byte AS STRING * 1
OPEN infile$ FOR BINARY AS #1
OPEN outfile$ FOR OUTPUT AS #2

GET #1, datstart&, byte$
FOR xx = 1 TO entries
 GET #1, , text$
 PRINT #2, LEFT$(text$, INSTR(text$, CHR$(0)) - 1) + ",";

 FOR x = 1 TO 17
  GET #1, , byte$
  PRINT #2, HEX$(ASC(byte$)) + ",";
 NEXT
 GET #1, , byte$
 PRINT #2, HEX$(ASC(byte$))
NEXT

CLOSE