sl00'	go to's0''
sl9'	daprt'color''
	set'sl00'to's2l''
	i'i+'l';'i''
	b'i+'l';'b''
	use's20''
s2l'	daprt'cr4'tab6'color''
	i'i+'l';'i''
	b'i+'l';'b''
	set'sl00'to's22''
	use's20''
s22'	daprt'color''
	i'i+'l';'i''
	b'i+'l';'b''
	set'sl00'to's23''
	use's20''
s23'	l';'i''
s24'	summe'i+'karte'i';'summe''
	for'i'step'2'until'3'rpeat's24''
	if'>[<'summe'i-'2l'>]<'neg's25'zero's26''
	summe'i-'l0';'summe''
	l';'b''
	0';'assl'b''
	use's25''
s26'	black'i+'l';'black''
	daprt'cr4'tab6'tab6'tab6''
	use's28''
s25'	daprt'cr4'color'uc2'>K<'lcl'a'r't'e'uc2'>?<'lcl' ''
	iread'frage''
	iabs'frage';'frage''
	if'>[<'frage'i-'l4'>]<'zero's27''
	total'i+'l';'total''
	use's28''
s27'	5';'i';'b''
	set'sl00'to's29''
	use's20''
s29'	summe'i+'karte'i';'summe''
	if'>[<'summe'i-'2l'>]<'neg's30'zero's3l''
	l';'b''
s33'	if'>[<'assl'b'i-'l'>]<'zero's32''
	for'b'step'2'until'5'rpeat's33''
	use's34''
s32'	summe'i-'l0';'summe''
	0';'assl'b''
	use's30''
s34'	bust'i+'l';'bust''
	use's28''
s3l'	total'i+'l';'total''
	use's28''
s30'	daprt'cr4'uc2'>K<'lcl'a'r't'e'uc2'>?<'lcl' ''
	iread'frage''
	iabs'frage';'frage''
	if'>[<'frage'i-'l4'>]<'zero's46''
	total'i+'l';'total''
	use's28''
s46'	7';'i';'b''
	set'sl00'to's35''
	use's20''
s35'	summe'i+'karte'i';'summe''
	if'>[<'summe'i-'2l'>]'<neg's36'zero's37''
	l';'b''
s38'	if'>[<'assl'b'i-'l'>]<'zero's39''
	for'b'step'2'until'7'rpeat's38''
	use's40''
s39'	summe'i-'l0';'summe''
	0';'assl'b''
	use's36''
s40'	bust'i+'l';'bust''
	use's28''
s37'	total'i+'l';'total''
	use's28''
s36'	daprt'cr4'uc2'>K<'lcl'a'r't'e'uc2'>?<'lcl' ''
	iread'frage''
	iabs'frage';'frage''
	if'>[<'frage'i-'l4'>]<'zero's4l''
	total'i+'l';'total''
	use's28''
s4l'	9';'i';'b''
	set'sl00'to's42''
	use's20''
s42'	summe'i+'karte'i';'summe''
	if'>[<'summe'i-'2l'>]<'neg's43'zero's43''
	l';'b''
s44'	if'>[<'assl'b'i-'l'>]<'zero's43''
	for'b'step'2'until'9'rpeat's44''
	use's45''
s43'	cards'i+'l';'cards''
	use's28''
s45'	bust'i+'l';'bust''
	wait'