LINE    ASM; --------------------------------
; Erzeugen einer senkrechten Linie
; --------------------------------
;
	ORG	4000H
;
	DEFW	7F7FH
	DEFM	'LINE'
	DEFB	1
;
; Schleife mit Schleifenzaehler B
;
;	Startwert entspricht 1. Zeile
;
	LD	B,0
;
;	21. Spalte ist fest
;
	LD	L,20
;
LOOP:
;	Zeile = B und Spalte = 20
;	als Cursorpos. uebergeben
;
	LD	H,B
	LD	(0B7A0H),HL
;
;	Zeichen "H" ausgeben
;
	LD	A,'H'	; Zeichencode
	CALL	0F003H
	DEFB	0	; UP Nr. 0
;
;	Schleifensteuerung
;	(Zeile 31 ist letzte Zeile !)
;
	INC	B
	LD	A,B
	CP	32
	JR	C,LOOP
;
; Zurueck zum CAOS-Menu
;
	RET
;
	END
À@Àt(Àp6ÀnTop of Text letzte Zeile !)
;
	INC	B
	LD	A,B
	CP	32
	JR	C,LOOP
;
; Zurueck zum CAOS-Menu
;
	RET
;
	END
À@Àt(Àp6ÀnTop of Tex