;IDLING.INC restores the idling string into the active string
	.PRINTX /including IDLING/

IDLIN0:	LD HL,(ACTST)	;check if enough space for idling string
	LD DE,11
	SCF
	CCF
	SBC HL,DE
	PUSH HL
	LD DE,($STACK)
	INC DE
	SBC HL,DE
	POP HL
	JR NC,IDLIN1
	ERRMSG 'I'	;macro for error message
	LD HL,(FLIST)	;if not, delete latest form definition
	LD E,(HL)
	INC HL
	LD D,(HL)
	DEC HL
	ADD HL,DE
	LD (FLIST),HL
	LD (ACTST),HL
	DEC HL
	LD ($ACTST),HL
	JR IDLIN0	;and try again
IDLIN1:	LD (ACTST),HL	;insert idling string in active string
	IRP CH,<CCF,CCL,CHP,CHS,CCS,CCF,CCL,CHR,CHS,CCR,CCR>
	LD A,(CH)
	LD (HL),A
	INC HL
	ENDM

	.PRINTX /included/
