;:sys36864
;flexible dir-routine (c) nh 7.93
;aufruf mit sys 49152,"$...."
;beispiel   sys 49152,"$d*"
;vorbild  dir-routine im buch 'ttt' seite 23f
;
	*= $c000
	;.opt oo
	jsr $ffe7	;clall
	lda #1
	ldx #8
	ldy #0
	jsr $ffba	;setpar
	jsr $aefd	;komma holen
	jsr $ad9e	;frmevl (ausdruck holen)
	jsr $b6a3	;string verwalten (laenge -> akku)
	ldx $22	;adresse des strings -> x/y
	ldy $23
	jsr $ffbd	;setnam
	jsr $ffc0	;open
	ldx #1
	jsr $ffc6	;chkin
	ldy #3	;vgl. buch
l185	sty 3
	jsr $ffe4	;getin
	sta 4
	ldy 144
	bne l239
	jsr $ffe4	;getin
	ldy 144
	bne l239
	ldy 3
	dey
	bne l185
	ldx 4
	jsr $bdcd	;axout
	jsr $ab3f	;space
l216	jsr $ffe4	;getin
	ldx 144
	bne l239
	tax
	beq l232
	jsr $ffd2	;bsout
	jmp l216
l232	jsr $aad7	;crlf
	jsr $a82c	;abbruch bei <run/stop>
	ldy #2
	bne l185
l239	jsr $ffcc	;clrchn
	lda #1
	jmp $ffc3	;close