* **************************  DNAMES COMMAND FILE  ***************************
* 
*                                  dNAMES 1.1
*                   (c) Copyright 1982 Data Based Solutions
*                             All Rights Reserved
* ****************************************************************************
CLEAR
ERASE
SET inte OFF
@ 8,9 SAY 'dd   NN    NN       AA       MM        MM   EEEEEEE    SSSSS' 
@ 9,9 SAY 'dd   NNNN  NN      AAAA      MMMM    MMMM   EE        SS' 
@ 10,5 SAY 'dddddd   NN NN NN     AA  AA     MM MM  MM MM   EEEE        SS' 
@ 11,4 SAY 'dd   dd   NN  NNNN    AAAAAAAA    MM  MMMM  MM   EE            SS' 
@ 12,5 SAY 'ddddd    NN   NNN   AA      AA   MM   MM   MM   EEEEEEE   SSSSS' 
@ 15,19 SAY 'CP/M  Release Version 1.1 11/30/82' 
@ 17,16 SAY 'Copyright (c) 1982  Data Based Solutions' 
@ 18,25 SAY 'All Rights Reserved' 
@ 23,22 SAY 'PRESS ANY KEY TO CONTINUE  ' 
SET cons OFF
WAIT
SET cons ON
SET escape OFF
SET colon OFF
SET talk OFF
SET bell OFF
SET confirm ON
USE dndate
STORE t TO open
DO WHILE t
 IF .not.open
  &coff
 ENDIF .not.open 
 ERASE
 SET inte ON
 @ 3, 0 SAY "|==========================================================" +;
 "====================|" 
 @ 4, 0 SAY "||                          Today's Date- " 
 @ 4,78 SAY "||" 
 @ 5, 0 SAY "||" 
 @ 5,78 SAY "||" 
 @ 6, 0 SAY "||                    Current Logged Data Disk Drive Is- " 
 @ 6,78 SAY "||" 
 @ 7, 0 SAY "|==========================================================" +;
 "====================|" 
 SET inte OFF
 @ 1,27 SAY "dNAMES  M A I N  M E N U" 
 @ 2,36 SAY "~ ~ ~" 
 IF open
  DO dnopen
  STORE f TO open
 ELSE
  @ 4,42 SAY DATE()
  @ 6,57 SAY !($(dsk,2,1))+ ':' 
 ENDIF open 
 RELEASE theadname,theaddate,tmem,tmno,tfile,trecl
 IF eop# 'CALL' 
  STORE "@ 8,0 SAY " +eop TO era
 ELSE
  STORE 'CALL' TO era
  POKE 42000,8
 ENDIF eop# 'C' 
 SET inte ON
 @ 10,25 SAY "N or P> Fast Find Record By Name or Phone Number" 
 @ 11,30 SAY "1> Add Records" 
 @ 12,30 SAY "2> List Records" 
 @ 13,30 SAY "3> Edit Records" 
 @ 14,30 SAY "4> Pack or Destroy Deleted Records" 
 @ 15,30 SAY "5> Transfer Tagged Records To Alternate Diskette" 
 @ 16,30 SAY "6> Change Heading Date" 
 @ 17,30 SAY "7> Change Logged Data Disk Drive" 
 @ 19,30 SAY "R> EXIT To dBASE II" 
 @ 20,30 SAY "X> EXIT To Operating System" 
 STORE t TO correct
 DO WHILE correct
  SET colon ON
  SET inte ON
  @ 13,04 SAY "Your Choice Please-" 
  STORE ' ' TO answer
  @ 13,24 GET answer
  &con
  READ
  &coff
  SET colon OFF
  IF !(answer)= 'N' .OR.!(answer)= 'P' .AND.FILE( 'dnfast.cmd' )
   DO dnfast
   STORE f TO correct
   LOOP
  ELSE
   IF answer= '1' .AND.FILE( 'dnadd.cmd' )
    DO dnadd
    STORE f TO correct
    LOOP
   ELSE
    IF answer= '2' .OR.answer= '3' .AND.FILE( 'dnsrch.cmd' )
     DO dnsrch
     STORE f TO correct
     LOOP
    ELSE
     IF answer= '6' 
      &con
      DO dnopen
      &coff
      LOOP
     ELSE
      IF !(answer)= 'X' .OR.!(answer)= 'R' 
       &era
       SET inte OFF
       @ 16,12 SAY 'ARE YOU SURE YOU WANT TO EXIT dNAMES NOW ?  Y or <RET>' 
       SET inte ON
       SET cons OFF
       WAIT TO sure
       SET cons ON
       ERASE
       IF !(sure)# 'Y' 
        STORE f TO correct
       ELSE
        SET inte OFF
        @ 8,9 SAY 'dd   NN    NN       AA       MM        MM   EEEEEEE' +;
        '    SSSSS' 
        @ 9,9 SAY 'dd   NNNN  NN      AAAA      MMMM    MMMM   EE        SS' 
        @ 10,5 SAY 'dddddd   NN NN NN     AA  AA     MM MM  MM MM   EEEE' +;
        '        SS' 
        @ 11,4 SAY 'dd   dd   NN  NNNN    AAAAAAAA    MM  MMMM  MM   EE' +;
        '            SS' 
        @ 12,5 SAY 'ddddd    NN   NNN   AA      AA   MM   MM   MM' +;
        '   EEEEEEE   SSSSS' 
        @ 15,19 SAY 'CP/M  Release Version 1.1 11/30/82' 
        @ 17,16 SAY 'Copyright (c) 1982  Data Based Solutions' 
        @ 18,25 SAY 'All Rights Reserved' 
        RELEASE correct,open
        USE dndate
        REPLACE DATE WITH DATE(),dendcl WITH endcl
        SAVE TO &mem
        &con
        IF !(answer)= 'R' 
         CANCEL
        ELSE
         QUIT
        ENDIF 
       ENDIF 
      ELSE
       IF answer= '4' .AND.FILE( 'dnpack.cmd' )
        DO dnpack
        STORE f TO correct
       ELSE
        IF answer= '7' .AND.FILE( 'dnswap.cmd' )
         DO dnswap
        ELSE
         IF answer= '5' .AND.FILE( 'dntrans.cmd' )
          DO dntrans
         ELSE 
          LOOP
         ENDIF 
        ENDIF 
       ENDIF 
      ENDIF 
     ENDIF 
    ENDIF 
   ENDIF 
  ENDIF 
 ENDDO WHILE 
 RELEASE correct
ENDDO WHILE t 
RETURN