`N '"DEDIT must be entered from DIMS. ();"DEDIT"  A-Z ,,,,,,,,T,SKIPPARS,F,SEARC,,,N,P,P,P,P,P,,,T,T,(),(),(),SEARCHWOR(),SEARCHFIEL(),SKIPWOR(),LOOKFIEL(),D(),,F XK$ S(N),F(N),LF(N),F(N),LF(N)@. NL(N),LNL(N),NL(N),LNL(N)[8 P(N),LP(N),DL(N),LDL(N),DL(N),LDL(N)YB FM(N),LFM(N),F(N),LF(N),F(N),LF(N) L  HV  TT"Here's the last record:" T ` j"" t#~   ()""  "" (); ( );# R  , (O); ( );, " ";"""Edit ";;": "; R ;;    "" " " w(,( ))  (  ( ()(,,)(,)  (()( )21< x((),)"rep"    AFTTCSEARCSKIPPARSPPPPLP FLAFLA""P Zdn x   ()( )  Cx((),)" C"add"    C"fie"   `# C"ins"  n " C"don"   $ C"ren"     C"for" z" C"bac"     C"pro" !7 C"got" ()()  ! C"cha"  n" C"del"   n! C"lis"  n C"fin"   , SEARCSKIPPARSJ w((),(_))  (())   C ()x((),)" "|((),)  ' SEARCHWOR()() n& C"sel" SEARC n) C"pri" P  n9 C"pic" ();"@";();"p";(); n) C"ita" ();"4"; n ) C"eli" ();"M"; n . C"ps" ();"p";(); n % C"con" (); n ) C"bol" ();"E"; n . C"dra" ();"m";(); n. C"hig" ();"m";(); n( C"set" ();"d"; n# C"cop" P n ( C"res" P  n#" C"wri" P n , C"and" nL6 C"pag" P&(())LPP  n@@ C"mar" LL&(())  n J C"fla" f! nT-^()  () h r*|"I",,D()"D"()".BAS"%  ()   T T P  SEARC $: ();"Please wait while transient program loads. D()"D", 5 @ /  X ()"?" t C C&(()) C &  :& C C0TC v8: ()"from"  T 4D ()"all" T T )N ()"." TT v.X ()"next" TT vb ()"to" vlv* ()( ) C&(()) C    C C/TC TT T,T   ()"to" * ()"." TT / ()"next" TT + ()"end" T + ()"last" T % T TTC C + ()"Here are the fields in "&  N()  x>  N/H ()"Show "x((),)"? (y/n) ";)R v() ( ) "y"&\  "n" ()fpz P ()"0" ' ()( )   +"Here are the available formats:"% F D()"*.DFO" <"Enter the desired format name or just RETURN: ",# ""    '()  F !"I",,D()F".DFO" X   @ 5  M X"Format "F" not available on this disk."  tF"0"    `   $ ,F . , T8 ,T,LT,L,LL,S,L,R,R,L,LL,HM,VMB , (L ,HL ,HL ,HL+V ,LHL ,LHL ,LHLN` ,H,LH,R,LR,RL,LRL,RL,LRL,RN,LRN j &t  N  *y ,S() S()  .{ S()N S()N ~ t  ,E,LE  N ()   S()! ,F(),LF()( ,F() ,LF()Y ,NL(),LNL(),NL(),LNL(),FM(),LFM()> ,DL(),LDL(),DL(),LDL()( ,P() ,LP(): ,F(),LF(),F(),LF()4 (P())  F()  X. "Format "F" loaded." t X  . "Error in loading format." t  <( P  "Not allowed, try again." t2 T T B<  ( ) "File is empty." tF P P Z P Td "" tn SEARC $ =   ,T , ,`,`,`, ,`, ,T , , `  A  ()"Waiting while loading DIMS." D()"DIMS",  N     TT  V  ();"Select fields to change? (n/y) "; v() ( ) "n"  "y"  4  N () ()  T    N" () J #, () ()W6 ();"Change "x((),)"? (y/n) "; v() ( ) "y"'@  "y" () J T ^ CRLRr Tw  | 8  () "0";  "+"; T  SKIPPARS  d    SEARC    SEARC   ) w(T,SEARCHWOR())  P (); d      "& SKIPWOR()"" v 0 LOOKFIEL() X ): w(T,SKIPWOR())  D  N & <X w((LOOKFIEL()),SKIPWOR())  b  l & q !v SEARCHWOR()""     $ SEARCHWOR()""  " SEARCHFIEL()  + w(T,SEARCHWOR())     ? w((SEARCHFIEL()),SEARCHWOR())      P ();  SKIPPARS d  7 C   P P     z  3 R RR  ,   "Ready>";* v()():,  (P P)   `  `#/  h H   H <R  ()"The program is waiting for just one keystroke;)\  ( )"h will print this message,-f ( )"SPACE will show the next record,Hp ( )"z will show the next record and keep going until you SPACE,Pz ( )"EXIT will quit the sequence you're in and go to edit command level.   T P   C. R (R RR) @   RPP ( );T J  HL"" HL;, |(HL,)" " "PAGE"P "" HL"" HL, HL"" HL6H J@JRR*T "" (); ""^ R h3r RL RLRL , | RL (RL); ;RN J  NCS() '  E J  + C ()    )    7 S()(()) l () F()  ()""  (()) ( ""  (); ""     L <  FLA ()()FLA&  :;0  () t ( ); L  :$DLFN >N F() EFF()  EFS() X LEF lb (L);"<"; L l)v  FLA FLA;= ; T  FLA TFLATM  T"" T";" T"+" T() H 5  (T";" T"+")   . T() T"" T" " L T;] T"stop"  "(N)" records added." T t  `  |(T,)(<) 1 C   C S()(()) F()   T" " T""= |(T,)( ) Tx(T,(T))  ! |((),)"n" H  I (T) * T((T,I,))K4 T- T9 "Re-enter; only numbers allowed."  > IHR(T)S\ NF "Record too long. Re-enter, shorter." @fp()Tz( DL() V     t F() J      E NL() NL()NL() , ( NL() (NL()); F() ,.  B = |((),)"n" x((),)" # "; B x((),)" : "; $ B.8 F();BFM() JLEV DL() DL()DL() , jd` DL() ()DL() (()DL(),);  (DL());jt[~ |((),)"n" P()"&" P()"" N&(()) G F() x((),F())  () ;  P();N;   P  h C CLRLL LP LT  LLLL   = (R LRR) LLLL   F LT  %  LHL"" LHL;  (1 |(LHL,)( ) "PAGE"LP (LLLL-( LHL"" LHLLLLL-2 LHL"" LHLLLLL<LH  FPLRLR Z LR 6d LRL LRLLRL  x$n LRL LRL  lxC()"()|(,()) ;LL()CLRN  S()(  LE   / (()) (LF())     ^  #LF()   H LNL() LNL()LNL()  0 LNL() LNL()   LF() ,,  J  x((),)" : ";"LL J,16 LF();LL(LF())@JLFM() T^Hh LDL() LDL()LDL()  |0r LDL() LDL()  |C()] |((),)"n" LP()"&" LP()"" N&(()) I LF() x((),LF())  () ;  LP();N;LL()C%  P   0    z  # R  , P "Copy ";! P  "& ";  "Delete ";R"this record? n/y/z/EXIT >"; v()()  "n"$  "ESC"    (P P)   `.  "y" "z"   ( P NN "!";!"&  ()  $0   :  : D""N  N!b ()(~) l v "*"; "!" B  NN    % T  w  P  - T "End of file." t  ` u "" ()   (P P)   `8 B"" L F j,VV #,F ` x(,)j #,F t ~ F , (,)  #,F x(,)  #,F  F (, (,) #,F( x(,)2 #,F<d nxw(,(~))    ()(,,)(,)  x F , (T,) #,FN x(T,) #,FN,'6 ();();(); @JT I X*] 5 "File not found." tb =  l   vU (P P) "Disk full ... fix then repeat last copy command" t"Disk full .. files forced closed .." "N =";" .. adds since last 'done' not updated in header .." "Hit return for re-open attempt...then do 'done'. "   : ()"That number was too big! Try again."  ""  () " " ((,, ))= ` { (,,)( ) # (,,)(,,) P H ();"@";I L#R ();();(HM);#\ ();();(VM);#f ();();(LL);p (); "9"; ( ); q ();"p";();u ();"m";();v ();"d"; zP 7 I LLLLL ? ();( );();();();(LL);LLL+ L R   DYLL Y~ (YLLL);  " ();();(Y);LA ( );( );LRLLLPLPL ()"E"()"H";$. TT 8  B ,LSKIPPARS *V"Here are the fields in " x`  Dj "Number of field to search - RETURN if you don't care "; /t "" SEARCHFIEL() ~ &()4  N "NO FIELD" j SEARCHFIEL() SKIPPARS2 ( ); "Expression to look for? ";  SEARCHWOR() ""   < "Do you want to select records to exclude? (n/y) ";(v() ( ) "n"  ' "y" SKIPWOR()""   C "Number of field to search - RETURN if you don't care ";-  "" LOOKFIEL() < &()4  N "NO FIELD" ( LOOKFIEL()2 SKIPPARS2< ( ); "Expression to look for? "; F SKIPWOR()P "" d Z dnx  N ();> "##";;". "x((),)" "|((),)* ()"Installing standard format.gF"0"FF""FF""TLTLLLSYLFRRLLFLTN,HM VMFS""HL" "HL""HL""<LHL" "LHL""LHL""HLHNRLRRLLRLRLLRLRNLRNELE  N" S()F()LF()F()""LF()"" NL()LNL()NL()LNL()FM()LFM(), P()"&"LP()"&"DL()LDL()DL() LDL()  F()LF()F()LF()6@S()JTf^"Output file name (prefix optional, default "D()")"; F F"" "?"  hF Fr (F,,)":" |FD()F  "I",,F".D"F  X    X 5 / = "Sorry, disk is full."  0 @ "Bad file name, try again." ^* C "Directory full."   X "Opening new file "FN         ""& F D ,0 0 #,: x(,) D #,N  X db  %l x((),)"stop"  v  Tl TN "Copy aborted; output file has a different number of columns" ( )( )  A FD() N  N&(()) "File open, NR ="N   "R",,F".D"F #,   4 FD() N R!, "Closing output file,"N"records.I "Backup of copied records is not automatic. The 'backup' command.!"must be used on the file you copied to. !""!  ! ! ()(~)%*! x((),)"stop" >!4! >!T"(N)(~)H!N R! \!f!-p!"Here are the fields in " x4z!"Number of field to flag ";  !%! N "???" z!!FLAF! "Enter flag; may include blanks: ";FLA FLA"" !!!L!"Here are the available transient programs; to use one as a command3!"skip the 'D' on the front and the '.BAS'.".! F D()"D???????.BAS"  ! t one as a command3!"