;help
;
cr	equ	0dh
lf	equ	0ah
;
.request syslib
	extrn	fi0$open,f0$get
	extrn	cin,cout,condin,print,crlf
;
start:	lxi	sp,stack
	lxi	d,fcb
	call	fi0$open
	jnz	error
	lxi	h,row
	mvi	m,23
loop:	call	f0$get
	jnz	done
	cpi	1ah
	jz	done
	call	cout
	cpi	lf
	cz	nextln
	call	condin
	cnz	check
	jmp	loop
;
nextln:	dcr	m
	rnz
	mvi	m,23
	call	print
	cr
	'Hit any key to continue',0
	call	cin
	call	crlf
;
check:	cpi	'S'-40h
	jz	ctls
	cpi	'C'-40h
	rnz
done:	call	crlf
	rst	0
;
ctls:	call	cin
	jmp	check
;
error:	call	print
	cr,lf,lf
	'yell for help on CBBS - missing help files!',cr,lf,lf,0
	rst	0
;
row:	db	23
fcb:	db	0,'HELP    HLP',0,0,0,0
	ds	80
stack	equ	$
	end