2 "This program must be entered from DEDIT."   cs ();"DLABELS % 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$ SET-UP LABELS(."Select options for the labels:"8>9" 1. One field per line E. Elite typeD=" 2. Address labels C. Condensed print 8>" (first two fields P. Pica9?" combined on one line) R. ResetKB" 3. One long line [Proportional spacing]".L"Select options (e.g. 1, 2P, or 3C) ";6N lp x(lp,) typ|(lp,)0O typ"R" typ"r" ();"@";0P typ"E" typ"e" ();"M";,R typ"C" typ"c" ();6S typ"P" typ"p" ();"p";();V ( ) "1"*`  &()  e   LjPt N  align labels ~ RECORD WORK LOOP C  first timeL  count' T T  <==== FOR   get rec () "0";  "+";T  save it SKIPPARS !   parse record string SEARC  SEARCH  SEARC ( FIND ( w(,SEARCHWOR())    parse  ( FIELD SEARCH &2  check for skips first4< SKIPWOR()""   try search then2F LOOKFIEL() n  look in fieldHP w(T,SKIPWOR())   whole rec search - skip itZ d <Un w((LOOKFIEL()),SKIPWOR())   field compare - skipx  <: 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   parse: PAUSE CONTROLS (TERM DEP IF UPPERCASE ONLY)    exit returns A& z   z means go on7 ;();();"Ready (SPACE/z/r/n/EXIT) >";3v()()   /     z )  r IPRE   r(  n      n or loop4 "Enter number of desired record: ";    exit PRINT LABEL LLIPRE7" P   reformat medium to short form5' P *  reformat long to short form, P 6"("")""@T  counts blank linesJ  O N h<T ()"" ()" " TT h;^ P ( ) ()  ( ) () h    check exit(   END OF RECORD WORK LOOP FINISH  P  " ( )"Re-loading DEDIT. D()"DEDIT"," (SUB) PARSE STRING &w(,(~))  delimiter  &()"" 0()(,,):(,) D  N (SUB) ALIGN LABELS ) (SUB) EXIT TEST (TERM DEP) u "" ()6    use ESC to escape listing,  (SUB) CLEAR SCREEN (TERM DEP)  ()"E"()"H"; %* (SUB) LABEL 3 RE-FORMAT 34  5 N !6   I> ()"" ()" " ()()() -H ()"" ()" " M ()() W9N w ()()()w R$O()()", "()R  NS (()) ()()","( )( )" "wT  NU (()) ()()","( )( )" "wV  NW (())F ()()","( )( )" "w  '   ()"" ) (SUB) GET RECORD "I" IN T$ ""  necessary! F ,& #,F  latter half x(,). #,F  whole or first half ) (SUB) MEDIUM FORM RE-FORMAT ()()" "()  N ()()    (N)"".  ()()" "()  N ()(