	.INCLUDE	"QF.MAC"

unicum	== 123456
st$men	== 340
up	== 34
down	== 35
left	== 32
right	== 31
cr	== 15
rus	== 16
lat	== 17
del	== 177
esc	== 33
sp	== 40
ctrlC   == 3
ctrlW   == 27
rst	== 10
quit$	== 'Q
m$Y	==  0
m$X	==  1
m$len	==  2
m$mask	==  3
m$choic	==  4
m$data	==  5
back	==  32

.LASM	PUTCH
.LASM	PRINT	ASCIZ.
.LASM	EXTRB	BYTE2.
.LASM	PUSB	BYTE.
.LASM	PUSHB	var.
;.LASM	POPB	var.

;.LASM	ADDCB	BYTE.
;.LASM	PUSHCB	BYTE.
;.LASM	PUSHCW	WORD.
;.LASM	PUSHB	BYTE.
;.LASM	PUSHW	BYTE.
;.LASM	POPW	RYTE.

.LCOD	EXTR0
.LCOD	TTYOUT	BYTE.

.lcod	SHOW 
.lasm	P$PAR	byte.
.lasm	PUTDUp	byte.
.lcod	NOINVERS
.lcod	INVERSe
.lasm	DECOD
.lasm	CURON
.lcod	CUROFF
.lasm	COLON	byte.
.lasm	ADDBS
.lcod	cursor	byte.
.lcod	author
.lasm	do	byte.
.lasm	enddo
.lcod	clr$R
.lcod	clr$M
.lcod	clr$D
.lcod	list$D
.lcod	subscr
.lcod	nosubscr
.lcod	ed$cur
.lcod	ret$m2
.lcod	primnp
.lcod	t$move
.lasm	dupR2
.lasm	strR2
.lcod	nextr2
.lcod	MZnum
	.end
	                          