NOTE  - EXTENDED COMMAND FILE NEWENTRY.CMD
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'
     @  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
     @  5,26 SAY '                              '
     @  23,0 SAY '                    '
     @  7,14 SAY 'REF. NO. ' GET REF PICTURE 'AX999'
     @  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'
     READ
     STORE AU1+AU2 TO AU3
     STORE TI1+TI2+TI3+TI4 TO TI5
     STORE SO1+SO2 TO SO3
     STORE KW1+KW2 TO KW3
     APPEND BLANK
     REPLACE REF:NO WITH REF, AUTHORS WITH AU3, TITLE WITH TI5;
        SOURCE WITH SO3, KWORDS WITH KW3
ENDDO