Оберон/GCC для УКНЦ/БК

[BlaireCas]

нужна простая вещь: убрать эти дебильные линии

Вот код

	.mcall	.print, .ttyout, .exit

TINITG:	.asciz	<33>"%!1"<33>"[0;0r"
TGRAFR:	.asciz	<33>"%!0"
TCOLRS:	.asciz	<33>"LI@@"<47>"@@"<40>"@@"<40>
TTEXTR:	.asciz	<33>"%!3"<14>

TLINCL:	.asciz	<33>"ML@@"<47>
TPOINT:	.asciz	<33>"UH"<40><140><140><40><100>
TLINE:	.asciz	<33>"UG!ao M"

	.even
	
START:
	; инициализация
	.print	#TINITG		; упорядочить таблицу строк
	.print	#TGRAFR		; графический режим
	.print	#TCOLRS		; цвета символа, знакоместа, экрана
	.print	#TTEXTR		; в текстовый режим & очистить экран

	.exit

	.END START

[свернуть]

Переводит экран в графический чтобы выставить цвета символа: белый, знакоместа: черный, экрана: черный
Затем переводит обратно в символьный и очищает экран.
Дебильные линии должны пропасть ибо весь экран будет черным.
Для твоих целей наверное нужно выполнить печать этих последовательностей + добавить опять переход в графический режим и что-то начать рисовать.
Вся цель этого действа - очистить синий фон с экрана, он вызывает эти твои линии при установке своей палитры.

Насчет того как убрать служебные строки - задумано разработчиками чтобы они были. Вот и не трожь их пока-что.