/*
** html_subparagraph.ced
**
** $VER: html_subparagraph.ced 1.0 (12.02.1998)
**
** Arexx script for HTML v3.2 sub paragraph stucture
**
** 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. */

/*
**------------------------------------------------------------------------------
**	Sub Paragraph position
**------------------------------------------------------------------------------
*/

SubParagraphMode = "q"
DO WHILE ~(SubParagraphMode="l" | SubParagraphMode="c",
					| SubParagraphMode="r",
					| SubParagraphMode=" " | SubParagraphMode="RESULT")
	GETSTRING "c" '"SubParagraph position: (l)eft, (c)enter, (r)ight ?"'
	SubParagraphMode = RESULT
END

IF (SubParagraphMode="RESULT" | SubParagraphMode=" ")
THEN EXIT 0
ELSE NOP

/*
**------------------------------------------------------------------------------
**	Html sub paragraph marks
**------------------------------------------------------------------------------
*/

OpenSubParagraph = "<DIV"
CloseSubParagraph = "</DIV>"

SELECT
	WHEN (SubParagraphMode="c") THEN SubParagraphPosition = " ALIGN=CENTER>"
	WHEN (SubParagraphMode="r") THEN SubParagraphPosition = " ALIGN=RIGHT>"
	WHEN (SubParagraphMode="l") THEN SubParagraphPosition = " ALIGN=LEFT>"
	OTHERWISE NOP
END

/*
**------------------------------------------------------------------------------
**	Html sub paragraph structure
**------------------------------------------------------------------------------
*/

TEXT OpenSubParagraph || SubParagraphPosition ; "AUTO-INDENT" ; KTAB
TEXT "Should be modified - SubParagraph" ; "AUTO-INDENT" ; BACKTAB
TEXT CloseSubParagraph

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

EXIT 0