CLEARALL
CLEAR

User = TRUE
AtHelp = SYSCOLOR(13)
AtMenu = SYSCOLOR(0)

PAINTCANVAS ATTRIBUTE AtHelp
0, 0, 24, 79
STYLE ATTRIBUTE AtHelp
@0, 0
TEXT
                                 Evgenii Rudnyi
                             RUDNYI@MCH.CHEM.MSU.SU
                    Copyright (c) 1993, All rights reserved

                          Department of Chemistry
                          Moscow State University
                           Moscow, 119899, Russia

                   ²²²²           ²²²   ²  ²²²²²  ²²²²²
                   ²   ²         ²   ²  ²    ²    ²
                   ²   ²         ²      ²    ²    ²
                   ²²²²   ²²²²²  ²      ²    ²    ²²²
                   ² ²           ²   ²  ²    ²    ²
                   ²  ²           ²²²   ²    ²    ²²²²²


   "You can never be too rich, too thin, or have
    too much RAM or Disk storage"   Ancient American proverb, ca 1980

              This is a version 1.1 and it is an unregistered copy

ENDTEXT

Dir = ""
ARRAY TableName[7]
TableName[1] = ""
TableName[2] = "Ath"
TableName[3] = "Ins"
TableName[4] = "Nam"
TableName[5] = "Src"
TableName[6] = "Abs"
TableName[7] = "Key"
itn = 1
ARRAY FieldName[9]
FieldName[1] = "Index"
FieldName[2] = "Year"
FieldName[3] = "Flag"
FieldName[4] = "Authors"
FieldName[5] = "Institute"
FieldName[6] = "Name"
FieldName[7] = "Source"
FieldName[8] = "Abstract"
FieldName[9] = "Keys"
ifn = 1
Value = ""
ToValue = ""
Swappoint = 30
FieldPaste = BLANKNUM()
FieldLookUp = BLANKNUM()
dimArea = 1
ARRAY Area[dimArea]
Area[1] = ""
TableMain = "Ref"
Status = "View"
CURSOR OFF
SETSWAP Swappoint*1000
Main()