SET   
      SAVE  
      =     L     26.1
      L     #TEMP6
      T     MW   114
      L     MB   116
      T     #TEMP18
      UC    FC   104
            P#L 14.0
            P#L 25.0
      UC    FC   104
            P#L 15.0
            P#L 23.0
      UC    FC   104
            P#L 16.0
            P#L 24.0
      UC    FC   104
            P#L 17.0
            P#M 116.0
      L     #TEMP21
      T     DB1.DBB    5
      L     #TEMP19
      T     DBB    3
      L     #TEMP20
      T     DBB    4
      L     MB   116
      T     DBB    0
      UC    FC    50
      UC    FC    40
      L     #TEMP18
      L     MB   116
      <>I   
      L     MB   116
      AD    DW#16#FF
      L     5
      ITD   
      TAK   
      ITD   
      TAK   
      MOD   
      L     0
      =     L     26.2
      ==I   
      A     L     26.2
      JCN   M001
      UC    FC   101
M001: UC    FC   103
      A     M    101.3
      JC    M002
      L     W#16#0
      JU    M003
M002: L     W#16#1
M003: T     DB4.DBB   38
      UC    FC   120
      UC    FC    90
      L     #TEMP18
      L     MB   116
      <>I   
      JCN   M004
      UC    FC    80
M004: CLR   
      A     L     26.1
      SAVE  
      BE