             END-PERFORM.
             """
 
-  'Digita PERFORM VARYING':
+  'PERFORM VARYING':
      'prefix': 'PB'
      'body': """
      PERFORM                WITH TEST BEFORE

    'prefix': 'CP'
    'body': 'COMPUTE $1 = $2.'

  'Digita ADD | TO |':
    'prefix': 'AD'
    'body': 'ADD $1 TO $2'

  'Digita ADD 1 TO |':
    'prefix': 'AD1'
    'body': 'ADD 1 TO $2'

  'Digita SUBTRACT | TO |':
    'prefix': 'SU'
    'body': 'SUBTRACT $1 TO $2'

  'Digita SUBTRACT 1 TO |':
    'prefix': 'SU1'
    'body': 'SUBTRACT 1 TO $2'

  'Digita COMPUTE | = |':
    'prefix': 'CP'
    'body': 'COMPUTE $1 = $2'

  'Digita COMPUTE ROUNDED | = |':
    'prefix': 'CR'
    'body': 'COMPUTE ROUNDED $1 = $2'

  'Digita ELSE,':
    'prefix': 'EL'
    'body': 'ELSE,'

  'Digita EXIT PERFORM CYCLE':
    'prefix': 'XC'
    'body': 'EXIT PERFORM CYCLE'

  'Digita EXIT PERFORM':
    'prefix': 'XP'
    'body': 'EXIT PERFORM'

  'Digita VALUE IS':
    'prefix': 'VL'
    'body': 'VALUE IS'

  'Digita INITIALIZE':
    'prefix': 'IN'
    'body': 'INITIALIZE'

  'Digita ZEROS':
    'prefix': 'ZE'
    'body': 'ZEROS'

  'Digita SPACES':
    'prefix': 'SP'
    'body': 'SPACES'

  'Digita MOVE | TO |':
    'prefix': 'MV'
    'body': 'MOVE $1 TO $2'

  'Digita LOW-VALUES':
    'prefix': 'LV'
    'body': 'LOW-VALUES'

  'Digita | IS EQUAL TO |':
    'prefix': 'EQ'
    'body': '$1 IS EQUAL TO $2'

  'Digita | IS NOT EQUAL TO |':
    'prefix': 'NQ'
    'body': '$1 IS NOT EQUAL TO $2'

  'Digita | IS GREATER THAN |':
    'prefix': 'GT'
    'body': '$1 IS GREATER THAN $2'

  'Digita | IS LESS THAN |':
    'prefix': 'LE'
    'body': '$1 IS LESS THAN $2'

  'Digita EVALUATE':
    'prefix': 'EV'
    'body': """
             EVALUATE   $1,

     END-PERFORM.$6
     """

  'EXIT PARAGRAPH':
     'prefix': 'XH'
     'body': """
     EXIT PARAGRAPH$1
