; CLRCST.Z80
;
; ZCPR3 Utility.
; Clears the Console Status Flag so that custom shells installed with
; SHSET can use flow control
;
; Syntax:
;	CLRCST
;
; Usage:
;	To be used inside an alias that is installed as a shell with
; SHSET.  This program must be run before any flow control commands
; are encountered within the alias.  For example:
;		CLRCST
;		NEXT VAR
;		RESOLVE IF -%VAR=-
;		SHCTRL P
;		ELSE
;		RESOLVE ECHO %VAR
;		FI
; will print the contents of FORFILES.SYS (created by FOR.COM).
;
; Author: Dreas Nielsen
; History: Created 6/5/87
;

VERS	EQU	10
CR	EQU	0DH
LF	EQU	0AH
FCB	EQU	05CH

	EXT	Z3INIT,PUTCST,PRINT,QPRINT
;
	DB	'Z3ENV'		;This is a ZCPR3 Utility
	DB	1		;External Environment Descriptor
Z3EADR:
	DW	00
START:
	LD	HL,(Z3EADR)	;pt to ZCPR3 environment
	CALL	Z3INIT		;initialize the ZCPR3 Environment
	CALL	QPRINT
	DB	'CLRCST v.',[VERS / 10]+'0','.',[VERS mod 10]+'0',CR,LF,0
	LD	A,(FCB+1)
	CP	' '
	JR	NZ,HELP
	XOR	A
	CALL	PUTCST
	RET
;
HELP:	CALL	PRINT
	DB	'Clears the ZCPR3 Console Status Flag.',CR,LF
	DB	'For use in aliases installed as shells with SHSET.',CR,LF
	DB	'Syntax:',CR,LF,'     CLRCST',CR,LF
	DB	0
	RET

	END	START