"DIMS doc command $by Dan Dugan -- public domain  A-Z ,,,,,,,,T,SKIPPARS,F,SEARC, ,,N,P,P,P,P,P,,,T,T,(),(),(), SEARCHWOR(),SEARCHFIEL(),SKIPWOR(),LOOKFIEL(),D(),,FE  N.B. DOC USES TWO FILES, #2 AND #3. IT RE-OPENS 2 AT END.  8, (SUB) CLEAR SCREEN (TERM DEP) $ ()"E"()"H"; ) .8 DOCUMENT COMMAND B  csL"'" "' document file;V"Do you want to write (1) read (2) or finish (3) ";)`v() ( ) "1" j +t&()   V~  ,,h  V DOC WRITE   cs  "I",,D()".DOC" J  J 5  "O",,D()"DOC.$$$" J (  fix "O",,D()"DOC.$$$" ()  ,  ,    D()".DOC"&("Writing on "" document file2<"Type 'stop' to finishF P Z "stop" x d , n P x ,0 D()"DOC.$$$" D()".DOC"  V DOC READ   "I",,D()".DOC" J F 5  "No document file present" J V J  cs! "'""' document file   ()  V ,     ""(more)";, PAUSE.v()0 () h exit6 @ J GENERAL ERROR -T = "Out of disk space." V^h FINISH m , make sure%r"R",,D()".DD"F| #,   "M:";"Re-loading DIMS file editor (DEDIT).""DEDIT","R",,D()".DD"F| #,   "M:";"Re-loading DIMS file editor (DE