10 CLS:PRINT"Convert ROM and Disk files for use by the emulator.":PRINT
20 INPUT"Input file";F$
30 INPUT"Output file";NF$
40 H$="0123456789ABCDEF"
50 OPEN"I",1,F$
60 OPEN"O",2,NF$
70 WHILE NOT EOF(1)
80 LINE INPUT#1,X$
90 IF LEFT$(X$,1)="*"THEN 140
100 FOR X=10 TO 41 STEP 2
110 N=INSTR(H$,MID$(X$,X,1))*16+INSTR(H$,MID$(X$,X+1,1))-17
120 IF N>=0 THEN PRINT#2,CHR$(N);
130 NEXT X
140 WEND
150 CLOSE
160 BEEP:PRINT"Converted."