.title	note			; On the door.

	.inclu	"b:global"

	sect	code

note:	mov	Level, r2
	call	MtxBgn
	gos	LockMe <#FB1>
	cmp	r2, #1
	beq	10$

	clr	r0
	bis	106(r1), r0
	bis	110(r1), r0
	bne	200$

	call	MtxEnd
	mov	#1, r0
	call	Releas
	write	#Uhavnt
	jmp	900$
	
200$:	clr	106(r1)
	clr	110(r1)
	gos	put <#1, ,#FB1>

	call	MtxEnd

	write	#away			; The note has been tore down.
	jmp	900$
	
10$:	call	MtxEnd
	mov	#1, r0
	call	releas

	clr	r0
	bis	106(r1), r0
	bis	110(r1), r0
	beq	300$
	write	#Uhavit
	br	900$

	
300$:	mov	#head, r0
	mov	#TmpStr, r1
	call	movstr
	
	call	compos
	call	PCRLF
	tst	r0
	beq	900$
	gos	MakLet <Me, Me, #10,,,>
	mov	r0, r2
	mov	r1, r3

	call	MtxBgn

	gos	LockMe <#FB1>		; No TryRec here, because of COMPOS.
	mov	r3, 106(r1)
	mov	r2, 110(r1)
	gos	put <#1, , #FB1>

	call	MtxEnd

	write	#ptext			; "(text "
	clr	r0
	mov	#tmp+2, r1
	mov	r2, (r1)
	mov	r3, -(r1)
	call	deco32
	write	#asnote			; ") har satts som lapp p} d|rren"

900$:	call	PCRLF
	rts	pc

Text	Away,	<"Din lapp p} d|rren har tagits bort."<cr><lf>>
Text	ptext,	<"(Text ">
Text	asnote,	<" har satts som lapp p} d|rren)"<cr><lf>>
Text	head,	<"[rende: ** L A P P  P ]  D \ R R E N **">
Text	Uhavit,	<"Du har redan en lapp p} d|rren. Ta bort den f|rst!"<cr><lf>>
Text	Uhavnt,	<"Du har ingen lapp p} d|rren."<cr><lf>>

	.end