Uses math


Procedure Main
  Var i,o:Integer
  Var fhIn,fhOut:Integer
  Var s,ss:String
  CGICloseBuffer
  If ParamStr(2), ParamStr(3)
	  fhIn:=Reset(ParamStr(2))
	  fhOut:=Rewrite(ParamStr(3))
	  While !EOT(fhIn)
	    s:=trim(ReadLn(fhIn))
	    CGIWriteLn(s)
	    If o:=Pos(':',s)
	    	o:=o+2
	    Else
    		o:=1
	    End
	    i:=0
	    While /*i<16,*/ ss:=trim(s[o+i*3,2])
	      Write(fhOut,Chr(baseAnyTo10(ss,16)))
	      i++
	    End
	  End
	End
EndProc