set'sl00'to's66''
	daprt'cr4'tab6'tab6''
	use's20''
s66'	comsm'i+'karte'i';'comsm''
	if'>[<'comsm'i-'2l'>]<'neg's67'zero's67''
	2';'b''
s69'	if'>[<'assl'b'i-'l'>]<'zero's67''
	for'b'step'2'until'l0'rpeat's69''
	combu'i+'l';'combu''
	use's50''
s67'	comca'i+'l';'comca''
s50'	if'>[<'black'i-'l'>]<'zero's68''
	if'>[<'cards'i-'l'>]<'zero's70''
	if'>[<'bust'i-'l'>]<'zero's7l''
	use's72''
s68'	daprt'cr4'color'tab6'tab6'b'l'a'c'k'j'a'c'k''
	use's73''
s70'	daprt'cr4'color'tab6'tab6'5' 'uc2'>K<'lcl'a'r't'e'n''
	use's73''
s7l'	daprt'cr4'color'tab6'tab6'v'e'r'l'o'r'e'n''
	use's73''
s72'	daprt'cr4'color'tab6'tab6't'o't'a'l' '-''
	300'iprt'summe''
s73'	if'>[<'combl'i-'l'>]<'zero's74''
	if'>[<'comca'i-'l'>]<'zero's75''
	if'>['<combu'i-'l'>]<'zero's76''
	use's77''
s74'	daprt'color'tab6'b'l'a'c'k'j'a'c'k''
	use's78''
s75'	daprt'color'tab6'5' 'uc2'>K<'lcl'a'r't'e'n''
	use's78''
s76'	daprt'color'tab6'v'e'r'l'o'r'e'n''
	use's78''
s77'	daprt'color'tab6't'o't'a'l' '-''
	300'iprt'comsm''
s78'	daprt'cr4'color''
	bkp4'stop''
	use's79'''