/*
** html_list_items.ced
**
** $VER: html_list_items.ced 2.2 (03.09.1999)
**
** Arexx script for HTML v3.2 list items
**
** This script works with CygnusEd Professional v4.2
**
** Copyright © Eric BELLE
*/

/*
**------------------------------------------------------------------------------
**	Initialisation
**------------------------------------------------------------------------------
*/

OPTIONS RESULTS							/* Tell CygnusEd to return results. */
NL = '0A'X									/* Alias for new line. */
KRETURN = RAWKEY 68					/* Shortcut to the return key. */
KTAB = RAWKEY 66						/* Shortcut to the tab key. */
STATUS TABSARESPACES				/* Return TAB mode ("tab" or "space"). */
IF RESULT = 1								/* Test the TAB mode. */
THEN "TABS = SPACES"				/* Switch TAB mode from "space" to "tab". */
ELSE NOP										/* No operation. */
TAB SIZE 1									/* Set TAB size proportional to 2 spaces. */

/*
**------------------------------------------------------------------------------
**	Item number
**------------------------------------------------------------------------------
*/

GETNUMBER 3 '"How many items?"' 1 32768
ItemNumber = RESULT

IF (ItemNumber=" ")
THEN EXIT 0
ELSE NOP

/*
**------------------------------------------------------------------------------
**	Html list items
**------------------------------------------------------------------------------
*/

DO I=1 TO ItemNumber
	TEXT "<LI>" ; "AUTO-INDENT" ; KTAB
	String = '<!-- Comment - New item ' || I || " -->"
	TEXT String
	"AUTO-INDENT"
	TEXT "Should be modified" ; "AUTO-INDENT" ; BACKTAB
	TEXT "</LI>" ; "DELETE TO EOL"

	IF (I=ItemNumber)
	THEN NOP
	ELSE "AUTO-INDENT"
END

/*
**------------------------------------------------------------------------------
**	End of html_list_items.ced Arexx script
**------------------------------------------------------------------------------
*/

EXIT 0