* ***************************  DNOPEN COMMAND FILE  **************************
*
*                                  dNAMES 1.1
*                   (c) Copyright 1982 Data Based Solutions
*                             All Rights Reserved
* ****************************************************************************
RELEASE theadname,theaddate,tmem,tmno,tfile,trecl
IF open
 SET inte ON
 @ 9,8 SAY "Enter today's date 'MM/DD/YY' if incorrect or " +;
 "<RET> to continue." 
 SET inte OFF
 @ 6,57 SAY !(data)+ ':' ' 
ENDIF 
IF open
 STORE 'date' TO getthis
ELSE
 STORE 'mdate' TO getthis
 STORE DATE() TO mdate
ENDIF 
STORE t TO getdate
DO WHILE getdate
 @ 4,42 GET &getthis PICTURE '99/99/99' 
 READ
 IF $(&getthis,1,1)= ' ' .OR.$(&getthis,2,1)= ' ' .OR.$(&getthis,4,1)= ' ' ;
  .OR.$(&getthis,5,1)= ' ' 
  SET inte OFF
  @ 4,55 SAY '*** INVALID DATE ***' 
  @ 5,55 SAY 'Replace blank with 0' 
  LOOP
 ELSE
  STORE &getthis TO mdate
  SET DATE TO &mdate
  @ 4,55 SAY '                    ' 
  @ 5,55 SAY '                    ' 
 ENDIF
 IF val($(&getthis,1,2))<1.OR.val($(&getthis,1,2))>12.OR.;
  val($(&getthis,4,2))<1.OR.val($(&getthis,4,2))>31.OR.;
  val($(&getthis,7,2))<82.OR.val($(&getthis,7,2))>92
  SET inte OFF
  @ 9,00
  @ 4,55 SAY '*** INVALID DATE ***' 
  @ 5,55 SAY 'Enter as- "MM/DD/YY"' 
  LOOP
 ELSE
  STORE f TO getdate
  @ 4,55 SAY '                    ' 
  @ 5,55 SAY '                    ' 
  @ 9,00
 ENDIF 
ENDDO WHILE 
RELEASE getdate,mdate
IF .not. open
 RELEASE getthis
 RETURN
ELSE
 STORE t TO fileck
 SET inte OFF
 DO WHILE fileck
  STORE data+ ':dndate' TO FILE
  IF .not.FILE( '&file' )
   @ 13,12 SAY 'Make sure the dNAMES data diskette is in the ' +;
   !(data)+ ': ' + 'drive.' 
   @ 15,28 SAY 'Type <RET> when ready.       ' 
   SET cons OFF
   WAIT
   SET cons ON
   @ 13,12
   @ 15,28
   STORE data TO boot
   SET DEFA TO &boot
   RESET
   STORE disk TO boot
   SET DEFA TO &boot
   STORE data+ ':dnn' TO FILE
   IF FILE( '&FILE' )
    STORE f TO fileck
   ELSE
    LOOP
   ENDIF 
  ELSE
   STORE f TO fileck
  ENDIF 
 ENDDO 
 SET inte OFF
 @ 13,24 SAY '*** PREPARING dNAMES FILES *** ' 
 SET inte ON
 RELEASE fileck,boot
 STORE 'RESTORE FROM ' +data+ ':dnmem' TO FILE
 &FILE
 RELEASE FILE
 STORE data+ ':dnn' TO a1
 STORE data+ ':dnxn' TO a2
 STORE data+ ':dnc' TO b1
 STORE data+ ':dnxc' TO b2
 STORE data+ ':dnmc' TO c1
 STORE data+ ':dnxmc' TO c2
 STORE data+ ':dnmem' TO mem
 STORE DATE TO mdate
 STORE !(disk)+!(data) TO dsk
 STORE dendcl TO endcl
 SET DATE TĪ &mdate
 RELEASE mdate,getthis
 USE &a1 
 GO BOTTOM
 STORE # TO mno
 SELECT seco
 USE &b1
 GO BOTTOM
 &coff
 IF mno##
  ERASE
  @ 07,10 SAY '*** ERROR ***   AN ERROR HAS OCCURRED   *** ERROR ***' 
  @ 09,10 SAY 'The records in the dBASE files have become misaligned.' 
  @ 10,10 SAY 'This could have been caused by any number things ' +;
  'possibly a power' 
  @ 11,10 SAY 'surge, turning off computer while running dNAMES, etc.' 
  @ 13,10 SAY 'USE YOUR BACKUP DATA DISKETTE' 
  @ 14,10 SAY 'Be sure to make a backup of your existing backup first.' 
  @ 15,10 SAY '(See manual for further explanation.)' 
  @ 18,10 SAY 'Press any key.' 
  @ 22,00 SAY ' ' 
  SET cons OFF
  WAIT
  SET cons ON
  &con
  QUIT
 ELSE
  SELECT PRIMARY
  USE &a1 INDEX &a2
  SELECT seco
  USE &b1 INDEX &b2
 ENDIF 
 RELEASE FILE
 SELECT PRIMARY
 IF eop#'CALL'
  STORE "@ 11,0 SAY "+eop TO era
 ELSE
  POKE 42001, 58,16,164,0,  103,46,0,34,    246,10,205,173, 1,58,16,164
  POKE 42017, 71,62,23,144, 167,200,245,30, 13,205,68,164,  30,10,205,68
  POKE 42033, 164,6,79,197, 30,32,205,68,   164,193,5,194,  52,164,241,61
  POKE 42049, 195,37,164,14, 2,205,5,0,     201  
  SET CALL TO 42001
  STORE 'CALL' TO era
  POKE 42000,11
 ENDIF
 &era
ENDIF
RETURN