;MI - C  v-3.18C  (C) COPYRIGHT  G. KERSTING / H. ROSE, 1983
	DSEG
SSTDIN:
	DEFW	111
	CSEG
	DSEG
SSTDOUT:
	DEFW	112
	CSEG
	DSEG
SSTDLST:
	DEFW	114
	CSEG
	DSEG
STDIN:
	DEFW	SSTDIN
	CSEG
	DSEG
STDOUT:
	DEFW	SSTDOUT
	CSEG
	DSEG
STDLST:
	DEFW	SSTDLST
	CSEG
	DSEG
length:
	DEFW	0,0
	CSEG
	DSEG
linesmax:
	DEFW	1
	CSEG
	DSEG
line:
	DEFW	1
	CSEG
	DSEG
lastkey:
	DEFW	0
	CSEG
	DSEG
flag:
	DEFW	1
	CSEG
main:
	PUSH	BC
	LD	HL,4
	ADD	HL,SP
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	LD	A,E
	SUB	2
	OR	D
	JP	Z,C304
	LD	DE,C301+0
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,1
	PUSH	DE
	CALL	exit
	POP	BC
C304:
	LD	HL,6
	ADD	HL,SP
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	INC	DE
	INC	DE
	EX	DE,HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	PUSH	DE
	LD	DE,filename
	PUSH	DE
	CALL	strcpy
	POP	BC
	POP	BC
	LD	DE,C301+21
	PUSH	DE
	LD	DE,filename
	PUSH	DE
	CALL	fopen
	POP	BC
	POP	BC
	LD	(fp),HL
	LD	A,H
	OR	L
	JP	NZ,C306
	LD	DE,filename
	PUSH	DE
	LD	DE,C301+23
	PUSH	DE
	CALL	printf
	POP	BC
	POP	BC
	LD	DE,1
	PUSH	DE
	CALL	exit
	POP	BC
C306:
	LD	HL,(linesmax)
	ADD	HL,HL
	ADD	HL,HL
	LD	DE,seekpos
	ADD	HL,DE
	LD	DE,0
	CALL	CCSTOL
	CALL	CLSPIN
C307:
	LD	HL,(fp)
	PUSH	HL
	CALL	getc
	POP	BC
	POP	AF
	PUSH	HL
	INC	HL
	LD	A,H
	OR	L
	JP	Z,C308
	LD	HL,length
	CALL	CLGPIN
	CALL	CLINC
	LD	BC,length
	CALL	CLPUTM
	POP	DE
	PUSH	DE
	LD	A,E
	SUB	10
	OR	D
	JP	NZ,C310
	LD	HL,(linesmax)
	INC	HL
	LD	(linesmax),HL
	ADD	HL,HL
	ADD	HL,HL
	LD	DE,seekpos
	ADD	HL,DE
	LD	DE,length
	CALL	CLSGSI
	CALL	CLSPIN
C310:
	JP	C307
C308:
	LD	DE,24
	PUSH	DE
	CALL	output
	POP	BC
C311:
C313:
C314:
	LD	DE,3
	PUSH	DE
	LD	DE,0
	PUSH	DE
	CALL	bdos
	POP	BC
	POP	BC
	PUSH	HL
	CALL	tolower
	POP	BC
	POP	AF
	PUSH	HL
	LD	A,H
	OR	L
	JP	Z,C314
	EX	DE,HL
	LD	A,E
	SUB	13
	OR	D
	JP	NZ,C318
C319:
	LD	HL,(line)
	LD	BC,-24
	ADD	HL,BC
	LD	(line),HL
	LD	DE,24
	PUSH	DE
	CALL	output
	POP	BC
	JP	C317
C318:
	LD	A,E
	SUB	51
	OR	D
	JP	NZ,C321
C320:
	JP	C322
C321:
	LD	A,E
	SUB	32
	OR	D
	JP	NZ,C323
C322:
	LD	DE,24
	PUSH	DE
	CALL	output
	POP	BC
	JP	C317
C323:
	LD	A,E
	SUB	57
	OR	D
	JP	NZ,C325
C324:
	LD	DE,-24
	PUSH	DE
	CALL	output
	POP	BC
	JP	C317
C325:
	LD	A,E
	SUB	50
	OR	D
	JP	NZ,C327
C326:
	LD	DE,12
	PUSH	DE
	CALL	output
	POP	BC
	JP	C317
C327:
	LD	A,E
	SUB	56
	OR	D
	JP	NZ,C329
C328:
	LD	DE,-12
	PUSH	DE
	CALL	output
	POP	BC
	JP	C317
C329:
	LD	A,E
	SUB	53
	OR	D
	JP	NZ,C331
C330:
	LD	HL,1
	LD	(line),HL
	LD	DE,24
	PUSH	DE
	CALL	output
	POP	BC
	JP	C317
C331:
	LD	A,E
	SUB	49
	OR	D
	JP	NZ,C333
C332:
	LD	DE,1
	PUSH	DE
	CALL	output
	POP	BC
	JP	C317
C333:
	LD	A,E
	SUB	55
	OR	D
	JP	NZ,C335
C334:
	LD	DE,-1
	PUSH	DE
	CALL	output
	POP	BC
	JP	C317
C335:
	LD	A,E
	SUB	10
	OR	D
	JP	NZ,C337
C336:
	CALL	menue
	JP	C317
C337:
	LD	A,E
	SUB	47
	OR	D
	JP	NZ,C339
C338:
	CALL	patfind
	JP	C317
C339:
	LD	A,E
	SUB	108
	OR	D
	JP	NZ,C341
C340:
	CALL	linefind
	JP	C317
C341:
	LD	A,E
	SUB	113
	OR	D
	JP	NZ,C343
C342:
	LD	DE,13
	PUSH	DE
	CALL	putchar
	POP	BC
	LD	DE,10
	PUSH	DE
	CALL	putchar
	POP	BC
	LD	DE,C301+45
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C301+48
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C301+49
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C301+53
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,0
	PUSH	DE
	CALL	exit
	POP	BC
C343:
	LD	DE,7
	PUSH	DE
	CALL	putchar
	POP	BC
	JP	C311
C344:
C317:
	POP	HL
	PUSH	HL
	LD	(lastkey),HL
	LD	DE,47
	CALL	CCEQ
	JP	NZ,C345
	POP	DE
	PUSH	DE
	LD	HL,108
	CALL	CCEQ
	JP	NZ,C345
	POP	DE
	PUSH	DE
	LD	HL,10
	CALL	CCEQ
	JP	Z,C346
C345:
	LD	HL,1
C346:
	LD	(keyflag),HL
	JP	C311
C312:
	POP	BC
	RET
C301:

	DEFB	117,115,97,103,101,58,32,109,111,114
	DEFB	101,32,102,105,108,101,110,97,109,101
	DEFB	0,114,0,109,111,114,101,58,32,99
	DEFB	97,110,39,116,32,111,112,101,110,32
	DEFB	37,115,13,10,0,27,102,0,0,13
	DEFB	27,103,0,27,46,52,0
output:
	POP	BC
	POP	DE
	PUSH	DE
	PUSH	BC
	LD	HL,0
	CALL	CCLT
	JP	Z,C349
	LD	HL,(line)
	LD	BC,-24
	ADD	HL,BC
	POP	BC
	POP	DE
	PUSH	DE
	PUSH	BC
	ADD	HL,DE
	LD	(line),HL
	LD	DE,24
	POP	BC
	POP	AF
	PUSH	DE
	PUSH	BC
	LD	DE,C347+0
	PUSH	DE
	CALL	printf
	POP	BC
C349:
	LD	HL,(line)
	LD	DE,1
	CALL	CCGT
	JP	Z,C351
	LD	HL,1
	LD	(line),HL
C351:
	POP	BC
	POP	DE
	PUSH	DE
	PUSH	BC
	PUSH	DE
	CALL	pageout
	POP	BC
	LD	DE,C347+3
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C347+7
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,0
	PUSH	DE
	LD	HL,100
	LD	DE,end
	CALL	CLSGSI
	CALL	CCTOL
	CALL	CLMULT
	LD	DE,length
	CALL	CLSGSI
	CALL	CLSDIV
	CALL	CLPUSH
	LD	DE,filename
	PUSH	DE
	LD	DE,C347+10
	PUSH	DE
	LD	DE,buf
	PUSH	DE
	CALL	sprintf
	EX	DE,HL
	LD	HL,12
	ADD	HL,SP
	LD	SP,HL
	LD	DE,0
	PUSH	DE
	LD	DE,length
	CALL	CLSGSI
	CALL	CLSPUS
	LD	HL,(line)
	DEC	HL
	PUSH	HL
	LD	DE,buf
	PUSH	DE
	LD	DE,C347+33
	PUSH	DE
	LD	DE,buf
	PUSH	DE
	CALL	sprintf
	EX	DE,HL
	LD	HL,14
	ADD	HL,SP
	LD	SP,HL
	LD	DE,C347+69
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,buf
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C347+72
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C347+76
	PUSH	DE
	CALL	printf
	POP	BC
	RET
C347:

	DEFB	27,42,0,27,46,48,0,27,41,0
	DEFB	109,111,114,101,32,32,32,32,37,115
	DEFB	32,32,37,108,100,32,32,37,37,32
	DEFB	37,99,0,37,115,32,32,32,32,32
	DEFB	108,105,110,101,32,37,100,32,32,32
	DEFB	108,101,110,103,116,104,32,37,108,100
	DEFB	32,98,121,116,101,115,37,99,0,27
	DEFB	102,0,13,27,103,0,27,40,0
pageout:
	PUSH	BC
	PUSH	BC
	PUSH	BC
	LD	HL,(keyflag)
	LD	A,H
	OR	L
	JP	Z,C354
	LD	HL,(line)
	LD	BC,-24
	ADD	HL,BC
	LD	(line),HL
	LD	HL,0
	LD	(keyflag),HL
	LD	DE,24
	PUSH	DE
	CALL	pageout
	POP	BC
C354:
	LD	HL,(line)
	CALL	CCTOL
	LD	BC,start
	CALL	CLPUTM
	LD	HL,8
	ADD	HL,SP
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	LD	HL,(line)
	ADD	HL,DE
	LD	DE,(linesmax)
	CALL	CCLT
	JP	Z,C357
	LD	HL,(flag)
	CALL	CCLNOT
	JP	Z,C357
	LD	HL,1
C357:
	JP	Z,C356
	POP	BC
	POP	BC
	POP	BC
	RET
C356:
	LD	HL,8
	ADD	HL,SP
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	LD	HL,(line)
	ADD	HL,DE
	LD	(line),HL
	LD	DE,(linesmax)
	CALL	CCGT
	LD	(flag),HL
	LD	A,H
	OR	L
	JP	Z,C360
	LD	HL,(line)
	ADD	HL,HL
	ADD	HL,HL
	LD	DE,seekpos
	ADD	HL,DE
	CALL	CLSGPI
	LD	HL,2
	CALL	CCTOL
	CALL	CLSUB
	LD	BC,end
	CALL	CLPUTM
	JP	C359
C360:
	LD	DE,length
	CALL	CLSGSI
	LD	HL,1
	CALL	CCTOL
	CALL	CLSUB
	LD	BC,end
	CALL	CLPUTM
C359:
	LD	DE,0
	PUSH	DE
	LD	DE,start
	CALL	CLSGSI
	CALL	CLSWAP
	ADD	HL,HL
	ADD	HL,HL
	LD	DE,seekpos
	ADD	HL,DE
	CALL	CLSGPI
	CALL	CLSPUS
	LD	HL,(fp)
	PUSH	HL
	CALL	fseek
	EX	DE,HL
	LD	HL,8
	ADD	HL,SP
	LD	SP,HL
	LD	DE,13
	PUSH	DE
	CALL	putchar
	POP	BC
	LD	DE,10
	PUSH	DE
	CALL	putchar
	POP	BC
	LD	DE,start
	CALL	CLSGSI
	CALL	CLSWAP
	ADD	HL,HL
	ADD	HL,HL
	LD	DE,seekpos
	ADD	HL,DE
	CALL	CLSGPI
	LD	HL,0
	ADD	HL,SP
	CALL	CLSPIN
	JP	C363
C361:
	LD	HL,0
	ADD	HL,SP
	CALL	CLSGPI
	DEC	HL
	DEC	HL
	DEC	HL
	CALL	CLSINC
	CALL	CLSPIN
C363:
	LD	HL,end
	CALL	CLGPIN
	CALL	CLLT
	JP	Z,C362
	LD	HL,(fp)
	PUSH	HL
	CALL	getc
	POP	BC
	EX	DE,HL
	LD	HL,4
	ADD	HL,SP
	LD	(HL),E
	INC	HL
	LD	(HL),D
	LD	A,E
	SUB	26
	OR	D
	JP	NZ,C365
	JP	C362
C365:
	LD	HL,(STDOUT)
	PUSH	HL
	LD	HL,6
	ADD	HL,SP
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	PUSH	DE
	CALL	putc
	POP	BC
	POP	BC
C364:
	JP	C361
C362:
	LD	HL,(flag)
	LD	A,H
	OR	L
	JP	NZ,C367
	LD	DE,C352+0
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C352+3
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C352+17
	PUSH	DE
	CALL	printf
	POP	BC
	LD	HL,(linesmax)
	LD	(line),HL
C367:
	POP	BC
	POP	BC
	POP	BC
	RET
C352:

	DEFB	27,41,0,13,10,69,78,68,32,79
	DEFB	70,32,70,73,76,69,0,27,40,0
menue:
	LD	DE,C368+0
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C368+3
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C368+6
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C368+7
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C368+11
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+48
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+84
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+96
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+125
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+154
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+183
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+216
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+249
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+282
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+319
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+345
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+383
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C368+421
	PUSH	DE
	CALL	puts
	POP	BC
	RET
C368:

	DEFB	27,42,0,27,102,0,0,13,27,103
	DEFB	0,13,10,13,10,45,45,45,45,45
	DEFB	45,32,32,32,32,104,101,108,112,32
	DEFB	109,101,110,117,101,32,32,32,32,45
	DEFB	45,45,45,45,45,13,10,0,32,32
	DEFB	39,67,82,39,32,32,32,32,58,32
	DEFB	32,66,105,108,100,115,99,104,105,114
	DEFB	109,32,97,117,102,102,114,105,115,99
	DEFB	104,101,110,0,32,32,32,39,51,39
	DEFB	32,32,32,32,58,0,32,32,32,39
	DEFB	32,39,32,32,32,32,58,32,32,118
	DEFB	111,108,108,101,32,83,101,105,116,101
	DEFB	32,118,111,114,0,32,32,32,39,50
	DEFB	39,32,32,32,32,58,32,32,104,97
	DEFB	108,98,101,32,83,101,105,116,101,32
	DEFB	118,111,114,0,32,32,32,39,49,39
	DEFB	32,32,32,32,58,32,32,101,105,110
	DEFB	101,32,32,90,101,105,108,101,32,118
	DEFB	111,114,0,32,32,32,39,57,39,32
	DEFB	32,32,32,58,32,32,118,111,108,108
	DEFB	101,32,83,101,105,116,101,32,122,117
	DEFB	114,117,101,99,107,0,32,32,32,39
	DEFB	56,39,32,32,32,32,58,32,32,104
	DEFB	97,108,98,101,32,83,101,105,116,101
	DEFB	32,122,117,114,117,101,99,107,0,32
	DEFB	32,32,39,55,39,32,32,32,32,58
	DEFB	32,32,101,105,110,101,32,32,90,101
	DEFB	105,108,101,32,122,117,114,117,101,99
	DEFB	107,0,32,32,32,39,53,39,32,32
	DEFB	32,32,58,32,32,110,101,117,32,118
	DEFB	111,109,32,65,110,102,97,110,103,32
	DEFB	98,101,103,105,110,110,101,110,0,32
	DEFB	32,32,39,113,39,32,32,32,32,58
	DEFB	32,32,109,111,114,101,32,98,101,101
	DEFB	110,100,101,110,0,32,32,32,39,47
	DEFB	39,32,32,32,32,58,32,32,110,97
	DEFB	99,104,32,101,105,110,101,109,32,77
	DEFB	117,115,116,101,114,32,115,117,99,104
	DEFB	101,110,0,32,32,32,39,108,39,32
	DEFB	32,32,32,58,32,32,83,112,114,117
	DEFB	110,103,32,110,97,99,104,32,90,101
	DEFB	105,108,101,110,110,117,109,109,101,114
	DEFB	0,32,32,39,72,69,76,80,39,32
	DEFB	32,58,32,32,104,101,108,112,32,109
	DEFB	101,110,117,101,32,97,117,115,103,101
	DEFB	98,101,110,0
patfind:
	PUSH	BC
	PUSH	BC
	PUSH	BC
	LD	DE,0
	LD	HL,4
	ADD	HL,SP
	LD	(HL),E
	INC	HL
	LD	(HL),D
	LD	DE,C369+0
	PUSH	DE
	CALL	printf
	POP	BC
	CALL	pr_line
	LD	DE,C369+3
	PUSH	DE
	CALL	printf
	POP	BC
	LD	HL,0
	LD	A,(C300+2)
	LD	D,0
	LD	E,A
	CALL	CCNE
	JP	Z,C372
	LD	HL,(lastkey)
	LD	DE,47
	CALL	CCEQ
	JP	Z,C372
	LD	HL,1
C372:
	JP	Z,C371
	LD	DE,C300+2
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,10
	PUSH	DE
	CALL	putchar
	POP	BC
	JP	C370
C371:
	LD	DE,C369+16
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C300+2
	PUSH	DE
	CALL	gets
	POP	BC
	LD	DE,C369+20
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C300+2
	PUSH	DE
	CALL	strlen
	POP	BC
	LD	(C300+0),HL
	LD	A,H
	OR	L
	JP	NZ,C375
	LD	DE,C369+24
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,C369+50
	PUSH	DE
	CALL	printf
	POP	BC
	POP	BC
	POP	BC
	POP	BC
	RET
C375:
C370:
	LD	HL,(line)
	POP	BC
	POP	AF
	PUSH	HL
	PUSH	BC
	LD	DE,0
	PUSH	DE
	ADD	HL,HL
	ADD	HL,HL
	LD	DE,seekpos
	ADD	HL,DE
	CALL	CLSGPI
	CALL	CLSPUS
	LD	HL,(fp)
	PUSH	HL
	CALL	fseek
	EX	DE,HL
	LD	HL,8
	ADD	HL,SP
	LD	SP,HL
C376:
	LD	HL,4
	ADD	HL,SP
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	LD	HL,(C300+0)
	CALL	CCLT
	JP	Z,C377
	LD	HL,(fp)
	PUSH	HL
	CALL	getc
	POP	BC
	POP	AF
	PUSH	HL
	INC	HL
	LD	A,H
	OR	L
	JP	NZ,C379
	LD	DE,C300+2
	PUSH	DE
	LD	DE,C369+53
	PUSH	DE
	CALL	printf
	POP	BC
	POP	BC
	LD	DE,C369+77
	PUSH	DE
	CALL	printf
	POP	BC
	LD	HL,0
	LD	A,L
	LD	(C300+2),A
	POP	BC
	POP	BC
	POP	BC
	RET
C379:
	LD	HL,4
	ADD	HL,SP
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	DEC	HL
	INC	DE
	LD	(HL),E
	INC	HL
	LD	(HL),D
	DEC	DE
	LD	HL,C300+2
	ADD	HL,DE
	LD	E,(HL)
	LD	D,0
	POP	HL
	PUSH	HL
	CALL	CCNE
	JP	Z,C381
	LD	DE,0
	LD	HL,4
	ADD	HL,SP
	LD	(HL),E
	INC	HL
	LD	(HL),D
C381:
	POP	DE
	PUSH	DE
	LD	HL,10
	CALL	CCEQ
	POP	BC
	POP	DE
	PUSH	DE
	PUSH	BC
	ADD	HL,DE
	POP	BC
	POP	AF
	PUSH	HL
	PUSH	BC
	JP	C376
C377:
	POP	BC
	POP	DE
	PUSH	DE
	PUSH	BC
	LD	HL,-12
	ADD	HL,DE
	LD	(line),HL
	LD	DE,C369+80
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,24
	PUSH	DE
	CALL	output
	POP	BC
	POP	BC
	POP	BC
	POP	BC
	RET
C369:

	DEFB	27,41,0,83,117,99,104,109,117,115
	DEFB	116,101,114,58,32,0,27,46,52,0
	DEFB	27,46,48,0,100,97,115,32,105,115
	DEFB	116,32,100,111,99,104,32,107,101,105
	DEFB	110,32,77,117,115,116,101,114,33,0
	DEFB	27,40,0,77,117,115,116,101,114,32
	DEFB	110,105,99,104,116,32,103,101,102,117
	DEFB	110,100,101,110,13,10,0,27,40,0
	DEFB	27,40,0
linefind:
	PUSH	BC
	PUSH	BC
	LD	DE,C382+0
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,C382+4
	PUSH	DE
	CALL	printf
	POP	BC
	CALL	pr_line
	LD	DE,C382+7
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,buf
	PUSH	DE
	CALL	gets
	POP	BC
	LD	DE,C382+22
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,buf
	PUSH	DE
	CALL	atoi
	POP	BC
	POP	AF
	PUSH	HL
	LD	DE,1
	CALL	CCGT
	JP	NZ,C385
	POP	DE
	PUSH	DE
	LD	HL,(linesmax)
	CALL	CCGT
	JP	Z,C386
C385:
	LD	HL,1
C386:
	JP	Z,C384
	LD	DE,buf
	PUSH	DE
	LD	DE,C382+26
	PUSH	DE
	CALL	printf
	POP	BC
	POP	BC
	LD	DE,C382+46
	PUSH	DE
	CALL	printf
	POP	BC
	POP	BC
	POP	BC
	RET
C384:
	POP	DE
	PUSH	DE
	LD	HL,-24
	ADD	HL,DE
	LD	(line),HL
	LD	DE,C382+49
	PUSH	DE
	CALL	printf
	POP	BC
	LD	DE,24
	PUSH	DE
	CALL	output
	POP	BC
	POP	BC
	POP	BC
	RET
C382:

	DEFB	27,46,52,0,27,41,0,90,101,105
	DEFB	108,101,110,110,117,109,109,101,114,58
	DEFB	32,0,27,46,48,0,37,115,32,110
	DEFB	105,99,104,116,32,103,101,102,117,110
	DEFB	100,101,110,13,10,0,27,40,0,27
	DEFB	40,0
pr_line:
	LD	DE,0
	PUSH	DE
	LD	DE,C387+0
	PUSH	DE
	CALL	puts
	POP	BC
C388:
	POP	DE
	INC	DE
	PUSH	DE
	DEC	DE
	LD	HL,80
	CALL	CCLT
	JP	Z,C389
	LD	DE,45
	PUSH	DE
	CALL	putchar
	POP	BC
	JP	C388
C389:
	LD	DE,C387+3
	PUSH	DE
	CALL	puts
	POP	BC
	LD	DE,11
	PUSH	DE
	CALL	putchar
	POP	BC
	POP	BC
	RET
C387:

	DEFB	13,10,0,13,10,0
	GLOBAL	patfind
	GLOBAL	pageout
	EXTERNAL	putchar
	GLOBAL	flag
	GLOBAL	seekpos
	GLOBAL	lastkey
	EXTERNAL	getc
	GLOBAL	main
	GLOBAL	line
	EXTERNAL	bdos
	EXTERNAL	sprintf
	GLOBAL	pr_line
	EXTERNAL	atoi
	EXTERNAL	tolower
	EXTERNAL	gets
	EXTERNAL	exit
	EXTERNAL	putc
	EXTERNAL	puts
	GLOBAL	length
	EXTERNAL	printf
	GLOBAL	fp
	EXTERNAL	strlen
	EXTERNAL	strcpy
	GLOBAL	output
	EXTERNAL	fseek
	GLOBAL	end
	EXTERNAL	fopen
	GLOBAL	menue
	GLOBAL	buf
	GLOBAL	start
	GLOBAL	filename
	GLOBAL	linefind
	GLOBAL	linesmax
	GLOBAL	keyflag
	DSEG
C300:
	DEFS	258
seekpos:	DEFS	4000
fp:	DEFS	2
end:	DEFS	4
buf:	DEFS	256
start:	DEFS	4
filename:	DEFS	14
keyflag:	DEFS	2

;0 FEHLER
	EXTERNAL	CCEQ
	EXTERNAL	CCNE
	EXTERNAL	CCGT
	EXTERNAL	CCLT
	EXTERNAL	CLLT
	EXTERNAL	CCLNOT
	EXTERNAL	CCSLNO
	EXTERNAL	CLMULT
	EXTERNAL	CLDIV
	EXTERNAL	CLSDIV
	EXTERNAL	CLSUB
	EXTERNAL	CLSSUB
	EXTERNAL	CLINC
	EXTERNAL	CLSINC
	EXTERNAL	CLSWAP
	EXTERNAL	CLPUSH
	EXTERNAL	CLSPUS
	EXTERNAL	CLPUTM
	EXTERNAL	CLSPUT
	EXTERNAL	CLPIND
	EXTERNAL	CLSPIN
	EXTERNAL	CLGPIN
	EXTERNAL	CLSGPI
	EXTERNAL	CLGSIN
	EXTERNAL	CLSGSI
	EXTERNAL	CCTOL
	EXTERNAL	CCSTOL
	END
