ORG	100H
	JP	L00269
	JP	L00260

L00106:	DB	' COPYRIGHT (C) 1978  MICROPRO INTERNATIONAL CORPORATION      '
L00143:	DB	13,10,0
L00146:	DB	13,'MicroPro WORDMASTER release 1.07A serial # WM000000   '
	DB	13,10,0

CLRSCRN:
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	LD	A,1BH
	CALL	OUTCHR
	LD	A,'*'
	CALL	OUTCHR
	LD	A,1AH
	CALL	OUTCHR
	RET

TCURSOR:
	LD	A,1BH
	CALL	OUTCHR
	LD	A,'='
	CALL	OUTCHR
	LD	A,' '
	ADD	A,L
	CALL	OUTCHR
	LD	A,' '
	ADD	A,H
	CALL	OUTCHR
	RET
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP

PBEGMEM:DW	MEMORY
HITE:	DB	24
WID:	DB	80
EREOL:	DB	0
	DB	0
NOVIO:	DB	0
	DB	0,0,0
DELCLR:	DB	25
DELCUS:	DB	10
DELERE:	DB	5
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP

	JP	L0024F
OUTCHR:	JP	L02592

L001F2:
	LD	HL,0
	LD	(L02683),HL
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	CLRSCRN
	LD	A,(DELCLR)
	CALL	L0024F
	POP	HL
	POP	DE
	POP	BC
	RET

L00208:
	LD	HL,(L0268F)

L0020B:
	XOR	A
	LD	(L026A1),A
	PUSH	DE
	EX	DE,HL
	LD	HL,(L02683)
	CALL	L01F9F
	EX	DE,HL
	POP	DE
	RET	Z
	LD	(L02683),HL
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	TCURSOR
	LD	A,(DELCUS)
	CALL	L0024F
	POP	HL
	POP	DE
	POP	BC
	JP	L0234E

L0022F:
	PUSH	HL
	LD	HL,(L02683)
	DEC	H
	CALL	L0020B
	POP	HL
	RET

L00239:
	PUSH	AF
	LD	A,(EREOL)
	CALL	L0259B
	LD	A,(EREOL+1)
	OR	A
	CALL	NZ,L0259B
	LD	A,(DELERE)
	CALL	L0024F
	POP	AF
	RET

L0024F:
	INC	A

L00250:
	DEC	A
	RET	Z
	PUSH	AF
	CALL	L0234E
	XOR	A
	NOP

L00258:
	DEC	A
	JP	NZ,L00258
	POP	AF
	JP	L00250

L00260:
	LD	SP,L029B6
	LD	A,0FFH
	CALL	L00274
	RST	38H

L00269:
	LD	SP,L029B6
	XOR	A
	CALL	L00274
	CALL	L01FD9
	DB	0

L00274:
	LD	(L0274C),A
	LD	HL,0
	ADD	HL,SP
	LD	(L02760),HL
	LD	DE,L00146
	CALL	L0230E
	LD	DE,L00106
	CALL	L0230E

	LD	HL,(1)
	LD	DE,30H
	ADD	HL,DE
	LD	A,(HL)
	INC	HL
	OR	A
	JP	NZ,L0029F
	LD	A,(HL)
	INC	A
	JP	Z,L002B2
	DEC	HL
	LD	A,(HL)
	INC	HL

L0029F:
	CP	2
	JP	NZ,L002AF
	LD	A,(HL)
	CP	100
	JP	NC,L002AF
	CP	1
	JP	NC,L002B2

L002AF:
	LD	A,0FFH
	DB	0FEH

L002B2:
	XOR	A
	LD	(L0274B),A

	LD	A,(NOVIO)
	OR	A
	JP	NZ,L002C7
	LD	HL,0FFFDH
	LD	B,(HL)
	LD	A,0A9H
	LD	(HL),A
	XOR	(HL)
	LD	(HL),B
	INC	A

L002C7:
	LD	HL,L02749
	LD	(HL),A
	LD	A,(3)
	AND	3
	CP	2
	JP	NC,L002D7
	LD	(HL),0FFH

L002D7:
	CALL	L01901
	LD	HL,(PBEGMEM)
	EX	DE,HL
	LD	HL,L02731
	LD	A,4

L002E3:
	LD	(HL),E
	INC	HL
	LD	(HL),D
	INC	HL
	DEC	A
	JP	NZ,L002E3
	XOR	A
	LD	(DE),A
	INC	DE
	EX	DE,HL
	LD	(L02739),HL

L002F2:
	LD	HL,(L02739)
	LD	(L0273B),HL
	LD	(L0273D),HL
	LD	(L0273F),HL
	LD	(L02741),HL
	LD	DE,L02680
	LD	C,0B1H
	XOR	A

L00307:
	LD	(DE),A
	INC	DE
	DEC	C
	JP	NZ,L00307
	LD	(5BH),A
	LD	(68H),A
	LD	(6BH),A
	LD	(7DH),A
	LD	HL,(6)
	LD	A,L
	CP	6
	JP	Z,L00326
	LD	A,H
	SUB	7
	LD	H,A

L00326:
	DEC	HL
	LD	(L02743),HL
	LD	A,(PBEGMEM+1)
	ADD	A,0FH
	CP	H
	JP	C,L00345
	CALL	L01FE7
	DB	'NOT ENOUGH MEM',0

L00345:
	LD	A,H
	OR	A
	RRA
	RRA
	RRA
	INC	A
	INC	A
	AND	3CH
	LD	B,A
	LD	(L0272B),A
	RLCA
	LD	(L0272E),A
	LD	A,B
	CP	8
	JP	NC,L0035E
	LD	A,8

L0035E:
	LD	(L0272F+1),A
	LD	A,H
	CP	100
	LD	HL,400H
	LD	(L02726),HL
	JP	C,L0036E
	ADD	HL,HL

L0036E:
	LD	(L02728),HL
	LD	A,8
	LD	(L0272C),A
	JP	C,L0037A
	ADD	A,A

L0037A:
	LD	(L0272D),A
	LD	HL,5DH
	LD	A,(HL)
	DEC	HL
	CP	' '
	JP	NZ,L00397
	CALL	L01FE7
	DB	'NO FILE NAME',0

L00397:
	LD	A,(HL)
	CALL	L02052
	LD	(HL),A
	LD	DE,L026AB
	PUSH	DE
	LD	BC,10H
	CALL	L01F0C
	LD	A,(HL)
	POP	HL
	OR	A
	JP	Z,L003B0
	CALL	L02052
	LD	(HL),A

L003B0:
	LD	A,(5CH)
	CP	(HL)
	JP	Z,L003BC
	LD	A,0FFH
	LD	(L0271C),A

L003BC:
	LD	A,(HL)
	LD	DE,L026D1
	LD	(DE),A
	LD	HL,L0043B
	LD	BC,0BH
	INC	DE
	CALL	L01F0C
	LD	A,(L0271C)
	OR	A
	JP	Z,L003FD
	LD	DE,L026AB
	CALL	L01FF4
	JP	Z,L003FD
	CALL	L01FE7
	DB	'FILE EXISTS ON DESTINATION DSK',0

L003FD:
	LD	DE,5CH
	CALL	L01FF4
	LD	A,0FFH
	JP	Z,L0040E
	LD	(5BH),A
	JP	L00421

L0040E:
	LD	(L0271D),A
	CALL	L02306
	DB	10,'NEW FILE',13,10,10,0

L00421:
	LD	DE,L026AB+9
	PUSH	DE
	CALL	L01F06
	LD	DE,L026AB
	CALL	L02028
	POP	DE
	LD	HL,L00443
	CALL	L01F09
	CALL	L01C4D
	JP	L004B9

L0043B:	DB	'WMBACKUP'
L00443:	DB	'$$$'

L00446:
	CALL	L00468
	CALL	L02005
	LD	HL,5CH
	LD	A,(HL)
	LD	(6CH),A

L00453:
	LD	A,(L026AB)
	LD	(HL),A
	JP	L002F2

L0045A:
	CALL	L00468
	LD	DE,L026D1

L00460:
	CALL	L02028

L00463:
	LD	HL,(L02760)
	LD	SP,HL
	RET

L00468:
	CALL	L01D51
	LD	HL,L0271D
	LD	A,(HL)
	OR	A
	LD	DE,5CH
	LD	HL,L01F53
	CALL	Z,L0206D
	LD	DE,L026AB
	LD	HL,65H
	JP	L0206D

L00482:
	CALL	L00497
	JP	NZ,L004B9
	CALL	L02005
	LD	DE,L026AB
	CALL	L02008
	LD	HL,6CH
	JP	L00453

L00497:
	CALL	L02306
	DB	13,10,'ABORT (Y/N)? ',0
	CALL	L02230
	CALL	L0064C
	CP	'Y'
	RET

L004B3:
	CALL	L00497
	JP	Z,L00463

L004B9:
	LD	HL,(L02760)
	LD	SP,HL
	LD	HL,L004B9
	PUSH	HL
	CALL	L023FA
	CALL	L00668
	LD	HL,L026A8
	LD	A,(HL)

L004CB:
	OR	A
	JP	NZ,L004DE
	DEC	(HL)
	LD	HL,L0286C
	LD	(HL),0
	LD	(L0274D),HL
	CALL	L010F7
	CALL	L00668

L004DE:
	LD	A,'*'
	CALL	L024FC
	CALL	L02230
	LD	(L0274D),HL
	LD	A,(HL)
	OR	A
	JP	NZ,L004F6
	LD	A,(L0286B)
	CP	10
	JP	Z,L0078D

L004F6:
	LD	B,A
	PUSH	HL
	INC	HL
	CALL	L022F1
	POP	HL
	OR	A
	JP	NZ,L00519
	LD	A,B
	CALL	L0064C
	CP	'H'
	JP	Z,L00446
	CP	'Q'
	JP	Z,L004B3
	CP	'O'
	JP	Z,L00482
	CP	'E'
	JP	Z,L0045A

L00519:
	CALL	L00541
	RET	Z

L0051D:
	CALL	L02306
	DB	13,10,' ???',0

L00527:
	LD	HL,(L0274D)
	EX	DE,HL
	CALL	L0230E
	CALL	L024E3
	JP	L004B9

L00534:
	CALL	L01209
	CALL	L024E3
	POP	DE
	CALL	L0230E
	JP	L0051D

L00541:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	(L0274F),HL
	CALL	L00668
	LD	HL,L00636
	PUSH	HL

L0054E:
	LD	HL,(L0274F)
	CALL	L00806
	CALL	L022F1
	LD	(L0274D),HL
	PUSH	HL
	CALL	L00649
	LD	(L0274F),HL
	POP	HL
	OR	A

L00563:
	JP	Z,L00627
	CP	'>'
	JP	Z,L00627
	CP	';'
	JP	Z,L0067C
	CP	11H
	JP	Z,L01954
	CP	04H
	JP	Z,L0062C
	CP	'V'
	JP	Z,L010F7
	CALL	L021B4
	CALL	L022F1
	LD	(L02754),HL

L00588:
	LD	HL,(L02754)
	CALL	L00649
	LD	(L02752),HL
	LD	(L0274F),HL
	OR	A
	JP	Z,L00790
	CP	'C'
	JP	Z,L0072C
	CP	'D'
	JP	Z,L00732
	CP	'K'
	JP	Z,L00778
	CP	'L'
	JP	Z,L00754
	CP	'P'
	JP	Z,L007CD
	CP	'T'
	JP	Z,L0079A
	PUSH	HL
	LD	HL,(L02758)
	EX	DE,HL
	LD	HL,2
	CALL	L01F9F
	POP	HL
	JP	NC,L005CA
	CP	'B'
	JP	Z,L00747

L005CA:
	CP	'/'
	JP	NZ,L005DD
	LD	A,0FFH
	LD	(L0275E),A
	CALL	L00649
	LD	(L0274F),HL
	LD	(L02752),HL

L005DD:
	CP	'F'
	JP	Z,L00835
	CP	'N'
	JP	Z,L0083B
	CP	'R'
	JP	Z,L00847
	CP	'S'
	JP	Z,L00841
	CALL	L00655
	CP	'Q'
	JP	Z,L006AB
	CALL	L0065F
	JP	NZ,L00627
	CP	'A'
	JP	Z,L008D4
	CP	'I'
	JP	Z,L008D7
	CP	'Z'
	JP	Z,L0080F
	CP	'<'
	JP	Z,L00689
	CP	'M'
	JP	Z,L00689
	CP	'!'
	JP	Z,L008F4
	CP	'W'
	JP	Z,L01A20
	CP	'Y'
	JP	Z,L019DF

L00627:
	POP	HL
	OR	A
	JP	L01FCC

L0062C:
	LD	A,(L0274C)
	OR	A
	JP	Z,L00627
	JP	38H

L00636:
	DEC	SP
	DEC	SP
	CALL	L00668
	CALL	L00828
	JP	NZ,L00588
	JP	L0054E

L00644:
	LD	A,(HL)
	OR	A
	RET	Z
	INC	HL
	RET

L00649:
	CALL	L00644

L0064C:
	CP	'a'
	RET	C
	CP	'{'
	RET	NC
	AND	0DFH
	RET

L00655:
	PUSH	AF
	LD	A,(L0275C)
	OR	A
	JP	M,L0051D
	POP	AF
	RET

L0065F:
	PUSH	BC
	LD	B,A
	LD	A,(L0275E)
	OR	A
	LD	A,B
	POP	BC
	RET

L00668:
	LD	HL,200H
	LD	(L02745),HL
	LD	(L02747),HL
	LD	HL,0
	LD	(L0275E),HL
	DEC	L
	LD	(L026A5),HL
	RET

L0067C:
	LD	(L0274F),HL
	CALL	L00644
	RET	Z
	CP	13
	RET	Z
	JP	L0067C

L00689:
	EX	DE,HL
	CALL	L00719
	LD	HL,(L0275A)
	EX	DE,HL

L00691:
	CALL	L00541
	RET	C
	CP	'>'
	JP	Z,L0069E
	OR	A
	JP	NZ,L0051D

L0069E:
	LD	A,D
	OR	E
	RET	Z
	DEC	DE
	LD	A,D
	OR	E
	RET	Z
	CALL	L023D6
	JP	L00691

L006AB:
	CALL	L00649
	LD	(L0274F),HL
	LD	(L02752),HL
	CP	'P'
	JP	Z,L00A5B
	CP	'X'
	JP	Z,L006DA
	PUSH	AF
	CALL	L0081A
	POP	AF
	CP	'L'
	JP	Z,L00A2E
	CP	'T'
	JP	Z,L00A3A
	CP	'K'
	JP	Z,L00A47
	CP	'G'
	JP	Z,L00A4E
	JP	L0051D

L006DA:
	CALL	L00719
	LD	HL,(L0274F)
	PUSH	HL
	LD	HL,(L02754)
	PUSH	HL

L006E5:
	LD	HL,(L02758)
	PUSH	HL
	CALL	L01EB9
	LD	HL,(L02733)
	CALL	L00541
	JP	C,L006F8
	JP	NZ,L0070E

L006F8:
	POP	HL
	LD	(L02758),HL
	CALL	C,L00806
	CALL	L0081A
	JP	NZ,L006E5
	POP	HL
	LD	(L02754),HL
	POP	HL
	LD	(L0274F),HL
	RET

L0070E:
	CALL	L02306
	DB	' QX?',0
	JP	L00527

L00719:
	LD	HL,-L0293C
	ADD	HL,SP
	RET	C
	CALL	L00534
	DB	'STACK OVFL',0

L0072C:
	CALL	L00DA0
	JP	L01A87

L00732:
	CALL	L00DA0

L00735:
	JP	M,L0073E
	LD	(L0273F),HL
	JP	L00741

L0073E:
	LD	(L0273D),HL

L00741:
	CALL	L01D9B
	JP	L01A8D

L00747:
	LD	A,(L0275C)
	CPL

L0074B:
	LD	HL,0FFFFH

L0074E:
	LD	(L0275C),A

L00751:
	LD	(L02758),HL

L00754:
	CALL	L00E04
	CALL	L01A87
	CALL	L00828
	JP	NZ,L00754
	RET

L00761:
	LD	DE,1

L00764:
	LD	HL,(L02758)
	PUSH	HL
	EX	DE,HL
	CALL	L00751
	POP	HL
	LD	(L02758),HL
	RET

L00771:
	LD	A,0FFH
	DB	0FEH

L00774:
	XOR	A
	JP	L0074E

L00778:
	CALL	L00E04
	JP	L00735

L0077E:
	LD	HL,1

L00781:
	XOR	A

L00782:
	LD	(L0275C),A
	XOR	A
	LD	(L0271E),A
	LD	(L02758),HL
	RET

L0078D:
	CALL	L0077E

L00790:
	CALL	L00754
	LD	HL,1

L00796:
	XOR	A
	CALL	L00782

L0079A:
	CALL	L00DE8
	EX	DE,HL
	JP	M,L007B3
	LD	HL,(L0273F)
	EX	DE,HL
	JP	NC,L007BB
	CALL	L007BB
	LD	A,'}'

L007AD:
	CALL	L024FC
	JP	L024FC

L007B3:
	LD	HL,(L0273D)
	LD	A,'{'
	CALL	C,L007AD

L007BB:
	CALL	L00806

L007BE:
	CALL	L01F9F
	RET	Z
	LD	A,(DE)
	CALL	L024FC
	INC	DE
	CALL	L023D6
	JP	L007BE

L007CD:
	LD	HL,(L02758)
	PUSH	HL
	LD	HL,(L0275C)
	PUSH	HL
	CALL	L00828
	LD	HL,(HITE)
	LD	H,0
	DEC	HL
	PUSH	HL
	CALL	NZ,L00751
	POP	HL
	CALL	L00796
	POP	HL
	LD	(L0275C),HL
	POP	HL
	LD	(L02758),HL
	CALL	L0081A
	CALL	L01CB5
	RET	NZ
	LD	A,(L0275C)
	OR	A
	LD	HL,L0273F
	JP	P,L00802
	LD	HL,L0273B

L00802:
	CALL	L01EFB
	RET	NZ

L00806:
	PUSH	HL
	LD	HL,0
	CALL	L00781
	POP	HL
	RET

L0080F:
	LD	HL,0A000H

L00812:
	EX	(SP),HL
	EX	(SP),HL
	DEC	HL
	LD	A,H
	OR	L
	JP	NZ,L00812

L0081A:
	PUSH	HL
	LD	HL,(L02758)
	LD	A,H
	OR	L
	JP	Z,L00824
	DEC	HL

L00824:
	LD	(L02758),HL
	POP	HL

L00828:
	PUSH	HL
	LD	HL,(L02758)
	LD	A,(L0271E)
	OR	H
	OR	L
	POP	HL
	JP	L023D6

L00835:
	CALL	L00CB5
	JP	L0084A

L0083B:
	CALL	L00C96
	JP	L0084A

L00841:
	CALL	L00CEB
	JP	L0084A

L00847:
	CALL	L00CA8

L0084A:
	JP	NC,L0081A
	CALL	L0065F
	JP	NZ,L0085E
	CALL	L02306
	DB	' ## ',0
L0085B:
	JP	L00527

L0085E:
	CALL	L00870
	CALL	L00806
	POP	HL
	OR	A
	SCF
	JP	L01FCC

L0086A:
	CALL	L00719
	CALL	L00870

L00870:
	LD	HL,(L0274F)
	CALL	L00649
	LD	(L0274F),HL
	CP	'<'

L0087B:
	JP	Z,L0086A
	CP	'M'
	JP	Z,L0086A
	CP	'A'
	JP	Z,L008CE
	CP	'F'
	JP	Z,L008CE
	CP	'I'
	JP	Z,L008CE
	CP	'N'
	JP	Z,L008CE
	CP	'R'
	JP	Z,L008CB
	CP	'S'
	JP	Z,L008CB
	CP	'W'
	JP	Z,L008CE
	CP	'Y'
	JP	Z,L008CE
	CP	';'
	CALL	Z,L0067C
	JP	Z,L00870
	CP	'Q'
	JP	NZ,L008C3
	CALL	L00649
	LD	(L0274F),HL
	CP	'L'
	JP	Z,L008CE

L008C3:
	CP	'>'
	RET	Z
	OR	A
	RET	Z
	JP	L00870

L008CB:
	CALL	L0091A

L008CE:
	CALL	L0091A
	JP	L00870

L008D4:
	CALL	L00761

L008D7:
	LD	HL,(L02752)
	LD	A,(HL)
	OR	A
	JP	Z,L00ACE
	CALL	L00913
	CALL	L00C1B
	LD	A,(L02762)
	OR	A
	LD	DE,L00143
	LD	A,2
	CALL	Z,L00C23
	JP	L0081A

L008F4:
	LD	A,(L02758)
	PUSH	AF
	CALL	L00806
	POP	AF
	AND	7FH
	CALL	L00BAC
	CP	1AH
	RET	NZ

L00904:
	CALL	L02306
	DB	' TURKEY ',13,10,0
	RET

L00913:
	PUSH	HL
	LD	HL,(L02752)
	JP	L0091E

L0091A:
	PUSH	HL
	LD	HL,(L0274F)

L0091E:
	PUSH	BC
	PUSH	AF
	LD	DE,L02763
	PUSH	DE
	LD	C,0FFH

L00926:
	CALL	L00644
	CP	0EH
	JP	NZ,L0093B
	LD	A,13
	INC	C
	INC	DE
	LD	(DE),A
	LD	A,10

L00935:
	INC	C
	INC	DE
	LD	(DE),A
	JP	L00926

L0093B:
	CP	19H
	JP	NZ,L00945
	LD	A,1BH
	JP	L00935

L00945:
	CALL	L0095B
	JP	NZ,L00926
	LD	(L02762),A
	LD	(L0274F),HL
	XOR	A
	LD	(DE),A
	POP	DE
	LD	A,C
	LD	(DE),A
	INC	DE
	POP	AF
	POP	BC
	POP	HL
	RET

L0095B:
	INC	C
	INC	DE
	LD	(DE),A

L0095E:
	CP	1AH
	RET	Z
	CP	1BH
	RET	Z
	OR	A
	RET

L00966:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	PUSH	DE
	XOR	A
	LD	C,16

L0096D:
	LD	(DE),A
	INC	DE
	DEC	C
	JP	NZ,L0096D
	POP	DE
	PUSH	DE
	LD	HL,(L0274F)
	CALL	L022F1
	LD	A,(L0274B)
	OR	A
	JP	NZ,L0099A
	PUSH	DE
	LD	(L0274F),HL
	LD	BC,19FH
	LD	DE,L0274F
	CALL	5
	LD	HL,(L0274F)
	POP	DE
	JP	M,L009AC
	LD	(DE),A
	JP	L009AC

L0099A:
	INC	HL
	LD	A,(HL)
	DEC	HL
	CP	':'
	JP	NZ,L009AC
	CALL	L00A12
	JP	Z,L009AC
	SUB	'@'
	LD	(DE),A
	INC	HL

L009AC:
	INC	DE
	LD	C,8
	CALL	L009F4
	CP	'.'
	PUSH	AF
	PUSH	HL
	LD	HL,L009F0
	CALL	NZ,L01F09
	POP	HL
	POP	AF
	LD	C,3
	CALL	Z,L009F3
	POP	DE
	INC	DE
	LD	A,(DE)
	DEC	DE
	CP	' '
	JP	Z,L009DB
	CALL	L022F1
	CALL	L00644
	LD	(L0274F),HL
	CALL	L0095E
	JP	Z,L01FCC

L009DB:
	CALL	L00534
	DB	'INVALID FILE NAME',0

L009F0:	DB	'LIB'

L009F3:
	INC	HL

L009F4:
	CALL	L00A12
	JP	Z,L00A07
	LD	(DE),A
	INC	DE
	DEC	C
	JP	NZ,L009F4

L00A00:
	CALL	L00A12
	JP	NZ,L00A00
	RET

L00A07:
	PUSH	AF

L00A08:
	LD	A,' '
	LD	(DE),A
	INC	DE
	DEC	C
	JP	NZ,L00A08
	POP	AF
	RET

L00A12:
	LD	A,(HL)
	CALL	L00A1D
	RET	Z
	INC	HL
	CALL	L0064C
	OR	A
	RET

L00A1D:
	CP	'.'
	RET	Z
	CP	':'
	RET	Z
	CP	'*'
	RET	Z
	CP	'?'
	RET	Z
	CP	' '
	RET	NC
	CP	A
	RET

L00A2E:
	CALL	L00A43
	CALL	L00913
	LD	HL,L02735
	JP	L00C1E

L00A3A:
	LD	HL,L02733
	CALL	L01F91
	JP	L007BE

L00A43:
	CALL	L0065F
	RET	NZ

L00A47:
	LD	HL,(L02733)
	LD	(L02735),HL
	RET

L00A4E:
	LD	HL,L02733
	CALL	L01EFB
	CALL	L01F95
	EX	DE,HL
	JP	L00C29

L00A5B:
	CALL	L00A43

L00A5E:
	LD	HL,L02735
	CALL	L00C68
	CALL	L00E04
	EX	DE,HL
	LD	HL,(L0273F)
	EX	DE,HL
	CALL	L01F85
	LD	HL,L02735
	CALL	L00A82
	CALL	L01EB9
	CALL	L01A8D
	CALL	L00828
	JP	NZ,L00A5E
	RET

L00A82:
	CALL	L00C8D
	RET	Z

L00A86:
	CALL	L00C68
	CALL	L00AA1
	EX	DE,HL
	LD	HL,(L0273F)
	EX	DE,HL
	CALL	L00C3F
	EX	DE,HL
	LD	(L0273F),HL
	EX	DE,HL
	CALL	L01D9B
	DEC	B
	JP	NZ,L00A86
	RET

L00AA1:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	HL,L02733
	CALL	L01EFB
	LD	HL,(L02731)
	EX	DE,HL
	LD	HL,(L02743)
	CALL	L01F7C
	CALL	L01F71
	ADD	HL,BC
	LD	DE,0D80H
	CALL	L01F9F
	JP	C,L01FCC
	CALL	L00534
	DB	'QBUF FULL',0

L00ACE:
	CALL	L00806
	CALL	L00C65

L00AD4:
	CALL	L018BE
	PUSH	AF
	CALL	C,L00B85
	POP	AF
	JP	C,L00AD4
	CALL	L024F0
	CALL	L023D6
	CP	1AH
	RET	Z
	CP	1BH
	RET	Z
	LD	HL,L00AD4
	PUSH	HL
	CP	1FH
	JP	Z,L00AF9
	CP	7FH
	JP	NZ,L00B06

L00AF9:
	CALL	L00C14
	CALL	L024FC

L00AFF:
	LD	(L0273D),HL
	CALL	L01D9B
	RET

L00B06:
	CP	' '
	JP	NC,L00BAC
	CP	19H
	JP	NZ,L00B12

L00B10:
	LD	A,1BH

L00B12:
	CP	05H
	JP	Z,L024E3
	CP	15H
	JP	Z,L00B21
	CP	18H
	JP	NZ,L00B30

L00B21:
	CALL	L024E3

L00B24:
	CALL	L00C14
	CP	10
	RET	Z
	LD	(L0273D),HL
	JP	L00B24

L00B30:
	CP	08H
	JP	NZ,L00B49
	LD	A,(L02684)
	OR	A
	RET	Z
	CALL	L00C14
	CP	10
	RET	Z
	CP	13
	RET	Z

L00B43:
	CALL	L00BB9
	JP	L00AFF

L00B49:
	CP	1CH
	JP	NZ,L00B7D

L00B4E:
	LD	A,(L02684)
	OR	A
	RET	Z
	CALL	L00C14
	CP	13
	RET	Z
	CP	10
	RET	Z
	PUSH	AF
	CALL	L00B43
	POP	AF
	CP	9
	JP	Z,L00B4E
	CP	' '
	JP	Z,L00B4E

L00B6B:
	LD	A,(L02684)
	OR	A
	RET	Z
	CALL	L00C14
	CALL	L00ED7
	RET	NC
	CALL	L00B43
	JP	L00B6B

L00B7D:
	CP	12H
	JP	NZ,L00B9D
	CALL	L024E3

L00B85:
	LD	HL,(L0273D)

L00B88:
	DEC	HL
	CALL	L00BEB
	JP	C,L00B95
	LD	A,(HL)
	CP	10
	JP	NZ,L00B88

L00B95:
	INC	HL
	EX	DE,HL
	LD	HL,(L0273D)
	JP	L007BE

L00B9D:
	CP	13
	JP	NZ,L00BAC

L00BA2:
	LD	A,13
	CALL	L00BAC
	LD	A,10
	CALL	L024FC

L00BAC:
	PUSH	AF
	CALL	L00C55
	CALL	L01F95
	POP	AF
	LD	(HL),A
	INC	HL
	JP	L00AFF

L00BB9:
	CP	9
	JP	NZ,L00BD6
	EX	DE,HL
	LD	HL,(L025A7)
	LD	B,(HL)
	EX	DE,HL
	INC	B
	RET	Z
	DEC	B
	RET	Z

L00BC8:
	CALL	L00BE0
	DEC	B
	JP	NZ,L00BC8
	EX	DE,HL
	DEC	HL
	LD	(L025A7),HL
	EX	DE,HL
	RET

L00BD6:
	CP	1BH
	JP	Z,L00BE0
	CP	' '
	CALL	C,L00BE0

L00BE0:
	CALL	L0022F
	LD	A,' '
	CALL	L02567
	JP	L0022F

L00BEB:
	EX	DE,HL
	LD	HL,(L0273B)
	CALL	L01F9F
	EX	DE,HL
	RET	NC
	EX	DE,HL
	LD	HL,(L0273D)
	CALL	L01F7B
	PUSH	HL
	CALL	L01CC1
	LD	HL,(L0273D)
	POP	DE
	PUSH	AF
	ADD	HL,DE
	POP	AF
	RET

L00C07:
	LD	HL,(L0273D)
	DEC	HL
	PUSH	DE
	CALL	L00BEB
	POP	DE
	RET	C
	LD	A,(HL)
	OR	A
	RET

L00C14:
	CALL	L00C07
	RET	NC
	INC	SP
	INC	SP
	RET

L00C1B:
	LD	HL,L0273D

L00C1E:
	LD	DE,L02763
	LD	A,(DE)
	INC	DE

L00C23:
	LD	C,A
	LD	B,0
	JP	L00C2C

L00C29:
	LD	HL,L0273D

L00C2C:
	CALL	L01D92
	CALL	L00C8D
	RET	Z

L00C33:
	CALL	L00C68
	CALL	L00C3F
	DEC	B
	JP	NZ,L00C33
	OR	A
	RET

L00C3F:
	PUSH	HL
	CALL	L01F95

L00C43:
	LD	A,(DE)
	AND	7FH
	LD	(HL),A
	INC	DE
	INC	HL
	DEC	C
	JP	NZ,L00C43
	EX	DE,HL
	EX	(SP),HL
	LD	(HL),E
	INC	HL
	LD	(HL),D
	DEC	HL

L00C53:
	POP	DE
	RET

L00C55:
	PUSH	DE
	LD	HL,(L0273D)
	EX	DE,HL
	LD	HL,(L0273F)
	CALL	L01F9F
	POP	DE
	LD	HL,L0273D
	RET	C

L00C65:
	LD	HL,L0273D

L00C68:
	PUSH	BC
	PUSH	DE
	PUSH	HL

L00C6B:
	CALL	L01EFB
	LD	A,B
	OR	A
	JP	NZ,L01FCC
	CALL	L01E95
	LD	A,D
	OR	A
	JP	NZ,L01E4C
	CALL	L01A9E
	JP	NC,L00C6B
	CALL	L00534
	DB	'MEM FULL',0

L00C8D:
	CALL	L01F56
	INC	B
	INC	C
	DEC	C
	RET	NZ
	DEC	B
	RET

L00C96:
	CALL	L00CBD
	RET	NC
	CALL	L01A87
	JP	NC,L00C96

L00CA0:
	LD	A,(L0275C)
	CALL	L0074B
	SCF
	RET

L00CA8:
	CALL	L00CF3
	RET	NC
	CALL	L01A87
	JP	NC,L00CA8
	JP	L00CA0

L00CB5:
	CALL	L00CBD
	RET	NC
	CALL	L01AAE
	RET	C

L00CBD:
	CALL	L00913
	LD	A,(L0275C)
	OR	A
	JP	M,L00CD8
	LD	HL,L0273F
	CALL	L00D24
	LD	HL,(L0273F)
	RET	C
	CALL	L00D51

L00CD4:
	RET	C
	JP	L00EE5

L00CD8:
	LD	HL,L0273B
	CALL	L00D24
	LD	HL,(L0273D)
	RET	C
	CALL	L00D39
	CALL	L00D79
	JP	L00CD4

L00CEB:
	CALL	L00CF3
	RET	NC
	CALL	L01AAE
	RET	C

L00CF3:
	CALL	L00CBD
	LD	A,(L02763)
	CALL	L0091A
	RET	C
	LD	B,A
	LD	A,(L0275C)
	OR	A
	LD	A,B
	JP	M,L00D12
	LD	HL,(L0273D)
	CALL	L00D3C
	LD	(L0273D),HL
	JP	L00C1B

L00D12:
	LD	HL,(L0273F)
	CALL	L00D4A
	LD	(L0273F),HL
	CALL	L00C1B
	CALL	L00D36
	JP	L00EE5

L00D24:
	CALL	L01EFB
	INC	BC
	DEC	DE
	LD	A,(DE)
	INC	DE
	PUSH	BC
	LD	B,A
	LD	A,C
	SUB	B
	POP	BC
	LD	C,A
	LD	A,B
	SBC	A,0
	LD	B,A
	RET

L00D36:
	LD	HL,(L0273D)

L00D39:
	LD	A,(L02763)

L00D3C:
	PUSH	HL
	LD	H,A
	LD	A,L
	SUB	H
	POP	HL
	LD	L,A
	LD	A,H
	SBC	A,0
	LD	H,A
	RET

	LD	A,(L02763)

L00D4A:
	ADD	A,L
	LD	L,A
	LD	A,H
	ADC	A,0
	LD	H,A
	RET

L00D51:
	LD	A,(DE)
	OR	A
	RET	Z
	PUSH	DE
	CALL	L00E7F
	JP	C,L00D77
	DEC	B
	DEC	C
	PUSH	HL

L00D5E:
	INC	DE
	LD	A,(DE)
	OR	A
	JP	Z,L00D76
	CP	(HL)
	INC	HL
	JP	Z,L00D5E
	DEC	HL
	CALL	L00EAB
	INC	HL
	JP	Z,L00D5E
	POP	HL
	POP	DE
	JP	L00D51

L00D76:
	POP	DE

L00D77:
	POP	DE
	RET

L00D79:
	LD	A,(DE)
	OR	A
	RET	Z
	INC	HL

L00D7D:
	PUSH	DE
	LD	A,(DE)
	CALL	L00E96
	JP	C,L00D77
	DEC	B
	DEC	C
	PUSH	HL

L00D88:
	INC	DE
	INC	HL
	LD	A,(DE)
	OR	A
	JP	Z,L00D99
	CP	(HL)
	JP	Z,L00D88
	CALL	L00EAB
	JP	Z,L00D88

L00D99:
	POP	HL
	POP	DE
	OR	A
	JP	NZ,L00D7D
	RET

L00DA0:
	PUSH	BC
	PUSH	DE
	LD	BC,0
	LD	HL,(L02758)
	EX	DE,HL
	LD	A,(L0275C)
	OR	A
	JP	M,L00DC7
	LD	HL,(L0273F)
	ADD	HL,DE
	JP	NC,L00DBD
	INC	HL
	LD	B,H
	LD	C,L
	LD	HL,0FFFFH

L00DBD:
	EX	DE,HL
	LD	HL,(L02741)
	CALL	L01FBD
	JP	L00DDF

L00DC7:
	LD	HL,(L0273D)
	CALL	L01F7C
	JP	C,L00DD8
	CALL	L01F67
	LD	B,H
	LD	C,L
	LD	HL,0

L00DD8:
	EX	DE,HL
	LD	HL,(L0273B)
	CALL	L01FAB

L00DDF:
	ADD	HL,BC
	JP	L00E4C

L00DE3:
	LD	A,0FFH
	CALL	L00782

L00DE8:
	PUSH	DE
	LD	HL,(L02758)
	PUSH	HL
	CALL	L00E04
	POP	DE
	JP	NC,L00C53
	PUSH	AF
	CALL	L01AAE
	JP	NC,L00DFE
	POP	AF
	POP	DE
	RET

L00DFE:
	POP	AF
	EX	DE,HL
	LD	(L02758),HL
	POP	DE

L00E04:
	PUSH	BC
	PUSH	DE
	LD	HL,(L02758)
	EX	DE,HL
	LD	HL,L0275C
	LD	A,D
	OR	E
	JP	NZ,L00E13
	DEC	(HL)

L00E13:
	LD	A,(HL)
	OR	A
	JP	M,L00E2F
	CALL	L01EF8
	CALL	L01F95

L00E1E:
	CALL	L00E7D
	JP	C,L00E4B
	DEC	B
	DEC	C
	DEC	DE
	LD	A,D
	OR	E
	JP	NZ,L00E1E
	JP	L00E4B

L00E2F:
	INC	DE
	LD	HL,L0273B
	CALL	L01EFB
	LD	HL,(L0273D)

L00E39:
	CALL	L0234E
	CALL	L00E94
	JP	C,L00E76
	DEC	B
	DEC	C
	DEC	DE
	LD	A,D
	OR	E
	JP	NZ,L00E39
	INC	HL

L00E4B:
	EX	DE,HL

L00E4C:
	XOR	A

L00E4D:
	LD	(L0271E),A
	CALL	L01CB5
	JP	NZ,L00E5C
	LD	HL,0
	LD	(L0271E),HL

L00E5C:
	LD	(L02758),HL
	EX	DE,HL
	LD	(L02756),HL
	LD	A,(L0275C)
	OR	A
	PUSH	HL
	LD	HL,0FFFFH
	ADD	HL,DE
	JP	C,L01FCC
	LD	HL,(L0271D)
	ADD	HL,HL
	JP	L01FCC

L00E76:
	DEC	DE
	EX	DE,HL
	LD	A,0FFH
	JP	L00E4D

L00E7D:
	LD	A,10

L00E7F:
	INC	B
	INC	C
	JP	L00E8A

L00E84:
	CP	(HL)
	CALL	NZ,L00EAB
	INC	HL
	RET	Z

L00E8A:
	DEC	C
	JP	NZ,L00E84
	DEC	B
	JP	NZ,L00E84
	SCF
	RET

L00E94:
	LD	A,10

L00E96:
	INC	B
	INC	C
	JP	L00EA1

L00E9B:
	DEC	HL
	CP	(HL)
	CALL	NZ,L00EAB
	RET	Z

L00EA1:
	DEC	C
	JP	NZ,L00E9B
	DEC	B
	JP	NZ,L00E9B
	SCF
	RET

L00EAB:
	CP	13H
	JP	Z,L00EC7
	RET	NC
	CP	01H
	RET	Z
	CP	0FH
	RET	NZ
	INC	DE
	LD	A,(DE)
	DEC	DE
	OR	A
	JP	Z,L00EC5
	CP	(HL)
	LD	A,0FH
	JP	Z,L00ED0
	INC	DE

L00EC5:
	CP	A
	RET

L00EC7:
	LD	A,(HL)
	CALL	L00ED7
	LD	A,13H
	JP	NC,L00EC5

L00ED0:
	OR	A
	RET

L00ED2:
	CALL	L022FA
	SCF
	RET	Z

L00ED7:
	CALL	L02229
	RET	C
	CALL	L0064C
	CP	'A'
	CCF
	RET	NC
	CP	'['
	RET

L00EE5:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	EX	DE,HL
	LD	HL,(L0273B)
	CALL	L01F9F
	CALL	C,L00F1D
	LD	HL,(L02741)
	INC	HL
	CALL	L01F9F
	CALL	NC,L00F1D
	LD	HL,(L0273D)
	INC	HL
	CALL	L01F9F
	JP	NC,L00F0D
	EX	DE,HL
	LD	DE,L0273B
	JP	L01E28

L00F0D:
	LD	HL,(L0273F)
	CALL	L01F9F
	CALL	C,L00F1D
	EX	DE,HL
	LD	DE,L0273F
	JP	L01E05

L00F1D:
	CALL	L00534
	DB	'PUTCUR ERR',0

L00F2B:
	CALL	L018E3
	CALL	L01660
	DEC	HL
	AND	(HL)
	LD	(HL),0
	JP	NZ,L00F64
	LD	HL,L0269E
	LD	A,(HL)
	LD	(HL),0
	OR	A
	PUSH	AF
	CALL	NZ,L016F0
	POP	AF
	JP	NZ,L00F57
	LD	HL,L02685
	LD	A,(HL)
	OR	A
	JP	P,L00F54
	XOR	A
	LD	(HL),A
	LD	(L0269B),A

L00F54:
	CALL	L01674

L00F57:
	LD	A,(L02693)
	LD	HL,(L02695)
	LD	(L02693),HL
	CP	L
	CALL	NZ,L01358

L00F64:
	LD	A,(L0269B)
	OR	A
	JP	NZ,L00FA4
	CALL	L01502
	CALL	L001F2
	LD	HL,(L02685)
	CALL	L017EA
	LD	A,'{'
	CALL	C,L007AD
	LD	DE,0

L00F7F:
	CALL	L0105D
	AND	0C0H
	JP	NZ,L01055
	CALL	L017FA
	JP	Z,L00F99
	CP	10
	JP	NZ,L00F93
	INC	DE

L00F93:
	CALL	L024FC
	JP	L00F7F

L00F99:
	EX	DE,HL
	LD	(L02685),HL
	LD	A,0FFH
	LD	(L0269B),A
	LD	E,0

L00FA4:
	LD	A,(L0269C)
	OR	A
	JP	NZ,L01039
	LD	HL,(L02691)
	CALL	L0020B
	CALL	L0186E
	CALL	L0105D
	AND	0E8H
	JP	NZ,L01055

L00FBC:
	CALL	L0187F
	JP	C,L00FD0
	CP	10
	JP	Z,L00FD4
	CALL	L02421
	CALL	L0234E
	JP	L00FBC

L00FD0:
	CALL	L0241F
	DB	3AH

L00FD4:
	DEC	HL
	INC	BC
	LD	A,(L0269D)
	OR	A
	JP	NZ,L01039
	CALL	L0105D
	AND	0E8H
	JP	NZ,L01055

L00FE5:
	PUSH	DE
	EX	DE,HL
	LD	HL,(L02689)
	CALL	L01F9F
	EX	DE,HL
	POP	DE
	JP	NC,L01006
	CALL	L0105D
	AND	0D4H
	JP	NZ,L01055
	CALL	L0187F
	JP	C,L01006
	CALL	L02421
	JP	L00FE5

L01006:
	LD	HL,(L02683)
	PUSH	HL

L0100A:
	CALL	L0241F
	LD	A,(L02683)
	LD	HL,L02697
	CP	(HL)
	JP	Z,L0101A
	JP	NC,L01035

L0101A:
	LD	HL,L02680
	CP	(HL)
	JP	NC,L01035
	CALL	L0105D
	AND	80H
	POP	HL
	JP	NZ,L01055
	PUSH	HL
	LD	A,10
	CALL	L024FC
	LD	E,0FFH
	JP	L0100A

L01035:
	POP	HL
	LD	(L02697),HL

L01039:
	LD	HL,0FFFFH
	LD	(L0269C),HL
	LD	E,0
	CALL	L00208
	LD	HL,L026A3
	LD	A,(HL)
	OR	A
	RET	Z
	INC	HL
	LD	(HL),0FFH
	LD	A,'<'
	CALL	L02567
	JP	L00208

L01055:
	LD	A,10
	CALL	L024FC
	JP	L00208

L0105D:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	L0234E
	LD	BC,6
	LD	HL,(L025B7)
	EX	DE,HL
	DEC	DE

L0106B:
	DEC	C
	JP	Z,L01084
	INC	DE
	LD	A,(DE)
	INC	A
	JP	NZ,L0107A
	LD	DE,L025B9
	LD	A,(DE)
	INC	A

L0107A:
	DEC	A
	JP	Z,L01084
	CALL	L010BB
	JP	L0106B

L01084:
	LD	A,(L026A2)
	CP	2
	JP	C,L01092
	LD	A,(L0269F)
	CALL	L010BB

L01092:
	LD	A,(L026A3)
	OR	0F3H
	AND	B
	LD	B,A
	LD	A,(L0268F)
	OR	A
	LD	A,B
	JP	Z,L010A3
	AND	0BFH

L010A3:
	LD	B,A
	RRA
	LD	A,B
	JP	NC,L010B8
	LD	A,(L0268F)
	ADD	A,4
	LD	HL,L02680
	CP	(HL)
	LD	A,B
	JP	C,L010B8
	AND	0C3H

L010B8:
	JP	L01FCC

L010BB:
	CP	7FH
	JP	NZ,L010C5
	LD	A,' '
	OR	B
	LD	B,A
	RET

L010C5:
	CP	' '
	JP	C,L010CC
	LD	A,' '

L010CC:
	LD	HL,L010D6
	CALL	L00D4A
	LD	A,(HL)
	OR	B
	LD	B,A
	RET

L010D6:	DB	0
	DB	40H
	DB	0
	DB	80H
	DB	0
	DB	80H
	DB	0
	DB	20H
	DB	0
	DB	08H
	DB	01H
	DB	40H
	DB	01H
	DB	05H
	DB	30H
	DB	20H
	DB	0
	DB	0
	DB	80H
	DB	0
	DB	0
	DB	0
	DB	0
	DB	0
	DB	0
	DB	30H
	DB	01H
	DB	80H
	DB	20H
	DB	0
	DB	0
	DB	20H
	DB	08H

L010F7:
	LD	HL,0FF00H
	LD	(L026A5),HL
	XOR	A
	LD	(L026A2),A
	LD	A,(HITE)
	SUB	2
	LD	(L02680),A
	RRA
	OR	A
	RRA
	LD	(L02685),A
	CALL	L01425
	CALL	L00C07
	JP	C,L01125
	CP	13
	JP	NZ,L01125
	CALL	L0187C
	CP	10
	CALL	Z,L01216

L01125:
	CALL	L00F2B
	XOR	A
	LD	(L0275F),A
	LD	A,(L0269F)
	LD	HL,L026A0
	CP	(HL)
	JP	NZ,L01138
	LD	A,0FFH

L01138:
	LD	(HL),A
	LD	HL,L01125
	PUSH	HL
	LD	HL,L026A2
	DEC	(HL)
	JP	Z,L01147
	JP	P,L01175

L01147:
	LD	(HL),1

L01149:
	CALL	L018B4
	LD	(L0269F),A
	CP	0
	JP	NZ,L01175
	LD	HL,L026A2
	LD	A,(HL)
	PUSH	AF
	LD	(HL),0
	CALL	L00F64
	POP	AF
	LD	HL,L026A2
	LD	(HL),4
	CP	4
	JP	NZ,L0116B
	LD	(HL),10H

L0116B:
	CP	10H
	JP	NZ,L01172
	LD	(HL),40H

L01172:
	JP	L01149

L01175:
	LD	HL,L026A4
	LD	A,(HL)
	LD	(HL),0
	OR	A
	JP	Z,L011A8
	CALL	L0187C
	JP	C,L011A0
	CP	13
	JP	Z,L011A0
	CP	9
	JP	Z,L011A0
	CP	7FH
	JP	NZ,L01196
	LD	A,'~'

L01196:
	CP	' '
	JP	NC,L0119D
	LD	A,'^'

L0119D:
	JP	L011A2

L011A0:
	LD	A,' '

L011A2:
	CALL	L02567
	CALL	L00208

L011A8:
	CALL	L0234E
	LD	A,(L0269F)
	CP	7FH
	JP	Z,L01448
	CP	' '
	JP	NC,L0153A
	PUSH	AF
	ADD	A,A
	LD	HL,L011C5
	CALL	L00D4A
	CALL	L01F95
	POP	AF

L011C4:
	JP	(HL)

L011C5:
	DW	L01345
	DW	L0126D
	DW	L01289
	DW	L0142C
	DW	L01216
	DW	L01303
	DW	L0123F
	DW	L014EC
	DW	L0122A
	DW	L0153A
	DW	L01954
	DW	L014DD
	DW	L01216
	DW	L015AB
	DW	L01594
	DW	L0150B
	DW	L0151A
	DW	L012B6
	DW	L01414
	DW	L0122A
	DW	L01476
	DW	L014BF
	DW	L01345
	DW	L01409
	DW	L012C1
	DW	L014CE
	DW	L0137C
	DW	L01205
	DW	L01460
	DW	L0151A
	DW	L01346
	DW	L01448

L01205:
	POP	HL
	CALL	L00806

L01209:
	LD	HL,L026A6
	LD	A,(HL)
	OR	A
	RET	Z
	INC	(HL)
	LD	HL,(L02680)
	JP	L0020B

L01216:
	CALL	L01374
	CALL	L01875
	CALL	L0164C
	PUSH	AF
	CALL	L00EE5
	POP	AF
	CP	13
	RET	NZ
	JP	L01216

L0122A:
	CALL	L00C14
	CALL	L01656
	CALL	L00EE5
	CALL	L00C07
	CP	13
	RET	NZ
	CALL	L01358
	JP	L0122A

L0123F:
	CALL	L01374
	CALL	L0186E

L01245:
	CALL	L0187F
	JP	C,L00EE5
	CALL	L00ED7
	JP	C,L01245
	CALL	L0164C

L01254:
	CALL	L0187F
	JP	C,L00EE5
	CALL	L0164C
	CALL	L022FA
	JP	Z,L01254
	DEC	HL
	JP	L00EE5

L01267:
	CALL	L01656
	CALL	L00EE5

L0126D:
	CALL	L01358
	CALL	L00C14
	CALL	L022FA
	JP	Z,L01267
	CALL	L01656

L0127C:
	CALL	L00EE5
	CALL	L00C14
	CALL	L00ED7
	JP	C,L0127C
	RET

L01289:
	CALL	L015F3
	JP	Z,L012AC
	XOR	A
	LD	(L0268F+1),A
	LD	HL,(L02683)
	PUSH	HL
	LD	HL,0
	LD	(L02683),HL
	CALL	L01816
	LD	HL,(L02756)
	CALL	L00EE5
	LD	A,(L02683)
	JP	L0132E

L012AC:
	LD	D,0
	LD	A,0F0H

L012B0:
	LD	(L0268F+1),A
	JP	L012F7

L012B6:
	LD	D,0
	LD	A,(L0268F+1)
	OR	07H
	INC	A
	JP	L012B0

L012C1:
	CALL	L015EC

L012C4:
	PUSH	AF
	LD	HL,L0268F
	ADD	A,(HL)
	LD	HL,L02680
	SUB	(HL)
	JP	C,L012F5
	INC	A
	LD	HL,L02685
	CP	(HL)
	JP	NC,L012F5
	LD	A,(HL)
	DEC	A
	JP	M,L012F5
	CALL	L01660
	JP	Z,L012F5
	LD	HL,L026A2
	LD	(HL),1
	CALL	L0137C
	CALL	L01728
	CALL	L00208
	POP	AF
	JP	L012C4

L012F5:
	POP	AF

L012F6:
	LD	D,A

L012F7:
	LD	HL,(L02683)
	PUSH	HL
	LD	L,0
	CALL	L01374
	JP	L01332

L01303:
	CALL	L015EC

L01306:
	CALL	L01358
	LD	HL,(L02683)
	PUSH	HL
	LD	HL,0
	LD	(L02683),HL
	PUSH	AF
	LD	L,A
	CALL	L01816
	LD	HL,(L02756)
	CALL	L00EE5
	POP	AF
	LD	B,A
	LD	HL,L02685
	CALL	L013FC
	LD	A,(L02683)
	SUB	B
	JP	P,L0132E
	XOR	A

L0132E:
	LD	D,A
	LD	HL,0

L01332:
	LD	(L02683),HL
	CALL	L0186E
	CALL	L015FE
	CALL	L01612
	CALL	L00EE5
	POP	HL
	LD	(L02683),HL

L01345:
	RET

L01346:
	CALL	L015F3
	JP	Z,L01362
	LD	HL,(L02685)
	CALL	L00771
	LD	HL,0
	LD	(L02685),HL

L01358:
	PUSH	AF
	LD	A,(L0269C)
	OR	A
	CALL	Z,L01500
	POP	AF
	RET

L01362:
	PUSH	DE
	LD	HL,(L02687)
	DEC	HL
	PUSH	HL
	CALL	L00774
	POP	DE
	LD	HL,(L02685)
	ADD	HL,DE
	LD	(L02685),HL
	POP	DE

L01374:
	LD	A,(L0269C)
	OR	A
	RET	NZ
	JP	L01425

L0137C:
	LD	A,(L026A2)
	CP	11H
	JP	NC,L01401
	CALL	L01660
	JP	Z,L01401

L0138A:
	LD	A,(L02685)
	DEC	A
	JP	P,L013A2
	CALL	L01875
	LD	A,1
	CALL	L012F6
	CALL	L01728
	CALL	C,L01425
	JP	L0138A

L013A2:
	CALL	L01669
	XOR	A
	LD	(L02682),A
	LD	HL,(L02697)
	CALL	L0020B
	LD	A,(L02683)
	LD	HL,L0268D
	ADD	A,(HL)
	LD	D,A
	LD	HL,(L0268B)
	CALL	L018A3

L013BD:
	CALL	L0187F
	JP	C,L013EA
	CALL	L024FC
	LD	A,(L02683)
	PUSH	HL
	LD	HL,L02682
	ADD	A,(HL)
	POP	HL
	CP	D
	JP	C,L013BD

L013D3:
	CALL	L0187F
	JP	C,L013EA
	CALL	L0246C
	JP	C,L013EA
	CP	10
	JP	Z,L013EA
	CALL	L024FC
	JP	L013D3

L013EA:
	LD	HL,(L02683)
	LD	(L02697),HL
	CALL	L016D4
	CALL	L01659
	LD	A,(L0268D)
	LD	HL,L02693

L013FC:
	CPL
	INC	A
	ADD	A,(HL)
	LD	(HL),A
	RET

L01401:
	CALL	L015EC
	CPL
	INC	A
	JP	L0140C

L01409:
	CALL	L015EC

L0140C:
	LD	HL,L02685
	ADD	A,(HL)
	LD	(HL),A
	JP	L0143F

L01414:
	CALL	L00C14
	LD	HL,(L02685)
	INC	HL
	CALL	L00771
	LD	HL,(L02680)
	DEC	HL
	LD	(L02685),HL

L01425:
	PUSH	AF
	XOR	A
	LD	(L0269B),A
	POP	AF
	RET

L0142C:
	XOR	A
	LD	(L026A7),A
	CALL	L01875
	LD	HL,(L02685)
	EX	DE,HL
	LD	HL,(L02687)
	ADD	HL,DE
	XOR	A
	CALL	L0074E

L0143F:
	CALL	L01425
	LD	A,0FFH
	LD	(L0269E),A
	RET

L01448:
	CALL	L00C14

L0144B:
	CALL	L00AFF
	CALL	L014C5
	CALL	L01656
	CALL	L00C07
	CP	13
	JP	Z,L01448
	RET

L0145D:
	CALL	L0144B

L01460:
	CALL	L00C14
	CALL	L022FA
	JP	Z,L0145D

L01469:
	CALL	L0144B
	CALL	L00C14
	CALL	L00ED7
	JP	C,L01469
	RET

L01476:
	CALL	L01875
	CALL	L022FA
	JP	NZ,L0148E

L0147F:
	CALL	L014EF
	CALL	L01875
	CALL	L022FA
	JP	Z,L0147F
	JP	L014B2

L0148E:
	CALL	L014B2
	CALL	L00C07
	JP	C,L0149B
	CALL	L022FA
	RET	NZ

L0149B:
	CALL	L01875
	CP	' '
	JP	Z,L014A6
	CP	9
	RET	NZ

L014A6:
	CALL	L014EF
	JP	L0149B

L014AC:
	CALL	L014EF
	CALL	L01875

L014B2:
	CALL	L00ED7
	JP	C,L014AC
	CALL	L00ED2
	CALL	NC,L014EF
	RET

L014BF:
	CALL	L00806
	CALL	L00778

L014C5:
	LD	E,0FFH

L014C7:
	PUSH	AF
	XOR	A
	LD	(L0269C),A
	POP	AF
	RET

L014CE:
	CALL	L014BF
	CALL	L01500
	CALL	L0077E
	PUSH	DE
	CALL	L00778
	POP	DE
	RET

L014DD:
	CALL	L01875
	CP	13
	RET	Z
	CP	10
	RET	Z
	CALL	L014EF
	JP	L014DD

L014EC:
	CALL	L01875

L014EF:
	CALL	L014C5

L014F2:
	LD	(L0273F),HL
	CALL	L01D9B
	CP	13
	JP	Z,L014EC
	CP	10
	RET	NZ

L01500:
	LD	E,0FFH

L01502:
	PUSH	HL
	LD	HL,0
	LD	(L0269C),HL
	POP	HL
	RET

L0150B:
	LD	HL,L026A3
	LD	A,(HL)
	CPL
	LD	(HL),A

L01511:
	PUSH	HL
	LD	HL,0FFFFH
	LD	(L02699),HL
	POP	HL
	RET

L0151A:
	CALL	L00F64
	CALL	L018B4
	CP	1AH
	JP	NZ,L01530
	CALL	L00904
	CALL	L0080F
	CALL	L014C5
	LD	A,1AH

L01530:
	CP	13
	JP	Z,L015AB
	CP	10
	CALL	Z,L01425

L0153A:
	PUSH	AF
	LD	HL,(L02691)
	CALL	L0020B
	POP	AF
	PUSH	DE
	LD	E,0
	CALL	L02421
	POP	DE
	CALL	L00BAC
	LD	D,A
	CALL	L0187C
	JP	C,L01579
	CP	13
	JP	Z,L01579
	LD	B,A
	LD	A,(L026A3)
	OR	A
	LD	A,B
	JP	NZ,L014C7
	CP	D
	JP	Z,L01573
	CP	' '
	JP	C,L014EF
	LD	A,D
	CP	' '
	CALL	C,L014C7
	JP	C,L014F2

L01573:
	CALL	L014F2
	JP	L01583

L01579:
	LD	A,(L02683)
	LD	HL,L0268F
	CP	(HL)
	JP	NZ,L014C7

L01583:
	PUSH	HL
	CALL	L01856
	LD	(L02691),HL
	LD	HL,(L02683)
	LD	(L0268F),HL
	POP	HL
	JP	L01511

L01594:
	CALL	L015EC

L01597:
	PUSH	AF
	CALL	L015E2
	LD	HL,(L0273D)
	DEC	HL
	DEC	HL
	CALL	L00EE5
	POP	AF
	DEC	A
	JP	NZ,L01597
	JP	L01500

L015AB:
	CALL	L0164F
	LD	A,(L026A3)
	OR	A
	JP	Z,L015CB
	CALL	L0187C
	JP	C,L015C2
	CP	13
	JP	Z,L015C2
	LD	E,0FFH

L015C2:
	CALL	L0241F
	CALL	L00BA2
	JP	L014C5

L015CB:
	CALL	L01374
	CALL	L0186E

L015D1:
	CALL	L0187F
	JP	C,L015DF
	CP	10
	JP	NZ,L015D1
	JP	L00EE5

L015DF:
	CALL	L00EE5

L015E2:
	LD	A,13
	CALL	L00BAC
	LD	A,10
	JP	L00BAC

L015EC:
	LD	HL,L026A2
	LD	A,(HL)
	LD	(HL),0
	RET

L015F3:
	LD	HL,L026A0
	CP	(HL)
	RET

L015F8:
	CALL	L0249A
	CALL	L0164C

L015FE:
	LD	A,(L02683)
	CP	D
	RET	NC
	CALL	L0187F
	RET	C
	CALL	L0185D
	JP	NC,L015F8
	DEC	HL
	INC	BC
	JP	L015FE

L01612:
	LD	A,(L0268F+1)
	INC	A
	LD	D,A
	LD	A,(L02684)
	CP	D
	RET	NC
	CALL	L0187F
	RET	C
	CALL	L0246C
	JP	C,L01649

L01626:
	CP	10
	JP	Z,L01649
	CP	13
	JP	Z,L01649
	CALL	L0246C
	JP	C,L01647
	CALL	L0249A
	LD	A,(L02684)
	CP	D
	JP	NC,L01649
	CALL	L0187F
	RET	C
	JP	L01626

L01647:
	DEC	HL
	INC	BC

L01649:
	DEC	HL
	INC	BC
	RET

L0164C:
	CP	10
	RET	NZ

L0164F:
	PUSH	HL
	LD	HL,L02685
	INC	(HL)
	POP	HL
	RET

L01656:
	CP	10
	RET	NZ

L01659:
	PUSH	HL
	LD	HL,L02685
	DEC	(HL)
	POP	HL
	RET

L01660:
	LD	HL,L0269D
	LD	A,(HL)
	DEC	HL
	AND	(HL)
	DEC	HL
	AND	(HL)
	RET

L01669:
	LD	A,(L02699)
	OR	A
	RET	Z
	JP	L01674

L01671:
	CALL	L01425

L01674:
	CALL	L01728
	JP	NC,L01722
	CALL	L01659
	JP	P,L016A9

L01680:
	CALL	L00534
	DB	'FILE LINE LONGER THAN ENTIRE SCRN ???',0

L016A9:
	LD	A,(L0269B)
	LD	HL,L0268D
	AND	(HL)
	JP	Z,L01671
	LD	A,(L0268F)
	LD	HL,L02680
	SUB	(HL)
	JP	C,L016C7
	JP	NZ,L01671
	LD	A,(L0268F+1)
	OR	A
	JP	NZ,L01671

L016C7:
	CALL	L016D0
	CALL	L01502
	JP	L01674

L016D0:
	XOR	A
	LD	(L02682),A

L016D4:
	LD	A,10
	CALL	L024FC
	LD	A,(L02682)
	OR	A
	JP	Z,L016E8
	LD	HL,L02697
	DEC	(HL)
	JP	P,L016E8
	INC	(HL)

L016E8:
	LD	HL,L0268D
	CP	(HL)
	JP	C,L016D4
	RET

L016F0:
	LD	HL,L02685
	LD	A,(HL)
	OR	A
	JP	P,L0170D
	PUSH	HL
	CALL	L0187C
	POP	HL
	JP	NC,L01705
	LD	(HL),0
	JP	L0170D

L01705:
	XOR	A
	SUB	(HL)
	CALL	L012F6
	JP	L016F0

L0170D:
	CALL	L01728
	JP	NC,L01722
	PUSH	AF
	LD	A,(L02685)
	OR	A
	JP	Z,L01680
	POP	AF
	CALL	L01306
	JP	L0170D

L01722:
	LD	HL,L02699
	LD	(HL),0
	RET

L01728:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	HL,(L02683)
	PUSH	HL
	XOR	A
	LD	(L0268D),A
	LD	A,(L02685)
	DEC	A
	CALL	L01801
	INC	A
	JP	C,L01785
	LD	HL,0
	LD	(L02687),HL
	LD	(L02683),HL
	LD	HL,(L02685)
	CALL	L01816
	LD	(L02691),HL
	LD	A,D
	LD	(L0268D),A
	LD	HL,(L02683)
	LD	(L0268F),HL
	LD	HL,(L02756)
	EX	DE,HL
	LD	HL,(L0273D)
	CALL	L01F7C
	INC	H
	LD	(L02745),HL
	CALL	L0178C
	EX	DE,HL
	LD	HL,(L02683)
	LD	(L02695),HL
	EX	DE,HL
	CALL	L0179E
	LD	(L02689),HL
	CALL	L01899
	LD	(L0268B),HL
	LD	A,(L02695)
	CALL	L01801

L01785:
	POP	HL
	LD	(L02683),HL
	JP	L01FCC

L0178C:
	CALL	L0186E

L0178F:
	CALL	L0187F
	RET	C
	CP	10
	JP	Z,L01649
	CALL	L0249A
	JP	L0178F

L0179E:
	CALL	L01807
	JP	C,L017C9
	CALL	L0187F
	RET	C
	CP	10
	CALL	Z,L017E3
	CP	' '
	JP	C,L017C3
	PUSH	HL
	LD	HL,L02684
	INC	(HL)
	LD	A,(WID)
	DEC	A
	CP	(HL)
	POP	HL
	JP	NC,L0179E
	DEC	HL
	LD	A,(HL)
	INC	HL

L017C3:
	CALL	L0249A
	JP	L0179E

L017C9:
	CALL	L0187F
	RET	C
	CALL	L0246C
	JP	C,L01649
	CP	10
	JP	Z,L017DE
	CALL	L0249A
	JP	L017C9

L017DE:
	DEC	HL
	INC	BC
	CP	10
	RET	NZ

L017E3:
	PUSH	HL
	LD	HL,L02687
	INC	(HL)
	POP	HL
	RET

L017EA:
	PUSH	DE
	CALL	L00DE3
	PUSH	AF
	EX	DE,HL
	LD	HL,(L0273D)
	CALL	L01F85
	EX	DE,HL
	POP	AF
	POP	DE
	RET

L017FA:
	LD	A,B
	OR	C
	RET	Z
	LD	A,(HL)
	INC	HL
	DEC	BC
	RET

L01801:
	DEC	A
	LD	(L02683),A
	OR	A
	RET	M

L01807:
	LD	A,(L02683)
	INC	A
	INC	A
	LD	D,A
	LD	A,(L02680)
	SUB	D
	RET	NC
	CPL
	INC	A
	SCF
	RET

L01816:
	CALL	L017EA
	LD	A,'{'
	CALL	C,L02497
	LD	D,0

L01820:
	CALL	L017FA
	JP	Z,L01856
	CALL	L0249A
	CP	10
	JP	NZ,L01820
	LD	A,(L02683)
	LD	D,A

L01832:
	LD	A,B
	OR	C
	JP	Z,L01856
	LD	A,(HL)
	INC	HL
	DEC	BC
	CP	' '
	JP	C,L01850
	PUSH	HL
	LD	HL,L02684
	INC	(HL)
	LD	A,(WID)
	DEC	A
	CP	(HL)
	POP	HL
	JP	NC,L01832
	DEC	HL
	LD	A,(HL)
	INC	HL

L01850:
	CALL	L0249A
	JP	L01832

L01856:
	CALL	L0187C
	LD	HL,(L02683)
	RET	C

L0185D:
	CALL	L0246C
	RET	NC
	PUSH	HL
	LD	HL,(L02683)
	INC	L
	LD	H,2
	LD	(L02683),HL
	POP	HL
	SCF
	RET

L0186E:
	CALL	L01EF8
	CALL	L01F95
	RET

L01875:
	CALL	L0187C
	RET	NC
	INC	SP
	INC	SP
	RET

L0187C:
	CALL	L0186E

L0187F:
	LD	A,B
	OR	C
	JP	NZ,L01895
	CALL	L01899
	PUSH	HL
	CALL	L01C0B
	POP	HL
	PUSH	AF
	CALL	L0234E
	CALL	L018A3
	POP	AF
	RET	C

L01895:
	LD	A,(HL)
	DEC	BC
	INC	HL
	RET

L01899:
	PUSH	DE
	EX	DE,HL
	LD	HL,(L0273F)
	CALL	L01F7B
	POP	DE
	RET

L018A3:
	PUSH	DE
	EX	DE,HL
	CALL	L01EF8
	CALL	L01F95
	ADD	HL,DE
	LD	A,C
	SUB	E
	LD	C,A
	LD	A,B
	SBC	A,D
	LD	B,A
	POP	DE
	RET

L018B4:
	CALL	L018BE
	RET	NC
	CALL	L00F2B
	JP	L018B4

L018BE:
	PUSH	BC
	PUSH	DE
	PUSH	HL

L018C1:
	LD	A,(L02749)
	OR	A
	JP	NZ,L018DD
	CALL	L018E3
	JP	C,L01FCC
	LD	D,0C9H

L018D0:
	DEC	D
	JP	Z,L018C1
	CALL	L0234E
	JP	Z,L018D0
	CALL	L018E3

L018DD:
	CALL	NC,L02322
	JP	L01FCC

L018E3:
	LD	A,(L02749)
	OR	A
	RET	NZ
	LD	A,(0F7FFH)
	LD	HL,L0274A
	CP	(HL)
	RET	Z
	LD	A,(L02749)
	OR	A
	RET	NZ
	CALL	L01425
	CALL	L001F2
	LD	HL,L025A9
	LD	(L025A7),HL

L01901:
	LD	A,(L02749)
	OR	A
	RET	NZ
	LD	A,(0F7FFH)
	PUSH	AF
	RRA
	PUSH	AF
	LD	A,80
	JP	NC,L01913
	LD	A,40

L01913:
	LD	(WID),A
	POP	AF
	RRA
	LD	A,24
	JP	NC,L0191F
	LD	A,12

L0191F:
	LD	(HITE),A
	SUB	2
	LD	(L02680),A
	LD	A,15H
	LD	(EREOL),A
	POP	AF
	LD	(L0274A),A
	SCF
	RET

L01932:	DB	0
	DB	'WM      HLP'
	DS	22

L01954:
	CALL	L001F2
	CALL	L01425
	LD	HL,L01932
	LD	DE,L026F8
	LD	BC,33
	CALL	L01F0C
	LD	DE,L026F8
	CALL	L01FF4
	JP	NZ,L019A2
	LD	A,1
	LD	(L026F8),A
	LD	DE,L026F8
	CALL	L01FF4
	JP	NZ,L019A2
	CALL	L00534
	DB	'WM.HLP NOT FOUND ON DEFAULT OR A:',0

L019A2:
	LD	DE,L026F8
	LD	HL,L027E9
	CALL	L020A9
	JP	C,L019DE
	LD	DE,L026F8
	LD	HL,L027E9
	CALL	L01C8F
	LD	HL,L027E9

L019BA:
	PUSH	AF
	LD	A,(HL)
	INC	HL
	CP	11H
	JP	Z,L019CD
	CALL	L024FC

L019C5:
	POP	AF
	DEC	A
	JP	NZ,L019BA
	JP	L019A2

L019CD:
	CALL	L018B4
	CP	10
	JP	NZ,L019DD
	PUSH	HL
	CALL	L001F2
	POP	HL
	JP	L019C5

L019DD:
	POP	AF

L019DE:
	RET

L019DF:
	LD	DE,L026F8
	CALL	L00966
	CALL	L01FF4
	JP	NZ,L019FD
	CALL	L00534
	DB	'FILE NOT FOUND',0

L019FD:
	CALL	L023D6
	LD	DE,L026F8
	LD	HL,L027E9
	CALL	L020A9
	JP	C,L01A1D
	CALL	L01C8F
	PUSH	AF
	LD	B,0
	LD	C,A
	LD	DE,L027E9
	CALL	L00C29
	POP	AF
	JP	C,L019FD

L01A1D:
	JP	L0081A

L01A20:
	CALL	L00828
	JP	Z,L0051D
	LD	DE,L026F6
	XOR	A
	LD	(DE),A
	INC	DE
	INC	DE
	CALL	L00966
	LD	DE,0

L01A33:
	LD	HL,L0273F
	CALL	L01EBC
	CALL	L01F95
	CALL	L01F7C
	EX	DE,HL
	CALL	L00E04

L01A43:
	LD	HL,(L02756)
	EX	DE,HL
	PUSH	HL
	LD	BC,128+1
	ADD	HL,BC
	CALL	L01F9F
	DEC	HL
	EX	(SP),HL
	JP	C,L01A5E
	LD	DE,L026F8
	CALL	L0211A
	POP	DE
	JP	L01A43

L01A5E:
	CALL	L01F7B
	POP	BC
	EX	DE,HL
	CALL	L00828
	JP	Z,L01A74
	PUSH	HL
	LD	HL,(L02756)
	CALL	L01A87
	POP	HL
	JP	NC,L01A33

L01A74:
	LD	A,E
	CALL	L01BEB
	LD	DE,L026F8
	CALL	L02132
	CALL	L0200F
	LD	HL,(L02756)
	JP	L00EE5

L01A87:
	CALL	L023D6
	CALL	L00EE5

L01A8D:
	CALL	L00828
	RET	Z

L01A91:
	CALL	L023D6
	LD	A,(L0275C)
	OR	A
	JP	M,L01CC1
	JP	L01C4D

L01A9E:
	LD	A,(L0275C)
	OR	A
	SCF
	CALL	M,L01B5E
	RET	NC
	CALL	L01ADD
	RET	NC
	JP	L01B5E

L01AAE:
	CALL	L01ABE
	RET	C
	CALL	L01A91
	RET	C
	CALL	L01ABE
	CALL	NC,L01A91
	OR	A
	RET

L01ABE:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	A,(L0275C)
	OR	A
	LD	DE,L0273B
	JP	M,L01ACE
	LD	DE,L0273F

L01ACE:
	LD	HL,(L0272F)
	EX	DE,HL
	CALL	L01EFB
	LD	H,B
	LD	L,C
	CALL	L01F9F
	JP	L01FCC

L01ADD:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	L01B0C
	JP	C,L01FCC
	LD	HL,L0275F
	INC	(HL)
	LD	B,(HL)
	LD	HL,L0272E
	XOR	A

L01AEF:
	ADD	A,(HL)
	DEC	B
	JP	NZ,L01AEF
	DEC	A
	OR	07H
	LD	C,A
	LD	A,(L0272D)
	DEC	A
	LD	B,A

L01AFD:
	CALL	L01B0C
	DEC	B
	JP	Z,L01B08
	DEC	C
	JP	NZ,L01AFD

L01B08:
	OR	A
	JP	L01FCC

L01B0C:
	LD	HL,(L0273B)
	CALL	L01D73
	RET	C
	PUSH	HL
	LD	HL,(L026AB+34)
	EX	DE,HL
	LD	HL,(L02720)
	CALL	L01F9F
	POP	HL
	LD	DE,L026AB
	JP	NC,L01B2B
	CALL	L02135
	JP	L01B38

L01B2B:
	CALL	L0212F
	EX	DE,HL
	LD	HL,(L02720)
	INC	HL
	LD	(L02720),HL
	EX	DE,HL
	INC	B

L01B38:
	LD	DE,128
	ADD	HL,DE
	LD	(L0273B),HL
	RET

L01B40:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	HL,81H
	LD	(L02745),HL
	LD	HL,L02743
	CALL	L01E49
	LD	HL,(L02741)
	CALL	L00EE5

L01B55:
	CALL	L01B0C
	JP	NC,L01B55
	JP	L01FCC

L01B5E:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	L01B7E
	JP	C,L01FCC
	LD	A,(L0272D)
	LD	B,A
	DEC	B
	ADD	A,A
	LD	C,A
	DEC	C

L01B6F:
	CALL	L01B7E
	DEC	B
	JP	Z,L01B7A
	DEC	C
	JP	NZ,L01B6F

L01B7A:
	OR	A
	JP	L01FCC

L01B7E:
	LD	HL,(L02741)
	CALL	L01CAA
	JP	NZ,L01B96
	LD	A,(L026F5)
	LD	D,A
	CALL	L00D3C
	PUSH	HL
	LD	A,D
	CALL	L01BEB
	JP	L01B9B

L01B96:
	LD	DE,0FF80H
	ADD	HL,DE
	PUSH	HL

L01B9B:
	EX	(SP),HL
	CALL	L01D83
	EX	(SP),HL
	JP	NC,L01BA5
	POP	HL
	RET

L01BA5:
	PUSH	HL
	LD	HL,(L02722)
	EX	DE,HL
	CALL	L01DE3
	CALL	L01F9F
	POP	HL
	JP	NC,L01BBD
	LD	DE,5CH
	CALL	L0213C
	JP	L01BE2

L01BBD:
	PUSH	HL
	LD	HL,(L02724)
	EX	DE,HL
	CALL	L01DE3
	CALL	L01F9F
	POP	HL
	LD	DE,L026D1
	JP	NC,L01BD5
	CALL	L02135
	JP	L01BE2

L01BD5:
	CALL	L0212F
	PUSH	HL
	LD	HL,(L02724)
	DEC	HL
	LD	(L02724),HL
	POP	HL
	INC	B

L01BE2:
	CALL	L01CAA
	OR	A
	POP	HL
	LD	(L02741),HL
	RET

L01BEB:
	PUSH	BC
	PUSH	DE
	LD	DE,L027E9
	PUSH	DE
	LD	B,A
	LD	C,130
	INC	B
	DEC	HL
	DEC	DE

L01BF7:
	LD	A,(HL)
	LD	(DE),A
	INC	HL
	INC	DE
	DEC	C
	DEC	B
	JP	NZ,L01BF7

L01C00:
	LD	A,1AH
	LD	(DE),A
	INC	DE
	DEC	C
	JP	NZ,L01C00
	JP	L01FCC

L01C0B:
	CALL	L01CAA
	RET	Z
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	L01E95
	LD	HL,128
	CALL	L01F9F
	EX	DE,HL
	LD	HL,(L02728)
	JP	NC,L01C29
	CALL	L01ADD
	JP	C,L01D1A
	EX	DE,HL

L01C29:
	EX	DE,HL
	LD	HL,L02743
	CALL	L01D0D
	JP	L01C5C

L01C33:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	HL,L02743
	LD	DE,7800H
	CALL	L01D3D
	CALL	L01CAA
	JP	Z,L01C73
	LD	A,C
	OR	A
	JP	NZ,L01C5C
	JP	L01FCC

L01C4D:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	L01CAA
	JP	Z,L01C73
	LD	HL,L02743
	CALL	L01CF3

L01C5C:
	LD	HL,(L02741)

L01C5F:
	CALL	L01C76
	CALL	NC,L01C8F
	JP	C,L01C6B
	LD	(L026F5),A

L01C6B:
	LD	(L02741),HL
	DEC	C
	JP	NZ,L01C5F
	OR	A

L01C73:
	JP	L01FCC

L01C76:
	CALL	L023D6
	LD	DE,L026D0
	LD	A,(DE)
	INC	DE
	OR	A
	SCF
	CALL	NZ,L020B0
	RET	NC
	LD	DE,5BH
	LD	A,(DE)
	INC	DE
	OR	A
	SCF
	CALL	NZ,L020A9
	RET

L01C8F:
	LD	B,128

L01C91:
	LD	A,(HL)
	AND	7FH
	LD	(HL),A
	CP	1AH
	JP	Z,L01CA3
	INC	HL
	DEC	B
	JP	NZ,L01C91
	SCF
	LD	A,128
	RET

L01CA3:
	CALL	L020C5
	LD	A,128
	SUB	B
	RET

L01CAA:
	PUSH	HL
	LD	A,(5BH)
	LD	HL,L026D0
	OR	(HL)
	SCF
	POP	HL
	RET

L01CB5:
	LD	A,(L0275C)
	OR	A
	LD	A,(L026AA)
	CALL	P,L01CAA
	OR	A
	RET

L01CC1:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	A,(L026AA)
	OR	A
	SCF
	JP	Z,L01CF0
	LD	DE,L01B5E
	LD	HL,L0273B
	CALL	L01CF6
	LD	HL,(L0273B)

L01CD8:
	CALL	L023D6
	LD	DE,0FF80H
	ADD	HL,DE
	LD	DE,L026AB
	CALL	L020B0
	JP	C,L01CEF
	LD	(L0273B),HL
	DEC	C
	JP	NZ,L01CD8

L01CEF:
	OR	A

L01CF0:
	JP	L01FCC

L01CF3:
	LD	DE,L01ADD

L01CF6:
	PUSH	HL
	LD	HL,(L02728)
	PUSH	DE
	CALL	L01E95
	CALL	L01F9F
	POP	HL
	CALL	C,L011C4
	LD	HL,(L02726)
	ADD	HL,HL
	INC	H
	INC	H
	EX	DE,HL
	POP	HL

L01D0D:
	CALL	L01D3D
	CP	8
	JP	C,L01D18
	SUB	4
	LD	C,A

L01D18:
	OR	A
	RET	NZ

L01D1A:
	CALL	L00534
	DB	'MEM SHORTAGE, TRY CLEARING QBUF',0

L01D3D:
	CALL	L01E49
	PUSH	DE
	CALL	L01E95
	POP	HL
	CALL	L01FBD
	EX	DE,HL
	ADD	HL,HL

L01D4A:
	JP	C,$
	EX	DE,HL
	LD	A,D
	LD	C,D
	RET

L01D51:
	CALL	L01C33

L01D54:
	CALL	L01B40
	CALL	L01C33
	JP	NC,L01D54
	LD	HL,L0273B
	CALL	L01EFB
	CALL	L01F95
	LD	A,C
	CALL	L01BEB
	LD	DE,L026AB
	CALL	L0212F
	JP	L0200F

L01D73:
	PUSH	HL
	LD	HL,(L02745)
	EX	DE,HL
	LD	HL,(L0273D)
	CALL	L01F7C
	EX	DE,HL
	POP	HL
	JP	L01F9F

L01D83:
	PUSH	HL
	LD	HL,(L02747)
	EX	DE,HL
	LD	HL,(L0273F)
	ADD	HL,DE
	POP	DE
	CALL	L01F9F
	EX	DE,HL
	RET

L01D92:
	PUSH	DE
	LD	DE,L0273D
	CALL	L01F9F
	POP	DE
	RET	NZ

L01D9B:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	PUSH	AF
	LD	HL,L0273B
	CALL	L01DF4
	LD	HL,(L026AB+34)
	ADD	HL,DE
	EX	DE,HL
	LD	HL,(L02720)
	CALL	L01F9F
	EX	DE,HL
	JP	NC,L01DB7
	LD	(L02720),HL

L01DB7:
	LD	HL,L0273F
	CALL	L01DF4
	CALL	L01DE3
	CALL	L01F7C
	EX	DE,HL
	LD	HL,(L02722)
	CALL	L01F9F
	EX	DE,HL
	JP	C,L01DD1
	LD	(L02722),HL

L01DD1:
	EX	DE,HL
	LD	HL,(L02724)
	CALL	L01F9F
	EX	DE,HL
	JP	C,L01DDF
	LD	(L02724),HL

L01DDF:
	POP	AF
	JP	L01FCC

L01DE3:
	PUSH	DE
	LD	HL,(L026D1+34)
	EX	DE,HL
	LD	HL,(7EH)
	CALL	L01F7C
	LD	DE,7FFFH
	ADD	HL,DE
	POP	DE
	RET

L01DF4:
	CALL	L01EFB
	LD	H,B
	LD	L,C
	ADD	HL,HL
	LD	E,H
	LD	D,0
	JP	NC,L01E01
	INC	D

L01E01:
	RET

	PUSH	BC
	PUSH	DE
	PUSH	HL
L01E05:
	EX	DE,HL
	PUSH	HL
	CALL	L01F95
	EX	DE,HL
	CALL	L01F85
	POP	HL
	PUSH	HL
	CALL	L01F8F
	CALL	L01F0C
	EX	(SP),HL
	DEC	HL
	DEC	HL
	LD	(HL),E
	INC	HL
	LD	(HL),D
	INC	HL
	POP	DE
	LD	(HL),E
	INC	HL
	LD	(HL),D
	OR	A
	JP	L01FCC

	PUSH	BC
	PUSH	DE
	PUSH	HL
L01E28:
	EX	DE,HL
	INC	HL
	INC	HL
	PUSH	HL
	CALL	L01F95
	CALL	L01F85
	EX	(SP),HL
	INC	HL
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	EX	(SP),HL
	CALL	L01F2E
	EX	(SP),HL
	LD	(HL),D
	DEC	HL
	LD	(HL),E
	POP	DE
	DEC	HL
	LD	(HL),D
	DEC	HL
	LD	(HL),E
	OR	A
	JP	L01FCC

L01E49:
	PUSH	BC
	PUSH	DE
	PUSH	HL

L01E4C:
	EX	DE,HL
	LD	HL,L02733
	CALL	L01F9F
	CALL	C,L01E86
	LD	HL,L02744
	CALL	L01F9F
	CALL	NC,L01E86
	LD	HL,L02733

L01E62:
	INC	HL
	CALL	L01F9F
	DEC	HL
	JP	C,L01E73
	CALL	L01EBC
	CALL	L01EAC
	JP	L01E62

L01E73:
	LD	HL,L02741

L01E76:
	CALL	L01F9F
	JP	NC,L01FCC
	CALL	L01ED8
	DEC	HL
	DEC	HL
	DEC	HL
	DEC	HL
	JP	L01E76

L01E86:
	CALL	L01FE7
	DB	'PUTHOLE ERR',0

L01E95:
	PUSH	BC
	PUSH	HL
	LD	DE,0
	LD	HL,L02731

L01E9D:
	CALL	L01EFB
	EX	DE,HL
	ADD	HL,BC
	EX	DE,HL
	CALL	L01EAC
	JP	NC,L01E9D
	POP	HL
	POP	BC
	RET

L01EAC:
	PUSH	DE
	INC	HL
	INC	HL
	INC	HL
	INC	HL
	LD	DE,L02742
	CALL	L01F9F
	POP	DE
	RET

L01EB9:
	LD	HL,L02737

L01EBC:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	L01EFB
	CALL	L01F8F
	EX	(SP),HL
	LD	(HL),E
	INC	HL
	LD	(HL),D
	DEC	HL
	EX	(SP),HL
	CALL	L01F0C
	POP	HL
	PUSH	HL
	INC	HL
	INC	HL
	LD	(HL),E
	INC	HL
	LD	(HL),D
	JP	L01FCC

L01ED8:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	PUSH	HL
	DEC	HL
	DEC	HL
	CALL	L01EFB
	POP	HL
	PUSH	HL
	CALL	L01F91
	EX	DE,HL
	EX	(SP),HL
	INC	HL
	LD	(HL),D
	DEC	HL
	LD	(HL),E
	EX	(SP),HL
	CALL	L01F2E
	POP	HL
	DEC	HL
	LD	(HL),D
	DEC	HL
	LD	(HL),E
	JP	L01FCC

L01EF8:
	LD	HL,L0273F

L01EFB:
	PUSH	DE
	PUSH	HL
	CALL	L01F91
	CALL	L01F85
	POP	HL
	POP	DE
	RET

L01F06:
	LD	HL,L01F53

L01F09:
	LD	BC,3

L01F0C:
	CALL	L01F56
	CALL	L01F9F
	JP	NZ,L01F1C
	ADD	HL,BC
	EX	DE,HL
	ADD	HL,BC
	LD	BC,0
	RET

L01F1C:
	INC	B
	INC	C
	JP	L01F25

L01F21:
	LD	A,(HL)
	LD	(DE),A
	INC	HL
	INC	DE

L01F25:
	DEC	C
	JP	NZ,L01F21
	DEC	B
	JP	NZ,L01F21
	RET

L01F2E:
	CALL	L01F56
	CALL	L01F9F
	JP	NZ,L01F41
	CALL	L01F71
	ADD	HL,BC
	EX	DE,HL
	ADD	HL,BC
	LD	BC,0
	RET

L01F41:
	INC	B
	INC	C
	JP	L01F4A

L01F46:
	DEC	HL
	DEC	DE
	LD	A,(HL)
	LD	(DE),A

L01F4A:
	DEC	C
	JP	NZ,L01F46
	DEC	B
	JP	NZ,L01F46
	RET

L01F53:	DB	'BAK'

L01F56:
	LD	A,B
	OR	17H
	INC	A
	RET	NZ
	CALL	L00534
	DB	'COPY ERR',0

L01F67:
	PUSH	AF
	XOR	A
	SUB	L
	LD	L,A
	LD	A,0
	SBC	A,H
	LD	H,A
	POP	AF
	RET

L01F71:
	PUSH	AF
	XOR	A
	SUB	C
	LD	C,A
	LD	A,0
	SBC	A,B
	LD	B,A
	POP	AF
	RET

L01F7B:
	EX	DE,HL

L01F7C:
	PUSH	DE
	EX	DE,HL
	CALL	L01F67
	EX	DE,HL
	ADD	HL,DE
	POP	DE
	RET

L01F85:
	PUSH	HL
	CALL	L01F7C
	LD	B,H
	LD	C,L
	POP	HL
	LD	A,B
	OR	C
	RET

L01F8F:
	DEC	HL
	DEC	HL

L01F91:
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	INC	HL

L01F95:
	LD	A,(HL)
	INC	HL
	LD	H,(HL)
	LD	L,A
	RET

	DEC	HL
	DEC	HL
	JP	L01F95

L01F9F:
	PUSH	BC
	LD	B,A
	LD	A,D
	SUB	H
	JP	NZ,L01FA8
	LD	A,E
	SUB	L

L01FA8:
	LD	A,B
	POP	BC
	RET

L01FAB:
	CALL	L01F9F
	JP	C,L01FB6

L01FB1:
	LD	HL,0
	OR	A
	RET

L01FB6:
	PUSH	HL
	CALL	L01F7C
	POP	DE
	SCF
	RET

L01FBD:
	CALL	L01F9F
	JP	Z,L01FB1
	JP	C,L01FB1
	EX	DE,HL
	CALL	L01F7C
	SCF
	RET

L01FCC:
	POP	HL
	POP	DE
	POP	BC
	RET

L01FD0:
	PUSH	DE
	LD	DE,80H
	CALL	L01FD9
	DB	26
	POP	DE

L01FD9:
	EX	(SP),HL
	PUSH	BC
	LD	C,(HL)
	INC	HL
	PUSH	DE
	PUSH	HL
	CALL	5
	POP	HL
	POP	DE
	POP	BC
	EX	(SP),HL
	RET

L01FE7:
	CALL	L024E3
	POP	DE
	CALL	L0230E
	CALL	L024E3
	JP	L00463

L01FF4:
	CALL	L01FD0
	DB	15
	INC	A

L01FF9:
	PUSH	HL
	LD	HL,35
	ADD	HL,DE
	LD	(HL),0
	DEC	HL
	LD	(HL),0
	POP	HL
	RET

L02005:
	LD	DE,L026D1

L02008:
	DEC	DE
	DEC	DE
	LD	A,(DE)
	INC	DE
	INC	DE
	OR	A
	RET	Z

L0200F:
	CALL	L01FD0
	DB	16
	INC	A
	RET	NZ
	CALL	L01FE7
	DB	'CLOSE ERR',0

L02022:
	LD	DE,L026D1
	CALL	L02008

L02028:
	CALL	L01FD0
	DB	19
	DEC	DE
	CALL	L020C5
	INC	DE
	JP	L020C5

L02034:
	CALL	L02028
	CALL	L01FF9

L0203A:
	CALL	L01FD0
	DB	22
	INC	A
	RET	NZ

L02040:
	CALL	L01FE7
	DB	'DIRECTORY FULL',0

L02052:
	PUSH	DE
	LD	E,A
	LD	A,(L0274B)
	OR	A
	LD	A,E
	JP	NZ,L02062
	CALL	L01FD9
	DB	30
	POP	DE
	RET

L02062:
	POP	DE
	OR	A
	JP	NZ,L0206C
	CALL	L01FD9
	DB	25
	INC	A
L0206C:
	RET

L0206D:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	PUSH	DE
	LD	HL,16
	ADD	HL,DE
	LD	BC,16
	EX	DE,HL
	CALL	L01F0C
	LD	(HL),0
	POP	DE
	LD	HL,25
	ADD	HL,DE
	EX	DE,HL
	POP	HL
	PUSH	HL
	CALL	L01F09
	POP	HL
	POP	DE
	POP	BC
	CALL	L01FD0
	DB	23
	INC	A
	RET	NZ
	LD	A,(L0274B)
	OR	A
	RET	NZ
	CALL	L01FE7
	DB	'RENAME FAILURE',0

L020A9:
	CALL	L020B4
	CALL	NC,L02135
	RET

L020B0:
	CALL	L0213C
	RET	C

L020B4:
	CALL	L0234E
	XOR	A
	CALL	L02167
	JP	C,L020C5
	CALL	L01FD9
	DB	20
	OR	A
	DEC	A
	RET	NZ

L020C5:
	DEC	DE
	XOR	A
	LD	(DE),A
	INC	DE
	SCF
	RET

L020CB:
	PUSH	HL
	LD	H,D
	LD	L,E
	DEC	HL
	DEC	HL
	LD	A,(HL)
	OR	A
	CALL	Z,L02034
	LD	(HL),0FFH
	POP	HL
	CALL	L0210A
	RET	NZ
	PUSH	AF
	PUSH	HL
	LD	HL,L026D1
	CALL	L01F9F
	POP	HL
	JP	Z,L020F7
	LD	A,(L026D0)
	OR	A
	PUSH	DE
	CALL	Z,L02022
	POP	DE
	POP	AF
	CALL	L0210A
	RET	NZ
	PUSH	AF

L020F7:
	POP	AF
	CP	2
	JP	NZ,L02040
	CALL	L00534
	DB	'DISK FULL',0

L0210A:
	CALL	L02165
	CALL	L01FD9
	DB	21
	CP	1
	RET	Z
	CP	0FFH
	RET	Z
	CP	2
	RET

L0211A:
	PUSH	BC
	PUSH	HL
	PUSH	DE
	LD	BC,128
	LD	DE,L027E9
	PUSH	DE
	CALL	L01F0C
	POP	HL
	POP	DE
	CALL	L02132
	POP	HL
	POP	BC
	RET

L0212F:
	CALL	L023D6

L02132:
	CALL	L020CB

L02135:
	PUSH	BC
	LD	BC,1
	JP	L02140

L0213C:
	PUSH	BC
	LD	BC,0FFFFH

L02140:
	PUSH	DE
	PUSH	HL
	DEC	DE
	LD	A,0FFH
	LD	(DE),A
	LD	HL,35
	ADD	HL,DE
	PUSH	HL
	CALL	L01F95
	ADD	HL,BC
	LD	A,H
	AND	L
	INC	A
	JP	Z,L0215E
	EX	DE,HL
	POP	HL
	LD	(HL),E
	INC	HL
	LD	(HL),D
	OR	A
	JP	L01FCC

L0215E:
	XOR	A
	LD	(DE),A
	SCF
	POP	HL
	JP	L01FCC

L02165:
	LD	A,0FFH

L02167:
	PUSH	BC
	LD	B,A
	PUSH	HL
	LD	HL,34
	ADD	HL,DE
	CALL	L01F95
	LD	A,L
	AND	7FH
	LD	C,A
	ADD	HL,HL
	LD	A,H
	LD	HL,12
	ADD	HL,DE
	CP	(HL)
	JP	Z,L021A0
	PUSH	HL
	PUSH	AF
	LD	HL,33
	ADD	HL,DE
	LD	A,(HL)
	OR	A
	CALL	NZ,L0200F
	LD	(HL),0
	POP	AF
	POP	HL
	LD	(HL),A
	CALL	L01FD0
	DB	15
	INC	A
	JP	NZ,L021A0
	LD	A,B
	OR	A
	SCF
	JP	Z,L021A9
	CALL	L0203A

L021A0:
	LD	HL,32
	ADD	HL,DE
	LD	(HL),C
	INC	HL
	LD	A,(HL)
	OR	B
	LD	(HL),A

L021A9:
	POP	HL
	PUSH	AF
	EX	DE,HL
	CALL	L01FD9
	DB	26
	EX	DE,HL
	POP	AF
	POP	BC
	RET

L021B4:
	LD	DE,L0275C
	XOR	A
	LD	(DE),A

L021B9:
	CALL	L022F1
	INC	HL
	CP	'+'
	JP	Z,L021B9
	CP	'-'
	JP	NZ,L021CD
	LD	A,0FFH
	LD	(DE),A
	JP	L021B9

L021CD:
	DEC	HL
	LD	DE,0FFFFH
	EX	DE,HL
	LD	(L0275A),HL
	EX	DE,HL
	CALL	L022F1
	CP	'#'
	INC	HL
	JP	Z,L0220F
	DEC	HL
	CALL	L02229
	LD	DE,1
	JP	NC,L0220F
	DEC	DE

L021EA:
	LD	A,(HL)
	CALL	L02229
	JP	NC,L0220A
	INC	HL
	PUSH	HL
	LD	H,D
	LD	L,E
	ADD	HL,DE
	ADD	HL,HL
	ADD	HL,DE
	ADD	HL,HL
	JP	C,L02215
	SUB	'0'
	LD	E,A
	LD	D,0
	ADD	HL,DE
	JP	C,L02215
	EX	DE,HL
	POP	HL
	JP	L021EA

L0220A:
	EX	DE,HL
	LD	(L0275A),HL
	EX	DE,HL

L0220F:
	EX	DE,HL
	LD	(L02758),HL
	EX	DE,HL
	RET

L02215:
	CALL	L00534
	DB	'NUMBER TOO LARGE',0

L02229:
	CP	'0'
	CCF
	RET	NC
	CP	'9'+1
	RET

L02230:
	PUSH	BC
	PUSH	DE
	LD	HL,L026A5
	LD	A,(HL)
	PUSH	AF
	XOR	A
	LD	(HL),A
	LD	HL,L0286C
	PUSH	HL
	LD	C,A

L0223E:
	LD	A,C
	CP	7FH
	JP	NC,L022DA
	POP	DE
	PUSH	DE
	CALL	L018BE
	PUSH	AF
	CALL	C,L007BE
	POP	AF
	JP	C,L0223E
	CALL	L024F0
	CP	13
	JP	Z,L022DF
	CP	10
	JP	Z,L022D5
	PUSH	HL
	LD	HL,L0223E
	EX	(SP),HL
	CP	1FH
	JP	Z,L0226D
	CP	7FH
	JP	NZ,L02274

L0226D:
	CALL	L022CD

L02270:
	RET	Z
	JP	L024FC

L02274:
	CP	18H
	JP	Z,L0227E
	CP	15H
	JP	NZ,L02283

L0227E:
	EX	DE,HL
	LD	C,0
	LD	A,05H

L02283:
	CP	05H
	JP	Z,L024E3
	CP	08H
	JP	NZ,L02294
	CALL	L022CD
	RET	Z
	JP	L00BB9

L02294:
	CP	1CH
	JP	NZ,L022B9

L02299:
	CALL	L022CD
	RET	Z
	LD	B,A
	CALL	L00BB9
	LD	A,B
	CALL	L022FA
	JP	Z,L02299

L022A8:
	CALL	L022CD
	RET	Z
	LD	B,A
	CALL	L00ED7
	JP	NC,L022CA
	CALL	L00BB9
	JP	L022A8

L022B9:
	CP	12H
	JP	NZ,L022C4
	CALL	L024E3
	JP	L007BE

L022C4:
	CP	03H
	JP	Z,L004B3
	LD	(HL),A

L022CA:
	INC	HL
	INC	C
	RET

L022CD:
	LD	A,C
	OR	A
	RET	Z
	DEC	C
	INC	A
	DEC	HL
	LD	A,(HL)
	RET

L022D5:
	LD	B,13
	JP	L022E1

L022DA:
	LD	A,13
	CALL	L024FC

L022DF:
	LD	B,10

L022E1:
	LD	(L0286B),A
	LD	(HL),0
	LD	A,B
	CALL	L024FC
	POP	HL
	POP	AF
	LD	(L026A5),A
	POP	DE
	POP	BC

L022F1:
	LD	A,(HL)
	CALL	L022FA
	RET	NZ
	INC	HL
	JP	L022F1

L022FA:
	CP	9
	RET	Z
	CP	' '
	RET	Z
	CP	10
	RET	Z
	CP	13
	RET

L02306:
	EX	(SP),HL
	PUSH	AF
	CALL	L02318
	POP	AF
	EX	(SP),HL
	RET

L0230E:
	PUSH	AF
	EX	DE,HL
	PUSH	HL
	CALL	L02318
	POP	HL
	EX	DE,HL
	POP	AF
	RET

L02318:
	LD	A,(HL)
	OR	A
	RET	Z
	CALL	L024FC
	INC	HL
	JP	L02318

L02322:
	PUSH	HL
	LD	HL,(L025B7)
	LD	A,(HL)
	OR	A
	JP	Z,L02340
	PUSH	AF
	LD	(HL),0
	INC	HL
	LD	A,(HL)
	INC	A
	JP	NZ,L02337
	LD	HL,L025B9

L02337:
	LD	(L025B7),HL
	CALL	L0234E
	POP	AF
	POP	HL
	RET

L02340:
	POP	HL

L02341:
	CALL	L023B4
	AND	7FH
	CALL	L0239C
	JP	Z,L02341
	OR	A
	RET

L0234E:
	PUSH	HL

L0234F:
	CALL	L023C0
	JP	Z,L02395

L02355:
	LD	HL,(L025B5)
	LD	A,(HL)
	OR	A
	JP	NZ,L02383
	CALL	L023B4
	AND	7FH
	CALL	NZ,L0239C
	JP	Z,L0234F
	LD	(HL),A
	INC	HL
	LD	A,(HL)
	INC	A
	JP	NZ,L02372
	LD	HL,L025B9

L02372:
	LD	(L025B5),HL
	LD	A,(HL)
	OR	A
	JP	NZ,L02383
	CALL	L023C0
	JP	NZ,L02355
	JP	L02391

L02383:
	LD	A,'!'
	CALL	L024FC
	LD	A,07H
	CALL	L0259B
	XOR	A
	LD	(L0269B),A

L02391:
	POP	HL
	OR	1
	RET

L02395:
	LD	HL,(L025B7)
	LD	A,(HL)
	OR	A
	POP	HL
	RET

L0239C:
	CP	16H
	RET	NZ
	CALL	L023B4
	PUSH	AF
	CALL	L0259B
	POP	AF
	CP	1BH
	JP	NZ,L023B2
	CALL	L023B4
	CALL	L0259B

L023B2:
	XOR	A
	RET

L023B4:
	LD	A,6
	CALL	L023C7
	CP	03H
	RET	NZ
	LD	(L026A7),A
	RET

L023C0:
	LD	A,3
	CALL	L023C7
	OR	A
	RET

L023C7:
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	HL,L01FCC
	PUSH	HL
	LD	HL,(1)
	CALL	L00D4A
	LD	A,C
	JP	(HL)

L023D6:
	PUSH	AF
	LD	A,(L026A5)
	OR	A
	JP	NZ,L023E3
	CALL	L0234E
	POP	AF
	RET

L023E3:
	CALL	L023FA
	JP	NZ,L023EB
	POP	AF
	RET

L023EB:
	CALL	L00534
	DB	'INTERRUPTED',0

L023FA:
	CALL	L0234E
	PUSH	HL
	LD	HL,L026A7
	LD	A,(HL)
	LD	(HL),0
	OR	A
	POP	HL
	RET	Z
	PUSH	BC
	PUSH	HL
	LD	HL,L025B9
	LD	(L025B5),HL
	LD	(L025B7),HL
	LD	C,100
	XOR	A

L02415:
	LD	(HL),A
	INC	HL
	DEC	C
	JP	NZ,L02415
	DEC	C
	POP	HL
	POP	BC
	RET

L0241F:
	LD	A,13

L02421:
	CP	13
	CALL	Z,L02430
	CALL	L02465
	RET	NC
	CALL	L02430
	JP	L024FC

L02430:
	PUSH	AF
	INC	E
	JP	Z,L0243F
	DEC	E
	NOP
	NOP
	NOP
	INC	E
	CP	9
	JP	NZ,L02462

L0243F:
	LD	A,(L026A1)
	CP	13
	JP	Z,L02462
	CALL	L0234E
	LD	A,(EREOL)
	OR	A
	CALL	NZ,L00239
	JP	NZ,L02462

L02454:
	LD	A,' '
	CALL	L02465
	JP	C,L02462
	CALL	L0234E
	JP	L02454

L02462:
	DEC	E
	POP	AF
	RET

L02465:
	CALL	L0246C
	RET	C
	JP	L024FC

L0246C:
	CP	13
	RET	Z
	CP	10
	RET	Z
	PUSH	BC
	LD	B,A
	LD	A,(L02684)
	LD	C,A
	LD	A,B
	CP	9
	JP	NZ,L02483
	LD	A,C
	OR	07H
	LD	C,A
	CPL

L02483:
	CP	' '
	JP	NC,L0248E
	CP	1BH
	JP	Z,L0248E
	INC	C

L0248E:
	INC	C
	LD	A,(WID)
	INC	C
	CP	C
	LD	A,B
	POP	BC
	RET

L02497:
	CALL	L0249A

L0249A:
	PUSH	HL

L0249B:
	PUSH	AF
	LD	HL,L02684
	CP	' '
	JP	C,L024B7

L024A4:
	INC	(HL)
	LD	A,(WID)
	CP	(HL)
	JP	Z,L024AF
	JP	NC,L024D1

L024AF:
	LD	(HL),2
	DEC	HL
	INC	(HL)
	POP	AF
	JP	L0249B

L024B7:
	CP	1BH
	JP	Z,L024A4
	CP	10
	JP	Z,L024CF
	CP	13
	JP	Z,L024D4
	CP	9
	JP	Z,L024DC
	INC	(HL)
	JP	L024A4

L024CF:
	DEC	HL
	INC	(HL)

L024D1:
	POP	AF
	POP	HL
	RET

L024D4:
	CALL	L0234E
	LD	(HL),0
	POP	AF
	POP	HL
	RET

L024DC:
	LD	A,(HL)
	OR	07H
	LD	(HL),A
	JP	L024A4

L024E3:
	PUSH	AF
	LD	A,13
	CALL	L024FC
	LD	A,10
	CALL	L024FC
	POP	AF
	RET

L024F0:
	CP	08H
	RET	Z
	CP	7FH
	RET	Z
	CP	1FH
	RET	Z
	CP	1CH
	RET	Z

L024FC:
	PUSH	AF
	PUSH	HL
	CP	1BH
	JP	NZ,L02505
	LD	A,'$'

L02505:
	CP	7FH
	JP	NZ,L0250C
	LD	A,'~'

L0250C:
	PUSH	AF
	CALL	L0246C
	JP	NC,L0251B
	CALL	L02306
	DB	13,10,'>>',0

L0251B:
	LD	HL,(L025A7)
	CP	13
	JP	NZ,L02529
	LD	HL,L025A9
	JP	L0255B

L02529:
	CP	9
	JP	NZ,L02548
	INC	HL
	LD	A,(HL)
	INC	A
	JP	NZ,L02535
	DEC	HL

L02535:
	LD	(HL),0

L02537:
	LD	A,' '
	CALL	L02567
	INC	(HL)
	LD	A,(L02684)
	AND	07H
	JP	NZ,L02537
	JP	L0255B

L02548:
	CP	' '
	JP	NC,L0255B
	CP	10
	JP	Z,L0255B
	LD	A,'^'
	CALL	L02567
	POP	AF
	ADD	A,40H
	PUSH	AF

L0255B:
	LD	(L025A7),HL
	POP	AF
	POP	HL
	CP	9
	CALL	NZ,L02567
	POP	AF
	RET

L02567:
	PUSH	AF
	CALL	L0259B
	POP	AF
	PUSH	AF
	PUSH	HL
	CALL	L02574
	POP	HL
	POP	AF
	RET

L02574:
	LD	HL,L02684
	CP	10
	JP	Z,L02586
	CP	13
	JP	NZ,L02584
	LD	(HL),0
	RET

L02584:
	INC	(HL)
	RET

L02586:
	DEC	HL
	INC	(HL)
	LD	A,(HITE)
	DEC	A
	CP	(HL)
	RET	NC
	DEC	(HL)
	DEC	HL
	INC	(HL)
	RET

L02592:
	PUSH	AF
	XOR	A
	LD	(L026A1),A
	POP	AF
	JP	L0259E

L0259B:
	LD	(L026A1),A

L0259E:
	PUSH	BC
	LD	C,A
	LD	A,9
	CALL	L023C7
	POP	BC
	RET

L025A7:	DW	L025A9
L025A9:	DB	0FFH
	DS	10
	DB	0FFH
L025B5:	DW	L025B9
L025B7:	DW	L025B9
L025B9:	DS	100
	DB	0FFH

	DS	((($+128)/128)*128)-$-1
	DB	0

L02680:	DS	2
L02682:	DS	1
L02683:	DS	1
L02684:	DS	1
L02685:	DS	2
L02687:	DS	2
L02689:	DS	2
L0268B:	DS	2
L0268D:	DS	1
	DS	1
L0268F:	DS	2
L02691:	DS	2
L02693:	DS	2
L02695:	DS	2
L02697:	DS	2
L02699:	DS	2
L0269B:	DS	1
L0269C:	DS	1
L0269D:	DS	1
L0269E:	DS	1
L0269F:	DS	1
L026A0:	DS	1
L026A1:	DS	1
L026A2:	DS	1
L026A3:	DS	1
L026A4:	DS	1
L026A5:	DS	1
L026A6:	DS	1
L026A7:	DS	1
L026A8:	DS	1

L026A9:	DS	1
L026AA:	DS	1
L026AB:	DS	36

L026CF:	DS	1
L026D0:	DS	1
L026D1:	DS	36
L026F5:	DS	1

L026F6:	DS	1
L026F7:	DS	1
L026F8:	DS	36

L0271C:	DS	1
L0271D:	DS	1
L0271E:	DS	2
L02720:	DS	2
L02722:	DS	2
L02724:	DS	2
L02726:	DS	2
L02728:	DS	2
	DS	1
L0272B:	DS	1
L0272C:	DS	1
L0272D:	DS	1
L0272E:	DS	1
L0272F:	DS	2

L02731:	DS	2
L02733:	DS	2
L02735:	DS	2
L02737:	DS	2
L02739:	DS	2
L0273B:	DS	2
L0273D:	DS	2
L0273F:	DS	2
L02741:	DS	2
L02743:	DS	2
L02742:	EQU	L02741+1
L02744:	EQU	L02743+1

L02745:	DS	2
L02747:	DS	2
L02749:	DS	1
L0274A:	DS	1
L0274B:	DS	1

L0274C:	DS	1
L0274D:	DS	2
L0274F:	DS	2
	DS	1
L02752:	DS	2
L02754:	DS	2
L02756:	DS	2
L02758:	DS	2
L0275A:	DS	2
L0275C:	DS	2
L0275E:	DS	1
L0275F:	DS	1
L02760:	DS	2
L02762:	DS	1

L02763:	DS	134
L027E9:	DS	130
L0286B:	DS	1
L0286C:	DS	208
L0293C:	DS	122
L029B6:	DS	2
MEMORY:
	END