NOTE  -dBASE II EXECUTIVE COMMAND FILE RETRIEVE.CMD
ERASE
SET TALK OFF
STORE 'mm/dd/yy' TO M:DATE
STORE T TO NODATE
STORE ' ' TO DR
@  2,33 SAY 'R+E+T+R+I+E+V+E'
@ 12,40 SAY 'BY'
@ 14,32 SAY 'David A. Lathrop'
@ 16,27 SAY '-- COPYRIGHTED (C) 1983 --'
DO WHILE NODATE
     @ 5,24 SAY 'ENTER DATE (mm/dd/yy) ' GET M:DATE PICTURE '99/99/99'
     READ
     IF VAL($(M:DATE,1,2))<1;
        .OR. VAL($(M:DATE,1,2))>12;
        .OR. VAL($(M:DATE,4,2))<1;
        .OR. VAL($(M:DATE,4,2))>31;
        .OR. VAL($(M:DATE,7,2))<83
          STORE 'mm/dd/yy' TO M:DATE
          @ 7,21 SAY '**** BAD DATE -- PLEASE RE-ENTER. ****'
          STORE T TO NODATE
     ELSE
          STORE F TO NODATE
     ENDIF
ENDDO
SET DATE TO &M:DATE
@ 5,23 SAY '                                 '
@ 7,20 SAY '                                        '
@ 9,20 SAY 'ENTER STORAGE DISK DRIVE LETTER ' GET DR PICTURE 'A'
READ
STORE DR+':REFS' TO FILE1
DO WHILE T
     ERASE
     ?
     ? '                       ***  R+E+T+R+I+E+V+E MENU  ***'
     ?
     ? '                         0 - EXIT'
     ? '                         1 - ENTER NEW ARTICLES'
     ? '                         2 - ENTER NEW ARTICLES WITH'
     ? '                             (AUTOMATIC REFERENCE NUMBERING)'
     ? '                         3 - FIND ARTICLES'
     ? '                         4 - QUICKLY FIND ARTICLES'
     ? '                             (BY FIRST AUTHOR, FIRST KEY WORD,'
     ? '                              OR FIRST 20 LTRS OF SOURCE)'
     ? '                         5 - RE-INDEX FILES'
     ? '                         6 - MAKE LABELS FOR ARTICLES'
     ? '                         7 - EDIT DATA BASE RECORDS'
     ?
     ?
     ?
     ?
     ?
     ?
     ?
     ? 'ENTER DESIRED ACTION'
WAIT TO ACTION
DO CASE
     CASE ACTION='0'
          ERASE
          USE &FILE1
          GO BOTTOM
          STORE STR(#,6) TO REC:NO
          @ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+' RECORDS ***'
          @ 16,1 SAY ' '
          SET TALK ON
          QUIT
     CASE ACTION='1'
          DO NEWENTRY
     CASE ACTION='2'
          DO AUTONUMB
     CASE ACTION='3'
          DO FIND
     CASE ACTION='4'
          DO FASTFIND
     CASE ACTION='5'
          DO INDEX
     CASE ACTION='6'
          DO LABEL
     CASE ACTION='7'
          DO EDIT
     OTHERWISE
          ? '**** Invalid response, re-enter ****'
     ENDCASE
ENDDO
RETURN
          OURCE)'
     ? '                         5 - RE-INDEX FILES'
     ? '                         6 - MAKE LABELS FOR ARTICLES'
     ? '                         7 - EDIT DATA BASE RECORDS'
     ?
     ?
     ?
     ?
     ?
     ?
     ?
     ? 'ENTER DESIRED ACTION'
WAIT TO ACTION
DO CASE
     CASE ACTION='0'
          ERASE
          USE &FILE1
          GO BOTTOM
          STORE STR(#,6) TO REC:NO
          @ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+' RECORDS ***'
          @ 16,1 S