savechar:	push	cs		;	***	SAVESEC...
		push	cs
		pop	ds
		pop	es
		xor	cx,cx
		lea	dx,filenev
		mov	ah,3ch
		int	21h
		jc	send
		mov	file,ax
		xor	bp,bp
		lea	di,char
scikl1:		mov	cx,128
		lea	si,sasc
scikl2:		push	cx
		push	bp
		push	di
		lodsb
		push	si
		lea	bx,[di+1]
		mov	cx,code-char
		jcxz	spacc
		repne	scasb
		je	smegv
spacc:		mov	di,bx
smegv:		sub	di,bx
		mov	cl,4
		shl	di,cl
		lea	dx,code[di][bp]
		mov	cl,1
		mov	bx,file
		mov	ah,40h
		int	21h
		pop	si
		pop	di
		pop	bp
		pop	cx
		jc	sclose
		loop	scikl2
		inc	bp
		cmp	bp,16
		jb	scikl1
sclose:		mov	bx,file
		mov	ah,3eh
		int	21h
send:		ret

filenev		db	"kaland.scr",0
file		dw	0
sasc		db	" a o¢u£i¡e‚”“–bcdfghjklmnpqrstvwxyz"
		db	 "AO•U—IE™‹š˜BCDFGHJKLMNPQRSTVWXYZ"
		db	"0123456789-/\'>$%*`(<[+=&@#]",34," .,;:?!){}_~"
		db	16 dup(0)
					;	...SAVESEC!!!	***
