home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG107.ARC / RETRIEVE.LBR / AUTONUMB.CQD / AUTONUMB.CMD
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  68 lines
  1. NOTE  - EXTENDED COMMAND FILE AUTONUMB.CMD
  2.      ERASE
  3.      @  3,25 SAY 'REPRINT INFORMATION ENTRY FORM'
  4.      @  5,26 SAY '** WANT TO CONTINUE? (Y/N) **'
  5.      @  22,1 SAY ' '
  6.      WAIT TO CONTINUE
  7.      IF !(CONTINUE)='N'
  8.         RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,;
  9.            KW1,KW2,KW3
  10.         RETURN
  11.      ENDIF
  12. USE &FILE1
  13. GO BOTTOM
  14. DO WHILE T
  15.      STORE '     ' TO REF
  16.      STORE '                                        ' TO AU1
  17.      STORE '                                        ' TO AU2
  18.      STORE '                                        ' TO TI1
  19.      STORE '                                        ' TO TI2
  20.      STORE '                                        ' TO TI3
  21.      STORE '                                        ' TO TI4
  22.      STORE '                                        ' TO SO1
  23.      STORE '                                        ' TO SO2
  24.      STORE '                                        ' TO KW1
  25.      STORE '                                        ' TO KW2
  26.      ERASE
  27.      @  3,25 SAY 'REPRINT INFORMATION ENTRY FORM'
  28.      @  7,15 SAY 'AUTHORS ' GET AU1 PICTURE;
  29.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  30.      @  8,22 SAY ' ' GET AU2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  31.      @ 10,17 SAY 'TITLE ' GET TI1 PICTURE;
  32.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  33.      @ 11,22 SAY ' ' GET TI2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  34.      @ 12,22 SAY ' ' GET TI3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  35.      @ 13,22 SAY ' ' GET TI4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  36.      @ 15,16 SAY 'SOURCE ' GET SO1 PICTURE;
  37.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  38.      @ 16,22 SAY ' ' GET SO2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  39.      @ 18,13 SAY 'KEY WORDS ' GET KW1 PICTURE;
  40.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  41.      @ 19,22 SAY ' ' GET KW2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  42.      READ
  43.      STORE $(AU1,1,1) TO SEARCH
  44.      STORE 1 TO NUMBER
  45.      DO WHILE .NOT. EOF
  46.           LOCATE FOR !(SEARCH)$AUTHORS .AND. NUMBER=VAL($(REF:NO,3,3))
  47.           STORE NUMBER+1 TO NUMBER
  48.      ENDDO
  49.      APPEND BLANK
  50.      STORE NUMBER-1 TO NUMBER
  51.      STORE SEARCH+STR(NUMBER,4) TO REF
  52.      @ 21,14 SAY 'REF. NO. :'+REF+':'
  53.      STORE AU1+AU2 TO AU3
  54.      STORE TI1+TI2+TI3+TI4 TO TI5
  55.      STORE SO1+SO2 TO SO3
  56.      STORE KW1+KW2 TO KW3
  57.      REPLACE REF:NO WITH REF, AUTHORS WITH AU3, TITLE WITH TI5;
  58.         SOURCE WITH SO3, KWORDS WITH KW3
  59.      @ 23,26 SAY '** WANT TO CONTINUE? (Y/N) **'
  60.      @  23,1 SAY ' '
  61.      WAIT TO CONTINUE
  62.      IF !(CONTINUE)='N'
  63.         RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,;
  64.            KW1,KW2,KW3
  65.         RETURN
  66.      ENDIF
  67.      @ 23,0 SAY '                                                      '
  68. ENDDO