      REM CAT.INCLUDE.EQU
*PIC-LAN
*INCLUDE
*
*
*N
*
*
      DIM R(100)
      EQUATE R001 TO R(1)
      EQUATE R002 TO R(2)
      EQUATE R003 TO R(3)
      EQUATE R004 TO R(4)
      EQUATE R005 TO R(5)
      EQUATE R006 TO R(6)
      EQUATE R007 TO R(7)
      EQUATE R008 TO R(8)
      EQUATE R009 TO R(9)
      EQUATE R010 TO R(10)
      EQUATE R011 TO R(11)
      EQUATE R012 TO R(12)
      EQUATE R013 TO R(13)
      EQUATE R014 TO R(14)
      EQUATE R015 TO R(15)
      EQUATE R016 TO R(16)
      EQUATE R017 TO R(17)
      EQUATE R018 TO R(18)
      EQUATE R019 TO R(19)
      EQUATE R020 TO R(20)
      EQUATE R021 TO R(21)
      EQUATE R022 TO R(22)
      EQUATE R023 TO R(23)
      EQUATE R024 TO R(24)
      EQUATE R025 TO R(25)
      EQUATE R026 TO R(26)
      EQUATE R027 TO R(27)
      EQUATE R028 TO R(28)
      EQUATE R029 TO R(29)
      EQUATE R030 TO R(30)
      EQUATE R031 TO R(31)
      EQUATE R032 TO R(32)
      EQUATE R033 TO R(33)
      EQUATE R034 TO R(34)
      EQUATE R035 TO R(35)
      EQUATE R036 TO R(36)
      EQUATE R037 TO R(37)
      EQUATE R038 TO R(38)
      EQUATE R039 TO R(39)
      EQUATE R040 TO R(40)
      EQUATE R041 TO R(41)
      EQUATE R042 TO R(42)
      EQUATE R043 TO R(43)
      EQUATE R044 TO R(44)
      EQUATE R045 TO R(45)
      EQUATE R046 TO R(46)
      EQUATE R047 TO R(47)
      EQUATE R048 TO R(48)
      EQUATE R049 TO R(49)
      EQUATE R050 TO R(50)
      EQUATE R051 TO R(51)
      EQUATE R052 TO R(52)
      EQUATE R053 TO R(53)
      EQUATE R054 TO R(54)
      EQUATE R055 TO R(55)
      EQUATE R056 TO R(56)
      EQUATE R057 TO R(57)
      EQUATE R058 TO R(58)
      EQUATE R059 TO R(59)
      EQUATE R060 TO R(60)
      EQUATE R061 TO R(61)
      EQUATE R062 TO R(62)
      EQUATE R063 TO R(63)
      EQUATE R064 TO R(64)
      EQUATE R065 TO R(65)
      EQUATE R066 TO R(66)
      EQUATE R067 TO R(67)
      EQUATE R068 TO R(68)
      EQUATE R069 TO R(69)
      EQUATE R070 TO R(70)
      EQUATE R071 TO R(71)
      EQUATE R072 TO R(72)
      EQUATE R073 TO R(73)
      EQUATE R074 TO R(74)
      EQUATE R075 TO R(75)
      EQUATE R076 TO R(76)
      EQUATE R077 TO R(77)
      EQUATE R078 TO R(78)
      EQUATE R079 TO R(79)
      EQUATE R080 TO R(80)
      EQUATE R081 TO R(81)
      EQUATE R082 TO R(82)
      EQUATE R083 TO R(83)
      EQUATE R084 TO R(84)
      EQUATE R085 TO R(85)
      EQUATE R086 TO R(86)
      EQUATE R087 TO R(87)
      EQUATE R088 TO R(88)
      EQUATE R089 TO R(89)
      EQUATE R090 TO R(90)
      EQUATE R091 TO R(91)
      EQUATE R092 TO R(92)
      EQUATE R093 TO R(93)
      EQUATE R094 TO R(94)
      EQUATE R095 TO R(95)
      EQUATE R096 TO R(96)
      EQUATE R097 TO R(97)
      EQUATE R098 TO R(98)
      EQUATE R099 TO R(99)
      EQUATE R100 TO R(100)
