win1250.red

Red []

convert-codepage: function [
	data
] [
	rule: copy []
	output: copy []
	data: skip data 17
	foreach value data [
		value: split value tab
		repend rule [
			'set 'value to-binary load back insert skip l/1 2 #"#"
			to paren! compose [append output ]
		]
	]
]