CLEARALL
CLEAR

User = FALSE
IF User THEN
  AtHelp = SYSCOLOR(13)
  AtMenu = SYSCOLOR(0)
ELSE
  AtHelp = 7
  AtMenu = 7
ENDIF

PAINTCANVAS ATTRIBUTE AtHelp
0, 0, 24, 79
STYLE ATTRIBUTE AtHelp
@0, 0
TEXT

                                 Evgenii Rudnyi
                    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
;               This is a version 1.1 and this copy is lisenced to
;                          Laboratory of Thermodynamics
;                Department of Chemistry, Moscow State University

IF NOT User THEN
  SLEEP 3000
  CLEAR
  PAINTCANVAS ATTRIBUTE AtHelp
  0, 0, 24, 79
  STYLE ATTRIBUTE AtHelp
  @0, 0
  TEXT

                           This software is not free.

                               This is shareware.

                        If you like it, please register.

                        Read file LISENCE on your disk.


                        As a registered user you'll get:

                             1) technical support,
                              2) a color version,
                     3) powerful commands REPLACE and COPY,
                     4) more formats in the PRINT command,
               5) help for importing files from other databases,
                       6) special price for next versions


                                 Evgenii Rudnyi
                                 (095) 939-1240
                             RUDNYI@MCH.CHEM.MSU.SU
press any key to start
  ENDTEXT
Dir = GETCHAR()
ENDIF

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()