;:sys36864
	;.opt oo
	*= 51200
; print using konverter
; sys 51200,x,l,vz,ts,nk,fz,ca,x$
; x zahl  x$ ziel   l laenge
; vz vorzeichen keines/vorn/hinten
; ts flag tausenderpunkte
; nk anz nachkommastellen
; fz fuellzeichen
; ca nachkommatrenner punkt/komma/leer/abgeschnitten
; (c) nh 16.04.91
	jsr $aefd
	jsr $ad8a
	ldx #0
	bit $66
	bpl pos
	dex
pos	stx pm
	lsr $66
	ldx #<pl
	ldy #>pl
	jsr $bbd4
	jsr $b7f1
	stx maxlen
	jsr $b7f1
	stx sign
	jsr $b7f1
	stx taus
	jsr $aefd
	jsr $ad8a
	ldx #<p2
	ldy #>p2
	jsr $bbd4
	jsr $b7a1
	stx after
	jsr $b7f1
	stx fill
	jsr $b7f1
	stx fish
	lda #$f9
	ldy #$ba
	jsr $ba8c
	lda #<p2
	ldy #>p2
	jsr $bf78
	ldx #<p2
	ldy #>p2
	jsr $bbd4
	lda #<pl
	ldy #>pl
	jsr $ba28
	jsr $b849
	jsr $bccc
	jsr $bc0c
	lda #<p2
	ldy #>p2
	jsr $bba2
	jsr $bb12
	ldy #0
	jsr $bdec
	ldx #-1
po2	inx
	lda $100,x
	beq po1
	cmp #"."
	bne po2
	beq po3
po1	lda #0
	sta $101,x
po3	stx p2
	ldy fish
	lda fische,y
	sta $100,x
	ldy #-1
po4	inx
	iny
	lda $100,x
	bne po4
po5	cpy after
	beq po6
	bcs po7
	lda #"0"
	sta $100,x
	iny
	inx
	bne po5
po7	jmp $b4d0
po6	lda #0
	sta $100,x
	ldx #-1
su	inx
	lda $100,x
	bne su
	ldy p2
	stx pl
	bne nu1
nu9	lda $100,x
	sta $101,x
	dex
	bpl nu9
	lda #"0"
	sta $100
	inc pl
nu1	lda taus
	beq nu3
	lda #3
	sta pl+1
nu2	dey
	bmi nu3
	dec pl+1
	bpl nu2
	lda #3
	sta pl+1
	iny
	sty pl+2
	ldy pl
nu4	lda $100,y
	sta $101,y
	dey
	cpy pl+2
	bcs nu4
	inc pl
	iny
	lda #"."
	sta $100,y
	bne nu2
nu3	=*
	lda #32
	ldx pm
	bpl pl1
	lda #"-"
pl1	ldx sign
	beq pl2
	bpl pl3
	ldx pl
	sta $100,x
	lda #0
	sta $101,x
	inc pl
	bne pl2
pl3	ldx pl
	tay
pl5	lda $100,x
	sta $101,x
	dex
	bpl pl5
	inc pl
	sty $100
pl2	ldx pl
	cpx maxlen
	beq le1
	bcc le2
	jmp 42353
le2	ldy maxlen
le3	lda $100,x
	sta $100,y
	dey
	dex
	bpl le3
	lda fill
le4	sta $100,y
	dey
	bpl le4
le1	ldx #-1
co2	inx
	lda $100,x
	bne co2
	stx pl
	jsr $aefd
	jsr $b08b
	sta $49
	sty $4a
	jsr $b6a3
	lda pl
	jsr $b475
	ldy #2
sp	lda $61,y
	sta ($49),y
	dey
	bpl sp
	iny
st	cpy pl
	beq ca
	lda $100,y
	sta ($62),y
	iny
	bne st
ca	rts
maxlen	brk
sign	brk
pm	brk
taus	brk
fill	brk
after	brk
fish	brk
pl	.byte "....."
p2	.byte "....."
fische	brk
	.byte "., "