;
;  reverse engineer of CDOS screen editor
;       rzh          Aug. 2000
;
cr		equ	0dh
lf		equ	0ah
esc		equ	1bh
cpm		equ	0
bdos		equ	5
backsp		equ	9
dquote		equ	22h
squote		equ	27h
;
		org	100h

		JP	init

		db	0edh,0edh,1,45h
vermsg:		db	'Screen Editor'
		db	' version 01.45'
		db	cr,lf+128,0

		db	'Copyright (c)'
		db	' 1979, 1980, 1981,'
		db	' 1982',lf,0

init:		LD	SP,esctab
		LD	HL,vermsg
		CALL	prtstg
		CALL	setup
		SUB	A
		LD	(2DAEH),A
		LD	(2C80H),A
		INC	A
		LD	(2DADH),A
		LD	A,'>'
		LD	(8C5H),A
		JP	begin

; stack space
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0

esctab:		db	esc,45h,80h,0
		db	esc,48h,0,8,0,0
		db	esc,43h,0
		db	esc,41h,0,0,0,0
		db	esc,4bh,0
estb1:		db	esc,4ah,80h,0
		db	esc,46h,0
		db	esc,5ah,0
		db	esc,5ah,0
		db	esc,6ch,0
		db	esc,6dh,0,50h,18h
escpt2:		db	0
		db	esc,4ch,0
		db	esc,4dh,0
		db	17h,0bh,0
		db	0ah,1ah,0
		db	1,8,0
		db	4,0ch,0
		db	esc,0,3,0,19h,0

		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0

		LD	HL,1CAH
		CALL	3A8H
		JR	Z,245H
		LD	A,E
		ADD	A,20H
		CALL	conout
		LD	A,D
		ADD	A,20H
		CALL	conout
		LD	(4CDH),DE
		RET

		CALL	273H
		LD	A,(4CDH)
		CP	E
		JR	Z,253H
		CALL	28EH
		JR	248H

		LD	A,(4CEH)
		CP	D
		RET	Z
		CALL	2A0H
		JR	253H

		LD	HL,esctab
		CALL	3A8H
		JR	Z,26DH
		SUB	A
		LD	(4CEH),A
		LD	(4CDH),A
		RET

		CALL	273H
		CALL	2FFH
		LD	HL,1B4H
		CALL	3A8H
		SUB	A
		LD	(4CEH),A
		LD	(4CDH),A
		RET

		LD	A,cr
		CALL	conout
		SUB	A
		LD	(4CEH),A
		RET

		CALL	281H
		LD	A,8AH
		CALL	conout
		LD	A,(4CDH)
		INC	A
		LD	HL,1DAH
		CP	(HL)
		RET	NC
		LD	(4CDH),A
		RET

		LD	HL,1BAH
		CALL	3A8H
		LD	HL,4CEH
		INC	(HL)
		LD	A,(1D9H)
		CP	(HL)
		RET	NZ
		SUB	A
		LD	(HL),A
		LD	A,(4CDH)
		INC	A
		LD	HL,1DAH
		CP	(HL)
		RET	Z
		LD	(4CDH),A
		RET

		LD	HL,1B7H
		CALL	3A8H
		LD	A,(4CEH)
		AND	A
		JR	NZ,2DAH
		LD	A,(4CDH)
		AND	A
		JR	NZ,2D3H
		LD	A,(1DAH)
		DEC	A
		LD	(4CDH),A
		LD	A,(1D9H)
		DEC	A
		LD	(4CEH),A
		RET

		LD	HL,1BDH
		CALL	3A8H
		LD	HL,4CDH
		DEC	(HL)
		RET

		LD	A,7
		CALL	conout
		JP	conout

		LD	A,' '
		CALL	charout
		LD	A,(4CEH)
		AND	7
		JR	NZ,2F2H
		RET

		LD	HL,1C6H
		CALL	3A8H
		RET	NZ
		LD	HL,(4CDH)
		PUSH	HL
		CALL	323H
		LD	A,(4CDH)
		LD	HL,1DAH
		INC	A
		CP	(HL)
		JR	Z,31FH
		CALL	28BH
		CALL	323H
		JR	30DH

		POP	DE
		JP	22CH

		LD	HL,1C3H
		CALL	3A8H
		RET	NZ
		LD	HL,(4CDH)
		PUSH	HL
		LD	A,(1D9H)
		LD	HL,4CEH
		SUB	(HL)
		LD	B,A
		LD	A,(4CDH)
		INC	A
		LD	HL,1DAH
		CP	(HL)
		JR	C,341H
		DEC	B
		LD	A,' '
		CALL	charout
		DJNZ	343H
		POP	DE
		JP	22CH

		LD	HL,1DCH
		JR	3A8H

		LD	HL,1DFH
		JR	3A8H

		LD	HL,1CDH
		JR	3A8H

		LD	HL,1D0H
		JR	3A8H

		LD	HL,1D3H
		JR	3A8H

		LD	HL,1D6H
		JR	3A8H

		LD	HL,cpstr
		LD	BC,5
		CPIR
		RET

cpstr:		db	5Fh,7Fh,1,8,82h

		CP	cr
		JR	Z,392H
		CP	backsp
		JR	Z,392H
		CP	' '
		JR	NC,387H
		CALL	387H
		CALL	2BEH
		LD	A,' '
		CALL	charout
		JP	2BEH

		LD	HL,4CDH
		LD	E,(HL)
		CP	cr
		JR	Z,3A0H
		LD	A,(4CEH)
		AND	A
		JR	NZ,3A1H
		DEC	E
		LD	A,(2DAEH)
		LD	D,A
		JP	22CH

		LD	A,(HL)
		AND	A
		RET	Z
		CALL	conout
		CP	80H
		CALL	Z,3BAH
		INC	HL
		LD	A,(HL)
		AND	A
		JR	NZ,3ABH
		INC	A
		RET

		PUSH	BC
		SUB	A
		LD	B,lf
		CALL	conout
		DJNZ	3BEH
		POP	BC
		RET

conout:		PUSH	DE
		PUSH	BC
		LD	E,A
		LD	C,2
		CALL	bdos
		POP	BC
		POP	DE
		RET

; what is this -- can't find any direct refs.
		PUSH	AF
		IN	A,(0)
		RLA
		JR	NC,3D1H
		POP	AF
		OUT	(1),A
		RET

charout:	PUSH	HL
		PUSH	DE
		PUSH	BC
		PUSH	AF
		LD	E,A
		LD	HL,40AH
		CALL	ck4spc
		JR	NZ,402H
		LD	A,E
		CP	' '
		JR	NC,charot1
		LD	A,'^'
		CALL	conout
		CALL	2A6H
		LD	A,E
		ADD	A,40H
charot1:	CALL	conout
		CALL	2A6H
chroret:	POP	AF
		POP	BC
		POP	DE
		POP	HL
		RET

		LD	HL,418H
		CALL	14C5H
		JR	chroret

		db	80h,81h,82h,83h,84h,85h
		db	86h,cr,8ah,9,87h,88h,89h
		db	0

		dw	25dh
		dw	273h
		dw	2beh
		dw	2a0h
		dw	2dfh
		dw	323h
		dw	2ffh
		dw	281h
		dw	28eh
		dw	2f2h
		dw	2eah
		dw	360h
		dw	365h

		CALL	453H
		PUSH	HL
		PUSH	DE
		PUSH	BC
		LD	HL,1E2H
		LD	B,7
		LD	E,A
		LD	C,80H
		CP	(HL)
		JR	Z,450H
		LD	A,(HL)
		INC	HL
		AND	A
		LD	A,E
		JR	NZ,440H
		INC	C
		DJNZ	440H
		POP	BC
		POP	DE
		POP	HL
		RET

		LD	A,C
		JR	44CH

		PUSH	BC
		LD	C,80H
		CALL	bdos
		POP	BC
		RET

		LD	C,0BH
		CALL	bdos
		INC	A
		RET

		CALL	45BH
		RET	NZ
		LD	C,80H
		CALL	bdos
		LD	B,A
		LD	A,(1EEH)
		CP	B
		RET

		LD	HL,4B0H
		CALL	45BH
		RET	Z
		DEC	L
		JR	NZ,474H
		DEC	H
		JR	NZ,474H
		INC	H
		RET

setesc:		LD	DE,stesc1
		LD	C,82H
		CALL	bdos
		LD	HL,escpt2
		LD	A,(HL)
		AND	A
		RET	NZ
		INC	(HL)
		CALL	4A4H
		RET	NZ
		LD	(escpt2),A
		LD	(estb1),A
		LD	(esctab+2),A
		DEC	A
		LD	(cpstr),A
stesc1:		RET

		CALL	453H
		CALL	45BH
		JR	Z,4A1H
		LD	A,5
		CALL	4C1H
		RET	NZ
		LD	B,0AH
		LD	A,2
		CALL	4C1H
		JR	NZ,4BFH
		DJNZ	4B1H
		LD	A,2
		CALL	conout
		SUB	A
		RET

		CALL	conout
		CALL	471H
		RET	NZ
		CALL	453H
		CP	A
		RET

		db	0,0

begin:		CALL	132BH
		LD	A,(504H)
		AND	A
		JR	NZ,4E4H
		LD	(617H),A
		LD	HL,505H
		CALL	1308H
		CALL	1313H
		SUB	A
		LD	(504H),A
		LD	HL,593H
		CALL	1474H
		JR	Z,4FFH
		CP	16H
		JR	C,4F7H
		LD	(504H),A
		LD	HL,5BBH
		CALL	14C5H
		JR	4D2H

		CALL	131AH
		JR	4E4H

		db	0
		db	'Edit: At Copy'
		db	' Delete Exit Find'
		db	' Insert Jump Move'
		db	' Other Page Substitute'
		db	' Xchange',0

		db	'Edit: Beautify Home'
		db	' List Names Other'
		db	' Read Tabs Verify'
		db	' Write Zap',0

		db	'@ABCDEFHIJLNMOPRST'
		db	'VWXZ ',9,cr,'<,->.+'
		db	80h,81h,82h,83h,84h,85h
		db	86h,2,0

		dw	16b9h 
		dw	16b9h
		dw	24ffh
		dw	2485h
		dw	14ceh
		dw	618h
		dw	0cabh
		dw	7b1h
		dw	921h
		dw	1769h
		dw	0f86h
		dw	297ah
		dw	247eh
		dw	609h
		dw	8dah
		dw	1000h
		dw	0b25h
		dw	1cf8h
		dw	132bh
		dw	10ebh
		dw	0d66h
		dw	177ch
		dw	77ch
		dw	844h
		dw	891h
		dw	8c6h
		dw	8c6h
		dw	8c6h
		dw	8c1h
		dw	8c1h
		dw	8c1h
		dw	7d4h
		dw	7ebh
		dw	79fh
		dw	78dh
		dw	131ah
		dw	131ah
		dw	7b4h
		dw	7afh

		LD	HL,617H
		INC	(HL)
		LD	A,(HL)
		RRA
		RET	NC
		POP	HL
		LD	HL,553H
		JP	4DEH

		db	0

		LD	HL,745H
		CALL	prtstg
		LD	HL,692H
		CALL	prtstg
		CALL	2038H
		LD	HL,6C6H
		CALL	prtstg
		CALL	2038H
		LD	HL,6FEH
		CALL	prtstg
		CALL	2038H
		LD	HL,71AH
		CALL	prtstg
		LD	DE,2500H
		CALL	22CH
		CALL	453H
		CP	1BH
		JP	Z,132BH
		LD	HL,68EH
		CALL	ck4spc
		JR	NZ,65AH
		CALL	131AH
		JR	645H

		LD	HL,745H
		CALL	prtstg
		LD	A,B
		AND	A
		JR	Z,679H
		DEC	A
		JR	Z,670H
		LD	HL,772H
		CALL	prtstg
		JP	22ACH

		LD	HL,75AH
		CALL	prtstg
		JP	22B1H

		LD	HL,74EH
		CALL	prtstg
		CALL	1A09H
		CALL	2275H
		CALL	1B71H
		CALL	1A1BH
		JP	132BH

		db	'CQU',0

		db	'Continue Quit Update'
		db	' <ESCAPE>',cr,lf+128

		db	backsp,' Continue -'
		db	' update ',0

		db	' and continue'
		db	' editing',cr,lf+128

		db	backsp,' Quit  -'
		db	' exit without'
		db	' updating ',0

		db	cr,lf+128

		db	'         Update'
		db	' - update ',0

		db	' and exit',cr,lf+128

		db	backsp,' <ESCAPE> -'
		db	' return to editor'
		db	cr,lf+128

		db	0

		db	80h,'>Exit: ',0

		db	'Continue',cr,lf+128

		db	lf+128,0

		db	'Quit',cr,lf+128

		db	lf+128

		db	'Screen aborted'
		db	cr,lf+128,0

		db	'Update',cr
		db	lf+128,lf+128,0

		LD	A,(8C5H)
		CP	'>'
		JR	Z,78DH
		JR	79FH

		CALL	18B6H
		JR	Z,792H
		CALL	C,80FH
		CALL	1E10H
		JR	NZ,785H
		CALL	7A9H
		JR	807H

		CALL	1911H
		JR	Z,7A4H
		CALL	C,82FH
		CALL	1E10H
		JR	NZ,797H
		CALL	7A9H
		JR	7F8H

		LD	A,(2DAEH)
		LD	(7B0H),A
		RET

		db	0

		LD	(504H),A
		CALL	19B7H
		LD	A,(2DADH)
		DEC	A
		CALL	NZ,19C0H
		LD	A,1
		LD	(2DADH),A
		CALL	7A9H
		JP	1313H

		CALL	19B7H
		CALL	1911H
		JR	Z,7D9H
		CALL	82FH
		CALL	1E10H
		JR	NZ,7C9H
		LD	A,(7B0H)
		CALL	1DDBH
		JR	7F8H

		LD	A,1
		CALL	19E0H
		JR	Z,7F0H
		CALL	80FH
		CALL	1E10H
		JR	NZ,7E1H
		LD	A,(7B0H)
		CALL	1DDBH
		JR	807H

		LD	A,(504H)
		AND	A
		JP	NZ,1313H
		LD	A,(escpt2)
		AND	A
		RET	Z
		JP	1323H

		LD	A,(504H)
		AND	A
		CALL	NZ,1313H
		RET

		LD	A,(1DAH)
		LD	B,A
		LD	A,(2DADH)
		INC	A
		CP	B
		JR	C,835H
		LD	A,(escpt2)
		AND	A
		JR	Z,828H
		CALL	139FH
		SUB	A
		LD	(504H),A
		RET

		CALL	1386H
		LD	A,1
		JR	824H

		LD	A,(2DADH)
		DEC	A
		JR	Z,839H
		LD	(2DADH),A
		RET

		LD	A,(escpt2)
		AND	A
		JR	NZ,823H
		CALL	13B0H
		JR	82BH

		CALL	1E10H
		RET	Z
		LD	A,(8C5H)
		CP	'>'
		JR	NZ,86DH
		CALL	18B6H
		JR	Z,868H
		CALL	C,80FH
		LD	A,(2DAEH)
		CALL	1CD7H
		CALL	NC,1CECH
		CALL	1DDBH
		CALL	1E10H
		JR	NZ,84FH
		CALL	7A9H
		JR	807H

		CALL	1911H
		JR	Z,886H
		JR	C,88CH
		LD	A,(2DAEH)
		CALL	1CD7H
		DEC	A
		JR	NC,877H
		INC	A
		CALL	1DDBH
		CALL	1E10H
		JR	NZ,86DH
		CALL	7A9H
		JP	7F8H

		CALL	82FH
		JR	881H

		CALL	1E10H
		RET	Z
		LD	A,(8C5H)
		CP	'>'
		JR	NZ,8ADH
		LD	A,1
		CALL	19E0H
		JR	Z,8ABH
		CALL	80FH
		CALL	1E10H
		JR	NZ,89CH
		JR	868H

		CALL	1911H
		PUSH	AF
		CALL	19B7H
		POP	AF
		JR	Z,8BFH
		CALL	C,82FH
		CALL	1E10H
		JR	NZ,8ADH
		JR	886H

		LD	A,'>'
		JR	8C8H

		db	0

		LD	A,'<'
		LD	(8C5H),A
		CALL	8D1H
		JP	1313H

		CALL	273H
		LD	A,(8C5H)
		JP	charout

		LD	A,(2DAEH)
		PUSH	AF
		CALL	273H
		LD	HL,915H
		CALL	1308H
		CALL	145CH
		CALL	1E10H
		JR	Z,902H
		LD	A,(8C5H)
		CP	'>'
		JR	Z,90CH
		CALL	19B7H
		LD	A,(1DAH)
		DEC	A
		CALL	19C0H
		JR	NZ,8E7H
		POP	AF
		CALL	1DDBH
		CALL	7A9H
		JP	132BH

		LD	A,(1DAH)
		DEC	A
		CALL	19E0H
		JR	900H

		db	'       Page',0

		LD	HL,8C5H
		LD	A,(HL)
		PUSH	AF
		LD	A,'>'
		LD	(HL),A
		LD	A,(4CEH)
		LD	(2C7CH),A
		LD	HL,9E4H
		CALL	1308H
		CALL	1B9FH
		CALL	1313H
		CALL	9FFH
		CALL	453H
		CP	esc
		JR	Z,96BH
		CALL	36AH
		JR	Z,98FH
		CP	'\'
		JR	Z,988H
		CP	backsp
		JR	Z,9B3H
		CALL	1C57H
		CP	cr
		CALL	NZ,charout
		CALL	Z,28BH
		LD	HL,(4CDH)
		LD	A,(2DADH)
		LD	(2DADH),HL
		CP	L
		JR	NZ,93BH
		JR	93EH

		CALL	1BE5H
		POP	AF
		LD	(8C5H),A
		CALL	7A9H
		CALL	1E60H
		RET	Z
		CALL	2FFH
		LD	DE,(4CDH)
		LD	A,(1DAH)
		SUB	E
		EX	AF,AF'
		JP	0A19H

		CALL	453H
		CP	7FH
		JR	NZ,94EH
		CALL	1911H
		JR	Z,9A6H
		JR	C,99BH
		CALL	378H
		JR	93EH

		LD	HL,2DADH
		DEC	(HL)
		JR	Z,9ABH
		CALL	378H
		JR	93BH

		CALL	131AH
		JR	93EH

		CALL	1BE5H
		CALL	1323H
		JR	935H

		CALL	9B8H
		JR	95DH

		LD	HL,4CEH
		LD	A,(HL)
		PUSH	HL
		CALL	1CECH
		POP	HL
		LD	C,A
		LD	A,(HL)
		ADD	A,8
		AND	0F8H
		CP	C
		LD	A,backsp
		JR	Z,9D0H
		JR	C,9D0H
		LD	A,' '
		CALL	charout
		PUSH	BC
		PUSH	HL
		CALL	1C57H
		POP	HL
		LD	A,(HL)
		PUSH	HL
		CALL	1CD7H
		POP	HL
		POP	BC
		LD	A,C
		JR	NC,9C2H
		RET

		db	'Insert: <text...>'
		db	' <ESCAPE>',0

		CALL	1E60H
		RET	Z
		CALL	2FFH
		LD	A,(4CDH)
		LD	E,A
		LD	A,(1DAH)
		SUB	E
		DEC	A
		RET	Z
		EX	AF,AF'
		INC	E
		LD	A,(2C7CH)
		LD	D,A
		CALL	22CH
		LD	C,D
		LD	HL,(1CD2H)
		LD	DE,(2DB1H)
		CALL	1E0AH
		JR	NC,0A3FH
		LD	A,(HL)
		INC	HL
		CALL	18E8H
		JR	NC,0A33H
		EX	AF,AF'
		DEC	A
		JP	Z,1313H
		EX	AF,AF'
		CALL	charout
		CP	cr
		LD	A,lf+128
		CALL	Z,charout
		JR	0A1DH

		LD	DE,(1CD2H)
		SBC	HL,DE
		PUSH	BC
		PUSH	HL
		CALL	1A5DH
		POP	HL
		POP	BC
		JP	C,1313H
		LD	DE,(1CD2H)
		ADD	HL,DE
		JR	0A1DH

		PUSH	HL
		LD	DE,2E26H
		INC	DE
		CALL	0AC7H
		JR	Z,0A95H
		LD	B,0
		LD	C,A
		INC	B
		JR	Z,0A82H
		CALL	453H
		CP	'\'
		JR	Z,0A97H
		CP	esc
		JR	Z,0A95H
		PUSH	BC
		CALL	36AH
		POP	BC
		JR	Z,0A9EH
		PUSH	AF
		CALL	0B0DH
		POP	AF
		LD	(DE),A
		INC	DE
		CP	C
		JR	NZ,0A63H
		DEC	B
		POP	HL
		JR	Z,0AB4H
		LD	C,B
		LD	B,0
		PUSH	HL
		EX	DE,HL
		LD	HL,2E26H
		LD	(HL),C
		INC	BC
		LDIR
		EX	DE,HL
		LD	(HL),0
		POP	HL
		RET

		CALL	453H
		CP	7FH
		JR	NZ,0A78H
		DEC	B
		JR	NZ,0AA7H
		CALL	387H
		SUB	A
		JR	0A5BH

		DEC	DE
		LD	A,(DE)
		CP	' '
		CALL	C,387H
		CALL	387H
		DEC	B
		JR	0A63H

		LD	A,(HL)
		AND	A
		RET	Z
		PUSH	HL
		CALL	387H
		POP	HL
		PUSH	HL
		CALL	0B03H
		LD	A,C
		CALL	charout
		AND	A
		POP	HL
		RET

		AND	A
		CALL	Z,453H
		CALL	0AD7H
		JR	C,0AD4H
		RET	Z
		JP	charout

		SUB	A
		JR	0AC7H

		AND	A
		CALL	Z,453H
		CP	esc
		RET	Z
		CP	' '
		JR	C,0AFEH
		CALL	36AH
		JR	Z,0AFEH
		CALL	1DFAH
		JR	C,0AFEH
		CP	'A'
		JR	C,0AFCH
		CP	'['
		JR	C,0AFEH
		CP	'a'
		JR	C,0AFCH
		CP	'{'
		JR	C,0AFEH
		AND	A
		RET

		CALL	131AH
		SCF
		RET

		LD	B,(HL)
		EX	DE,HL
		INC	DE
		LD	A,(DE)
		CALL	0B0DH
		DJNZ	0B05H
		RET

		LD	HL,0B1FH
		CP	backsp
		JR	Z,0B1CH
		CP	cr
		JP	NZ,charout
		LD	HL,0B22H
		JP	prtstg

		db	'^I',0
		db	'^M',0

		LD	HL,0C58H
		CALL	143EH
		SUB	A
		LD	DE,2C7DH
		LD	(DE),A
		CALL	453H
		CP	'Q'
		JR	Z,0B3BH
		CP	'q'
		JR	NZ,0B54H
		LD	(DE),A
		LD	DE,(4CDH)
		PUSH	DE
		LD	DE,1300H
		CALL	22CH
		LD	HL,0C79H
		CALL	prtstg
		POP	DE
		CALL	22CH
		SUB	A
		JR	0B59H

		CALL	0AD7H
		JR	C,0B30H
		LD	HL,2C80H
		CALL	0A56H
		RET	Z
		LD	(2C7FH),A
		LD	A,','
		CALL	charout
		SUB	A
		LD	HL,2E26H
		LD	(HL),A
		CALL	0A56H
		JR	NZ,0B75H
		CP	esc
		RET	Z
		SUB	A
		LD	(2C7EH),A
		CALL	1A09H
		CALL	1E10H
		JP	Z,0CD6H
		LD	A,(2C7FH)
		CALL	0E63H
		JP	Z,0CD3H
		EXX
		LD	A,B
		AND	A
		JP	Z,0CD3H
		EXX
		LD	A,(2C7DH)
		AND	A
		JR	Z,0BECH
		CALL	1323H
		LD	HL,0C85H
		CALL	143EH
		JR	0BC6H

		LD	B,lf
		CALL	3BAH
		DJNZ	0BA5H
		LD	DE,0DFDFH
		CALL	22CH
		CALL	1313H
		LD	B,lf
		CALL	3BAH
		DJNZ	0BB5H
		LD	DE,0DFDFH
		CALL	22CH
		LD	DE,2B00H
		CALL	22CH
		CALL	45BH
		JR	NZ,0BA3H
		CALL	453H
		CP	esc
		JP	Z,7A9H
		LD	HL,0CA8H
		CALL	ck4spc
		JR	NZ,0BE0H
		CALL	131AH
		JR	0BA3H

		LD	A,(HL)
		CALL	charout
		PUSH	AF
		CALL	1313H
		POP	AF
		RRA
		JR	NC,0B75H
		EXX
		LD	HL,2E26H
		LD	A,(HL)
		AND	A
		JR	Z,0C13H
		LD	A,B
		SUB	(HL)
		JR	NC,0BFCH
		NEG
		JR	0BFDH

		LD	B,(HL)
		PUSH	AF
		INC	HL
		LD	A,(HL)
		PUSH	HL
		LD	HL,(2DB3H)
		LD	(HL),A
		PUSH	BC
		CALL	18B6H
		POP	BC
		POP	HL
		DJNZ	0BFEH
		POP	AF
		JR	Z,0C26H
		LD	B,A
		JR	C,0C38H
		CALL	1A09H
		PUSH	BC
		CALL	18B6H
		POP	BC
		DJNZ	0C16H
		CALL	1BD9H
		CALL	1A1BH
		CALL	1BE5H
		LD	A,(8C5H)
		CP	'>'
		JR	NZ,0C48H
		CALL	1911H
		CALL	145CH
		LD	A,1
		JP	0B76H

		INC	HL
		LD	A,(HL)
		PUSH	HL
		PUSH	BC
		CALL	1C57H
		POP	BC
		POP	HL
		DJNZ	0C38H
		CALL	196BH
		JR	0C26H

		LD	A,(2E26H)
		AND	A
		JR	Z,0C30H
		LD	B,A
		PUSH	BC
		CALL	1911H
		POP	BC
		DJNZ	0C4FH
		JR	0C30H

		db	'Substitute: [Query]'
		db	' <old>,<new> ',0

		db	88h

		db	'  Query '	  

		db	89h

		db	':',0

		db	'Substitute Query: Yes'
		db	' No <ESCAPE> ',0

		db	'YN',0

		LD	HL,0CE1H
		CALL	143EH
		LD	HL,2C80H
		SUB	A
		CALL	0A56H
		RET	Z
		LD	(2C7FH),A
		SUB	A
		LD	(2C7EH),A
		CALL	1E10H
		JR	Z,0CD6H
		CALL	145CH
		CALL	1A09H
		LD	A,(2C7FH)
		CALL	0E63H
		JR	NZ,0CBDH
		CALL	1A1BH
		LD	A,(2C7EH)
		AND	A
		RET	Z
		CALL	7A9H
		JP	1323H

		db	'Find: <ESCAPE> '
		db	'<string> ',0

		LD	A,C
		CALL	1C57H
		LD	DE,(4CDH)
		CP	cr
		CALL	NZ,charout
		CALL	Z,28BH
		LD	HL,(4CDH)
		LD	(2DADH),HL
		CALL	7A9H
		LD	A,D
		CP	H
		JR	C,0D77H
		INC	E
		LD	A,(1DAH)
		CP	E
		JR	Z,0D6EH
		JR	0D77H

		POP	AF
		CALL	1911H
		LD	C,cr
		JR	0D2AH

		LD	C,82H
		LD	A,1
		LD	(504H),A
		LD	(14AFH),A
		LD	A,C
		CP	cr
		JR	Z,0D41H
		AND	7FH
		LD	HL,5F9H
		CALL	14C5H
		JR	0D44H

		CALL	891H
		LD	A,(504H)
		AND	A
		JR	Z,0D6EH
		JR	0D77H

		CALL	1A09H
		CALL	0E16H
		PUSH	DE
		CALL	1BD9H
		CALL	1A1BH
		CALL	1BE5H
		CALL	9B8H
		POP	DE
		LD	(2DADH),DE
		JR	0DB5H

		LD	HL,8C5H
		LD	A,(HL)
		PUSH	AF
		LD	A,'>'
		LD	(HL),A
		LD	HL,0E40H
		CALL	1308H
		CALL	1313H
		CALL	432H
		CP	84H
		JR	Z,0DD5H
		LD	C,A
		CP	7FH
		JR	Z,0D28H
		JR	NC,0D2AH
		CP	backsp
		JR	Z,0D4CH
		PUSH	BC
		CALL	18B6H
		POP	BC
		JP	Z,0CFAH
		PUSH	AF
		LD	A,C
		CP	cr
		JR	Z,0D20H
		POP	AF
		LD	B,A
		LD	DE,(2DADH)
		JR	NC,0DA4H
		INC	E
		LD	(2DADH),DE
		LD	A,C
		LD	HL,(2DB3H)
		DEC	HL
		LD	(HL),A
		LD	HL,(4CDH)
		CALL	charout
		LD	A,cr
		CP	B
		JR	Z,0DDEH
		CALL	7A9H
		LD	HL,(4CDH)
		CALL	1E0AH
		JR	Z,0D77H
		PUSH	HL
		LD	A,B
		CP	backsp
		JR	Z,0E00H
		CALL	1420H
		POP	HL
		LD	(2DADH),HL
		CALL	1362H
		CALL	7A9H
		JR	0D74H

		SUB	A
		LD	(504H),A
		POP	AF
		LD	(8C5H),A
		RET

		DEC	E
		LD	(2DADH),DE
		PUSH	HL
		CALL	1C57H
		CALL	1911H
		CALL	7A9H
		POP	DE
		LD	HL,(4CDH)
		LD	A,D
		CP	H
		JR	C,0D77H
		INC	E
		LD	A,(1DAH)
		CP	E
		JP	Z,0D6EH
		PUSH	HL
		JR	0DC6H

		LD	A,E
		CP	L
		JR	NZ,0E08H
		LD	A,H
		CP	D
		JR	NC,0DC6H
		LD	A,backsp
		CALL	1C57H
		CALL	1911H
		POP	HL
		LD	(2DADH),HL
		JR	0DD0H

		LD	A,(2DAEH)
		CALL	1CECH
		LD	B,A
		PUSH	BC
		CALL	18B6H
		LD	DE,(2DADH)
		POP	BC
		RET	Z
		JR	C,0E2EH
		LD	A,D
		CP	B
		JR	C,0E1DH
		RET

		CP	cr
		JR	Z,0E38H
		INC	E
		LD	(2DADH),DE
		RET

		CALL	1911H
		LD	DE,(2DADH)
		RET

		db	'Xchange: <text> '
		db	'<ESCAPE>',0

		CALL	0F57H
		JR	Z,0E87H
		CALL	0F39H
		JR	0E8AH

		CP	squote
		JR	Z,0E6CH
		CP	dquote
		JR	Z,0E6CH
		SUB	A
		LD	(2D81H),A
		CALL	462H
		RET	Z
		LD	A,(8C5H)
		CP	'>'
		JR	NZ,0E59H
		CALL	18B6H
		RET	Z
		CALL	0F57H
		JR	Z,0E8BH
		CALL	0F39H
		RET	Z
		CALL	1911H
		RET	Z
		LD	HL,2C81H
		EXX
		LD	HL,(2DB1H)
		LD	DE,(2DB3H)
		SBC	HL,DE
		LD	A,H
		AND	A
		CALL	Z,1A5DH
		LD	B,0
		LD	HL,2D82H
		LD	(HL),B
		LD	HL,(2DB3H)
		LD	DE,(2DB1H)
		EXX
		LD	A,(HL)
		AND	A
		JR	Z,0EE5H
		INC	HL
		CP	'*'
		JR	Z,0EECH
		CALL	0F25H
		JR	Z,0EDBH
		CP	'?'
		JR	Z,0EABH
		CP	'\'
		CALL	Z,0F19H
		CALL	0F71H
		JR	Z,0EABH
		LD	A,(2D82H)
		AND	A
		JR	Z,0E6FH
		LD	HL,(2D84H)
		EXX
		LD	HL,2D83H
		LD	B,(HL)
		LD	HL,(2D86H)
		EXX
		JR	0EFEH

		JR	C,0E6FH
		LD	A,(8C5H)
		CP	'>'
		JR	NZ,0E6FH
		RET

		INC	A
		RET

		CALL	0F25H
		JR	Z,0EDBH
		LD	A,(HL)
		AND	A
		JR	Z,0EE5H
		INC	HL
		CP	'*'
		JR	Z,0EECH
		CP	'?'
		JR	Z,0EE7H
		CP	'\'
		CALL	Z,0F19H
		CALL	0F25H
		JR	Z,0EDBH
		CALL	0F71H
		JR	NZ,0EFEH
		LD	(2D82H),A
		LD	(2D84H),HL
		EXX
		LD	A,B
		LD	(2D83H),A
		LD	(2D86H),HL
		EXX
		JR	0EABH

		LD	A,(HL)
		INC	HL
		CP	'*'
		RET	Z
		CP	'?'
		RET	Z
		DEC	HL
		LD	A,'\'
		RET

		EXX
		CALL	1E0AH
		JR	NC,0F36H
		INC	B
		JR	Z,0F37H
		CCF
		EX	AF,AF'
		LD	A,(HL)
		INC	HL
		EXX
		LD	C,A
		EX	AF,AF'
		RET

		CP	A
		EXX
		RET

		PUSH	BC
		CALL	462H
		POP	BC
		RET	Z
		PUSH	BC
		CALL	0F4CH
		POP	BC
		RET	Z
		CALL	0F71H
		JR	NZ,0F39H
		AND	A
		RET

		LD	A,(8C5H)
		CP	'>'
		JP	Z,18B6H
		JP	1911H

		LD	A,(2C81H)
		LD	C,A
		CP	'?'
		RET	Z
		CP	'*'
		RET	Z
		CP	'\'
		RET	NZ
		LD	A,(2C82H)
		CP	'*'
		JR	Z,0F6EH
		CP	'?'
		RET	NZ
		LD	C,A
		AND	A
		RET

		PUSH	AF
		LD	A,(2D81H)
		AND	A
		JR	Z,0F7BH
		POP	AF
		CP	C
		RET

		LD	A,C
		CALL	makuc
		LD	C,A
		POP	AF
		CALL	makuc
		CP	C
		RET

		LD	HL,0FBDH
		CALL	17C0H
		JR	Z,0FB6H
		PUSH	HL
		PUSH	DE
		CALL	1A09H
		POP	HL
		CALL	1886H
		SUB	A
		LD	(2D88H),A
		CALL	462H
		JR	Z,0FB2H
		CALL	18B6H
		JR	Z,0FB2H
		CALL	0FC4H
		POP	DE
		LD	HL,2DB7H
		CALL	18A5H
		PUSH	DE
		JR	C,0F9BH
		POP	DE
		JP	1A1BH

		CP	84H
		RET	Z
		LD	A,0CH
		JR	0FD8H

		db	'List: ',0

		CP	cr
		JR	Z,0FDEH
		CP	backsp
		JR	Z,0FEAH
		CP	0CH
		JR	Z,0FD8H
		CP	' '
		JR	C,0FF5H
		LD	HL,2D88H
		INC	(HL)
		LD	E,A
		LD	C,5
		JP	bdos

		CALL	0FD8H
		LD	HL,2D88H
		SUB	A
		LD	(HL),A
		LD	A,lf
		JR	0FD8H

		LD	A,' '
		CALL	0FC4H
		LD	A,(HL)
		AND	7
		JR	NZ,0FEAH
		RET

		PUSH	AF
		LD	A,'^'
		CALL	0FC4H
		POP	AF
		ADD	A,40H
		JR	0FC4H

		LD	HL,101EH
		CALL	1308H
		CALL	1183H
		RET	Z
		CALL	11C5H
		RET	Z
		CALL	1072H
		RET	Z
		CALL	108AH
		CALL	196BH
		CALL	7A9H
		JP	1323H

		db	'Read: <ESCAPE> '
		db	'<filename> ',0

		db	'File not found ',0

		LD	A,(2D89H)
		AND	A
		JR	NZ,1061H
		LD	HL,(2D8AH)
		LD	DE,2E26H
		SBC	HL,DE
		RET	Z
		LD	E,H
		LD	D,L
		LD	(2978H),DE
		JP	24CDH

		SUB	A
		LD	(2D98H),A
		CALL	1072H
		RET	Z
		CALL	108AH
		RET	Z
		LD	C,13H
		JP	bdos

		LD	DE,2E26H
		LD	C,1AH
		CALL	bdos
		LD	DE,2D8CH
		LD	C,0FH
		CALL	bdos
		INC	A
		RET	NZ
		LD	HL,1039H
		JP	12C6H

		LD	HL,3626H
		LD	DE,80H
		AND	A
		SBC	HL,DE
		LD	(2D8AH),HL
		LD	HL,2E26H
		LD	DE,2D8CH
		LD	C,14H
		CALL	bdos
		LD	D,H
		LD	E,L
		AND	A
		JR	NZ,10D8H
		LD	B,80H
		LD	A,(HL)
		AND	7FH
		CP	lf
		JR	Z,10BFH
		CP	1AH
		JR	Z,10D8H
		LD	(DE),A
		INC	DE
		PUSH	HL
		PUSH	BC
		LD	HL,2976H
		CALL	19F1H
		POP	BC
		POP	HL
		INC	HL
		DJNZ	10A8H
		LD	HL,(2D8AH)
		AND	A
		SBC	HL,DE
		JR	NC,10D0H
		CALL	24CDH
		LD	DE,2E26H
		LD	C,1AH
		CALL	bdos
		EX	DE,HL
		JR	1099H

		LD	HL,2E26H
		AND	A
		SBC	HL,DE
		CALL	NZ,24CDH
		LD	DE,2D8CH
		LD	C,10H
		CALL	bdos
		INC	A
		RET

		LD	HL,1137H
		CALL	17C0H
		RET	Z
		PUSH	HL
		PUSH	DE
		CALL	1A09H
		LD	HL,113FH
		CALL	prtstg
		CALL	1183H
		POP	HL
		JR	Z,1135H
		CALL	11C5H
		JR	Z,1135H
		CALL	1886H
		CALL	1217H
		JR	Z,1135H
		CALL	18B6H
		JR	Z,112FH
		CP	cr
		JR	NZ,1120H
		CALL	11DCH
		JR	Z,1132H
		LD	A,lf
		CALL	11DCH
		JR	Z,1132H
		POP	DE
		PUSH	DE
		LD	HL,2DB7H
		CALL	18A5H
		JR	C,1110H
		CALL	1289H
		CALL	1A1BH
		POP	HL
		RET

		db	'Write: ',0

		db	'to <filename> ',0

		PUSH	HL
		PUSH	DE
		SUB	A
		LD	(2D89H),A
		CALL	1886H
		LD	HL,2E26H
		LD	(2D8AH),HL
		CALL	18B6H
		JR	Z,1173H
		CALL	11DCH
		POP	DE
		POP	HL
		JR	Z,1181H
		PUSH	HL
		PUSH	DE
		LD	HL,2DB7H
		CALL	18A5H
		JR	C,115DH
		POP	DE
		POP	HL
		LD	A,(2D89H)
		AND	A
		RET	Z
		CALL	1289H
		JR	Z,1181H
		AND	A
		RET

		SCF
		RET

		LD	DE,2E26H
		CALL	453H
		CP	esc
		RET	Z
		CP	cr
		JR	Z,11A0H
		CALL	36AH
		JR	Z,11B2H
		CP	' '
		JR	C,11BAH
		CALL	charout
		LD	(DE),A
		INC	DE
		JR	1186H

		CALL	charout
		SUB	A
		LD	(DE),A
		LD	DE,2D8CH
		LD	HL,2E26H
		LD	C,86H
		CALL	bdos
		INC	C
		RET

		LD	HL,2E26H
		AND	A
		SBC	HL,DE
		JR	C,11BFH
		CALL	131AH
		JR	1186H

		CALL	387H
		DEC	DE
		JR	1186H

		PUSH	HL
		LD	HL,1
		ADD	HL,DE
		LD	A,(HL)
		CP	' '
		JR	NZ,11D8H
		LD	HL,9
		ADD	HL,DE
		LD	A,(HL)
		CP	' '
		JR	Z,11DAH
		OR	1
		POP	HL
		RET

		LD	HL,(2D8AH)
		LD	(HL),A
		INC	HL
		LD	(2D8AH),HL
		LD	DE,3626H
		AND	A
		SBC	HL,DE
		RET	C
		LD	A,(2D89H)
		AND	A
		CALL	Z,1267H
		RET	Z
		LD	HL,2E26H
		LD	(2D8AH),HL
		LD	B,10H
		LD	D,H
		LD	E,L
		LD	C,1AH
		CALL	bdos
		LD	DE,2D8CH
		LD	C,15H
		CALL	bdos
		AND	A
		JR	NZ,1215H
		LD	DE,80H
		ADD	HL,DE
		DJNZ	11FBH
		INC	C
		RET

		SUB	A
		RET

		LD	HL,2E26H
		LD	(2D8AH),HL
		LD	DE,80H
		LD	C,1AH
		CALL	bdos
		LD	DE,2D8CH
		LD	C,0FH
		CALL	bdos
		INC	A
		JR	Z,1254H
		LD	HL,1137H
		CALL	1308H
		LD	HL,2D8CH
		CALL	204AH
		LD	HL,12E4H
		CALL	prtstg
		CALL	453H
		AND	5FH
		CP	'Y'
		JR	NZ,1265H
		CALL	charout
		LD	DE,2D8CH
		CALL	1FEFH
		LD	C,16H
		CALL	bdos
		LD	C,0FH
		CALL	bdos
		INC	A
		JR	Z,12C3H
		LD	(2D89H),A
		RET

		CP	A
		RET

		LD	DE,80H
		LD	C,1AH
		CALL	bdos
		LD	HL,2DE0H
		LD	DE,2D8CH
		LD	BC,9
		LDIR
		LD	HL,1286H
		LD	BC,3
		LDIR
		SUB	A
		LD	(DE),A
		JR	124EH

		db	'$$2'

		LD	HL,3626H
		LD	DE,(2D8AH)
		AND	A
		SBC	HL,DE
		PUSH	HL
		LD	DE,80H
		CALL	1E0AH
		JR	C,129DH
		EX	DE,HL
		LD	B,L
		LD	HL,(2D8AH)
		LD	A,1AH
		LD	(HL),A
		INC	HL
		DJNZ	12A3H
		POP	BC
		DEC	BC
		RL	C
		RL	B
		LD	A,10H
		SUB	B
		LD	B,A
		LD	HL,2E26H
		CALL	11FBH
		JR	Z,12C3H
		LD	DE,2D8CH
		LD	C,10H
		CALL	bdos
		INC	A
		RET	NZ
		LD	HL,12D8H
		CALL	1308H
		CALL	3BAH
		CALL	462H
		JR	Z,12D7H
		LD	HL,2D88H
		INC	(HL)
		JR	NZ,12C9H
		RET

		db	'write error',0

		db	' already exists. '
		db	' Delete it? (y/n) ',0

		PUSH	HL
		CALL	8D1H
		CALL	323H
		POP	HL
		JP	prtstg

		LD	DE,(2DADH)
		JP	22CH

		LD	HL,1320H
		JP	prtstg

		db	87h,87h,0

		LD	A,(1DAH)
		SRL	A
		LD	(2DADH),A
		CALL	1A09H
		CALL	25DH
		CALL	35BH
		CALL	28BH
		LD	A,(1DAH)
		LD	HL,2DADH
		SUB	(HL)
		DEC	A
		CALL	NZ,19E0H
		PUSH	AF
		CALL	19B7H
		LD	A,(1DAH)
		DEC	A
		DEC	A
		CALL	19C0H
		INC	A
		POP	BC
		SUB	B
		LD	(2DADH),A
		LD	A,(1DAH)
		SUB	1
		CALL	13CBH
		CALL	1A1BH
		JP	356H

		CALL	1A09H
		CALL	35BH
		CALL	13F8H
		LD	HL,143DH
		JR	C,1383H
		CP	(HL)
		JR	Z,135CH
		LD	(HL),A
		CALL	28BH
		CALL	2FFH
		LD	A,(1DAH)
		LD	HL,4CDH
		SUB	(HL)
		JR	1359H

		LD	(HL),A
		JR	135CH

		CALL	35BH
		LD	DE,1
		CALL	22CH
		CALL	351H
		LD	HL,2DADH
		PUSH	HL
		DEC	(HL)
		CALL	139FH
		POP	HL
		INC	(HL)
		JP	356H

		CALL	1A09H
		CALL	1911H
		CALL	1313H
		LD	A,2
		CALL	13CBH
		JP	1A1BH

		CALL	1A09H
		CALL	35BH
		CALL	19B7H
		CALL	1313H
		CALL	34CH
		CALL	13E5H
		CALL	NZ,charout
		CALL	356H
		JP	1A1BH

		LD	B,A
		PUSH	BC
		CALL	13E5H
		POP	BC
		RET	Z
		DEC	B
		RET	Z
		PUSH	BC
		JR	NC,13DBH
		CP	cr
		JR	NZ,13E0H
		CALL	28BH
		JR	13CDH

		CALL	charout
		JR	13CDH

		CALL	18B6H
		RET	Z
		RET	C
		CALL	charout
		JR	13E5H

prtstg:		LD	A,(HL)
		AND	A
		RET	Z
		CALL	charout
		INC	HL
		JR	prtstg

		LD	A,(1DAH)
		LD	HL,4CDH
		SUB	(HL)
		LD	B,A
		PUSH	BC
		CALL	13E5H
		POP	BC
		JR	Z,1418H
		DEC	B
		JR	Z,1418H
		CP	cr
		JR	Z,1413H
		CALL	charout
		JR	1400H

		CALL	323H
		JR	141CH

		CALL	2FFH
		SCF
		LD	A,(4CDH)
		RET

		CALL	1A09H
		LD	A,(2DADH)
		LD	C,A
		PUSH	BC
		CALL	18B6H
		POP	BC
		JR	Z,1436H
		JR	NC,1427H
		INC	C
		CP	cr
		JR	NZ,1427H
		DEC	C
		LD	A,C
		LD	(143DH),A
		JP	1A1BH

		db	0

		PUSH	HL
		CALL	8D1H
		CALL	323H
		CALL	145CH
		LD	DE,900H
		CALL	22CH
		POP	HL
		JR	prtstg

		LD	BC,146EH
		CALL	1E1FH
		LD	HL,146EH
		JR	prtstg

		CALL	35BH
		LD	DE,200H
		CALL	22CH
		LD	HL,(14AFH)
		CALL	1451H
		JP	356H

		db	'xxxxx',0

		PUSH	HL
		LD	HL,1
		PUSH	HL
		CALL	432H
		POP	HL
		CP	'#'
		JR	Z,14A0H
		CALL	1DFAH
		JR	NC,14A8H
		SUB	'0'
		LD	L,A
		PUSH	HL
		CALL	432H
		POP	HL
		CALL	1DFAH
		JR	NC,14A8H
		LD	D,H
		LD	E,L
		ADD	HL,HL
		ADD	HL,HL
		ADD	HL,DE
		ADD	HL,HL
		SUB	'0'
		CALL	1DF5H
		JR	1489H

		LD	HL,0FFFFH
		PUSH	HL
		CALL	432H
		POP	HL
		LD	(14AFH),HL
		POP	HL
		JP	ck4spc

		dw	0

ck4spc:		CALL	makuc
		LD	B,0
		LD	C,A
ckspc1:		LD	A,(HL)
		AND	A
		RET	Z
		CP	C
		JR	Z,fndspc
		INC	HL
		INC	B
		JR	ckspc1

fndspc:		SUB	A
		INC	A
		LD	A,B
		RET

		ADD	A,A
		CALL	1DF5H
		LD	A,(HL)
		INC	HL
		LD	H,(HL)
		LD	L,A
		JP	(HL)

		LD	HL,1514H
		CALL	1308H
		CALL	1313H
		LD	A,(4CEH)
		LD	(1558H),A
		LD	HL,2DB7H
		LD	BC,4
		PUSH	BC
		PUSH	HL
		LD	DE,1550H
		LDIR
		POP	HL
		POP	BC
		LD	DE,1554H
		LDIR
		LD	HL,1525H
		CALL	1474H
		JR	Z,1501H
		LD	HL,1534H
		CALL	14C5H
		JR	14F1H

		CALL	131AH
		JR	14F1H

		POP	AF
		LD	HL,1554H
		LD	DE,1550H
		CALL	18A5H
		RET	Z
		JP	1783H

		db	'Delete: <ESCAPE>',0

		db	backsp,cr,' '
		db	80h,81h,82h,83h,84h
		db	'<,->.+',0

		dw	155eh
		dw	1579h
		dw	156ah
		dw	15c9h
		dw	15ebh
		dw	159dh
		dw	15a9h
		dw	1506h
		dw	8c6h
		dw	8c6h
		dw	8c6h
		dw	8c1h
		dw	8c1h
		dw	8c1h

		db	0,0,0,0,0,0,0,0
		db	0

		CALL	1689H
		JR	Z,1574H
		CALL	1E10H
		JR	NZ,1559H
		LD	A,(4CEH)
		LD	(1558H),A
		RET

		CALL	1E10H
		JR	Z,1563H
		CALL	15F1H
		JR	NZ,156AH
		CALL	131AH
		JR	1563H

		LD	A,(8C5H)
		CP	'>'
		CALL	NZ,15F8H
		CALL	1E10H
		JR	Z,158DH
		CALL	1682H
		JR	Z,1574H
		JR	1581H

		LD	HL,8C5H
		LD	A,'>'
		CP	(HL)
		CALL	NZ,1632H
		JR	1563H

		CALL	15F8H
		JR	Z,1574H
		CALL	1E10H
		JR	NZ,1598H
		JR	1563H

		CALL	1632H
		JR	Z,1574H
		CALL	1E10H
		JR	NZ,15A4H
		JR	1563H

		CALL	15F8H
		JP	Z,131AH
		JR	NC,15B0H
		LD	A,(1558H)
		LD	HL,4CEH
		CP	(HL)
		JR	NC,15C9H
		CALL	15F8H
		JP	Z,131AH
		JR	15B8H

		CALL	1E10H
		JR	NZ,15B0H
		RET

		CALL	1632H
		JP	Z,131AH
		JR	NC,15CFH
		LD	A,(4CEH)
		LD	HL,1558H
		CP	(HL)
		JR	NC,15EBH
		CALL	1632H
		JP	Z,131AH
		JR	NC,15D7H
		CALL	15F8H
		CALL	1E10H
		JR	NZ,15CFH
		RET

		LD	A,(8C5H)
		CP	'>'
		JR	Z,1632H
		CALL	1911H
		RET	Z
		JR	C,1626H
		PUSH	AF
		LD	DE,1550H
		LD	HL,2DB7H
		CALL	18A5H
		JR	NC,1616H
		POP	AF
		PUSH	AF
		PUSH	DE
		CALL	378H
		POP	HL
		CALL	19FCH
		POP	AF
		RET

		CALL	1313H
		POP	AF
		PUSH	AF
		CALL	charout
		CALL	1313H
		LD	HL,1554H
		JR	1611H

		LD	HL,2DADH
		DEC	(HL)
		JR	NZ,15FEH
		INC	(HL)
		CALL	18B6H
		SUB	A
		RET

		CALL	18B6H
		RET	Z
		PUSH	AF
		JR	C,1668H
		LD	DE,2DB7H
		LD	HL,1554H
		CALL	18A5H
		JR	NC,165EH
		LD	HL,4CEH
		LD	A,(2DAEH)
		LD	C,A
		JR	1653H

		LD	A,' '
		CALL	charout
		LD	A,C
		CP	(HL)
		JR	NZ,164DH
		LD	HL,1554H
		CALL	19F1H
		POP	AF
		RET

		POP	AF
		CALL	charout
		PUSH	AF
		LD	HL,1550H
		JR	1659H

		LD	HL,2DADH
		LD	A,(1DAH)
		INC	(HL)
		CP	(HL)
		JR	Z,167BH
		POP	AF
		PUSH	AF
		CP	cr
		CALL	Z,28BH
		JR	1639H

		DEC	(HL)
		CALL	1911H
		POP	AF
		SUB	A
		RET

		CALL	15F1H
		RET	Z
		JR	NC,1682H
		RET

		CALL	15F1H
		RET	Z
		LD	A,(2DAEH)
		CALL	1CD7H
		JR	NC,1689H
		INC	A
		RET

		INC	A
		LD	B,8
		LD	C,(HL)
		CP	B
		JR	Z,16A5H
		RLC	C
		DJNZ	169BH
		LD	(HL),C
		DEC	A
		RET

		SCF
		RL	C
		JR	16A0H

		LD	B,A
		INC	B
		LD	C,(HL)
		RR	C
		DJNZ	16ADH
		RET

		SUB	'1'
		CCF
		RET	NC
		CP	7
		RET

		LD	HL,1708H
		CALL	1308H
		LD	A,(185DH)
		LD	C,A
		LD	B,7
		LD	E,30H
		RR	C
		LD	A,88H
		CALL	C,charout
		INC	E
		LD	A,E
		CALL	charout
		LD	A,89H
		CALL	charout
		LD	A,' '
		CALL	charout
		DJNZ	16C7H
		LD	HL,17D5H
		CALL	prtstg
		CALL	432H
		CP	84H
		RET	Z
		CALL	16B2H
		JR	NC,1703H
		LD	HL,185DH
		CALL	1697H
		CALL	1760H
		EX	DE,HL
		LD	HL,2DB7H
		LD	BC,4
		LDIR
		RET

		CALL	131AH
		JR	16E5H

		db	'set marker At: ',0

		LD	A,7
		JR	16F0H

		LD	A,7
		CALL	1760H
		JP	1886H

		LD	A,(185DH)
		AND	A
		RET	Z
		LD	C,A
		SUB	A
		RR	C
		LD	B,A
		PUSH	BC
		CALL	C,173BH
		POP	BC
		LD	A,B
		INC	A
		CP	8
		JR	C,172BH
		AND	A
		RET

		JP	(IY)

		LD	IY,174CH
		JR	1747H

		LD	IY,1756H
		LD	DE,2DB7H
		JR	1724H

		CALL	1760H
		CALL	18A5H
		CALL	NC,19F1H
		RET

		CALL	1760H
		CALL	18A5H
		CALL	NC,19FCH
		RET

		ADD	A,A
		ADD	A,A
		LD	HL,185EH
		CALL	1DF5H
		RET

		LD	HL,1775H
		CALL	17DFH
		RET	Z
		CALL	1886H
		JR	1791H

		db	'Jump: ',0

		LD	HL,1797H
		CALL	17C0H
		RET	Z
		PUSH	DE
		CALL	1886H
		CALL	1BD9H
		POP	HL
		CALL	1886H
		CALL	1BE5H
		CALL	7A9H
		JP	1323H

		db	'Zap: ',0

		CALL	1308H
		LD	HL,1844H
		CALL	prtstg
		LD	HL,183CH
		CALL	prtstg
		LD	HL,184BH
		CALL	prtstg
		LD	IY,1850H
		CALL	1724H
		LD	HL,17D5H
		CALL	prtstg
		RET

		CALL	17DFH
		RET	Z
		PUSH	HL
		LD	A,','
		CALL	charout
		CALL	17E2H
		POP	DE
		RET	Z
		CALL	18A5H
		RET	NC
		EX	DE,HL
		RET

		db	'<ESCAPE> ',0

		CALL	179DH
		CALL	432H
		CALL	17EBH
		JR	C,17E2H
		RET

		CP	84H
		RET	Z
		PUSH	AF
		LD	HL,1831H
		CALL	ck4spc
		PUSH	AF
		JR	Z,182AH
		CP	7
		JR	NC,1811H
		LD	HL,185DH
		CALL	16AAH
		JR	NC,182AH
		CALL	1850H
		CALL	3CFH
		POP	AF
		CALL	1760H
		POP	AF
		AND	A
		RET

		JR	NZ,181BH
		CALL	16F0H
		LD	HL,183CH
		JR	1825H

		LD	HL,1844H
		CP	8
		JR	Z,1825H
		LD	HL,184BH
		CALL	prtstg
		JR	1807H

		POP	AF
		CALL	131AH
		POP	AF
		SCF
		RET

		db	'1234567CBE',0

		db	'Cursor ',0

		db	'Begin ',0

		db	'End ',0

		CP	7
		RET	Z
		ADD	A,'1'
		CALL	charout
		LD	A,' '
		JP	charout

		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0,0,0,0
		db	0,0,0,0,0
		db	0ffh,0ffh,0ffh,0ffh

		PUSH	BC
		PUSH	DE
		PUSH	HL
		POP	HL
		PUSH	HL
		LD	DE,2DB7H
		CALL	18A5H
		JR	C,189CH
		JR	Z,18A1H
		CALL	18B6H
		JR	Z,18A1H
		JR	1889H

		CALL	1911H
		JR	NZ,1889H
		POP	HL
		POP	DE
		POP	BC
		RET

		PUSH	HL
		PUSH	DE
		LD	B,4
		LD	A,(DE)
		LD	C,A
		LD	A,(HL)
		CP	C
		JR	NZ,18B3H
		INC	HL
		INC	DE
		DJNZ	18A9H
		POP	DE
		POP	HL
		RET

		LD	HL,(2DB1H)
		LD	DE,(2DB3H)
		AND	A
		SBC	HL,DE
		JR	Z,18E1H
		LD	A,(DE)
		INC	DE
		LD	(2DB3H),DE
		LD	HL,2DAEH
		LD	C,(HL)
		CALL	18E8H
		LD	(HL),C
		PUSH	AF
		LD	A,(1CD4H)
		AND	A
		CALL	NZ,173DH
		LD	HL,2DB7H
		CALL	19F1H
		POP	AF
		INC	H
		RET

		CALL	1A5DH
		JR	NC,18B6H
		SUB	A
		RET

		PUSH	HL
		PUSH	DE
		LD	HL,1D9H
		LD	D,A
		CP	backsp
		JR	Z,190AH
		CP	cr
		JR	Z,1907H
		CP	' '
		JR	NC,18FBH
		INC	C
		INC	C
		LD	A,C
		CP	(HL)
		JR	C,1901H
		SUB	(HL)
		LD	C,A
		CCF
		LD	A,D
		POP	DE
		POP	HL
		RET

		SUB	A
		JR	1901H

		LD	A,C
		ADD	A,8
		AND	0F8H
		JR	18FDH

		LD	HL,(2DAFH)
		LD	DE,(2DB3H)
		AND	A
		SBC	HL,DE
		JR	Z,1956H
		DEC	DE
		LD	A,(DE)
		PUSH	AF
		LD	A,(1CD4H)
		AND	A
		CALL	NZ,1743H
		LD	HL,2DB7H
		CALL	19FCH
		POP	AF
		LD	HL,2DAEH
		CP	backsp
		JR	Z,195DH
		CP	cr
		JR	Z,195DH
		CP	' '
		JR	NC,193EH
		DEC	(HL)
		DEC	(HL)
		JP	M,194FH
		AND	A
		INC	H
		LD	DE,(2DB3H)
		DEC	DE
		LD	A,(DE)
		LD	(2DB3H),DE
		RET

		LD	A,(1D9H)
		ADD	A,(HL)
		LD	(HL),A
		JR	1944H

		CALL	1AAEH
		JR	NC,1911H
		SUB	A
		RET

		LD	C,(HL)
		PUSH	BC
		CALL	1975H
		POP	BC
		LD	A,(2DAEH)
		CP	C
		CCF
		INC	A
		JR	1944H

		LD	DE,(2DB3H)
		LD	IY,196BH
		JR	197EH

		LD	DE,(2DB3H)
		DEC	DE
		LD	IY,1975H
		LD	BC,0
		LD	HL,(2DAFH)
		INC	BC
		AND	A
		SBC	HL,DE
		JR	NC,19AAH
		DEC	DE
		LD	A,(DE)
		CP	cr
		JR	NZ,1981H
		INC	DE
		DEC	BC
		LD	A,B
		OR	C
		JR	Z,19A6H
		EX	DE,HL
		LD	D,B
		LD	E,C
		LD	C,0
		LD	A,(HL)
		INC	HL
		CALL	18E8H
		DEC	DE
		LD	A,D
		OR	E
		JR	NZ,199BH
		LD	A,C
		LD	(2DAEH),A
		RET

		PUSH	BC
		CALL	1AAEH
		POP	BC
		LD	DE,(2DAFH)
		JR	C,1991H
		JP	(IY)

		CALL	1911H
		RET	Z
		JR	NC,19B7H
		JP	18B6H

		LD	B,A
		LD	C,0
		PUSH	BC
		CALL	1911H
		JR	Z,19D9H
		CALL	1911H
		JR	Z,19DCH
		JR	NC,19C9H
		POP	BC
		INC	C
		DEC	B
		PUSH	BC
		JR	NZ,19C9H
		CALL	18B6H
		POP	BC
		LD	A,C
		RET

		POP	BC
		INC	C
		LD	A,C
		RET

		LD	B,A
		LD	C,0
		PUSH	BC
		CALL	18B6H
		POP	BC
		JR	Z,19EFH
		JR	NC,19E3H
		INC	C
		DJNZ	19E3H
		LD	A,C
		RET

		LD	BC,4
		ADD	HL,BC
		LD	B,C
		DEC	HL
		INC	(HL)
		RET	NZ
		DJNZ	19F6H
		RET

		LD	BC,4
		ADD	HL,BC
		LD	B,C
		DEC	HL
		DEC	(HL)
		LD	C,(HL)
		INC	C
		RET	NZ
		DJNZ	1A01H
		RET

		PUSH	HL
		PUSH	DE
		PUSH	BC
		LD	HL,2DB7H
		LD	DE,2DBBH
		LD	BC,4
		LDIR
		POP	BC
		POP	DE
		POP	HL
		RET

		PUSH	HL
		LD	HL,2DBBH
		CALL	1886H
		POP	HL
		RET

		PUSH	HL
		ADD	HL,DE
		PUSH	HL
		LD	A,(1CD4H)
		AND	A
		CALL	NZ,1BEDH
		CALL	1B50H
		POP	HL
		AND	A
		SBC	HL,DE
		POP	DE
		RET	NC
		SUB	A
		RET

		LD	HL,0
		LD	DE,800H
		CALL	1A24H
		PUSH	DE
		JR	Z,1A7AH
		PUSH	HL
		LD	DE,(2DAFH)
		ADD	HL,DE
		EX	DE,HL
		LD	HL,(2DB3H)
		LD	BC,80H
		SBC	HL,BC
		SBC	HL,DE
		EX	DE,HL
		POP	DE
		JR	NC,1A6EH
		EX	DE,HL
		JR	1ABAH

		LD	HL,800H
		LD	DE,800H
		CALL	1A24H
		PUSH	DE
		JR	Z,1A7AH
		LD	DE,(2DAFH)
		ADD	HL,DE
		CALL	2136H
		LD	DE,(2DAFH)
		CALL	1E0AH
		JR	NC,1A6EH
		LD	HL,0
		CALL	1AF1H
		POP	HL
		LD	A,H
		OR	L
		JR	Z,1AA3H
		LD	DE,(2DB1H)
		ADD	HL,DE
		LD	DE,80H
		SBC	HL,DE
		EX	DE,HL
		CALL	2079H
		JR	C,1AA3H
		LD	HL,(2DB1H)
		CALL	1E0AH
		JR	NC,1AA3H
		CALL	2079H
		JR	NC,1A95H
		AND	A
		PUSH	AF
		LD	A,(1CD4H)
		CP	1
		CALL	Z,1B9FH
		POP	AF
		RET

		LD	HL,800H
		LD	DE,800H
		CALL	1A24H
		PUSH	DE
		JR	Z,1ACDH
		EX	DE,HL
		LD	HL,(2DB1H)
		AND	A
		SBC	HL,DE
		CALL	219BH
		LD	DE,(2DB1H)
		CALL	1E0AH
		JR	C,1AC1H
		POP	HL
		LD	A,H
		OR	L
		JR	Z,1AA3H
		CALL	1AF1H
		LD	HL,(2DB5H)
		LD	DE,7FH
		ADD	HL,DE
		CALL	20E7H
		JR	C,1AA3H
		LD	DE,(2DAFH)
		CALL	1E0AH
		JR	NC,1AA3H
		CALL	20E7H
		JR	NC,1AE1H
		JR	1AA2H

		LD	DE,(2DB5H)
		ADD	HL,DE
		PUSH	HL
		LD	HL,(2DB1H)
		LD	DE,(2DAFH)
		AND	A
		SBC	HL,DE
		JR	Z,1B40H
		LD	B,H
		LD	C,L
		POP	DE
		LD	HL,(2DAFH)
		PUSH	HL
		AND	A
		SBC	HL,DE
		EX	(SP),HL
		JR	Z,1B4EH
		LD	(2DAFH),DE
		JR	C,1B1EH
		LDIR
		LD	(2DB1H),DE
		JR	1B2CH

		EX	DE,HL
		ADD	HL,BC
		EX	DE,HL
		LD	HL,(2DB1H)
		LD	(2DB1H),DE
		DEC	HL
		DEC	DE
		LDDR
		LD	HL,(2DB3H)
		POP	BC
		AND	A
		SBC	HL,BC
		LD	(2DB3H),HL
		LD	HL,(1CD2H)
		AND	A
		SBC	HL,BC
		LD	(1CD2H),HL
		RET

		POP	HL
		LD	(2DAFH),HL
		LD	(2DB1H),HL
		LD	(2DB3H),HL
		LD	(1CD2H),HL
		RET

		POP	HL
		RET

		LD	HL,(2DB1H)
		LD	DE,(2DAFH)
		AND	A
		SBC	HL,DE
		PUSH	HL
		LD	HL,(6)
		LD	DE,(2DB5H)
		AND	A
		SBC	HL,DE
		POP	DE
		AND	A
		SBC	HL,DE
		EX	DE,HL
		RET

setup:		CALL	480H
		CALL	1E8FH
		LD	HL,0
		LD	(2DB7H),HL
		LD	(2DB9H),HL
		LD	HL,(topofmem)
		LD	(2DB5H),HL
		LD	(2DB3H),HL
		LD	(2DAFH),HL
		LD	(2DB1H),HL
		EX	DE,HL
		LD	HL,(6)
		AND	A
		SBC	HL,DE
		SRL	H
		RR	L
		SRL	H
		RR	L
		LD	D,H
		LD	E,L
		ADD	HL,DE
		ADD	HL,DE
		JP	1A85H

		PUSH	AF
		LD	HL,0
		CALL	1AF1H
		LD	DE,(2DB1H)
		LD	HL,(6)
		AND	A
		SBC	HL,DE
		JR	Z,1BCEH
		EX	DE,HL
		LD	DE,(2DB3H)
		AND	A
		SBC	HL,DE
		LD	B,H
		LD	C,L
		LD	DE,(6)
		LD	HL,(2DB1H)
		LD	(2DB1H),DE
		JR	Z,1BCEH
		DEC	HL
		DEC	DE
		LDDR
		INC	DE
		LD	(1CD2H),DE
		LD	A,1
		LD	(1CD4H),A
		POP	AF
		RET

		LD	HL,(2DB3H)
		LD	(1CD2H),HL
		LD	A,2
		LD	(1CD4H),A
		RET

		CALL	1BEDH
		SUB	A
		LD	(1CD4H),A
		RET

		LD	HL,(2DB1H)
		LD	DE,(1CD2H)
		AND	A
		SBC	HL,DE
		LD	DE,(2DB3H)
		JR	Z,1C3DH
		PUSH	HL
		POP	BC
		EX	DE,HL
		LD	DE,(2DAFH)
		AND	A
		SBC	HL,DE
		LD	DE,(1CD2H)
		JR	Z,1C2BH
		PUSH	DE
		PUSH	BC
		POP	DE
		CALL	1E0AH
		LD	DE,(2DB3H)
		JR	NC,1C31H
		PUSH	HL
		POP	BC
		EX	DE,HL
		POP	DE
		LD	(2DB3H),DE
		DEC	DE
		DEC	HL
		LDDR
		INC	DE
		LD	(2DAFH),DE
		RET

		LD	(2DB3H),DE
		JR	1C26H

		POP	HL
		LD	(1CD2H),DE
		LDIR
		LD	(2DB1H),DE
		RET

		LD	(1CD2H),DE
		JR	1C38H

		CALL	1A39H
		LD	HL,(2DB3H)
		LD	DE,(1CD2H)
		CALL	1E0AH
		JR	NC,1C43H
		PUSH	HL
		POP	DE
		INC	HL
		JR	1CA7H

		PUSH	AF
		LD	A,(1CD4H)
		AND	A
		JR	NZ,1C46H
		CALL	1B50H
		CALL	Z,1A39H
		LD	HL,(6)
		LD	DE,(2DB1H)
		AND	A
		SBC	HL,DE
		JR	Z,1CB9H
		PUSH	DE
		EX	DE,HL
		LD	DE,(2DB3H)
		SBC	HL,DE
		JR	Z,1C96H
		PUSH	HL
		PUSH	DE
		LD	DE,(2DAFH)
		LD	HL,(2DB5H)
		SBC	HL,DE
		POP	HL
		JR	Z,1C94H
		AND	A
		SBC	HL,DE
		POP	DE
		JR	Z,1CB8H
		CALL	1E0AH
		JR	C,1CB8H
		PUSH	DE
		INC	D
		POP	BC
		POP	DE
		LD	H,D
		LD	L,E
		DEC	HL
		INC	DE
		LD	(2DB1H),DE
		DEC	DE
		JR	Z,1CA4H
		LDDR
		EX	DE,HL
		INC	HL
		INC	DE
		POP	AF
		PUSH	AF
		LD	(DE),A
		LD	(2DB3H),HL
		CALL	173DH
		LD	HL,2DB7H
		CALL	19F1H
		POP	AF
		RET

		POP	HL
		LD	HL,(2DB3H)
		LD	DE,(2DAFH)
		AND	A
		SBC	HL,DE
		LD	B,H
		LD	C,L
		LD	H,D
		LD	L,E
		DEC	DE
		LD	(2DAFH),DE
		JR	Z,1CA7H
		LDIR
		JR	1CA7H

		dw	0
		db	0

topofmem:	dw	3627h

		LD	D,A
		SRL	A
		SRL	A
		SRL	A
		LD	HL,1DC9H
		CALL	1DF5H
		LD	A,D
		AND	7
		CALL	16AAH
		LD	A,D
		RET

		INC	A
		CALL	1CD7H
		RET	C
		LD	HL,1D9H
		CP	(HL)
		JR	C,1CECH
		RET

		LD	HL,1DA7H
		CALL	1308H
		LD	A,(1D9H)
		LD	B,A
		LD	E,'1'
		LD	A,' '
		LD	C,lf
		DEC	C
		JR	NZ,1D0FH
		LD	A,E
		INC	E
		LD	C,lf
		CALL	charout
		LD	A,' '
		DJNZ	1D08H
		LD	A,(1D9H)
		LD	B,A
		LD	A,'1'
		CP	':'
		JR	C,1D22H
		LD	A,'0'
		CALL	charout
		INC	A
		DJNZ	1D1CH
		LD	DE,2E26H
		PUSH	DE
		LD	HL,1DC9H
		LD	BC,0AH
		LDIR
		LD	A,(1D9H)
		LD	B,A
		POP	HL
		LD	C,1
		DEC	C
		JR	NZ,1D42H
		LD	C,8
		LD	E,(HL)
		INC	HL
		RR	E
		LD	A,' '
		JR	NC,1D4AH
		LD	A,'T'
		CALL	charout
		DJNZ	1D3BH
		LD	DE,(4CDH)
		INC	D
		DEC	E
		CALL	22CH
		LD	A,(1D9H)
		LD	B,A
		LD	HL,2E26H
		LD	E,(HL)
		RRC	E
		DEC	B
		LD	C,7
		CALL	432H
		CP	84H
		JR	Z,1D9CH
		CP	cr
		JR	Z,1D9FH
		CP	' '
		JR	Z,1D82H
		AND	5FH
		CP	'T'
		JR	Z,1D81H
		PUSH	HL
		CALL	131AH
		POP	HL
		JR	1D65H

		SCF
		RR	E
		CALL	charout
		DEC	C
		JR	NZ,1D8FH
		LD	(HL),E
		INC	HL
		LD	C,8
		LD	E,(HL)
		DJNZ	1D65H
		LD	HL,2E26H
		LD	DE,1DC9H
		LD	BC,0AH
		LDIR
		JP	132BH

		LD	B,C
		LD	A,E
		RRCA
		DJNZ	1DA1H
		LD	(HL),A
		JR	1D91H

		db	80h
		db	'Set Tabs: <'
		db	'ESCAPE> <RETURN>'
		db	cr,lf+128,lf+128
		db	lf+128,lf+128,0

; this is probably data ?
		LD	BC,00101H
		LD	BC,00101H
		LD	BC,00101H
		LD	BC,0BE1AH
		RET	NZ
		INC	HL
		INC	DE
		DJNZ	01DD3H
		RET

		PUSH	AF
		CALL	19B7H
		POP	AF
		PUSH	AF
		LD	HL,2DAEH
		CP	(HL)
		JR	Z,1DF3H
		JR	C,1DF3H
		CALL	18B6H
		JR	Z,1DF3H
		JR	NC,1DDFH
		CALL	1911H
		POP	AF
		RET

		ADD	A,L
		LD	L,A
		RET	NC
		INC	H
		RET

		CP	'0'
		CCF
		RET	NC
		CP	':'
		RET

makuc:		CP	'a'
		RET	C
		CP	'{'
		RET	NC
		AND	5FH
		RET

		PUSH	HL
		AND	A
		SBC	HL,DE
		POP	HL
		RET

		CALL	462H
		RET	Z
		LD	HL,(14AFH)
		LD	A,H
		OR	L
		RET	Z
		DEC	HL
		LD	(14AFH),HL
		RET

		SUB	A
		LD	(1E5FH),A
		LD	DE,2710H
		CALL	1E3EH
		LD	DE,3E8H
		CALL	1E3EH
		LD	DE,64H
		CALL	1E3EH
		LD	DE,0AH
		CALL	1E3EH
		LD	DE,1
		LD	A,'0'
		INC	A
		SBC	HL,DE
		JR	NC,1E40H
		ADD	HL,DE
		DEC	A
		LD	(BC),A
		LD	A,(1E5FH)
		AND	A
		JR	NZ,1E5DH
		LD	A,(BC)
		CP	'0'
		JR	NZ,1E58H
		LD	A,' '
		LD	(BC),A
		INC	BC
		RET

		LD	A,1
		LD	(1E5FH),A
		INC	BC
		RET

		db	0

		LD	HL,(1CD2H)
		LD	DE,(2DB1H)
		AND	A
		SBC	HL,DE
		RET	C
		LD	A,(244CH)
		BIT	0,A
		RET	NZ
		BIT	2,A
		JR	NZ,1E77H
		INC	A
		RET

		SUB	A
		RET

		RR	D
		JR	C,1EA3H
		LD	HL,244CH
		SET	4,(HL)
		CP	3
		JR	NC,1E8BH
		LD	A,C
		CP	12H
		JR	C,1EA3H
		SET	6,(HL)
		JR	1EA3H

		LD	C,8DH
		CALL	bdos
		LD	D,A
		LD	A,B
		CP	1
		JP	C,2367H
		JR	NZ,1E79H
		LD	A,C
		CP	7
		JP	C,2367H
		LD	DE,5CH
		CALL	1FA9H
		JP	Z,236CH
		LD	HL,5CH
		LD	DE,2DBFH
		CALL	1FE7H
		LD	C,0FH
		CALL	bdos
		CP	0FFH
		CALL	Z,1F18H
		LD	HL,6DH
		LD	A,(HL)
		CP	' '
		JR	Z,1ED1H
		LD	DE,5DH
		LD	B,0BH
		CALL	1DD3H
		JR	NZ,1F27H
		LD	HL,5CH
		LD	DE,2DE0H
		CALL	1FE7H
		LD	HL,1F37H
		LD	DE,2DE9H
		LD	BC,3
		LDIR
		LD	A,(6CH)
		AND	A
		JR	Z,1EF3H
		LD	(2DE0H),A
		LD	HL,244CH
		SET	7,(HL)
		LD	C,19H
		CALL	bdos
		LD	(2449H),A
		LD	HL,2DE0H
		LD	DE,2E01H
		PUSH	DE
		CALL	1FE7H
		LD	HL,1F3AH
		LD	DE,2E0AH
		LD	BC,3
		LDIR
		SUB	A
		LD	(2E22H),A
		POP	DE
		JP	1FFEH

		LD	HL,1F3DH
		CALL	prtstg
		CALL	3BAH
		LD	HL,244CH
		SET	2,(HL)
		RET

		LD	HL,6CH
		LD	DE,2DE0H
		CALL	1FE7H
		LD	HL,244CH
		SET	3,(HL)
		JR	1EF3H

		db	'$$1'
		db	'$$0'

		db	82h,82h,82h,82h,82h,82h
		db	82h,82h

		db	'new file',0

		CALL	1F6EH
		RET	Z
		LD	A,(244CH)
		BIT	4,A
		JR	Z,1F64H
		LD	C,98H
		CALL	bdos
		AND	A
		JP	NZ,2371H
		INC	A
		RET

		LD	C,14H
		CALL	bdos
		DEC	(IX+20H)
		JR	1F5EH

		PUSH	DE
		POP	IX
		LD	A,(IX+20H)
		DEC	(IX+20H)
		AND	A
		RET	NZ
		LD	(IX+20H),A
		LD	A,(IX+0CH)
		AND	A
		RET	Z
		LD	C,10H
		CALL	bdos
		LD	A,(244CH)
		BIT	6,A
		JR	Z,1F92H
		LD	C,9EH
		CALL	bdos
		DEC	(IX+0CH)
		LD	C,0FH
		CALL	bdos
		CP	0FFH
		JP	Z,2371H
		LD	A,(IX+0FH)
		DEC	A
		LD	(IX+20H),A
		SUB	A
		INC	A
		RET

		PUSH	HL
		PUSH	DE
		PUSH	BC
		LD	HL,1
		ADD	HL,DE
		LD	A,(HL)
		CP	' '
		JR	Z,1FD8H
		LD	HL,4
		ADD	HL,DE
		LD	A,(HL)
		CP	':'
		JR	Z,1FD8H
		LD	C,0FFH
		LD	HL,9
		ADD	HL,DE
		LD	DE,2430H
		LD	A,(HL)
		CP	'$'
		JR	Z,1FD8H
		PUSH	HL
		LD	B,3
		LD	A,(DE)
		INC	DE
		CPI
		JR	NZ,1FDDH
		DJNZ	1FCFH
		POP	HL
		POP	BC
		POP	DE
		POP	HL
		RET

		INC	DE
		DJNZ	1FDCH
		POP	HL
		LD	A,(DE)
		AND	A
		JR	NZ,1FCCH
		INC	A
		JR	1FD8H

		PUSH	DE
		LD	BC,0FH
		LDIR
		POP	DE
		RET

		PUSH	DE
		LD	DE,80H
		LD	C,1AH
		CALL	bdos
		POP	DE
		LD	C,13H
		JP	bdos

		CALL	1FEFH
		LD	C,16H
		CALL	bdos
		LD	C,0FH
		CALL	bdos
		CP	0FFH
		RET

		LD	HL,1882H
		CALL	1886H
		LD	HL,(2DB1H)
		LD	B,80H
		LD	A,1AH
		LD	(HL),A
		INC	HL
		DJNZ	201BH
		LD	HL,(2DB1H)
		CALL	2136H
		LD	DE,(2DAFH)
		CALL	1E0AH
		JR	NC,2022H
		LD	A,(2E22H)
		AND	A
		RET	Z
		LD	HL,2DECH
		LD	(HL),A
		RET

		LD	HL,2DE0H
		LD	A,(244CH)
		BIT	3,A
		JR	NZ,204AH
		BIT	7,A
		LD	A,(HL)
		LD	HL,2DBFH
		JR	NZ,204BH
		LD	A,(HL)
		AND	7
		JR	Z,2059H
		ADD	A,40H
		CALL	charout
		LD	A,':'
		CALL	charout
		LD	BC,820H
		INC	HL
		LD	A,(HL)
		CP	C
		CALL	NZ,charout
		DJNZ	205CH
		INC	HL
		LD	A,(HL)
		CP	C
		RET	Z
		LD	A,'.'
		CALL	charout
		LD	B,3
		LD	A,(HL)
		INC	HL
		CP	C
		RET	Z
		CALL	charout
		DJNZ	206FH
		RET

		PUSH	DE
		LD	HL,244CH
		BIT	0,(HL)
		JR	Z,20A4H
		LD	DE,(2DB1H)
		LD	C,1AH
		CALL	bdos
		LD	DE,2E01H
		CALL	1F4EH
		JR	Z,209CH
		LD	HL,(2DB1H)
		LD	DE,80H
		ADD	HL,DE
		EX	DE,HL
		JR	20D3H

		CALL	1FFEH
		LD	HL,244CH
		RES	0,(HL)
		BIT	2,(HL)
		JR	NZ,20E4H
		LD	DE,(2DB1H)
		LD	C,1AH
		CALL	bdos
		LD	DE,2DBFH
		LD	C,14H
		CALL	bdos
		AND	A
		JR	NZ,20E2H
		LD	HL,(2DB1H)
		LD	D,H
		LD	E,L
		LD	B,80H
		LD	A,(HL)
		CP	1AH
		JR	Z,20D9H
		INC	HL
		CP	lf
		JR	Z,20D1H
		AND	7FH
		LD	(DE),A
		INC	DE
		DJNZ	20C3H
		LD	(2DB1H),DE
		POP	DE
		RET

		LD	HL,244CH
		SET	2,(HL)
		RL	B
		JR	20D3H

		SET	2,(HL)
		SCF
		POP	DE
		RET

		LD	A,(244CH)
		BIT	1,A
		JR	Z,2134H
		PUSH	HL
		LD	HL,(2DAFH)
		LD	BC,80H
		AND	A
		SBC	HL,BC
		EX	DE,HL
		LD	C,1AH
		CALL	bdos
		LD	DE,2DE0H
		CALL	1F4EH
		JR	Z,212BH
		LD	HL,(2DAFH)
		LD	D,H
		LD	E,L
		LD	B,80H
		DEC	HL
		LD	A,(HL)
		CP	lf
		JR	Z,2115H
		DEC	DE
		LD	(DE),A
		DJNZ	210DH
		LD	(2DAFH),DE
		LD	HL,244CH
		CP	lf
		JR	Z,2127H
		RES	5,(HL)
		AND	A
		POP	HL
		RET

		SET	5,(HL)
		JR	2124H

		CALL	1FEFH
		LD	HL,244CH
		RES	1,(HL)
		POP	HL
		SCF
		RET

		PUSH	HL
		LD	HL,244CH
		BIT	1,(HL)
		JR	NZ,2152H
		SET	1,(HL)
		LD	DE,2DE0H
		LD	HL,2DECH
		LD	A,(HL)
		LD	(2E22H),A
		LD	(HL),0
		CALL	1FFEH
		JP	Z,21E6H
		LD	HL,(2DAFH)
		PUSH	HL
		LD	DE,80H
		LD	C,1AH
		CALL	bdos
		LD	B,80H
		LD	A,(244CH)
		BIT	5,A
		JR	NZ,2186H
		LD	A,(HL)
		INC	HL
		LD	(DE),A
		INC	DE
		CP	cr
		JR	Z,218FH
		DJNZ	2167H
		LD	(2DAFH),HL
		LD	DE,2DE0H
		LD	C,15H
		CALL	bdos
		POP	DE
		POP	HL
		AND	A
		RET	Z
		LD	(2DAFH),DE
		JR	21E6H

		RES	5,A
		LD	(244CH),A
		LD	A,lf
		JR	2169H

		DEC	B
		JR	NZ,218BH
		PUSH	HL
		LD	HL,244CH
		SET	5,(HL)
		POP	HL
		JR	2171H

		PUSH	HL
		LD	HL,244CH
		SET	0,(HL)
		LD	HL,(2DB1H)
		PUSH	HL
		LD	DE,80H
		AND	A
		SBC	HL,DE
		LD	(2DB1H),HL
		EX	DE,HL
		LD	C,1AH
		CALL	bdos
		LD	DE,2E01H
		LD	C,15H
		CALL	bdos
		POP	DE
		POP	HL
		AND	A
		RET	Z
		LD	(2DB1H),DE
		LD	DE,80H
		LD	C,1AH
		CALL	bdos
		LD	A,(244CH)
		BIT	1,A
		JR	Z,21E6H
		PUSH	DE
		POP	HL
		LD	A,1AH
		LD	(HL),A
		INC	DE
		LD	BC,7FH
		LDIR
		LD	DE,2DE0H
		LD	C,15H
		CALL	bdos
		LD	HL,23E6H
		CALL	prtstg
		LD	DE,2DE0H
		LD	C,10H
		CALL	bdos
		LD	A,(DE)
		LD	HL,244CH
		BIT	0,(HL)
		JR	NZ,21FFH
		LD	A,(2DBFH)
		AND	A
		JR	NZ,2206H
		LD	A,(2449H)
		INC	A
		DEC	A
		PUSH	AF
		ADD	A,'A'
		CALL	charout
		LD	HL,241BH
		CALL	prtstg
		CALL	453H
		LD	HL,2427H
		CALL	ck4spc
		JR	Z,2223H
		POP	DE
		CP	D
		JR	NZ,2228H
		PUSH	DE
		CALL	131AH
		JR	2213H

		LD	E,A
		ADD	A,'A'
		CALL	charout
		LD	A,E
		INC	A
		LD	HL,2DE0H
		LD	(HL),A
		LD	C,0EH
		CALL	bdos
		PUSH	DE
		LD	C,8DH
		CALL	bdos
		LD	A,B
		CP	2
		JR	NZ,2247H
		LD	A,C
		CP	'I'
		LD	C,0CH
		JR	C,224DH
		LD	C,0A2H
		POP	DE
		CALL	bdos
		PUSH	HL
		POP	IX
		SUB	A
		LD	(IX+0CH),A
		LD	A,(2449H)
		LD	E,A
		LD	C,0EH
		CALL	bdos
		INC	E
		LD	A,(2DBFH)
		AND	A
		JR	NZ,2269H
		LD	A,E
		CP	(HL)
		LD	HL,244CH
		JR	NZ,2271H
		SET	2,(HL)
		RES	1,(HL)
		JR	22ACH

		CALL	22CBH
		LD	HL,2DF0H
		LD	DE,2DBFH
		PUSH	DE
		LD	BC,10H
		LDIR
		POP	DE
		LD	C,0FH
		CALL	bdos
		INC	A
		JR	Z,22C0H
		LD	(244BH),A
		EX	DE,HL
		LD	DE,2DE0H
		LD	BC,9
		LDIR
		LD	HL,1F37H
		LD	C,3
		LDIR
		SUB	A
		LD	(2DAEH),A
		LD	HL,244CH
		LD	A,(HL)
		AND	0D0H
		LD	(HL),A
		RET

		CALL	22CBH
		JR	22C0H

		LD	A,(244CH)
		BIT	1,A
		JR	Z,22C0H
		LD	DE,2DE0H
		LD	C,13H
		CALL	bdos
		LD	DE,2E01H
		LD	C,13H
		CALL	bdos
		JP	cpm

		CALL	200EH
		LD	DE,2DE0H
		LD	C,10H
		CALL	bdos
		LD	HL,(2DECH)
		LD	H,0
		ADD	HL,HL
		ADD	HL,HL
		ADD	HL,HL
		ADD	HL,HL
		LD	A,(2E00H)
		ADD	A,7
		SRL	A
		SRL	A
		SRL	A
		ADD	A,L
		LD	L,A
		CALL	1451H
		LD	HL,237AH
		CALL	prtstg
		CALL	2038H
		CALL	28BH
		LD	A,(244CH)
		BIT	3,A
		RET	NZ
		LD	HL,2DE0H
		LD	DE,2DF0H
		PUSH	DE
		LD	BC,9
		LDIR
		LD	HL,2DC8H
		LD	C,3
		LDIR
		SUB	A
		LD	(DE),A
		POP	DE
		LD	C,11H
		CALL	bdos
		INC	A
		JR	Z,2358H
		LD	A,(DE)
		CP	0E5H
		LD	A,(2DE0H)
		LD	(DE),A
		JR	Z,2358H
		LD	DE,2DBFH
		LD	(DE),A
		LD	A,(244BH)
		AND	A
		JR	Z,2337H
		CALL	1FEFH
		JR	2358H

		EX	DE,HL
		LD	DE,2DCFH
		PUSH	HL
		PUSH	DE
		LD	BC,9
		LDIR
		LD	HL,2430H
		LD	C,3
		LDIR
		POP	DE
		LD	C,13H
		CALL	bdos
		POP	DE
		LD	C,17H
		CALL	bdos
		AND	A
		JR	Z,2362H
		LD	DE,2DE0H
		LD	C,17H
		CALL	bdos
		AND	A
		RET	NZ
		LD	HL,2388H
		JR	2374H

		LD	HL,239BH
		JR	2374H

		LD	HL,23BBH
		JR	2374H

		LD	HL,23D0H
		CALL	prtstg
		JP	cpm

		db	'K written to ',0

		db	cr,85h,lf+128
		db	'rename error'
		db	85h,cr,lf+128,0

		db	lf+128,'incompatible'
		db	' version of CDOS',cr
		db	lf+128,0

		db	lf+128,'illegal file'
		db	' name',cr,lf+128,0

		db	cr,85h,lf+128,'file'
		db	' read error',85h,cr
		db	lf+128,0

		db	80h,'disk overflow',cr
		db	lf+128,lf+128

		db	'insert blank diskette'
		db	' (not in unit ',0

		db	')',cr,lf+128,lf+128

		db	'unit ? ',0

		db	'ABCDEFGH'
		db	0
		db	'BAK'
		db	'COM'
		db 	'OVR'
		db	'OVL'
		db	'REL'
		db	'SAV'
		db	'$$0'
		db	'$$1'

		db	0,0,0,0,0

		LD	BC,4
		ADD	HL,BC
		EX	DE,HL
		ADD	HL,BC
		EX	DE,HL
		LD	B,C
		RET

		CALL	244DH
		DEC	DE
		DEC	HL
		LD	A,(DE)
		ADC	A,(HL)
		LD	(HL),A
		DJNZ	2459H
		RET

; this block of code is unreferenced
		CALL	244DH
		EX	DE,HL
		DEC	DE
		DEC	HL
		LD	A,(DE)
		SBC	A,(HL)
		LD	(DE),A
		DJNZ	2465H
		EX	DE,HL
		RET

		CALL	1760H
		LD	DE,2DB7H
		CALL	18A5H
		LD	DE,2976H
		CALL	NC,2456H
		RET

		LD	A,1
		LD	HL,24C6H
		JR	2489H

		SUB	A
		LD	HL,24BFH
		LD	(2E23H),A
		CALL	17C0H
		RET	Z
		PUSH	HL
		PUSH	DE
		CALL	1718H
		POP	HL
		POP	DE
		CALL	114EH
		PUSH	AF
		JR	C,24AFH
		LD	A,(2E23H)
		BIT	0,A
		JR	Z,24AFH
		PUSH	HL
		CALL	1BD9H
		POP	HL
		CALL	1886H
		CALL	1BE5H
		CALL	171CH
		POP	AF
		CALL	NC,1049H
		CALL	196BH
		CALL	7A9H
		JP	1323H

		db	'Copy: ',0
		db	'Move: ',0

		CALL	1A39H
		CALL	1B9FH
		LD	HL,(2978H)
		LD	B,L
		LD	C,H
		LD	HL,2E26H
		LD	DE,(2DB3H)
		LDIR
		LD	(2DB3H),DE
		CALL	1BE5H
		LD	IY,246EH
		CALL	1724H
		LD	HL,2DB7H
		LD	DE,2976H
		CALL	2456H
		LD	HL,0
		LD	(2978H),HL
		RET

		SUB	A
		LD	(2E23H),A
		LD	(2E24H),A
		LD	HL,268EH
		CALL	179DH
		LD	A,(2E24H)
		AND	A
		JR	Z,2527H
		LD	DE,(4CDH)
		PUSH	DE
		LD	DE,900H
		CALL	22CH
		LD	HL,26ACH
		CALL	prtstg
		POP	DE
		CALL	22CH
		CALL	432H
		LD	HL,26BAH
		LD	D,A
		CALL	ck4spc
		JR	Z,2541H
		AND	A
		JR	Z,253BH
		LD	(2E24H),A
		JR	2512H

		CALL	26C0H
		RET	Z
		JR	2506H

		LD	A,D
		CALL	17EBH
		JR	C,2527H
		RET	Z
		CALL	17C4H
		RET	Z
		PUSH	DE
		EX	DE,HL
		LD	HL,2DB7H
		EXX
		POP	HL
		CALL	1886H
		LD	HL,1D9H
		LD	A,(HL)
		PUSH	AF
		LD	A,(26BFH)
		INC	A
		LD	(HL),A
		LD	A,(26BDH)
		JR	2568H

		LD	A,(26BEH)
		DEC	A
		LD	(2975H),A
		SUB	A
		LD	(2E23H),A
		LD	(2E25H),A
		CALL	2805H
		JR	Z,25F7H
		LD	A,(2E24H)
		AND	A
		JP	NZ,2645H
		CALL	294DH
		JR	Z,25F7H
		JR	C,2593H
		CALL	2957H
		JR	NZ,257FH
		LD	(2E23H),A
		CALL	1A09H
		JR	257FH

		CALL	2957H
		JR	Z,25A5H
		CP	cr
		JR	Z,25C2H
		LD	A,(2E23H)
		AND	A
		JR	Z,25AAH
		CALL	1A1BH
		CALL	291EH
		JR	2565H

		CALL	294DH
		JR	Z,25F7H
		CALL	2957H
		JR	Z,25A5H
		CP	cr
		JR	NZ,25AAH
		CALL	25FEH
		JR	Z,25C7H
		CALL	1911H
		JR	2565H

		CALL	25FEH
		JR	NZ,25D1H
		CALL	25FEH
		JR	Z,25C7H
		CALL	1911H
		JR	2560H

		CALL	1911H
		CALL	2913H
		JR	C,25A5H
		LD	(2E23H),A
		CALL	1A09H
		CALL	294DH
		JR	Z,25ECH
		CALL	2957H
		JR	Z,25DFH
		CALL	1911H
		CALL	1BD9H
		CALL	1A1BH
		CALL	1BE5H
		JR	257FH

		POP	AF
		LD	(1D9H),A
		JP	24B6H

		CALL	294DH
		POP	HL
		JR	Z,25F7H
		CP	cr
		JP	(HL)

		LD	A,(HL)
		DEC	A
		JR	Z,265CH
		JR	25A5H

		LD	HL,2E23H
		CP	' '
		JR	Z,2607H
		LD	A,(HL)
		AND	A
		JR	Z,25AAH
		DEC	A
		JR	Z,266DH
		CALL	1A1BH
		CALL	291EH
		CALL	285BH
		JP	2565H

		CP	backsp
		JR	Z,2637H
		CP	cr
		JR	NZ,260DH
		CALL	25FEH
		JR	Z,25C7H
		CALL	1911H
		CALL	2913H
		LD	HL,2E23H
		JR	C,2607H
		LD	B,(HL)
		DEC	B
		JR	Z,265CH
		JR	2651H

		CALL	294DH
		JR	Z,25F7H
		JR	C,2627H
		CALL	2957H
		JR	NZ,2645H
		CALL	1A09H
		LD	HL,2E23H
		LD	(HL),1
		CALL	28D0H
		CP	backsp
		CALL	Z,2913H
		CALL	294DH
		JR	Z,25F7H
		JR	C,2627H
		CALL	2957H
		JR	Z,265CH
		CALL	1911H
		CALL	1BD9H
		CALL	1A1BH
		LD	A,(2E25H)
		AND	A
		CALL	NZ,18B6H
		CALL	C,1911H
		CALL	1BE5H
		SUB	A
		LD	(2E25H),A
		LD	HL,2E23H
		LD	(HL),2
		JR	2645H

		db	'Beautify: ['
		db	'Justify]'
		db	' [Margin] ',0

		db	88h,'  Justify ',89h
		db	':',0,'MJ',0

		db	0fh,0ah,'F'

		LD	A,(26BDH)
		LD	HL,275AH
		CALL	27ECH
		LD	A,(26BEH)
		LD	HL,2764H
		CALL	27ECH
		LD	A,(26BFH)
		LD	HL,276FH
		CALL	27ECH
		LD	HL,2746H
		CALL	1308H
		CALL	432H
		CP	84H
		RET	Z
		CP	cr
		JR	Z,2744H
		AND	5FH
		LD	HL,26BDH
		LD	DE,1500H
		CP	'P'
		JR	Z,2710H
		LD	HL,26BEH
		LD	DE,1F00H
		CP	'L'
		JR	Z,2710H
		LD	HL,26BFH
		LD	DE,2A00H
		CP	'R'
		JR	Z,2710H
		CALL	131AH
		JR	26E1H

		PUSH	HL
		CALL	22CH
		LD	HL,2787H
		CALL	prtstg
		CALL	278EH
		POP	HL
		JR	C,273EH
		RET	Z
		LD	B,(HL)
		LD	(HL),A
		LD	A,(26BFH)
		CP	85H
		JR	NC,273DH
		LD	C,A
		LD	A,(26BDH)
		CP	C
		JR	NC,273DH
		AND	A
		JR	Z,273DH
		LD	A,(26BEH)
		CP	C
		JR	NC,273DH
		AND	A
		JR	NZ,26C0H
		LD	(HL),B
		CALL	131AH
		JP	26C0H

		AND	A
		RET

		db	'Beautify: Paragraph'
		db	'(xxx) Left(xxx)'
		db	' Right(xxx) <ESCAPE> '
		db	'<RETURN> ',0

		db	'   ',82h,82h,82h,0

		LD	BC,0
		CALL	27B0H
		RET	C
		CP	84H
		RET	Z
		AND	A
		JR	Z,27ACH
		CALL	27B0H
		RET	C
		CP	84H
		RET	Z
		AND	A
		JR	Z,27ACH
		CALL	27B0H
		RET	C
		CP	84H
		RET	Z
		SUB	A
		INC	A
		LD	A,C
		RET

		CALL	432H
		CP	84H
		RET	Z
		CP	' '
		JR	NZ,27C4H
		CALL	charout
		SUB	A
		BIT	0,B
		JR	Z,27E3H
		SUB	A
		RET

		CALL	1DFAH
		JR	NC,27E6H
		LD	B,0FFH
		LD	(27EBH),A
		CALL	charout
		LD	A,C
		ADD	A,A
		RET	C
		ADD	A,A
		RET	C
		ADD	A,C
		RET	C
		ADD	A,A
		RET	C
		LD	C,A
		LD	A,(27EBH)
		SUB	'0'
		ADD	A,C
		RET	C
		LD	C,A
		LD	A,1
		RET

		CALL	131AH
		JR	27B0H

		db	0

		PUSH	HL
		LD	L,A
		LD	H,0
		LD	BC,2800H
		CALL	1E1FH
		POP	DE
		LD	HL,2802H
		LD	BC,3
		LDIR
		RET

		db	'     '

		LD	A,(2975H)
		AND	A
		JR	Z,2814H
		LD	HL,2DAEH
		CP	(HL)
		LD	A,cr
		CALL	C,292CH
		CALL	1A09H
		CALL	294DH
		RET	Z
		CP	cr
		JR	Z,2845H
		CALL	2957H
		JR	Z,2817H
		CALL	1911H
		CALL	1B9FH
		CALL	1A1BH
		LD	HL,2DAEH
		JR	2838H

		CALL	2903H
		CALL	292CH
		LD	A,(2975H)
		CP	(HL)
		JR	C,2840H
		JR	NZ,2832H
		CALL	1BE5H
		INC	A
		RET

		CALL	294DH
		RET	Z
		CP	cr
		JR	NZ,281FH
		CALL	1911H
		CALL	1911H
		CALL	1BD9H
		CALL	1A1BH
		JR	2840H

		CALL	1911H
		LD	A,(26BFH)
		LD	HL,2DAEH
		SUB	(HL)
		JR	Z,28C8H
		EX	AF,AF'
		CALL	2938H
		JR	Z,28C8H
		CALL	2957H
		JR	NZ,2868H
		LD	HL,28CFH
		LD	A,(HL)
		CPL
		LD	(HL),A
		AND	A
		JR	NZ,289DH
		CALL	28C8H
		CALL	1911H
		CALL	2938H
		JR	Z,287BH
		CALL	2957H
		JR	NZ,2881H
		CALL	292AH
		EX	AF,AF'
		DEC	A
		JR	Z,28C8H
		EX	AF,AF'
		CALL	1911H
		CALL	2957H
		JR	Z,2893H
		JR	2881H

		CALL	2938H
		JR	NZ,289DH
		CALL	294DH
		JR	Z,289DH
		JR	C,28C3H
		CALL	2957H
		JR	NZ,28A2H
		CALL	18B6H
		CALL	2957H
		JR	Z,28AEH
		CALL	1911H
		CALL	292AH
		EX	AF,AF'
		DEC	A
		JR	Z,28C8H
		EX	AF,AF'
		JR	028A2H

		CALL	1911H
		JR	289DH

		CALL	18B6H
		RET	Z
		JR	NC,28C8H
		RET

		db	0

		CP	backsp
		CALL	Z,2913H
		CALL	1911H
		CALL	1911H
		JR	Z,2900H
		CALL	295DH
		JR	Z,28D8H
		CALL	296CH
		JR	NZ,2900H
		LD	(2E25H),A
		CALL	1A1BH
		CALL	18B6H
		RET	Z
		CP	backsp
		CALL	Z,2913H
		CP	' '
		JR	Z,2900H
		CALL	1911H
		CALL	292AH
		JP	1A1BH

		LD	A,(HL)
		ADD	A,8
		AND	0F8H
		LD	B,A
		LD	A,(2975H)
		CP	B
		LD	A,backsp
		RET	NC
		LD	A,' '
		RET

		CALL	1911H
		LD	HL,(2DB3H)
		LD	(HL),' '
		JP	18B6H

		LD	HL,(2DB3H)
		DEC	HL
		LD	(HL),cr
		LD	HL,2DAEH
		LD	(HL),0
		RET

		LD	A,' '
		CALL	1C57H
		LD	HL,2DAEH
		LD	C,(HL)
		CALL	18E8H
		LD	(HL),C
		RET

		CALL	1911H
		RET	Z
		JR	C,2948H
		LD	B,A
		LD	A,(2975H)
		LD	HL,2DAEH
		CP	(HL)
		LD	A,B
		RET	C
		CALL	NZ,18B6H
		SUB	A
		RET

		EXX
		CALL	18A5H
		EXX
		JP	C,18B6H
		SUB	A
		RET

		CP	backsp
		RET	Z
		CP	' '
		RET

		CP	dquote
		RET	Z
		CP	squote
		RET	Z
		CP	'}'
		RET	Z
		CP	']'
		RET	Z
		CP	')'
		RET

		CP	'.'
		RET	Z
		CP	'?'
		RET	Z
		CP	'!'
		RET

		db	lf
		db	0,0,0,0

		LD	DE,80H
		LD	C,1AH
		CALL	bdos
		SUB	A
		LD	(3626H),A
		CALL	25DH
		LD	HL,2BC7H
		LD	(2C7AH),HL
		LD	HL,2A3DH
		CALL	1308H
		CALL	1183H
		JP	Z,2A18H
		CALL	11C5H
		JR	NZ,29ABH
		LD	HL,1
		ADD	HL,DE
		LD	B,0BH
		LD	(HL),3FH
		INC	HL
		DJNZ	29A6H
		LD	C,11H
		CALL	bdos
		CP	0FFH
		JR	Z,2A1BH
		LD	(2A24H),DE
		LD	DE,(2A24H)
		CALL	2ACBH
		JR	Z,2A06H
		LD	(2A23H),A
		LD	DE,2E26H
		LD	BC,0BH
		CALL	2BDAH
		LD	A,(2A23H)
		CALL	2B11H
		LD	DE,(2A24H)
		LD	A,(3626H)
		AND	A
		JR	NZ,2A06H
		LD	C,12H
		CALL	bdos
		CP	0FFH
		JR	Z,2A06H
		PUSH	HL
		LD	HL,2A8BH
		CALL	1308H
		CALL	453H
		POP	HL
		CP	1BH
		JR	Z,2A18H
		CP	cr
		JR	Z,29FFH
		CALL	131AH
		PUSH	HL
		JR	29EDH

		PUSH	HL
		CALL	25DH
		POP	HL
		JR	29B8H

		LD	HL,2A62H
		CALL	1308H
		CALL	453H
		CP	esc
		JR	Z,2A18H
		CALL	131AH
		JR	2A0CH

		JP	132BH

		LD	HL,2A26H
		CALL	prtstg
		JR	2A06H

		db	0,0,0,lf+128,lf+128

		db	'     No names found ',0

		db	'Names: <ESCAPE> <RETURN> '
		db	'<filename> ',0

		db	'Names: Press ESCAPE'
		db	' to continue editing ',0

		db	'Names: Press ESCAPE to'
		db	' continue editing, RETURN'
		db	' for more names ',0

		LD	BC,2E26H
		LD	(2B0FH),BC
		LD	B,'P'
		JR	2ADDH

		CALL	bdos
		CP	0FFH
		JR	Z,2B08H
		EX	DE,HL
		CALL	1FA9H
		EX	DE,HL
		JR	Z,2AF7H
		PUSH	DE
		PUSH	BC
		LD	DE,(2B0FH)
		LD	BC,0BH
		INC	HL
		LDIR
		LD	(2B0FH),DE
		POP	BC
		POP	DE
		DEC	B
		LD	C,12H
		LD	A,B
		AND	A
		JR	NZ,2AD6H
		LD	HL,(2B0FH)
		LD	DE,0FFF5H
		ADD	HL,DE
		LD	A,'P'
		SUB	B
		RET

		LD	A,0FFH
		LD	(3626H),A
		JR	2AFDH

		dw	0

		LD	(2BABH),A
		RRA
		RRA
		AND	'?'
		LD	E,A
		LD	D,0
		LD	HL,0BH
		LD	C,89H
		CALL	bdos
		LD	A,(2BABH)
		AND	3
		LD	HL,2E26H
		LD	BC,0BH
		LD	(2BA3H),HL
		ADD	HL,DE
		AND	A
		JR	Z,2B37H
		DEC	A
		ADD	HL,BC
		LD	(2BA5H),HL
		ADD	HL,DE
		AND	A
		JR	Z,2B40H
		DEC	A
		ADD	HL,BC
		LD	(2BA7H),HL
		ADD	HL,DE
		AND	A
		JR	Z,2B49H
		DEC	A
		ADD	HL,BC
		LD	(2BA9H),HL
		CALL	2BBDH
		CALL	2BBDH
		CALL	2BBDH
		LD	HL,2BA3H
		CALL	2B7DH
		JR	Z,2B73H
		LD	HL,2BA5H
		CALL	2B7DH
		JR	Z,2B73H
		LD	HL,2BA7H
		CALL	2B7DH
		JR	Z,2B73H
		LD	HL,2BA9H
		CALL	2B7DH
		CALL	2BBDH
		LD	A,(2BABH)
		AND	A
		JR	NZ,2B55H
		RET

		CALL	2BACH
		LD	B,8
		LD	E,(HL)
		INC	HL
		LD	D,(HL)
		CALL	2B9BH
		CALL	2BB5H
		LD	B,3
		CALL	2B9BH
		LD	(HL),D
		DEC	HL
		LD	(HL),E
		LD	A,(2BABH)
		DEC	A
		LD	(2BABH),A
		RET

		LD	A,(DE)
		CALL	charout
		INC	DE
		DJNZ	2B9BH
		RET

		db	0,0,0,0,0,0,0,0,0

		CALL	2BB8H
		CALL	2BB8H
		CALL	2BB8H
		CALL	2BB8H
		LD	A,' '
		JP	charout

		LD	A,cr
		CALL	charout
		LD	A,lf+128
		JP	charout

		PUSH	HL
		PUSH	DE
		PUSH	BC
		EX	DE,HL
		LD	A,(DE)
		CP	(HL)
		JR	NZ,2BD6H
		INC	DE
		INC	HL
		DEC	BC
		LD	A,B
		OR	C
		JR	NZ,2BCBH
		POP	BC
		POP	DE
		POP	HL
		RET

		LD	(2C5BH),HL
		LD	(2C5DH),DE
		CALL	2C73H
		RET	Z
		RET	C
		ADD	HL,BC
		LD	(2C61H),HL
		LD	H,D
		LD	L,E
		ADD	HL,BC
		CALL	2C79H
		JR	C,2BECH
		LD	(2C5FH),HL
		LD	HL,(2C61H)
		AND	A
		SBC	HL,BC
		CALL	2C79H
		JR	Z,2C02H
		JR	NC,2BF8H
		LD	(2C61H),HL
		PUSH	DE
		LD	DE,(2C5FH)
		CALL	2C73H
		JR	C,2C16H
		CALL	2C63H
		EX	DE,HL
		POP	DE
		JR	2BECH

		POP	DE
		CALL	2C63H
		AND	A
		SBC	HL,DE
		PUSH	HL
		LD	DE,(2C61H)
		LD	HL,(2C5BH)
		AND	A
		SBC	HL,DE
		POP	DE
		AND	A
		SBC	HL,DE
		JR	NC,2C41H
		LD	HL,(2C5DH)
		PUSH	HL
		LD	HL,(2C61H)
		AND	A
		SBC	HL,BC
		PUSH	HL
		ADD	HL,BC
		ADD	HL,BC
		EX	DE,HL
		LD	HL,(2C5BH)
		JR	2C53H

		LD	HL,(2C61H)
		ADD	HL,BC
		PUSH	HL
		LD	HL,(2C5BH)
		PUSH	HL
		LD	DE,(2C5DH)
		LD	HL,(2C61H)
		SBC	HL,BC
		CALL	2BDAH
		POP	HL
		POP	DE
		JP	2BDAH

		db	0,0,0,0,0,0,0,0

		PUSH	BC
		PUSH	DE
		PUSH	HL
		LD	A,(DE)
		LDI
		DEC	HL
		LD	(HL),A
		INC	HL
		JP	PE,2C66H
		POP	HL
		POP	DE
		POP	BC
		RET

		PUSH	HL
		AND	A
		SBC	HL,DE
		POP	HL
		RET

		JP	0

		db	1ah,1ah,1ah,1ah

		END