.;  WP.CMD
.;  DESIGNED MCW, JNC, JCK, BCB, LCL, ETC - 5/1/81
.;
.;  PRINT IS THE DEVICE NUMBER OF THE ASSOCIATED PRINTER
.SETS PRNT "14"
.ENABLE SUBSTITUTION
.ENABLE ESCAPE
.ASKS DUMMY    		Press RETURN to begin word processing
.ENABLE QUIET
PIP NL:=*.JOU/LI
.IF <EXSTAT> NE 1 .GOTO WPBEG
.;
.;  .JOU FILE OUT THERE -- MUST HAVE CRASHED
.;
.FIXIT:
.DISABLE QUIET
;<[?2l\HJ
.ENABLE QUIET
SRD .JOU
.DISABLE QUIET
;  		





The file listed above has been left corrupted.
;  
;   	Please enter the name (followed by .RNO not .JOU) listed above now.
.GOSUB GNAME
.IF H = "YES" .GOTO FIXIT
.ENABLE QUIET
SET /LOWER=TI:
ED2 'FNAME'/REC
SET /NOLOWER=TI:
PIP *.*/PU
PIP *.JOU;*/DE
.DISABLE QUIET
;[?2l\
;HJ		        'FNAME' has been fixed
;  
.ASKS DUMMY    		  Press RETURN to go to the main menu
.GOTO MAIN




.WPBEG:
SET /NOLOWER=TI:
.DISABLE QUIET
;<[?2l\
.;
.;
.;
.;  MAIN MENU
.;
.MAIN:
;HJ	          Word Processing System V1.0
;  


			    Available functions:
;  			  ------------------------
;  

		     A.  Create a new document
;  		     B.  Edit an existing document
;  		     C.  Print or examine an existing document
;  		     D.  List existing documents
;  		     E.  End this session
;  

.ENABLE QUIET
.ASKS MOPT1    	 Enter your choice or press ESC for more information
.DISABLE QUIET
.IFF <ESCAPE> .GOTO BM1
.;
.;
.;  HELP PAGE FOR MAIN MENU
.;
;HJ	   MENU ITEM				     MEANING
;  
;   A. Create a new document	This option should be  chosen if you are about
;  	    			to enter a document for the first time.  A new
;  				document name  will be  created from  the info
;  				you will  supply.
;  
;   B. Edit an existing		You should  choose this  option if you wish to
;       document			update or extend a  document which has already
;  				been created.  You will be queried as to which
;  				document you wish to edit.
;  
;   C. Print or examine an	This option will allow you to format and print
;       existing document	or examine  a document.    You will be queried
;  				for the document name, and whether you wish to
;  				print (on the printer) or examine (on the CRT)
;  				the formatted output.
;  
;   D. List existing documents	This  option  may be  used  to  determine what
;       				documents already exist.
;  
;   E. End this session		Signs you off of the computer system.
;  
.ASKS DUMMY    		Press RETURN to return to the main menu
.GOTO MAIN




.;
.;
.;  DETERMINE WHICH OPTION WAS PRESSED FROM MAIN MENU
.;
.BM1:
.IF MOPT1 = "A" .GOTO CREATE
.IF MOPT1 = "B" .GOTO EDIT
.IF MOPT1 = "C" .GOTO PRINT
.IF MOPT1 = "D" .GOTO LIST
.IF MOPT1 = "E" .GOTO END
.GOTO MAIN




.;
.;
.;  CREATE A NEW FILE
.;
.CREATE:
;HJ
.CRE2:
;  H 			     Create new document

.GOSUB GNAME
.IF H EQ "YES" .GOTO CREATE
.IF FNAME = "" .GOTO MAIN
.;
.; DETERMINE IF THERE IS A FILE OF THIS TYPE AND DATE ALREADY
.;
.;
.ENABLE QUIET
PIP NL:='FNAME'/LI
.IF <EXSTAT> NE 1 .GOTO GOON
.DISABLE QUIET
;HJY) 			'FNAME' already exists.
.GOTO CRE2
.GOON:
SET /LOWER=TI:
ED2 'FNAME'
SET /NOLOWER=TI:
PIP *.*/PU
.DISABLE QUIET
;[?2l\
;HJ		     'FNAME' has been created
;  
.ASKS DUMMY    		Press RETURN to return to the main menu
.GOTO MAIN





.;
.;
.;  EDIT AN EXISTING FILE
.;
.EDIT:
;HJ
.ED2:
;  H			 Edit existing document

.GOSUB GNAME
.IF H EQ "YES" .GOTO EDIT
.IF FNAME = "" .GOTO MAIN
.;
.; DETERMINE IF THERE IS A FILE OF THIS TYPE AND DATE ALREADY
.;
.;
.ENABLE QUIET
PIP NL:='FNAME'/LI
.IF <EXSTAT> EQ 1 .GOTO GOONE
.DISABLE QUIET
;HJY) 		      'FNAME' does not exist.
.GOTO ED2
.GOONE:
SET /LOWER=TI:
ED2 'FNAME'
SET /NOLOWER=TI:
PIP *.*/PU
.DISABLE QUIET
;[?2l\
.GOTO MAIN





.PRINT:
;HJ		    Print or examine an existing document

.GOSUB GNAME
.IF H EQ "YES" .GOTO PRINT
.IF FNAME EQ "" .GOTO MAIN
.ENABLE QUIET
PIP NL:='FNAME'/LI
.DISABLE QUIET
.IF <EXSTAT> EQ 1 .GOTO PNAME
;HJY) 		      'FNAME' does not exist.

.ASKS DUMMY    		Press RETURN to return to the main menu
.GOTO MAIN
.PNAME:
;HJ		    Print or examine an existing document
.PN2:
;  Y' 		     Document name is "'FNAME'"
.WHERE:
;  

	Do you wish to print the file on:   A.  The terminal (default)
;  					    B.  The printer
;  					    C.  Go back to last question

.ASKS DEST    			     Enter choice
.;
.IFF <ESCAPE> .GOTO PPT
;  
			   No help is available
.GOTO PN2
.;
.PPT:
.IF DEST EQ "C" .GOTO PRINT
.IF DEST EQ "A" .SETS DEST "TI:"
.IF DEST EQ "" .SETS DEST "TI:"
.IF DEST EQ "B" .SETS DEST "TT'PRNT':"
.;
.SETS SIMUL ""
.IF DEST NE "TI:" ;  
		     Document 'FNAME' is being printed.
.IF DEST NE "TI:" .SETS SIMUL ".XQT "
.ENABLE QUIET
.;
.SETS S1 "/UL:B"
.IF DEST = "TI:" .SETS S1 ""
'SIMUL'RNO 'DEST'='FNAME'/-HY'S1'
.DELAY 5S
.DISABLE QUIET
.IF DEST NE "TI:" .GOTO MAIN
.ASKS DUMMY    		Press RETURN to return to the main menu
.GOTO MAIN






.;
.;
.;  GET FILE NAME INFORMATION SUBROUTINE
.;
.GNAME:
.SETS H "NO"
;  Y& 
;K
;  Y& 
.ASKS FNAME Type the name of the document or <ESC> for more information
.IFF <ESCAPE> .GOTO CKIT
.SETS H "YES"
.GOSUB NHELP
.RETURN
.;
.CKIT:
.IF FNAME = "" .RETURN
.IF <STRLEN> EQ 15 .GOTO VFY
.SETN X <STRLEN>+4
.SETS FNAME FNAME+".RNO"
.IF X NE 15 .GOTO GNAME
.;
.;
.VFY:
;  Y& 
;K
;  Y& 
.ASK YN    	    File name: 'FNAME'  -- Is this correct
.IFF YN .GOTO GNAME
.RETURN





.;
.;
.; WANTED MORE INFORMATION ABOUT FILE NAMES
.;
.NHELP:
;HJ      The following is the format of the document naming convention:
;  
;  
;  		Document names are of the following form:
;  
;  			     XXYZZZZZZ.RNO
;  
;  	    Where:   XX     is the 2 letter document type.
;  		     Y      is the 1 digit sequence number.
;  		     ZZZZZZ is the date in MMDDYY format.
;  		     .RNO   is the system file extension and will
;  		             appear on all documents.
;  
;  	Example:  PL2050181.RNO
;  				
;  	PL     - This is a PLanning document
;  	2      - This is the 2nd PLanning document created from this date
;  	050181 - The date of the information within the document is 05/01/81
;  
;  
;  
.ASKS DUMMY    		Press RETURN to go back to question
.RETURN




.;
.;
.; SIGN OFF OF THE COMPUTER SYSTEM
.;
.END:
;HJ



.ASK YN    	   Are you sure you wish to log off of the system
.IFF YN .GOTO MAIN
.IFT <ESCAPE> .GOTO MAIN
;HJ<
.ENABLE QUIET
SET /LOWER=TI:
.EXIT





.;
.;
.; LIST EXISTING FILES
.;
.LIST:
.SETS DTYPE "??"
.SETS DSEQ "?"
.SETS DDAT "??????"
.;
;HJ			    List Existing Documents
;  
;  
;  
;  			  Documents may be listed by:
;  			 -----------------------------
;  
;  
;  		     A.  Document type
;  		     B.  Document date
;  		     C.  Date of document creation/last update
;  		     D.  List all documents
;  		     E.  Return to main menu
;  
;  
;  
.ASKS MOPT1    	   Enter your choice or press ESC for more information
.;
.IFT <ESCAPE> .GOTO LHELP
.;
.;
.IF MOPT1 = "A" .GOTO LTYPE
.IF MOPT1 = "B" .GOTO LDDAT
.IF MOPT1 = "C" .GOTO LCDAT
.IF MOPT1 = "D" .GOTO LALL
.IF MOPT1 = "E" .GOTO MAIN
.IF MOPT1 = "" .GOTO MAIN
.;
.;
.;  HELP ON THE LIST SCREEN
.;
.LHELP:
;HJ	   MENU ITEM				     MEANING
;  
;   A.  List by type		This option will allow you to list documents by
;  				2 letter type.  You will be asked for the type.
;  
;   B.  List by document date	This option allows you to list documents by the
;  				date of the document.
;  
;   C.  List by document		This option  may be used  to list documents  by
;       creation/last update	the date of creation/last update.  This differs
;  				from option B  in that B is  concerned with the
;  				date of the subject matter,  and C is concerned
;  				with the last  time a person has  processed the
;  				document on the computer.
;  
;   D.  List all documents	You may use this option to produce a listing of
;  				all documents currently on the system.
;  
;   E.  Return to main menu	This option will return you to the main menu so
;  				that you may then select a main menu option
;  
;   	Listings may be produced on the terminal or on the printer.
;  
.ASKS DUMMY    		Press RETURN to return to the list menu
.GOTO LIST




.;
.;
.;  LIST BY DOCUMENT TYPE
.;
.LTYPE:
;HJ
;  		   List existing documents by document type
;  Y& 
.ASKS DTYPE Enter 2 letter document type or press ESC for more information
.IF DTYPE = "" .GOTO LIST
.IFF <ESCAPE> .GOTO LTLST
.;
.;  NEEDS NAMING HELP
.;
.GOSUB NHELP
.GOTO LTYPE
.;
.; LIST ALL DOCUMENTS WITH TYPE SPECIFIED
.;
.LTLST:
.GOSUB SRDLST
.IF DEST = "C" .GOTO LTYPE
.GOTO LIST





.;
.;
.;  LIST BY DOCUMENT DATE
.;
.LDDAT:
;HJ
;  		   List existing documents by document date:
;  Y& 
.ASKS DDAT Enter 6 digit document date (MMDDYY) or press ESC for more info
.IF DDAT = "" .GOTO LIST
.IFF <ESCAPE> .GOTO LDLST
.;
.;  NEEDS NAMING HELP
.;
.GOSUB NHELP
.GOTO LDDAT
.LDLST:
.GOSUB SRDLST
.IF DEST EQ "C" .GOTO LDDAT
.GOTO LIST




.;
.;
.;  LIST BY SYSTEM DATE
.;
.LCDAT:
;HJ
;  	       List existing documents by date of last processing.


;  			  Documents may be listed by:
;  			 -----------------------------
;  			  A.  Date last edited
;  			  B.  Before date last edited
;  			  C.  After date last edited
.ASKS SWITCH    	   Enter your choice or press ESC for more information
.IFT <ESCAPE> .GOTO LCHELP
.IF SWITCH = "" .GOTO LIST
.GOTO EDAT
.;
.;
.;
.LCHELP:
;HJ	OPTION				MEANING
;   A.  Date last edited		This option  is used  to list documents  by the
;  				date last edited.   Only those documents edited
;  				on the date you will input in the next question
;  				will be listed.
;   B.  Before date		Documents last edited on or before the date you
;  				will input will be listed.
;   C.  After date		Documents last edited  on or after the date you
;  				will input will be listed.
;  
;  
;  
.ASKS DUMMY    		Press RETURN to go back to question
.GOTO LCDAT
.;
.;
.EDAT:
;  Y- 
.ASKS DDAT  Enter 6 digit date (MMDDYY) or press ESC for more information
.IF DDAT = "" .GOTO LCDAT
.IF <STRLEN> EQ 6 .GOTO EXT
;  
		       Please re-enter in correct format
.GOTO EDAT
.EXT:
.SETS D1 DDAT[3:4]
.SETS D2 DDAT[1:2]
.SETS D3 DDAT[5:6]
.;
.IF D2 = "01" .SETS D2 "JAN"
.IF D2 = "02" .SETS D2 "FEB"
.IF D2 = "03" .SETS D2 "MAR"
.IF D2 = "04" .SETS D2 "APR"
.IF D2 = "05" .SETS D2 "MAY"
.IF D2 = "06" .SETS D2 "JUN"
.IF D2 = "07" .SETS D2 "JUL"
.IF D2 = "08" .SETS D2 "AUG"
.IF D2 = "09" .SETS D2 "SEP"
.IF D2 = "10" .SETS D2 "OCT"
.IF D2 = "11" .SETS D2 "NOV"
.IF D2 = "12" .SETS D2 "DEC"
.;
.SETS SWITCH SWITCH[1:1]
.IF SWITCH EQ "B" .SETS SWITCH "/BE"
.IF SWITCH EQ "C" .SETS SWITCH "/AF"
.IF SWITCH EQ "A" .SETS SWITCH ""
.GOSUB SRDLST
.IF DEST EQ "C" .GOTO EDAT
.GOTO LIST




.;
.;
.;  LIST ALL DOCUMENTS
.;
.LALL:
;HJ
;  			 List all existing documents:
.GOSUB SRDLST
.GOTO LIST




.;
.;
.;  LIST FILES WITH SRD SUBROUTINE
.;
.SRDLST:
;  Y/ 
;  	    Do you wish the listing on:   A.  The terminal (default)
;  					  B.  The printer
;  					  C.  Go back to last question

.ASKS DEST    			    Enter choice
.IF DEST = "C" .RETURN
.IF DEST = "" .SETS DEST "A"
.;
.IFF <ESCAPE> .GOTO OUTIT
 ;  
			   No help is available
.GOTO SRDLST
.;
.OUTIT:
.IF DEST = "A" .GOTO SRDOUT
.IF DEST = "B" .GOTO SRDOUT
.GOTO SRDLST
.SRDOUT:
.IF DEST = "A" .SETS DEST "TI:"
.IF DEST = "B" .SETS DEST "TT'PRNT':"
;HJ

Creating listing...
.IF MOPT1 = "C" .GOTO SRDINT
.ENABLE QUIET
SRD 'DEST'=/SE:'DTYPE''DSEQ''DDAT'.RNO
.IF DEST NE "TI:" PIP TT'PRNT':=FF.
.DISABLE QUIET
.GOTO SRDQUT
.;
.SRDINT:
.ENABLE QUIET
SRD 'DEST'=.RNO/DA'SWITCH':'D1'-'D2'-'D3'
.DISABLE QUIET
.;
.SRDQUT:
.IF DEST NE "TI:" .RETURN
.ASKS DUMMY    
		Press RETURN to return to the list menu
.RETURN
