scl_e:

	savebin "huj.scl",scl_b,scl_e-scl_b

	LUA

	local fp
	local checksum
-- never rename file
	fp = assert(io.open("huj.scl", "rb"))
	checksum=0
	while true do
		local byte = fp:read(1)
		if byte==nil then
			break
		end
		checksum=checksum+string.byte(byte)
	end
	assert(fp:close())
	print("writing",string.format("%08X",checksum))
	fp = assert(io.open("huj.scl", "a"))

	for i=1,4 do
    	fp:write(string.char(checksum%256))
    	checksum=math.floor(checksum/256)
    end

--	assert(fp:flush())
	assert(fp:close())

--	os.rename("huj.scl", "Xtermin.scl")

	local ss=""
	for i=0,7,1 do
		ss=ss..string.char( sj.get_byte( sj.get_label("file1")+i ) )
	end

	ss=ss:match "^%s*(.-)%s*$"
--	print(ss)
	os.rename("huj.scl", ss..".scl")

	ENDLUA

#!/bin/bash

read -p"source: " SOURCE
read -p"output: " OUTPUT

wct $SOURCE $OUTPUT
b2t -b $OUTPUT