NOTE  - EXTENDED COMMAND FILE EDIT.CMD
USE &FILE1
ERASE
@  3,26 SAY '** EDIT DATA BASE RECORDS **'
@  5,21 SAY 'EACH RECORD CONSISTS OF 406 CHARACTERS'
@  6,21 SAY 'DIVIDED INTO THE FOLLOWING FIVE FIELDS'
@  8,26 SAY 'FLD     NAME      TYPE WIDTH'
@  9,26 SAY '001   REF:NO       C    005'
@ 10,26 SAY '002   AUTHORS      C    080'
@ 11,26 SAY '003   TITLE        C    160'
@ 12,26 SAY '004   SOURCE       C    080'
@ 13,26 SAY '005   KWORDS       C    080'
@ 14,26 SAY '**TOTAL**             00406'
@ 16,21 SAY 'ANY RECORD WITHIN  THE DATA BASE MAY BE'
@ 17,21 SAY 'LOCATED  BY  SEARCHING  FOR  IT BY  ITS'
@ 18,21 SAY 'REFERENCE NUMBER,  AUTHOR(S),  TITLE OR'
@ 19,21 SAY 'SOURCE.   ONCE LOCATED  THE INFORMATION'
@ 20,21 SAY 'MAY BE EDITED, OR THE ENTIRE RECORD MAY'
@ 21,21 SAY 'BE DELETED.  PRESS ANY KEY TO CONTINUE.'
@ 22,1  SAY ' '
WAIT
ERASE
@  1,14 SAY 'THE FOLLOWING CONTROL CHARACTERS ARE USED IN EDITING'
@  3,14 SAY '<CTRL>D - MOVE CURSOR RIGHT  <CTRL>E - MOVE CURSOR UP'
@  4,14 SAY '<CTRL>S - MOVE CURSOR LEFT   <CTRL>X - MOVE CURSOR DOWN'
@  5,14 SAY '<CTRL>G - DELETE CHARACTER   <CTRL>Y - DLETETE LINE'
@  7,26 SAY '** WANT TO CONTINUE? (Y/N) **'
@  22,1 SAY ' '
WAIT TO CONTINUE
IF !(CONTINUE)='N'
   RELEASE CONTINUE
   RETURN
ENDIF
@  7,26 SAY '                              '
@  23,0 SAY '                    '
STORE '1' TO FLD
STORE 'N' TO DEL
STORE '     ' TO SSTR
STORE '                                         ' TO SSTR1
STORE '                                         ' TO SSTR2
STORE '                                         ' TO SSTR3
STORE '                                         ' TO SSTR4
@  7,19 SAY 'ENTER FIELD TO SEARCH ON (1,2,3, OR 4) ' GET FLD PICTURE '9'
READ
IF FLD='1'
   STORE 'REF:NO' TO FLD
   @  7,17 SAY '                                              '
   @  7,25 SAY 'ENTER REFERENCE NUMBER ' GET SSTR PICTURE 'AX999'
   READ
ELSE
   IF FLD='2'
      STORE 'AUTHORS' TO FLD
      @  7,17 SAY '                                              '
      @  7,27 SAY '** ENTER AUTHOR(S) NAME **'
      @  9,20 GET SSTR1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 10,20 GET SSTR2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      READ
      STORE SSTR1+SSTR2 TO SSTR
   ELSE
      IF FLD='3'
         STORE 'TITLE' TO FLD
      @  7,17 SAY '                                              '
         @ 7,32 SAY '** ENTER TITLE **'
         @  9,20 GET SSTR1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
         @ 10,20 GET SSTR2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
         @ 11,20 GET SSTR3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
         @ 12,20 GET SSTR4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
         READ
         STORE SSTR1+SSTR2+SSTR3+SSTR4 TO SSTR
      ELSE
         IF FLD='4'
            STORE 'SOURCE' TO FLD
      @  7,17 SAY '                                              '
            @  7,34 SAY '** SOURCE **'
            @  9,20 GET SSTR1 PICTURE;
               'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
            @ 10,20 GET SSTR2 PICTURE;
               'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
            READ
            STORE SSTR1+SSTR2 TO SSTR
         ENDIF
      ENDIF
   ENDIF
ENDIF
@  7,15 SAY '                                                   '
@  8,15 SAY '                                                   '
@  9,15 SAY '                                                   '
@ 10,15 SAY '                                                   '
@ 11,15 SAY '                                                   '
@ 12,15 SAY '                                                   '
@ 12,32 SAY '** SEARCHING **'
LOCATE FOR !(SSTR)=!(&FLD)
DO WHILE .NOT. EOF
STORE # TO RNUMB
STORE REF:NO TO REF
STORE $(AUTHORS,1,40) TO AU1
STORE $(AUTHORS,41,40) TO AU2
STORE $(TITLE,1,40) TO TI1
STORE $(TITLE,41,40) TO TI2
STORE $(TITLE,81,40) TO TI3
STORE $(TITLE,121,40) TO TI4
STORE $(SOURCE,1,40) TO SO1
STORE $(SOURCE,41,40) TO SO2
STORE $(KWORDS,1,40) TO KW1
STORE $(KWORDS,41,40) TO KW2
@  7,32 SAY '               '
@  7,14 SAY 'REF. NO. ' GET REF PICTURE 'XXXXX'
@  9,15 SAY 'AUTHORS ' GET AU1 PICTURE;
   'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 10,22 SAY ' ' GET AU2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 12,17 SAY 'TITLE ' GET TI1 PICTURE;
   'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 13,22 SAY ' ' GET TI2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 14,22 SAY ' ' GET TI3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 15,22 SAY ' ' GET TI4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 17,16 SAY 'SOURCE ' GET SO1 PICTURE;
   'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 18,22 SAY ' ' GET SO2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 20,13 SAY 'KEY WORDS ' GET KW1 PICTURE;
   'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 21,22 SAY ' ' GET KW2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 23,19 SAY 'WANT TO MARK RECORD FOR DELETION? (Y/N) ' GET DEL PICTURE 'X'
READ 
IF !(DEL)='Y'
   DELETE FOR RNUMB=#
   CONTINUE
ENDIF
STORE AU1+AU2 TO AU3
STORE TI1+TI2+TI3+TI4 TO TI5
STORE SO1+SO2 TO SO3
STORE KW1+KW2 TO KW3
REPLACE REF:NO WITH REF, AUTHORS WITH AU3, TITLE WITH TI5;
   SOURCE WITH SO3, KWORDS WITH KW3
CONTINUE
@  7,10 SAY '                                                             '
@  8,10 SAY '                                                             '
@  9,10 SAY '                                                             '
@ 10,10 SAY '                                                             '
@ 11,10 SAY '                                                             '
@ 12,10 SAY '                                                             '
@ 13,10 SAY '                                                             '
@ 14,10 SAY '                                                             '
@ 15,10 SAY '                                                             '
@ 16,10 SAY '                                                             '
@ 17,10 SAY '                                                             '
@ 18,10 SAY '                                                             '
@ 19,10 SAY '                                                             '
@ 20,10 SAY '                                                             '
@ 21,10 SAY '                                                             '
@ 22,10 SAY '                                                             '
@ 23,10 SAY '                                                             '
@ 12,32 SAY '** SEARCHING **'
ENDDO
ERASE
@ 20,8  SAY 'WANT REMOVE RECORDS MARKED FOR DELETION FROM THE DATA BASE? (Y/N)'
WAIT TO ANSWER
IF !(ANSWER)='Y'
     PACK
     @ 22,26 SAY '****** PACK COMPLETED ******'
ENDIF
ERASE
@ 20,21 SAY '************** FINISHED ***************'
@ 21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***'
@ 22,1  SAY ' '
WAIT
RELEASE CONTINUE,DEL,REF,FLD,SSTR,SSTR1,SSTR2,SSTR3,SSTR4,AU1,AU2,AU3,;
   TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,KW1,KW2,KW3,RNUMB
RETURN       '
@ 12,32 SAY '** SEARCHING **'
ENDDO
ERASE
@ 20,8  SAY 'WANT REMOVE RECORDS MARKED FOR DELETION FROM THE DATA BASE? (Y/N)'
WAIT TO ANSWER
IF !(ANSWER)='Y'
     PACK
     @ 22,26 SAY '****** PACK COMPLETED ******'
ENDIF
ERASE
@ 20,21 SAY '************** FINISHED ***************'
@ 21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***'
@ 22,1  SAY ' '
WAIT
RELEASE CONTINUE,DEL,REF,FLD,SSTR,SSTR1,SSTR2,SSTR3,SSTR4,AU1,AU2,AU3,;
   TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,KW1,KW2,KW3,RNUMB
RETURN5 SAY '                                                   '
@ 12,15 SAY '                                                   '
@ 12,32 SAY '** SEARCHING **'
LOCATE FOR !(SSTR)=!(&FLD)
DO WHILE .NOT. EOF
STORE # TO RNUMB
STORE REF:NO TO REF
STORE $(AUTHORS,1,40) TO AU1
STORE $(AUTHORS,41,40) TO AU2
STORE $(TITLE,1,40) TO TI1
STORE $(TITLE,41,40) TO TI2
STORE $(TITLE,81,40) TO TI3
STORE $(TITLE,121,40) TO TI4
STORE $(SOURCE,1,40) TO SO1
STORE $(SOURCE,41,40) TO SO2
STORE $(KWORDS,1,40) TO K