cs ();"DGET% 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 DES(),USE()$ OPEN SOURCE FILE "."Name of source file";8 zF ucvB (F,,)":" `LFD()F` TEST FOR EXISTENCE j t "I",,F~   ok ) 5 "File not found" $0 @ "Bad file name, try again." $& ENTER SEQUENCE OF FIELDS *"Here's the first line of "F". ,T T "I",,F;"Number of fields in the source file records";N)  NUSE()  N8 "Destination field of field"; DES()! DES()N  DES() $ USE(DES())  USE(DES())"Is this ok (y/n)?";v()  "y"  $  READ FILE   exit () l3#  N()""NN(  N2 () l< ,T"F DES() H  PH QUOTw(T,(~))3I QUOT (T,QUOT,)(") HK (DES())TP%Z ADD RECORD TO DIMS FILE d""n  NAx ()(())F "Record too long."! ()(~) ;;" "*"; "!" LOOP  ( (SUB) WRITE T$ AS RECORD # N  F ,$ (,) latter half #,F$ x(,) first half #,F( (SUB) WRITE T$ AS DUPE REC N  F , (,) #,F x(,)" #,F,l FINISH p q N"records added. v ( )"Re-loading DEDIT. D()"DEDIT",# EXIT TEST (TERM DEP) u "" ()6   l use ESC to escape listing&  CLEAR SCREEN (TERM DEP)  ()"E"()"H"; z (SUB) UCV ""  () ( ) ((,,))< ` { (,,)( ) # (,,)(,,)((,,))< ` { (,,)( ) # (,,)(