.Z80
; STELLT K6311 AUF 120 ZEICHEN/ZEILE
START:	LD	C,9H
	LD	DE,TEXT
	CALL	BDOS
	LD	HL,ESC
	LD	B,5
LOOP:	LD	E,(HL)
	INC	HL
	LD	C,5	;LIST
	CALL	BDOS
	DJNZ	LOOP
	RET
;
BDOS:	PUSH	HL
	PUSH	BC
	CALL	5
	POP	BC
	POP	HL
	RET
;
ESC:	DEFB	1BH,5BH,33H,20H,4BH
TEXT:	DEFM 	'K6311 auf 120 Zeichen / Zeile $'
	END