home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / retrv_pc.zip / AUTONUMB.PRG < prev    next >
Text File  |  1984-10-24  |  5KB  |  160 lines
  1. NOTE  - EXTENDED COMMAND FILE AUTONUMB.CMD
  2.      ERASE
  3. USE &FILE1
  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.      @  7,15 SAY 'AUTHORS ' GET AU1 PICTURE;
  20.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  21.      @  8,22 SAY ' ' GET AU2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  22.      @ 10,17 SAY 'TITLE ' GET TI1 PICTURE;
  23.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  24.      @ 11,22 SAY ' ' GET TI2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  25.      @ 12,22 SAY ' ' GET TI3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  26.      @ 13,22 SAY ' ' GET TI4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  27.      @ 15,16 SAY 'SOURCE ' GET SO1 PICTURE;
  28.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  29.      @ 16,22 SAY ' ' GET SO2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  30.      @ 18,13 SAY 'KEY WORDS ' GET KW1 PICTURE;
  31.         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  32.      @ 19,22 SAY ' ' GET KW2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  33.      READ
  34.      STORE $(AU1,1,1) TO SEARCH
  35.      IF SEARCH="Z"
  36.          GO BOTTOM
  37.          STORE VAL($(REF:NO,3,3)) TO NUMBER
  38.          STORE NUMBER+1 TO NUMBER
  39.          APPEND BLANK
  40.          STORE SEARCH+STR(NUMBER,4) TO REF
  41.          @ 21,14 SAY 'REF. NO. :'+REF+':'
  42.          STORE AU1+AU2 TO AU3
  43.          STORE TI1+TI2+TI3+TI4 TO TI5
  44.          STORE SO1+SO2 TO SO3
  45.          STORE KW1+KW2 TO KW3
  46.          REPLACE REF:NO WITH REF
  47.          REPLACE AUTHORS WITH AU3
  48.          REPLACE TITLE WITH TI5
  49.          REPLACE SOURCE WITH SO3
  50.          REPLACE KWORDS WITH KW3
  51.      ELSE
  52.           IF SEARCH="A"
  53.                STORE 65 TO NUMB
  54.           ENDIF
  55.           IF SEARCH="B"
  56.                STORE 66 TO NUMB
  57.           ENDIF
  58.           IF SEARCH="C"
  59.                STORE 67 TO NUMB
  60.           ENDIF
  61.           IF SEARCH="D"
  62.                STORE 68 TO NUMB
  63.           ENDIF
  64.           IF SEARCH="E"
  65.                STORE 69 TO NUMB
  66.           ENDIF
  67.           IF SEARCH="F"
  68.                STORE 70 TO NUMB
  69.           ENDIF
  70.          IF SEARCH="G"
  71.               STORE 71 TO NUMB
  72.          ENDIF
  73.          IF SEARCH="H"
  74.               STORE 72 TO NUMB
  75.          ENDIF
  76.          IF SEARCH="I"
  77.               STORE 73 TO NUMB
  78.          ENDIF
  79.          IF SEARCH="J"
  80.               STORE 74 TO NUMB
  81.          ENDIF
  82.          IF SEARCH="K"
  83.               STORE 75 TO NUMB
  84.          ENDIF
  85.          IF SEARCH="L"
  86.               STORE 76 TO NUMB
  87.          ENDIF
  88.          IF SEARCH="M"
  89.               STORE 77 TO NUMB
  90.          ENDIF
  91.          IF SEARCH="N"
  92.               STORE 78 TO NUMB
  93.          ENDIF
  94.          IF SEARCH="O"
  95.               STORE 79 TO NUMB
  96.          ENDIF
  97.          IF SEARCH="P"
  98.               STORE 80 TO NUMB
  99.          ENDIF
  100.          IF SEARCH="Q"
  101.               STORE 81 TO NUMB
  102.          ENDIF
  103.          IF SEARCH="R"
  104.               STORE 82 TO NUMB
  105.          ENDIF
  106.          IF SEARCH="S"
  107.               STORE 83 TO NUMB
  108.          ENDIF
  109.          IF SEARCH="T"
  110.               STORE 84 TO NUMB
  111.          ENDIF
  112.          IF SEARCH="U"
  113.               STORE 85 TO NUMB
  114.          ENDIF
  115.          IF SEARCH="V"
  116.               STORE 86 TO NUMB
  117.          ENDIF
  118.          IF SEARCH="W"
  119.               STORE 87 TO NUMB
  120.          ENDIF
  121.          IF SEARCH="X"
  122.               STORE 88 TO NUMB
  123.          ENDIF
  124.          IF SEARCH="Y"
  125.               STORE 88 TO NUMB
  126.          ENDIF
  127.          STORE NUMB+1 TO NUMB
  128.          STORE CHR(NUMB) TO alpha
  129.          FIND &alpha
  130.          SKIP -1
  131.          STORE VAL($(REF:NO,3,3)) TO NUMBER
  132.          STORE NUMBER+1 TO NUMBER
  133.          GO BOTTOM
  134.          APPEND BLANK
  135.          STORE SEARCH+STR(NUMBER,4) TO REF
  136.          @ 21,14 SAY 'REF. NO. :'+REF+':'
  137.          STORE AU1+AU2 TO AU3
  138.          STORE TI1+TI2+TI3+TI4 TO TI5
  139.          STORE SO1+SO2 TO SO3
  140.          STORE KW1+KW2 TO KW3
  141.          REPLACE REF:NO WITH REF
  142.          REPLACE AUTHORS WITH AU3 
  143.          REPLACE TITLE WITH TI5
  144.          REPLACE SOURCE WITH SO3 
  145.          REPLACE KWORDS WITH KW3
  146.      ENDIF
  147.      STORE 5 TO L
  148.      DO WHILE L<21
  149.          @ L,13 SAY '                                                        '
  150.          STORE L+1 TO L
  151.      ENDDO
  152.      @ 10,26 SAY 'WANT TO CONTINUE? (Y/N) ' GET CONTINUE PICTURE 'A'
  153.      READ
  154.      IF !(CONTINUE)='N'
  155.           RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,;
  156.               SO1,SO2,SO3,KW1,KW2,KW3
  157.           RETURN
  158.      ENDIF
  159.  
  160. ENDDO