* ***************************  DNSWAP COMMAND FILE  **************************
*
*                                  dNAMES 1.1
*                   (c) Copyright 1982 Data Based Solutions
*                             All Rights Reserved
* ****************************************************************************
SET colon ON
STORE ' ' TO sure
&era
@ 10,9 SAY 'This option allows you to use a different disk drive for your' 
@ 11,9 SAY 'dNAMES data disk drive. To use a different drive for the data,' 
@ 12,9 SAY 'you must already have an installed dNAMES data diskette.' 
@ 14,9 SAY 'Enter the new drive letter (A-H) to be used for dNAMES data' 
@ 15,9 SAY 'or <RET> to abort and return to main menu. ' 
STORE t TO makesure
DO WHILE makesure
 @ 15,51 GET sure PICTURE '!' 
 &con
 READ
 &coff
 IF sure= ' ' 
  &era
  RETURN
 ELSE
  IF !(sure)= 'A' .OR.!(sure)= 'B' .OR.!(sure)= 'C' .OR.!(sure)= 'D' .OR.;
   !(sure)= 'E' .OR.!(sure)= 'F' .OR.!(sure)= 'G' .OR.!(sure)= 'H' 
   ERASE
   SET INTE OFF
   @ 10,26 SAY '*** ONE MOMENT PLEASE ***'
   @ 12,13 SAY "I'm closing the existing dNAMES files on the "+!($(dsk,2,1))+;
   ": drive."
   SET INTE ON
   USE dndate
   REPLACE DATE WITH DATE(),data WITH !(sure),dendcl WITH endcl
   RELEASE answer,open,makesure,correct
   SAVE TO &mem
   &con
   SET COLON OFF
   STORE t TO open
   STORE f TO correct
   RETURN
  ELSE
   SET inte OFF
   @ 17,25 SAY '*** INVALID DRIVE LETTER ***' 
   @ 18,25 SAY 'Must be between "A" and "H" ' 
   SET inte ON
   LOOP
  ENDIF 
 ENDIF
ENDDO WHILE
RETURN