6 FMSFRMFED200 7-AUG-1990 11:34:35 7-AUG-1990 11:34:35þ  # à à ½ & 20'P G SD_SELECT  ' @DOCNAME     0  .TYPE ARG /OVERLAY 6 .TYPE(/HARD='Shared Document selection screen' 0 .TYPE!/PRE='GET #SD_TEMPDOC=#SD_CURDOC' 8 DOCNAME(/GET_SAVE=#SD_CURDOC/PUT_SAVE=#SD_CURDOC P DOCNAME@/VALID=<.IF OA$DIR:"SHARED_LIBRARY:*.WPL".%WHOLE[DOCNAME] NES "" ` DOCNAMEP THEN OA$VAL_SET_VALID ELSE GET OA$DISPLAY="Document " DOCNAME " does not exist" : DOCNAME*/RECOG=OA$DIR:"SHARED_LIBRARY:*.WPL;".NAME <  OLD_DOCNAME(/GET_SAVE=#SD_CURDOC/PUT_SAVE=#SD_CURDOC D  OLD_DOCNAME//VALID=OA$DIR:"SHARED_LIBRARY:*.WPL;".NAME/AUTO h DOCNAME COMMENTSNUsing /VALID=OA$DIR:"SHARED_LIBRARY:*.WPL;".NAME/AUTO enables auto recognition L DOCNAME COMMENTS2but is much slower than /RECOG and /VALID=<.IF ... 6 .UP*XOP "~~GETFIRST~~" \ DISPLAY Top of folder . .DOWN .IF DOCNAME EQS #SD_TEMPDOC THEN " .DOWN XOP "~~GETNEXT~~"  .DOWN ELSE " .DOWN XOP "~~GETCURR~~" P  ~~GETFIRST~~:GET #SD_TEMPDOC=OA$DIR:"SHARED_LIBRARY:*.WPL;".%NEXT[""] \ F  ~~GETFIRST~~0GET #SD_TEMPDOC=DOCNAME=OA$DIR.NAME[#SD_TEMPDOC] .  ~~GETNEXT~~GET #SD_TEMPDOC=DOCNAME \ X  ~~GETNEXT~~CGET #SD_TEMPDOC=OA$DIR:"SHARED_LIBRARY:*.WPL;".%NEXT[#SD_TEMPDOC] \ &  ~~GETNEXT~~XOP "~~GETNAME~~" 2  ~~GETCURR~~GET #SD_TEMPDOC=DOCNAME "*" \ X  ~~GETCURR~~DGET #SD_TEMPDOC=OA$DIR:"SHARED_LIBRARY:*.WPL;".%WHOLE[#SD_TEMPDOC] \ &  ~~GETCURR~~XOP "~~GETNAME~~" 0  ~~GETNAME~~.IF #SD_TEMPDOC NES "" THEN H  ~~GETNAME~~3 GET DOCNAME=#SD_TEMPDOC=OA$DIR.NAME[#SD_TEMPDOC] !  ~~GETNAME~~ ELSE !4"  ~~GETNAME~~ XOP "~~GETFIRST~~" \\ DISPLAY "N#  ~~GETNAME~~9 Reached bottom of folder - positioning to first document # Document Name: $ Select a Document %B  =lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk &  x '0 +o Enter full document name and press RETURN (  Gx )  x *( "o Press LINE-FEED and FIND to list +  1all , 5 documents -  Gx .  x /< 7o Enter first few characters of document name and press 0  Gx 1  x 2 - DOWN ARROW to select 3 'first 4 -matching 5 6document (fast) 6 Gx 7  x 8 - FIND to list 9 all : #matching ; ,documents (slow) < Gx =  x > o Press UP ARROW to select ? )first @ /document in folder A Gx B  x C" o Press DOWN ARROW to select D +next E 0document in folder F Gx G  x H< 6o EXIT SCREEN to exit without selecting a new document I Gx JB  =mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj K