* ***************************  DNEDIT COMMAND FILE  **************************
*
*                                  dNAMES 1.1
*                   (c) Copyright 1982 Data Based Solutions
*                             All Rights Reserved
* ****************************************************************************
RELEASE specs
SET inte ON
@ 14,25
@ 17,0 SAY '|========================================================' +;
'=====================|' 
@ 18,0 SAY '||   1> Name        5> State            9> Comments      ' +;
'                    ||' 
@ 19,0 SAY '||   2> Salutation  6> Zip             10>               ' +;
'                    ||' 
@ 20,0 SAY '||   3> Address     7> Phone Number    11> Date Entered  ' +;
'                    ||' 
@ 21,0 SAY '||   4> City        8> Classification  12> Code          ' +;
' R> Finished Edit   ||' 
@ 22,0 SAY '|========================================================' +;
'=====================|' 
@ 23,0 SAY '  ctl-X down | ctl-E up | ctl-D -> | ctl-S <- ' +;
'| ctl-G del char | ctl-V insert' 
SET inte OFF
IF code= 'http://cpmarchives.classiccmp.org/cpm/Software/rlee/L/LOOSECPM/249/*' 
 @ 19,43 SAY 'Extra Comments ' 
ENDIF 
STORE t TO fixing
DO WHILE fixing
 CLEAR GETS
 RELEASE fphone,fix
 SET inte ON
 SELECT PRIMARY
 STORE '  ' TO fix
 SET colon ON
 @ 14,25 SAY 'Enter your edit option. ' GET fix
 &con
 READ
 &coff
 SET colon OFF
 DO CASE
  CASE !(fix)= 'R ' 
   SELECT PRIMARY
   REPLACE UPDATE WITH $(DATE(),1,2)+$(DATE(),4,2)+$(DATE(),7,2)
   RELEASE fix,fixing
   @ 17,0 SAY '|===========================================' +;
   '==================================|' 
   @ 18,0 SAY '||  1> Skip Forward 1       5>                         ' +;
   '9> Print an Envelope  ||' 
   @ 19,0 SAY '||  2> Skip Back 1          6>                         ' +;
   '                      ||' 
   @ 20,0 SAY '||  3>                      7> Tag For Transfer        ' +;
   '                      ||' 
   @ 21,0 SAY '||  4> Show Classification  8> Edit This Record        ' +;
   'R> Return             ||' 
   @ 22,0 SAY '|===========================================' +;
   '==================================|' 
   SET inte OFF
   IF .not.noloca
    @ 20,7 SAY 'Continue Search' 
   ENDIF 
   IF code= '*' 
    @ 18,31 SAY 'Display Extra Comments' 
   ELSE
    @ 18,31 SAY '                      ' 
   ENDIF 
   IF *
    @ 19,31 SAY 'Recall Record  ' 
    @ 1,60 SAY '*** DELETED ***' 
   ELSE
    @ 1,59 SAY '                  ' 
    SET inte ON
    @ 19,31 SAY 'Delete Record' 
   ENDIF 
   @ 22,0 SAY '|===========================================' +;
   '==================================|' 
   @ 14,25
   SET inte OFF
   RETURN
  CASE fix= '1 ' 
   IF !(answer)='3'
    SET INDEX TO &a2
   ENDIF
   GO recno
   @ 16,3 SAY 'Make any needed changes to Record Name followed by <RET>.' 
   STORE t TO right
   DO WHILE right
    @ 3,13 GET name
    &con
    READ
    &coff
    IF @( '* ' ,name)#0
     SET inte OFF
     @ 15,3 SAY 'Enter record name as "LastName*FirstName MiddleInitial" ' +;
     'or "Company Name"' 
     LOOP
    ELSE
     STORE f TO right
     @ 15,0
    ENDIF 
   ENDDO WHILE right 
   @ 16,3
   IF !(answer)='3'
    SET INDEX TO
   ENDIF !(answer)= 'N' .OR.!(answer)= 'P' .OR.an
   GO recno
   LOOP
  CASE fix= '2 ' 
   @ 16,3 SAY 'Make any needed changes to Salutation followed by <RET>.' 
   SELECT seco
   @ 3,55 GET sal
   &con
   READ
   &coff
   @ 16,3
   LOOP
  CASE fix= '3 ' 
   @ 16,3 SAY 'Make any needed changes to Address followed by <RET>.' 
   SELECT seco
   @ 4,13 GET ADD
   &con
   READ
   &coff
   @ 16,3
   LOOP
  CASE fix= '4 ' 
   @ 16,3 SAY 'Make any needed changes to City followed by <RET>.' 
   SELECT seco
   @ 5,13 GET city
   &con
   READ
   &coff
   @ 16,3
   LOOP
  CASE fix= '5 ' 
   @ 16,3 SAY 'Make any needed changes to State followed by <RET>.' 
   SELECT seco
   @ 5,41 GET state PICTURE '!!' 
   &con
   READ
   &coff
   @ 16,3
   LOOP
  CASE fix= '6 ' 
   @ 16,3 SAY 'Make any needed changes to Zip Code followed by <RET>.' 
   @ 5,49 GET zip 
   &con
   READ
   &coff
   @ 16,3
   LOOP
  CASE fix= '7 ' 
   SELECT seco
   IF !(answer)='3'
    SET INDEX TO &b2
   ENDIF
   GO recno
   @ 16,3 SAY 'Make any needed changes to Phone Number followed by <RET>.' 
   STORE $(phone,1,3) TO tarea
   STORE $(phone,4,3)+ '-' +$(phone,7,4) TO tphone
   @ 6,13 GET tarea
   @ 6,24 GET tphone PICTURE '999-9999' 
   SET CONFIRM OFF
   &con
   READ
   &coff 
   SET CONFIRM ON
   REPLACE phone WITH tarea+$(tphone,1,3)+$(tphone,5,4)
   IF !(answer)='3'
    SET INDEX TO
   ENDIF 
   RELEASE tarea,tphone
   GO recno
   @ 16,3
   LOOP
  CASE fix= '8 ' 
   SET inte ON
   &era
   @ 14,9 SAY mcl1
   @ 15,9 SAY mcl2
   @ 16,9 SAY mcl3
   @ 17,9 SAY mcl4
   @ 18,9 SAY mcl5
   @ 19,9 SAY mcl6
   @ 20,9 SAY mcl7
   @ 21,9 SAY mcl8
   @ 22,9 SAY mcl9
   @ 23,9 SAY mcl10
   STORE t TO checking
   DO WHILE checking
    IF noloca
     @ 13,03 SAY 'Enter classification or "00" to ' +;
     'add or edit.' 
    ELSE
     @ 13,03 SAY 'Enter classification number(s).' 
    ENDIF 
    @ 6,40 GET cl PICTURE '99-99-99-99-99-99' 
    &con
    READ
    &coff
    IF val($(cl,1,2))>endcl.OR.val($(cl,4,2))>endcl.OR.;
     val($(cl,7,2))>endcl.OR.val($(cl,10,2))>endcl.OR.;
     val($(cl,13,2))>endcl.OR.val($(cl,16,2))>endcl
     SET inte OFF
     @ 13,61 SAY 'INVALID ENTRY' 
     SET inte ON
     LOOP
    ELSE
     @ 13,60 SAY '               ' 
     STORE f TO checking
    ENDIF 
    IF @( '00' ,cl)#0.AND.cl# '  ' .AND.noloca
     DO dnrecl
     @ 13,03
     IF which# ' ' 
      IF answer= '3' 
       USE &a1
      ELSE
       USE &a1 INDEX &a2
      ENDIF 
      GO recno
      SELECT seco
      USE &b1
      GO recno
     ENDIF 
     RELEASE which
     STORE t TO checking
    ENDIF 
   ENDDO WHILE 
   RELEASE checking
   @ 7,03 SAY '                                                      ' +;
   '                     ||' 
   SET inte OFF
   STORE t TO showcl
   DO dnshow
   SET inte ON
   RELEASE showcl
   &era
   @ 17,0 SAY '|========================================================' +;
   '=====================|' 
   @ 18,0 SAY '||   1> Name        5> State            9> Comments      ' +;
   '                    ||' 
   @ 19,0 SAY '||   2> Salutation  6> Zip             10>               ' +;
   '                    ||' 
   @ 20,0 SAY '||   3> Address     7> Phone Number    11> Date Entered  ' +;
   '                    ||' 
   @ 21,0 SAY '||   4> City        8> Classification  12> Code          ' +;
   ' R> Finished Edit   ||' 
   @ 22,0 SAY '|========================================================' +;
   '=====================|' 
   @ 23,0 SAY '  ctl-X down | ctl-E up | ctl-D -> | ctl-S <- ' +;
   '| ctl-G del char | ctl-V insert' 
   SET inte OFF
   IF code= 'http://cpmarchives.classiccmp.org/cpm/Software/rlee/L/LOOSECPM/249/*' 
    @ 19,43 SAY 'Extra Comments ' 
   ENDIF 
   STORE t TO correct
   LOOP
  CASE fix= '9 ' 
   @ 16,3 SAY 'Make any needed changes to Comments followed by <RET>.' 
   SELECT seco
   @ 8,13 GET com
   &con
   READ
   &coff
   CLEAR GETS
   @ 16,3
   IF code# '*' 
    STORE ' ' TO more
    @ 13,19 SAY 'Type "T" if you would like to enter up to' 
    @ 14,19 SAY '3 more lines of additional information.' 
    SET colon ON
    @ 15,39 GET more
    &con
    READ
    &coff
    SET colon OFF
    @ 13,19
    @ 14,19
    @ 15,38 SAY '    ' 
    IF !(more)= 'T' 
     USE &c1 INDEX &c2
     APPEND BLANK
     REPLACE cno WITH recno
     @ 15,3 SAY 'Enter up to three more lines of comments.' 
     @ 9,3 GET line1
     @ 10,3 GET line2
     @ 11,3 GET line3
     &con
     READ
     &coff
     IF !(answer)= 'N' .OR.!(answer)= 'P' .OR.answer= '1' 
      USE &b1 INDEX &b2
     ELSE
      USE &b1
     ENDIF 
     GO recno
     SELECT PRIMARY
     REPLACE code WITH '*' +$(code,2,1)
     SET inte OFF
     @ 19,43 SAY 'Extra Comments ' 
    ENDIF 
   ENDIF 
   @ 15,3
   LOOP
  CASE fix= '10' .AND.code= '*' 
   SELECT seco
   STORE str(no,5) TO nnn
   USE &c1 INDEX &c2
   FIND &nnn
   @ 16,3 SAY 'Make any needed changes to Extra Comments followed by <RET>.' 
   @ 9,3 GET line1
   @ 10,3 GET line2
   @ 11,3 GET line3
   &con
   READ
   &coff
   IF !(answer)= 'N' .OR.!(answer)= 'P' .OR. answer= '1' 
    USE &b1 INDEX &b2
   ELSE
    USE &b1
   ENDIF 
   GO recno
   @ 16,3
   RELEASE nnn
   LOOP
  CASE fix= '11' 
   STORE $(DATE,1,2)+ '/' +$(DATE,3,2)+ '/' +$(DATE,5,2) TO tdate
   @ 4,69 GET tdate PICTURE '99/99/99' 
   &con
   READ
   &coff
   REPLACE DATE WITH $(tdate,1,2)+$(tdate,4,2)+$(tdate,7,2) 
   RELEASE tdate
   LOOP
  CASE fix= '12' 
   STORE $(code,3,6) TO tcode
   @ 6,71 GET tcode
   &con
   READ
   &coff
   REPLACE code WITH $(code,1,2)+tcode
   RELEASE tcode
   LOOP
  OTHERWISE
   LOOP
 ENDCASE 
ENDDO WHILE 
RETURN