6 FMSFLBFLI20021-NOV-1985 08:50:36 1-SEP-1986 00:51:40  "TWP DEFAULT FRM21-NOV-1985 08:50:36 6 FMSFLBFED20021-NOV-1985 08:49:5421-NOV-1985 08:49:54þ  ; èèà " 20, PPTWP  USER   TITLE   DAY  DATE  # CURFDR  # CURTITL   CURNUM . F CHOICEPress GOLD H for Help  MAIL   TIME º " A>E A .L .o .’  ˜ ÞH þ   00 R .TYPEDMENU /CHOICE=CHOICE/CLEAR/DATE=DATE/USER=USER/GET=DAY,OA$DAY;CURFDR, X .TYPEJOA$CURDOC_FOLDER;CURTITL,OA$CURDOC_TITLE;CURNUM,OA$CURDOC_DOCNUM/MAIL=MAIL X .TYPEJ/HARD="Word and Document Processing"/TITLE=TITLE/PRE='GET #CURDOC="$WPDOC" > .TYPE0\.IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC'  .MORE FC1,WPDXMENU N SELAGET #TITLE=#DOCNUM=""\GET #SELECT="Current Document"\DO DOCSELECT 2 C'GET #CREATE="New Document"\DO DOCCREATE P EF.IF OA$CURDOC_DOCNUM == "" THEN DISPLAY No document currently selected  E ELSE DO WPEDIT N DD.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN @ D6 DISPLAY No deletable document currently selected ELSE  D DO WPDELETE P PF.IF OA$CURDOC_DOCNUM == "" THEN DISPLAY No document currently selected X PM ELSE GET #PRINT_DOCUMENT=OA$CURDOC\\PARSE_USER OA$USER\\GET #PRINT_LISTFILE= : P/$PARSE_USER_NAME:3 OA$CURDOC_DOCNUM\\DO WPPRINT V RK.IF OA$CURDOC_DOCNUM == "" THEN DISPLAY No document currently selected ELSE  R DO WPLIST ! S DO WPSEND !V" ILGET #INDEX="Document"\FORM WPINDX/STYLE=CHOICE\.IF OA$SEL_COUNT NES "0" THEN "P# IF GET $WPDOC=OA$SEL_KEY\.IF OA$SRC_COUNT NES "0" THEN GET OA$FUNCTION=" #T$ IJDISPLAY Press SELect key to select document from the selection list." ELSE $.% I$ DISPLAY No documents could be found %& DPFORM DP &,' DX COMMAND DECPAGE$ALLIN1:DECPAGEDX '( DT FORM WPDXMENU () UD FORM WPEDUDP )&* FCFORM FC1/MORE="WPDXMENU,WP" *X+ TRM.IF OA$HARDCOPY EQ 1 THEN DISPLAY Computer Based Instruction is not available +V, TRK in hardcopy mode ELSE .IF OA$DEFAULT_EDITOR = "WPSPLUS" THEN FORM CBIWPL ,- TR ELSE FORM CBIDPE -N. .DOWN?CAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN DISPLAY .H/ .DOWN9 Reached bottom of folder - positioning at first document /.0 !.DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC 0@1 ".UP3CAB SELECT $WPDOC:30,,,$WPDOC\DISPLAY Top of folder 1<2 #.GOLD UP+CAB SELECT ,,,$WPDOC\DISPLAY Top of cabinet 2<3 $.GOLD T+CAB SELECT ,,,$WPDOC\DISPLAY Top of cabinet 3P4 % .GOLD DOWN=CAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN DISPLAY 4b5 & .GOLD DOWNN Reached bottom of cabinet - positioning at first folder\\CAB SELECT ,,,$WPDOC 5:6 '.PERIOD)DISPLAY Selecting . . .\FORCE\DO NEXTLIST 6:7 (CHOICE+/HARD="Options: SEL,C,E,D,P,R,I,S,FC,DT,UD" 78 )LP FORM WPLPMENU 8&9 *CURFDR/HARD="Current Folder" 9&: +CURTITL/HARD="Current Title" :&; ,CURNUM/HARD="Current Number" ; Word and < " = #Document Processing >  ?  SEL @" Select Folder: A - B %Title: C - D  C E" Create Number: F - G 4 H  E I Edit J  D K Delete L  P M Print N  R O Read P  I Q Index R   S  / T  FC U  File Cabinet V /DP W 4DECpage Document Processing X  DT Y Document Transfer Z /DX [ 4DECpage/DECdx Interface \   ] / ^   _ /SC ` 4Spelling Check a  UD b User Defined Processing c /SCD d 4Spelling Check Dictionary e  LP f List/Sort Processing g /S h 4 Send by mail i&  Enter selection and press RETURN j FRM 1-SEP-1986 00:51:39 6 FMSFLBFED20020-NOV-1985 10:30:1820-NOV-1985 10:30:18þ  ] žžð $ 202WPADEFAULT . 2 CHOICEPress GOLD H for Help        .TYPEMENU  .CR OA$FLD_DONE  .ENTER OA$FLD_DONE  .GOLD F OA$FLD_DONE  .PC DO OA$FLD_DONE  .TAB OA$FLD_NEXT  .BS OA$FLD_PREV  .KEY 0 OA$FLD_EXIT  .GOLD Q OA$FLD_EXIT  .GOLD K OA$FLD_EXIT ( .PF4GET OA$MENU_REMAINDER="SEL" .  .PC SELECTGET OA$MENU_REMAINDER="SEL"  .GOLD B OA$FLD_BOTTOM  .GOLD T OA$FLD_TOP  .GOLD HHELP  .PC HELPHELP $ .GOLD VFORM OA$VIEW_FIELDS  .GOLD % FORM TRACEARG L .GOLD $<.IF OA$PROFIL_PRVDCL EQS "1" THEN KEYPAD OFF\\DCL\\KEYPAD ON 0 .GOLD IOA$MENU_LEVEL_PUSH\FORM INTMENU  .GOLD L OA$FLD_RECOG  .PC FIND OA$FLD_RECOG  .GOLD S OA$FLD_SEARCH &  .GOLD TABOA$FLD_PAGE_FORWARD , .PC NEXT SCREENOA$FLD_PAGE_FORWARD " .GOLD BSOA$FLD_PAGE_BACK (! .PC PREV SCREENOA$FLD_PAGE_BACK !" .GOLD # FORM EDCLC1 "2# .COMMA#DISPLAY Press GOLD H for HELP\FORCE #2$ .KEY 1#DISPLAY Press GOLD L for list\FORCE $2% .KEY 4#DISPLAY Press GOLD L for list\FORCE %4& .KEY 2%DISPLAY Press GOLD S for search\FORCE &4' !.KEY 5%DISPLAY Press GOLD S for search\FORCE ' ( ".PERIODOA$FLD_NEXT_LIST (<) #.GOLD A,GET OA$MENU_REMAINDER="M " OA$MENU_REMAINDER )8* $M.DISPLAY Additional options not available\FORCE *+ %.GOLD P PRINT_SCREEN +L, &.GOLD EDISPLAY Computer based instruction not available for this form ;< 6HELPHELP GETTING_HELP <R= 7UPENTCDISPLAY Please use the SM subsystem to change a users profile\FORCE =N> 8PROFIL?DISPLAY Please use the US subsytem to change your profile\FORCE >H? 9?=GET OA$FUNCTION="FORM FMS_" OA$TERMINAL_LK201 OA$TERMINAL_AVO ?0@ :FC%GET #CURDOC="$WPDOC"\FORM FC1/MORE=WP @PA ;EMDGET #MAILMEN=OA$PROFIL_MAIL_MENU\.IF #MAILMEN EQS "" OR #MAILMEN EQS ADB <EM8 "CMI" OR #MAILMEN EQS "EMC" THEN FORM EMC ELSE FORM EMD BC =WPFORM WP CD >DMFORM DM DE ?IMFORM IM EF @BAFORM BA FJG ACM?DISPLAY Please enter 'TM' to use the new Time Management system GH BCOMFORM COM HI CUSFORM US IJ DPSFORM PS JK EDIRFORM DIR KL FPDFORM PD LM GNIFORM NI MN HDLFORM DL NBO IAI6DISPLAY Use the TM option to access your Action Items. OP JPHFORM DIR PQ KDT FORM WPDXMENU QR LSP FORM SPMENU RS M.GOLD * FORM SPMENU ST N.DOWN OA$FLD_DOWN TU O.UP OA$FLD_UP U V P.GOLD UPOA$FLD_PAGE_TOP V&W Q .GOLD DOWNOA$FLD_PAGE_BOTTOM WDX R .GOLD RIGHT0DISPLAY GOLD RIGHT is not available on this form XBY S .GOLD LEFT/DISPLAY GOLD LEFT is not available on this form YJZ TPROFILE:FORM PROFILE\OA$INI_GLOBALS\OA$INI_PROFILE\OA$INI_LOGICALS Z[ U.PC EXIT OA$FLD_EXIT [:\ VMAIL-GET OA$MENU_REMAINDER="EM " OA$MENU_REMAINDER \X] WNETWORKGDISPLAY Please use the SM subsystem to change the network profile\FORCE ]  Default Menu Form ^