icep.f

!     CHECK THE COMMANDS WHICH SHOULD HAVE EQUAL SIGN
!     10 - no equal sign required
!     11 - equal sign required

      integer         :: icep = 302 !ie
      integer         :: nn
      character(2)    :: ch
      character(1050) :: go 
      parameter(go   =                                                  &
      !01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20      & !  cells   col
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !  1- 20   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & ! 21- 40   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & ! 41- 60   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & ! 61- 80   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & ! 81-100   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !101-120   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !121-140   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !141-160   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !161-180   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !181-200   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !201-220   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !221-240   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !241-260   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !261-280   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !281-300   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !301-320   8-67
     &'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !321-340   8-67
     &'01,02,01,02,01,02,01,02,01,02,')                                   !341-350   8-37 
!     __10        20   25   30   35   40   45   50   55   60   65   70__  ! cells    col.

      ch=go(icep*3-2:icep*3-1) !an extra assignment to a variable
      read(ch, '(Z2)') nn
      goto(10,11) nn

10    print *, '10: ', 'go=', go(icep*3-2:icep*3-1)
      goto 999
11    print *, '11: ', 'go=', go(icep*3-2:icep*3-1)
      goto 999
999   end