.; WP.CMD .; DESIGNED MCW, JNC, JCK, BCB, LCL, ETC - 5/1/81 .; .; PRINT IS THE DEVICE NUMBER OF THE ASSOCIATED PRINTER .SETS PRNT "23" .ENABLE SUBSTITUTION .ENABLE ESCAPE .ASKS DUMMY  Press RETURN to begin word processing .ENABLE QUIET PIP NL:=*.JOU/LI .IF 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 Community Development 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 .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 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 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 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 .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 for more information .IFF .GOTO CKIT .SETS H "YES" .GOSUB NHELP .RETURN .; .CKIT: .IF FNAME = "" .RETURN .IF EQ 15 .GOTO VFY .SETN X +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 .GOTO MAIN ;HJ< .ENABLE QUIET SET /LOWER=TI: RUN WHOTT FUN TT0:@OFF TT'': .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 .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 .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 .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 .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 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 .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