*
*
*
*
*
*
      OPEN 'B' TO DATA.FD ELSE CALL PLXX.STOP(201,'B')
*
      S = '      REM CAT.INCLUDE.EQU'
      S<-1> = '*PIC-LAN'
      S<-1> = '*INCLUDE'
      S<-1> = '*'
      S<-1> = '*'
      S<-1> = '*N'
      S<-1> = '*'
      S<-1> = '*'
      S<-1> = '      DIM R(100)'
      FOR I = 1 TO 100
         S<-1> = '      EQUATE R' : I 'R%3' : ' TO R(' : I : ')'
      NEXT I
*
      WRITE S ON DATA.FD , 'CAT.INCLUDE.EQU'
*
      S = '      REM CAT.INCLUDE'
      S<-1> = '*PIC-LAN'
      S<-1> = '*INCLUDE'
      S<-1> = '*'
      S<-1> = '*'
      S<-1> = '*N'
      S<-1> = '*'
      S<-1> = '*'
      SS = '80000 ON N GOSUB '
      FOR I = 1 TO 100
         IF I > 1 THEN SS = SS : ','
         SS = SS : 80000 + I
      NEXT I
      S<-1> = SS
      S<-1> = '      MAT R = ""'
      S<-1> = '      RETURN'
      FOR I = 1 TO 100
         SS = 80000 + I : ' S = S'
         FOR J = 1 TO I
            SS = SS : ':R' : J 'R%3'
         NEXT J
         SS = SS : ';RETURN'
         S<-1> = SS
      NEXT I
*
      WRITE S ON DATA.FD , 'CAT.INCLUDE'
   END
