s28'	2';'i''
s47'	comsm'i+'karte'i';'comsm''
	for'i'step'2'until'4'rpeat's47''
	daprt'color''
	if'>[<'comsm'i-'2l'>]<'neg's48'zero's49''
	comsm'i-'l0';'comsm''
	2';'b''
	0';'assl'b''
	use's48''
s49'	combl'i+'l';'combl''
	use's50''
s48'	if'>[<'comsm'i-'l7'>]<'neg's5l''
	comto'i+'l';'comto''
	use's50''
s5l'	6';'i';'b''
	set'sl00'to's52''
	daprt'cr4'tab6'tab6''
	use's20''
s52'	comsm'i+'karte'i';'comsm''
	if'>[<'comsm'i-'2l'>]'<neg's53'zero's54''
	2';'b''
s6l'	if'>[<'assl'b'i-'l'>]<'zero's55''
	for'b'step'2'until'6'rpeat's6l''
	use's62''
s55'	comsm'i-'l0';'comsm''
	0';'assl'b''
	use's53''
s62'	combu'i+'l';'combu''
	use's50''
s54'	comto'i+'l';'comto''
	use's50''
s53'	if'>[<'comsm'i-'l7'>]<'neg's56''
	comto'i+'l';'comto''
	use's50''
s56'	8';'i';'b''
	set'sl00'to's57''
	daprt'cr4'tab6'tab6''
	use's20''
s57'	comsm'i+'karte'i';'comsm''
	if'>[<'comsm'i-'2l'>]<'neg's58'zero's59''
	2';'b''
s64'	if'>[<'assl'b'i-'l'>]<'zero's60''
	for'b'step'2'until'8'rpeat's64''
	use's63''
s60'	comsm'i-'l0';'comsm''
	0';'assl'b''
	use's58''
s63'	combu'i+'l';'combu''
	use's50''
s59'	comto'i+'l';'comto''
	use's50''
s58'	if'>[<'comsm'i-'l7'>]'<neg's65''
	comto'i+'l';'comto''
	use's50''
s65'	l0';'i';'b''
	wait'