NOTE  - EXTENDED COMMAND FILE AUTONUMB.CMD
     ERASE
     @  3,25 SAY 'REPRINT INFORMATION ENTRY FORM'
     @  5,26 SAY '** WANT TO CONTINUE? (Y/N) **'
     @  22,1 SAY ' '
     WAIT TO CONTINUE
     IF !(CONTINUE)='N'
        RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,;
           KW1,KW2,KW3
        RETURN
     ENDIF
USE &FILE1
GO BOTTOM
DO WHILE T
     STORE '     ' TO REF
     STORE '                                        ' TO AU1
     STORE '                                        ' TO AU2
     STORE '                                        ' TO TI1
     STORE '                                        ' TO TI2
     STORE '                                        ' TO TI3
     STORE '                                        ' TO TI4
     STORE '                                        ' TO SO1
     STORE '                                        ' TO SO2
     STORE '                                        ' TO KW1
     STORE '                                        ' TO KW2
     ERASE
     @  3,25 SAY 'REPRINT INFORMATION ENTRY FORM'
     @  7,15 SAY 'AUTHORS ' GET AU1 PICTURE;
        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     @  8,22 SAY ' ' GET AU2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     @ 10,17 SAY 'TITLE ' GET TI1 PICTURE;
        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     @ 11,22 SAY ' ' GET TI2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     @ 12,22 SAY ' ' GET TI3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     @ 13,22 SAY ' ' GET TI4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     @ 15,16 SAY 'SOURCE ' GET SO1 PICTURE;
        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     @ 16,22 SAY ' ' GET SO2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     @ 18,13 SAY 'KEY WORDS ' GET KW1 PICTURE;
        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     @ 19,22 SAY ' ' GET KW2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
     READ
     STORE $(AU1,1,1) TO SEARCH
     STORE 1 TO NUMBER
     DO WHILE .NOT. EOF
          LOCATE FOR !(SEARCH)$AUTHORS .AND. NUMBER=VAL($(REF:NO,3,3))
          STORE NUMBER+1 TO NUMBER
     ENDDO
     APPEND BLANK
     STORE NUMBER-1 TO NUMBER
     STORE SEARCH+STR(NUMBER,4) TO REF
     @ 21,14 SAY 'REF. NO. :'+REF+':'
     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
     @ 23,26 SAY '** WANT TO CONTINUE? (Y/N) **'
     @  23,1 SAY ' '
     WAIT TO CONTINUE
     IF !(CONTINUE)='N'
        RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,;
           KW1,KW2,KW3
        RETURN
     ENDIF
     @ 23,0 SAY '                                                      '
ENDDO