6 FMSFRMFLG20010-AUG-1990 15:00:0610-AUG-1990 15:00:06þ  j rrÁ $ 20£QPPSD_MENU  USER   TITLE   DAY  DATE   MAIL   LIBRARY  ' @CURDOC    CREATE_OPTION $  CREATE_OPTION_DESC    DELETE_OPTION $  DELETE_OPTION_DESC    EDIT_OPTION "  EDIT_OPTION_DESC    RENAME_OPTION $  RENAME_OPTION_DESC    SPELL_OPTION $  SPELL_OPTION_DESC    COPY_OPTION "  COPY_OPTION_DESC . F CHOICEPress GOLD H for Help n " B>FA L j ˆ ¯  ± - Ì 2 Î éë-2 #%-@2B ]   0 R .TYPECMENU /CHOICE=CHOICE/CLEAR/DATE=DATE/MAIL=MAIL/USER=USER/TITLE=TITLE D .TYPE6/GET=DAY,OA$DAY;CURDOC,#SD_CURDOC;LIBRARY,#SD_LIB_DESC , .TYPE/HARD="Shared Documents menu" . .TYPE /PRE='XOP "~~DISPLAY_OPTIONS~~"' 6 ~~DISPLAY_OPTIONS~~.IF #SD_EDIT EQS "Y" THEN ` ~~DISPLAY_OPTIONS~~C GET CREATE_OPTION = "C " \\ GET CREATE_OPTION_DESC = "Create" \\ ` ~~DISPLAY_OPTIONS~~C GET EDIT_OPTION = "E " \\ GET EDIT_OPTION_DESC = "Edit" \\ `! ~~DISPLAY_OPTIONS~~C GET DELETE_OPTION = "D " \\ GET DELETE_OPTION_DESC = "Delete" \\ !d" ~~DISPLAY_OPTIONS~~H GET SPELL_OPTION = "SC" \\ GET SPELL_OPTION_DESC = "Spell check" \\ "`# ~~DISPLAY_OPTIONS~~C GET RENAME_OPTION = "RN" \\ GET RENAME_OPTION_DESC = "Rename" \\ #Z$ ~~DISPLAY_OPTIONS~~> GET COPY_OPTION = "CO" \\ GET COPY_OPTION_DESC = "Copy" $"% ~~DISPLAY_OPTIONS~~ ELSE %X& ~~DISPLAY_OPTIONS~~; GET CREATE_OPTION = "" \\ GET CREATE_OPTION_DESC = "" \\ &X' ~~DISPLAY_OPTIONS~~; GET EDIT_OPTION = "" \\ GET EDIT_OPTION_DESC = "" \\ 'X( ~~DISPLAY_OPTIONS~~; GET DELETE_OPTION = "" \\ GET DELETE_OPTION_DESC = "" \\ (X) ~~DISPLAY_OPTIONS~~; GET SPELL_OPTION = "" \\ GET SPELL_OPTION_DESC ="" \\ )X* ~~DISPLAY_OPTIONS~~; GET RENAME_OPTION = "" \\ GET RENAME_OPTION_DESC = "" \\ *T+ ~~DISPLAY_OPTIONS~~8 GET COPY_OPTION = "" \\ GET COPY_OPTION_DESC = "" +, SEL
.IF #SD_EDIT NES "Y" THEN XOP "~~NOAUTH~~" ELSE XOP "~~EDIT~~" 7<8 ~~EDIT~~+XOP "~~GET_#FILE~~" \ .IF #FILE NES "" THEN 8*9 ~~EDIT~~ EDIT #FILE,,1,WPSPLUS 9J: !D@.IF #SD_EDIT NES "Y" THEN XOP "~~NOAUTH~~" ELSE XOP "~~DELETE~~" :>; " ~~DELETE~~+XOP "~~GET_#FILE~~" \ .IF #FILE NES "" THEN ;4< # ~~DELETE~~! YESNO_PROMPT \\ OA$FLD_STAY \\ <8= $ ~~DELETE~~$ .IF OA$PROMPT_TEXT:1 EQS "Y" THEN =.> % ~~DELETE~~ XOP "~~DELETE_FILE~~" >? & ~~DELETE~~ ELSE ?P@ ' ~~DELETE~~< GET OA$DISPLAY = "Document " #SD_CURDOC " NOT deleted" @,A (~~DELETE_FILE~~XOP "~~GETNEXT~~" \ A>B )~~DELETE_FILE~~&GET OA$FUNCTION="DELETE_FILE " #FILE \ BDC *~~DELETE_FILE~~+XOP "~~GET_#FILE~~" \ .IF #FILE EQS "" THEN CZD +~~DELETE_FILE~~A GET OA$DISPLAY = "Document " #SD_CURDOC " has been deleted" \\ DVE ,~~DELETE_FILE~~= .IF #SD_CURDOC EQS #SD_TEMPDOC THEN GET #SD_CURDOC="" ELSE E8F -~~DELETE_FILE~~ GET #SD_CURDOC = #SD_TEMPDOC FNG .COCGET #FUNC="COPY" \ GET #FUNCING="copying" \ GET #FUNCED="copied" \ GPH /COE.IF #SD_EDIT NES "Y" THEN XOP "~~NOAUTH~~" ELSE XOP "~~COPY_RENAME~~" HRI 0RNGGET #FUNC="RENAME" \ GET #FUNCING="renaming" \ GET #FUNCED="renamed" \ IPJ 1RNE.IF #SD_EDIT NES "Y" THEN XOP "~~NOAUTH~~" ELSE XOP "~~COPY_RENAME~~" JZK 2~~COPY_RENAME~~BXOP "~~GET_#FILE~~" \ .IF #FILE NES "" THEN XOP "~~COPY_RENAME2~~" K2L 3~~COPY_RENAME2~~FORM SD_RENAME \ IFEXIT \ LNM 4~~COPY_RENAME2~~5GET #NEWFILE = "SHARED_LIBRARY:" #SD_NEWNAME ".WPL" \ MBN 5~~COPY_RENAME2~~)GET OA$FUNCTION=#FUNC " #FILE #NEWFILE" \ N\O 6~~COPY_RENAME2~~CGET #NEWFILE = OA$DIR:"SHARED_LIBRARY:*.WPL;".%WHOLE[#SD_NEWNAME] \ O2P 7~~COPY_RENAME2~~.IF #NEWFILE NES "" THEN PfQ 8~~COPY_RENAME2~~L GET OA$DISPLAY = "Document " #SD_CURDOC " " #funced " to " #SD_NEWNAME \\ Q6R 9~~COPY_RENAME2~~ GET #SD_CURDOC=#SD_NEWNAME R S :~~COPY_RENAME2~~ ELSE SVT ;~~COPY_RENAME2~~= GET OA$DISPLAY = "Error " #funcing " document " #SD_CURDOC TRU < ~~GET_#FILE~~ ~~NODOC~~.IF #SD_CURDOC NES "" THEN WNX ? ~~NODOC~~< GET OA$DISPLAY = 'Document ' #SD_CURDOC ' does not exist' XY @ ~~NODOC~~ ELSE Y2Z A ~~NODOC~~ DISPLAY No document selected ZP[ B ~~NOAUTH~~=DISPLAY You are not authorized to perform this function\FORCE [V\ C.UPJXOP "~~GETFIRST~~" \ GET #SD_CURDOC = #SD_TEMPDOC \ DISPLAY Top of folder \>] D.DOWN0XOP "~~GETNEXT~~" \ GET #SD_CURDOC = #SD_TEMPDOC ]P^ E ~~GETFIRST~~;GET #SD_TEMPDOC=OA$DIR:"SHARED_LIBRARY:*.WPL;".%NEXT[""] \ ^>_ F ~~GETFIRST~~(GET #SD_TEMPDOC=OA$DIR.NAME[#SD_TEMPDOC] _X` G ~~GETNEXT~~CGET #SD_TEMPDOC=OA$DIR:"SHARED_LIBRARY:*.WPL;".%NEXT[#SD_CURDOC] \ `0a H ~~GETNEXT~~.IF #SD_TEMPDOC NES "" THEN a@b I ~~GETNEXT~~+ GET #SD_TEMPDOC=OA$DIR.NAME[#SD_TEMPDOC] bc J ~~GETNEXT~~ ELSE c4d K ~~GETNEXT~~ XOP "~~GETFIRST~~" \\ DISPLAY dNe L ~~GETNEXT~~9 Reached bottom of folder - positioning to first document ePf MSCE.IF #SD_EDIT NES "Y" THEN XOP "~~NOAUTH~~" ELSE XOP "~~SPELL_CHECK~~" fDg N~~SPELL_CHECK~~+XOP "~~GET_#FILE~~" \ .IF #FILE NES "" THEN g.h O~~SPELL_CHECK~~ WPSPLUS_SPELL #FILE hi P.PERIOD XOP "SEL" ij Q.GOLD A DO SD_ABOUT j$ Shared Document Library Menu k  l Document Name: m SEL n $Select document o  R p Read q  ,P r 2Print s   t   u  , v  / w   x   y , z / {   |   } , ~ / $  Enter option and press RETURN €