opt	l+,p+	;linkbar, pos. indep.

_SysBase         equ	4		;Basis von Exec
_LVOOpenLibrary  equ    -552  		;Library oeffnen
_LVOCloseLibrary equ    -414		;Library schliessen
_LVOOutput	 equ    -60		;DOS: Output-Handle holen
_LVOWrite	 equ    -48		;     Ausgabe
_LVORead	 equ    -42
_LVOInput        equ    -54
_LVOOpen        equ  -30
_LVOClose       equ  -36

RELO	macro
	lea     \1(pc),a0
	move.l	a0,\2
	endm
	
	movem.l	d0-d6/a0-a6,-(sp)
_main	lea	dosname(pc),a1		;Nane der DOS-Lib 
	moveq	#0,d0			;Version egal
	move.l  _SysBase,a6		;Basis Exec
        jsr     _LVOOpenLibrary(a6)	;DOS-Lib oeffnen
	tst.l	d0			;Fehler?
	beq	fini			;wenn Fehler, Ende
	move.l	d0,a6    		;Zeiger merken

	RELO	name,d1
        move.l  #1005,d2		;Status = gibt es
        jsr     _LVOOpen(a6)		;nun oeffnen
	move.l	d0,d5			;Handle merken
        tst.l   d0			;Fehler?
        beq     fini			;wenn ja, abbrechen

	move.l  d5,d1			;von CON lesen
        RELO    buffer,d2		;in diesen Puffer
        move.l  #1,d3			;1 Zeichen
        jsr     _LVORead(a6)		;Lesen aufrufen

	move.l	d5,d1			;CON wieder schliessen
        jsr     _LVOClose(a6)

        move.l  a6,a1                   ;DOS-Lib-Basis
	move.l  _SysBase,a6		;Basis Exec
        jsr     _LVOCloseLibrary(a6)	;Funktion "Schliessen"
	movem.l	(sp)+,d0-d6/a0-a6

fini	rts				;Return zum CLI

dosname	 dc.b	'dos.library',0
	 cnop	0,2
name	 dc.b   'CON:40/100/580/80/hit any key',0
         cnop   0,2
buffer   ds.b   2