cs ();"DPUT % by Dan Dugan -- public domain  A-Z ,,,,,,,,T,SKIPPARS,F,SEARC, ,,N,P,P,P,P,P,,,T,T,(),(),(), SEARCHWOR(),SEARCHFIEL(),SKIPWOR(),LOOKFIEL(),D(),,F$ OPEN OUTPUT FILE '."Name of destination file";8 > ucv=FB DISK NAME L (F,,)":" `VFD()F` TEST FOR EXISTENCE j t "I",,F ~ >  F" exists already. Use a different name." $  5  not found1 = "Sorry, disk full."  exit0 @ "Bad file name, try again." $0 C "Out of directory space."  OPEN NEW FILE "O",,F N  RECORD WORK LOOP ' T T  <==== FOR   get rec () "0";  "+";T  save it SKIPPARS ! D  parse record string SEARC | SEARCH   SEARC < FIND ( w(,SEARCHWOR()) ( D  parse 2 |< FIELD SEARCH &F  check for skips first4P SKIPWOR()""   try search then2Z LOOKFIEL()   look in fieldHd w(T,SKIPWOR())   whole rec search - skip itn x PU w((LOOKFIEL()),SKIPWOR())   field compare - skip  P: SEARCHWOR()""   don't care so print it!   now search9 SEARCHWOR()""   hesitate no longer, SEARCHFIEL()   field8 w(T,SEARCHWOR())   found it  A w((SEARCHFIEL()),SEARCHWOR())    GET READY TO DO IT & SKIPPARS D  parse| DO WORK  (();;())  N+ ()"" ()" "    ,", "; ", ";!,(); ();,NN   check exit(   END OF RECORD WORK LOOP FINISH  & N"records. 0 ( )"Re-loading DEDIT.: D()"DEDIT",D PARSE STRING N&Xw(,(~))  delimiterb  lv()"" ()(,,)(,)  X (SUB) EXIT TEST u "" ()6    use ESC to escape process, (SUB) CLEAR SCREEN (TERM DEP)  ()"E"()"H";) (SUB) GET RECORD "I" IN T$ ""  necessary! F  , &  #,F  latter half x(,).  #,F  whole or first half* 4> (SUB) UCV H""R  ()\ ( )f ((,,))<p ` { (,,)( ) #z (,,)(,,)((