/* Proper Grammar IMPORT v2.0, for Wordworth v4SE by Ryan Morse
$VER: ProperGrammar_Import_Macro 2.0 (28/1/96)

NOTE: Version 2 differs from version 1, in that it creates a new work-area rather than using 
the current document. This is a better method in case the user is working on a document and 
does not know what is happening, and will inevitably lose the document. (The old script 
cleared the current work area, destroying any work present in it.)

This script will convert the TEXT.TEMP Proper Grammar file back to the Wordworth format, 
with its original elements (graphic objects, headers and footers, etc.). The user, however, will 
lose any text colour, and tags to styles - this is not my fault!

These [Proper Grammar] scripts allow the user to keep the style sheets, graphic elements, 
headers and footers, statistic comments, and other elements, which would otherwise be 
deleted by Proper Grammar.

NOTE: Proper Grammar changes the Front and Background Text colours to 40% grey.
All graphic elements and tags to styles are deleted by Proper Grammar.
All font styles and formatting are, usually, unaffected by Proper Grammar.
Proper Grammar uses the Kindwords 3 library for Wordworth documents.

NOTE: It is easier and less confusing to copy the body text to a separate file, rather then 
copying out the graphic elements. This script also by-passes the headers and footers, so, on 
importing the document back into Wordworth, the user only needs to change the colour of 
the body text. Wordworth does not support colour changing of text in its command set, 
preventing full automation!

This script has only been tested with Proper Grammar IIb English. */

/* Notify user */
REQUESTRESPONSE 'This script will convert TEXT.TEMP Proper Grammar file, back for 
Wordworth.'
/* If user cancels requester then stop script */
IF RC>0 THEN DO
	REQUESTNOTIFY 'AREXX MACRO CANCELLED.'
	EXIT
	END

/* NEW DOCUMENT */
/* Return results to obtain portname */
Options RESULTS
/* Create new document */
NEW
Portname = RESULT
/* Address new document */
ADDRESS VALUE Portname

/* Opening the temporary text file created by PGrammar_EXP_Ww.Rexx in new document */
OPEN FILENAME 'TEXT.TEMP'
/* Ww does not support colour changes in its ARexx command set - change manually */
POSITION SOF
SELECTALL
REQUESTNOTIFY 'IMPORTANT: Reset the TEXT COLOUR (to BLACK and NONE)'
FONT
/* Copying the updated text */
COPY
CLEAR FORCE

/* Load the original Wordworth document in work-area */
REQUESTNOTIFY 'Load your ORIGINAL (Pre-Proper Grammar) Wordworth document'
OPEN
/* If user selects cancel the work-area will be used */
/* Paste (new) edited text */
POSITION SOF
SELECTALL
PASTE

/* Notify user and save */
REQUESTRESPONSE 'Your document is now updated. RESAVING DOCUMENT.'
/* If user cancels requester then stop script */
IF RC>0 THEN DO
	REQUESTNOTIFY 'SAVE DENIED.'
	EXIT
	END
/* Save doument */
SAVE