home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / retrv_pc.zip / NEW.PRG < prev    next >
Text File  |  1984-10-24  |  2KB  |  56 lines
  1. NOTE  - EXTENDED COMMAND FILE NEWENTRY.CMD
  2. USE &FILE0
  3. GO BOTTOM 
  4. DO WHILE T
  5.      STORE 'Y' TO CONTINUE
  6.      STORE '     ' TO REF
  7.      STORE '                                        ' TO AU1
  8.      STORE '                                        ' TO AU2
  9.      STORE '                                        ' TO TI1
  10.      STORE '                                        ' TO TI2
  11.      STORE '                                        ' TO TI3
  12.      STORE '                                        ' TO TI4
  13.      STORE '                                        ' TO SO1
  14.      STORE '                                        ' TO SO2
  15.      STORE '                                        ' TO KW1
  16.      STORE '                                        ' TO KW2
  17.      ERASE
  18.      @  3,25 SAY 'REPRINT INFORMATION ENTRY FORM'
  19.      @  5,26 SAY '                              '
  20.      @  23,0 SAY '                    '
  21.      @  7,14 SAY 'REF. NO. ' GET REF PICTURE 'XXXXX'
  22.      @  9,15 SAY 'AUTHORS ' GET AU1 PICTURE;
  23.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  24.      @ 10,22 SAY ' ' GET AU2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  25.      @ 12,17 SAY 'TITLE ' GET TI1 PICTURE;
  26.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  27.      @ 13,22 SAY ' ' GET TI2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  28.      @ 14,22 SAY ' ' GET TI3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  29.      @ 15,22 SAY ' ' GET TI4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  30.      @ 17,16 SAY 'SOURCE ' GET SO1 PICTURE;
  31.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  32.      @ 18,22 SAY ' ' GET SO2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  33.      @ 20,13 SAY 'KEY WORDS ' GET KW1 PICTURE;
  34.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  35.      @ 21,22 SAY ' ' GET KW2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  36.      READ
  37.      STORE AU1+AU2 TO AU3
  38.      STORE TI1+TI2+TI3+TI4 TO TI5
  39.      STORE SO1+SO2 TO SO3
  40.      STORE KW1+KW2 TO KW3
  41.      APPEND BLANK
  42.      REPLACE REF:NO WITH REF 
  43.      REPLACE AUTHORS WITH AU3 
  44.      REPLACE TITLE WITH TI5 
  45.      REPLACE SOURCE WITH SO3 
  46.      REPLACE KWORDS WITH KW3
  47.      ERASE
  48.      @  5,26 SAY 'WANT TO CONTINUE? (Y/N) ' GET CONTINUE PICTURE 'A'
  49.      READ
  50.      IF !(CONTINUE)='N'
  51.         RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,;
  52.            KW1,KW2,KW3
  53.         INDEX ON REF:NO TO REF:NO
  54.         RETURN
  55.      ENDIF
  56. ENDDO