/* Proper Grammar IMPORT v1.01, for Wordworth v4SE by Ryan Morse
$VER: ProperGrammar_Import_Macro 1.0 (10/12/95)

This script will convert the TEXT.TEMP Proper Grammar file back to the Wordworth format, with 
any original elements (graphics/objects, headers and footers). The user, however, will lose any text 
colour, and tags to the style sheet - 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 style sheets are lost 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.
Advanced users can change these scripts to send the data by the ARexx ports. */

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

/* Opening the temporary text file created by PGrammar_EXP_Ww.Rexx */
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 */
REQUESTNOTIFY 'Load your ORIGINAL (Pre-Proper Grammar) Wordworth document'
OPEN
/* Paste (new) edited text */
POSITION SOF
SELECTALL
PASTE

/* Notify user and save */
REQUESTRESPONSE 'Your document now contains the UPDATED TEXT with its original elements... 
RESAVING DOCUMENT'
/* If user cancels requester then stop script */
IF RC>0 THEN DO
	REQUESTNOTIFY 'SAVE DENIED.'
	EXIT
	END
SAVE