opt	o+,a+

Start	move.l	4.w,a6
	lea	dosname,a1
	jsr	-408(a6)		* OldOpenLib
	lea	dosbase,a0
	move.l	d0,(a0)

	lea	locname,a1
	jsr	-408(a6)		* OldOpenLib
	lea	locbase,a0
	move.l	d0,(a0)
	beq.s	Fehler
	move.l	d0,a6

Hauptprogramm
	sub.l	a0,a0
	jsr	-156(a6)		* OpenLocale
	lea	locale,a0
	move.l	d0,(a0)
	beq.s	Fehler
	
	moveq	#1,d7
	moveq	#50,d6
	
.loop	move.l	locale,a0
	move.l	d7,d0
	jsr	-78(a6)		* GetLocaleString	
	
	move.l	d0,a0
	bsr.s	Ausgabe
	
	addq.l	#1,d7
	cmp.l	d6,d7
	ble.s	.loop
	
	move.l	locale,a0
	jsr	-42(a6)		* CloseLocale
	
Fehler	move.l	4.w,a6
	move.l	dosbase,a1
	jsr	-414(a6)		* CloseLib
	move.l	locbase,a1
	jsr	-414(a6)		* CloseLib
	moveq	#0,d0
	rts

Ausgabe	movem.l	d0-d7/a0-a6,-(sp)
	move.l	a0,d2
	move.l	dosbase,a6
	jsr	-60(a6)		* Output
	move.l	d0,d7
	beq.s	.ende
	
	move.l	d2,a0
.loop	tst.b	(a0)+
	bne.s	.loop
	move.l	a0,d3
	sub.l	d2,d3
	subq.l	#1,d3
	move.l	d7,d1
	jsr	-48(a6)		* Write
	
	move.l	d7,d1
	lea	Return,a0
	move.l	a0,d2
	moveq	#1,d3
	jsr	-48(a6)		* Write
.ende	movem.l	(sp)+,d0-d7/a0-a6
	rts

	
dosbase	dc.l	0
locbase	dc.l	0
locale	dc.l	0
	
LocName	dc.b	'locale.library',0
DosName	dc.b	'dos.library',0
Return	dc.b	10