INPUT "Enter FileName to Convert: ",OldFile$
OPEN OldFile$ FOR INPUT AS #1
INPUT "Enter Filname to Create: ",NewFile$
OPEN NewFile$ FOR OUTPUT AS #2 
EntireFile$ = INPUT$(LOF(1),#1)
FOR I = 1 TO INT(LOF(1)/2)
TALL = I * 2
PRINT I
A$ = RIGHT$(LEFT$(EntireFile$,TALL),2)

 C$=LEFT$(A$,1)
 D$=RIGHT$(A$,1)

FOR Z=0 TO 15
 IF C$ = HEX$(Z) THEN  A = Z
 IF D$ = HEX$(Z) THEN  B = Z
NEXT Z

NR = A*16+B
 PRINT #2,CHR$(NR); 
 NEXT I
 CLOSE #1
 CLOSE #2
 
